[编程申请]：如果一次给多段线的所有点加圆圈

无影人

谁能给个快点的方法.
一个多段线有几百个点.
如何可以一次给所有的点加上指定大小的圆圈?
谢谢!

xyp1964

先下载签名栏下的通用函数xyp_lib.vlx！

2. [FONT=courier new]
   
3. (defun c:test ()
   
4.   (CMDLA0)
   
5.   (setq        no1 (UREAL 7 "" "半径" no1)
   
6.         ss  (ssget '((0 . "*POLYLINE")))
   
7.         i   -1
   
8.   )
   
9.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
10.     (setq ptn (xyp-get-Vertexs s1 0))
    
11.     (foreach pt        ptn
    
12.       (command "circle" pt no1)
    
13.     )
    
14.   )
    
15.   (CMDLA1)
    
16. )[/FONT]

[FONT=courier new]<br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        no1 (UREAL 7 "" "半径" no1)<br />         ss  (ssget '((0 . "*POLYLINE")))<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq ptn (xyp-get-Vertexs s1 0))<br />     (foreach pt        ptn<br />       (command "circle" pt no1)<br />     )<br />   )<br />   (CMDLA1)<br /> )[/FONT]

无影人

非常感谢 xyp1964  
已经可以实现.但想要在加圆的外边加上序号可以实现不?