给所选择的图元加上一个圆
 

给所选择的图元加上一个圆
www.dimcax.com
给所选择的图元加上一个圆各位高手.我选择了一些图元.我能不能用lsp给它们分别加上一个圆.这样我就知道我所选择的东东在那里了,我想这样的话就方便看图了
d
有点难度吧
d
(defun c:tt (/ ss r i minpt maxpt p)
(if (and (setq ss (ssget))
(setq r (getdist "\n圆半径: "))
)
(repeat (setq i (sslength ss))
(setq i (1- i) a (vlax-ename->vla-object (ssname ss i)))
(vla-getboundingbox a 'minpt 'maxpt)
(mapcar 'set '(minpt maxpt) (mapcar 'vlax-safearray->list (list minpt maxpt)))
(setq p (mapcar '(lambda (x y) (/ (+ x y) 2.0)) minpt maxpt))
(entmake (list '(0 . "circle") (cons 10 p) (cons 40 r)))
)
)
)
d
caoyin版主:
程序相当实用喔!
d
能加，能撤才好。
推荐使用 grdraw
好好学习cad，天天向上搞设计。
　　三楼先生的帖子实在是写得太好了。文笔流畅，修辞得体，深得魏晋诸朝遗风，更将唐风宋骨发扬得入木三分，能在有生之年看见楼主的这个帖子。实在是我三生之幸　　楼主的帖子实在是写得太好了。文笔流畅，修辞得体，深得魏晋诸朝遗风，更将唐风宋骨发扬得入木三分，能在有生之年看见楼主的这个帖子。实在是我三生之幸啊。看完楼主的这个帖子之后，我竟产生出一种无以名之的悲痛感――啊，这么好的帖子，如果将来我再也看不到了，那我该怎么办？那我该怎么办？直到我毫不犹豫地把楼主的这个帖子收藏了，我内心的那种激动才逐渐平静下来。可是我立刻想到，这么好的帖子，倘若别人看不到，那么不是浪费楼主的心血吗？经过痛苦的思想斗争，我终于下定决心，牺牲小我，奉献大我。我要拿出这帖子奉献给世人赏阅，我要把这个帖子一直往上顶，往上顶！顶到所有人都看到为止！