[编程申请]：申请编一个全新命令!!

shq197528

不知道有没有人用过遮盖这个命令,这个命令是不能用弧线的,所以本人在绘图的时候浪费了很多时间.
命令要求是:
自动生成一个全是用直线连成的多义线.

橄榄滋味

做一个多义线然后炸开不行吗

win-gf

最初由 橄榄滋味 发布
[B]做一个多义线然后炸开不行吗 [/B]

多义线里面的圆弧炸开还是圆弧

zxq0220

2. 
   
3. (DEFUN C:TEST ()
   
4. (SETVAR "CMDECHO" 0)
   
5. (COMMAND ".UNDO" "BE")
   
6. (PRINC "\nSelect Polyline(s) :")
   
7. (IF (SETQ SS (SSGET '((0 . "*POLYLINE")))) (PROGN
   
8.   (COMMAND "ZOOM" "ALL")
   
9.   (SETQ NM (FINDFILE "TEST.WMF")
   
10.         PT (LIST (CAR (GETVAR "EXTMIN")) (CADR (GETVAR "EXTMAX"))))
    
11.   (IF NM
    
12.    (COMMAND "WMFOUT" NM SS "")
    
13.    (COMMAND "WMFOUT" "TEST.WMF" SS "")
    
14.   )
    
15.   (COMMAND "ERASE" SS "")
    
16.   (SETQ S1 (ENTLAST))
    
17.   (COMMAND "WMFIN" "TEST.WMF" PT "2" "" "" "EXPLODE" "L" ""
    
18.            "ERASE" (IF S1 (ENTNEXT S1) (ENTNEXT)) "" "ZOOM" "P")
    
19. ))
    
20. (COMMAND ".UNDO" "E")
    
21. (SETVAR "CMDECHO" 1)
    
22. (PRINC)
    
23. )
    

<br /> (DEFUN C:TEST ()<br /> (SETVAR "CMDECHO" 0)<br /> (COMMAND ".UNDO" "BE")<br /> (PRINC "\nSelect Polyline(s) :")<br /> (IF (SETQ SS (SSGET '((0 . "*POLYLINE")))) (PROGN<br />   (COMMAND "ZOOM" "ALL")<br />   (SETQ NM (FINDFILE "TEST.WMF")<br />         PT (LIST (CAR (GETVAR "EXTMIN")) (CADR (GETVAR "EXTMAX"))))<br />   (IF NM<br />    (COMMAND "WMFOUT" NM SS "")<br />    (COMMAND "WMFOUT" "TEST.WMF" SS "")<br />   )<br />   (COMMAND "ERASE" SS "")<br />   (SETQ S1 (ENTLAST))<br />   (COMMAND "WMFIN" "TEST.WMF" PT "2" "" "" "EXPLODE" "L" ""<br />            "ERASE" (IF S1 (ENTNEXT S1) (ENTNEXT)) "" "ZOOM" "P")<br /> ))<br /> (COMMAND ".UNDO" "E")<br /> (SETVAR "CMDECHO" 1)<br /> (PRINC)<br /> )<br />

shq197528

多谢楼上的,我试试看!


我已经试过了,用是可以,不过会出现不见的清况!请问能不能改进????

aeo

曲线模拟成小直线,论坛里有.


还有不妨考虑一下布局吧.

shq197528

能不能给个网址呀????