【已解决】如何批量 在 选择的大量的点重复画某一自定义半径的圆

君是我的泪

也就是输入r，选择点，然后批量画圆

newer

1. (defun c:tt ()
   
2.   (if (and (setq r (getreal "\n输入半径<退出>:"))
   
3.            (xdrx_initssget "选择点实体<退出>:")
   
4.            (setq ss (xdrx_ssget '((0 . "POINT"))))
   
5.       )
   
6.     (progn
   
7.       (mapcar
   
8.         '(lambda (x)
   
9.            (xdrx_circle_make (xdrx_getpropertyvalue x "position") r)
   
10.          )
    
11.         (xdrx_pickset->ents ss)
    
12.       )
    
13.     )
    
14.   )
    
15.   (princ)
    
16. )
    

(defun c:tt ()<br />   (if (and (setq r (getreal "\n输入半径<退出>:"))<br />            (xdrx_initssget "选择点实体<退出>:")<br />            (setq ss (xdrx_ssget '((0 . "POINT"))))<br />       )<br />     (progn<br />       (mapcar<br />         '(lambda (x)<br />            (xdrx_circle_make (xdrx_getpropertyvalue x "position") r)<br />          )<br />         (xdrx_pickset->ents ss)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

qqqincccken

如何批量 在 选择的大量的点重复画某一自定义半径的圆?同求

liutong1997

非常不错的原码，谢谢分享

liutong1997

好好好，不错，不错，不错

13174545660

代码可以用，先收藏

kmliro_2017

谢谢分享！！！！！