有没有办法
 

有没有办法
www.dimcax.com
有没有办法有没有办法把我框选的东西全部用圆套上，当然我框先的有各种元素。有块，有圆弧。有线
d
一共一个圆还是每个一个圆呢?
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
公用
(defun c:test( / i n pa pb pt1 pt2 ss)
(setq ss (ssget))
(setq i 0)
(repeat (sslength ss)
(setq n (ssname ss i) pt1 nil pt2 nil)
(vla-getboundingbox (vlax-ename->vla-object n) 'pt1 'pt2 )
(setq pt1 (vlax-safearray->list pt1) pt2 (vlax-safearray->list pt2))
(cond
((not pa)
(setq pa pt1 pb pt2)
)
((setq pa (list (min (car pa)(car pt1))(min (cadr pa)(cadr pt1))))
(setq pb (list (max (car pb)(car pt2))(max (cadr pb)(cadr pt2))))
)
)
(setq i (1+ i))
)
(vlax-invoke-method (vlax-get (vlax-get (vlax-get-acad-object) 'activedocument) 'modelspace) 'addcircle (vlax-3d-point (list (* 0.5 (+ (car pa)(car pb)))(* 0.5 (+ (cadr pa)(cadr pb))))) (* 0.5 (distance pa pb)))
)
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
单独
(defun c:test( / i n pa pb pt1 pt2 ss)
(setq ss (ssget))
(setq i 0)
(repeat (sslength ss)
(setq n (ssname ss i))
(vla-getboundingbox (vlax-ename->vla-object n) 'pa 'pb )
(setq pa (vlax-safearray->list pa) pb (vlax-safearray->list pb))
(vlax-invoke-method (vlax-get (vlax-get (vlax-get-acad-object) 'activedocument) 'modelspace) 'addcircle (vlax-3d-point (list (* 0.5 (+ (car pa)(car pb)))(* 0.5 (+ (cadr pa)(cadr pb))))) (* 0.5 (distance pa pb)))
(setq i (1+ i))
)
)
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
高.真是高人高真是高人.化什么这神奇.
我想这个圆的大小能不能手动去输入呀,这样的话.圆是统一的.一看就知道在那里,分辨的得出,
也许有点点点困难.
d
前面加一个提示输入
后面把半径改一下即可
你自己来打败这点点点困难吧
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.:43797405email:nonsmall@163.com对lisp开发研究有兴趣可以找我