[求助]：用lisp怎样实现polyline和lwpolyline的相互转换

houxianyong

那位先进有这个程序

zxq0220

2. 
   
3. ;POLYLINE LWPOLYLINE 互换 zxq0220 2007.9.25
   
4. (DEFUN C:TT ()
   
5. (SETVAR "CMDECHO" 0)
   
6. (IF (SETQ SS (SSGET '((0 . "*POLYLINE")))) (PROGN
   
7.   (SETQ I -1)
   
8.   (REPEAT (SSLENGTH SS)
   
9.    (SETQ EN (SSNAME SS (SETQ I (1+ I))))
   
10.    (SETVAR "PLINETYPE" (IF (= (GETVAR "PLINETYPE") 0) 1 0))
    
11.    (COMMAND "EXPLODE" EN)
    
12.    (COMMAND "PEDIT" "M" "P" "" "Y" "J" 0.5 "")
    
13.   )
    
14. ))
    
15. (SETVAR "CMDECHO" 1)
    
16. (PRINC)
    
17. )
    

<br /> ;POLYLINE LWPOLYLINE 互换 zxq0220 2007.9.25<br /> (DEFUN C:TT ()<br /> (SETVAR "CMDECHO" 0)<br /> (IF (SETQ SS (SSGET '((0 . "*POLYLINE")))) (PROGN<br />   (SETQ I -1)<br />   (REPEAT (SSLENGTH SS)<br />    (SETQ EN (SSNAME SS (SETQ I (1+ I))))<br />    (SETVAR "PLINETYPE" (IF (= (GETVAR "PLINETYPE") 0) 1 0))<br />    (COMMAND "EXPLODE" EN)<br />    (COMMAND "PEDIT" "M" "P" "" "Y" "J" 0.5 "")<br />   )<br /> ))<br /> (SETVAR "CMDECHO" 1)<br /> (PRINC)<br /> )<br />

houxianyong

谢谢，另外有个问题请教，2004下用交叉窗口选择的实体怎么连老远的实体都选择上了

http://p4.xdcad.net/forum/showthread.php?threadid=629173

LUCAS

指令: CONVERTPoLY
輸入聚合線轉換選項 [重(H)/輕(L)] <輕>: