zoukankan      html  css  js  c++  java
  • AutoLISP圆内接多边形

    AutoLISP圆内接多边形,嵌套多边形,代码如下。

    (defun c:test()
      (setvar "cmdecho" 0)
      (setq en (entsel "\n选取圆,或[ENTER]结束:"))
      (while en
        (setq en (car en))
        (setq endata (entget en))
        (setq cen (cdr (assoc 10 endata)))
        (setq rr (cdr (assoc 40 endata)))
        (setq pt1 (polar cen (- (/ pi 6)) rr))
        (setq pt2 (polar cen (/ pi 2) rr))
        (setq pt3 (polar cen (+ pi (/ pi 6)) rr))
        (command "polygon" 6 cen "i" (polar cen (/ pi 2) rr))
        (command "pline" pt1 pt2 pt3 "")
        (command "mirror" (entlast) "" cen (polar cen 0 rr) "")
        (setq int (inters cen (polar cen (/ pi 4) rr) pt1 pt2))
        (command "polygon" 4 cen "i" int)
        (setq pt_rr (list (car cen) (cadr int)))
        (command "circle" cen pt_rr)
        (setq en (entsel "\n选取圆,或[ENTER]结束:"))
        )
      (prin1)
      )

    代码完。

    作者:codee
    文章千古事,得失寸心知。


  • 相关阅读:
    月食照片
    宾得镜头大全与发展史
    月食照片
    关于镜头系数的疑问
    经验和教训
    常用正则表达式
    12月19日
    部長面談
    周六
    异度空间
  • 原文地址:https://www.cnblogs.com/bimgoo/p/2502974.html
Copyright © 2011-2022 走看看