[求助]：矩形（LWPOLYLINE）被炸开（EXPLODE）后如何取得各段的对象呢

zhengguoyun

如标题！谢谢

taner

請說得再詳細點.比如取得各段後下一步的動作.

zhengguoyun

举个例子，我将矩形炸开后，取得各段，按顺序重画，作成一个块，能指定起点，最终目的是使切割机能顺序切割

taner

求矩形的四個頂點不就行了?幹嘛這麽複雜?

2. 
   
3.   [FONT=courier new]
   
4. (defun th1-get-allvertexs (ename / plist pp n)
   
5.   (setq obj (vlax-ename->vla-object ename))
   
6.   (setq plist (vlax-safearray->list (vlax-variant-value
   
7.                                                         (vla-get-coordinates obj)
   
8.                                     )
   
9.               )
   
10.   )
    
11.   (setq n 0)
    
12.   (repeat (/ (length plist) 2)
    
13.     (setq pp (append
    
14.                pp
    
15.                (list (list (nth n plist) (nth (1+ n) plist)))
    
16.              )
    
17.     )
    
18.     (setq n (+ n 2))
    
19.   )
    
20.   pp
    
21. )
    
22. (defun test (/ ptlist)
    
23.   (setq ptlist (th1-get-allvertexs (car (entsel "\nPlease pick rectangle:"))))
    
24.   (command "line" (nth 0 ptlist) (nth 1 ptlist) (nth 2 ptlist) (nth 3 ptlist)
    
25.            "c"
    
26.   )
    
27. )
    
28. 
    
29.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun th1-get-allvertexs (ename / plist pp n)<br />   (setq obj (vlax-ename->vla-object ename))<br />   (setq plist (vlax-safearray->list (vlax-variant-value<br />                                                         (vla-get-coordinates obj)<br />                                     )<br />               )<br />   )<br />   (setq n 0)<br />   (repeat (/ (length plist) 2)<br />     (setq pp (append<br />                pp<br />                (list (list (nth n plist) (nth (1+ n) plist)))<br />              )<br />     )<br />     (setq n (+ n 2))<br />   )<br />   pp<br /> )<br /> (defun test (/ ptlist)<br />   (setq ptlist (th1-get-allvertexs (car (entsel "\nPlease pick rectangle:"))))<br />   (command "line" (nth 0 ptlist) (nth 1 ptlist) (nth 2 ptlist) (nth 3 ptlist)<br />            "c"<br />   )<br /> )<br /> <br />   [/FONT]<br />

zhengguoyun

你好，VLISP我还不熟呢，能用AUTOLISP吗，我的意思不是这样的，我是想要做成一个块的，能再看看吗

zxq0220

在EXPLODE后用(SSGET "P")可以得到刚刚炸开的线段集，该选择集是按原线段连接顺序排列。但要注意其中的圆弧是按逆时针画的。