【绘图】批量绘制外接圆

Lispboy · 发表于 2020-9-7 20:52:35

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:xdtb_drwjcir (/ yeorno i x pts cens)
(xdrx-begin)
(xdrx-prompt "\n**求最小外接圆**")
(xdrx-initget "Y N")
(setq yeorno (xdrx-yesorno "\n是否删除源多段线" 1))
(if (setq ss (xdrx-ssget "\n选择多段线<退出>:" '((0 . "*polyline"))))
(progn (setq i 0)
(mapcar '(lambda (x)
(setq pts (xdrx-getpropertyvalue x "vertices")
cens (xdrx-points-mincircle pts)
)
(if (xdrx-circle-make cens)
(progn (xdrx-entity-matchprop x (entlast))
(setq i (1+ i))
(and (= yeorno 1) (xdrx-entity-delete x))
)
)
)
(xdrx-pickset->ents ss)
)
(xdrx-prompt "\n成功生成了" i "个外接圆.")
)
)
(xdrx-end)
(princ)
)

(defun c:xdtb_drwjcir (/ yeorno i x pts cens) 
  (xdrx-begin) 
  (xdrx-prompt "\n**求最小外接圆**") 
  (xdrx-initget "Y N") 
  (setq yeorno (xdrx-yesorno "\n是否删除源多段线" 1)) 
  (if (setq ss (xdrx-ssget "\n选择多段线<退出>:" '((0 . "*polyline")))) 
    (progn (setq i 0) 
           (mapcar '(lambda (x) 
                      (setq pts         (xdrx-getpropertyvalue x "vertices") 
                            cens (xdrx-points-mincircle pts) 
                      ) 
                      (if (xdrx-circle-make cens) 
                        (progn (xdrx-entity-matchprop x (entlast)) 
                               (setq i (1+ i)) 
                               (and (= yeorno 1) (xdrx-entity-delete x)) 
                        ) 
                      ) 
                    ) 
                   (xdrx-pickset->ents ss) 
           ) 
           (xdrx-prompt "\n成功生成了" i "个外接圆.") 
    ) 
  ) 
  (xdrx-end) 
  (princ) 
)

Michael527 · 发表于 2020-9-8 10:02:19

效率非常高，谢谢分享

香远益清 · 发表于 2020-9-8 11:12:15

Application Error: 2 :- 输入的字符串有缺陷ADS 请求错误

1030510327 · 发表于 3 天前

效果不错

账号		自动登录	找回密码
密码			立即注册

[工具] 【绘图】批量绘制外接圆

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。