多段线合并命令优化

langke52

1. ;#ddx:03#；多段线合并                                                                                         ﹟
   
2. ;选一个线段合并与之相连的全部线段，选多个则合并选择内线段。                  
   
3. (DEFUN C:MPE () ;多段线合并
   
4.   (SETQ co_old (GETVAR 'cmdecho))
   
5.   (SETQ pt_old (GETVAR 'PEDITACCEPT))
   
6.   (SETVAR 'cmdecho 0)
   
7.   (SETVAR 'PEDITACCEPT 1) ;转化为多段线
   
8.   (OR (SETQ ss (SSGET "I" '((0 . "*LINE,ARC"))))
   
9.       (SETQ ss (SSGET '((0 . "*LINE,ARC"))))
   
10.   ) ;
    
11.   (SSSETFIRST nil)
    
12.   (IF ss
    
13.     (PROGN
    
14.       (IF (= (SSLENGTH ss) 1)
    
15.         (SETQ ss (SSGET "A" '((0 . "*LINE,ARC"))))
    
16.       ) ;_ 结束IF
    
17.       (COMMAND "pedit" "m" ss "" "j" 0 "")
    
18.     ) ;_ 结束PROGN
    
19.     (PRINC "\n  ***未选择对象***")
    
20.   ) ;_ 结束IF
    
21.   (SETVAR  'cmdecho co_old)
    
22.   (SETVAR  'PEDITACCEPT pt_old)
    
23.   (PRIN1)
    
24. ) ;_ 结束DEFUN

;#ddx:03#；多段线合并                                                                                         ﹟<br /> ;选一个线段合并与之相连的全部线段，选多个则合并选择内线段。                   <br /> (DEFUN C:MPE () ;多段线合并<br />   (SETQ co_old (GETVAR 'cmdecho))<br />   (SETQ pt_old (GETVAR 'PEDITACCEPT))<br />   (SETVAR 'cmdecho 0)<br />   (SETVAR 'PEDITACCEPT 1) ;转化为多段线<br />   (OR (SETQ ss (SSGET "I" '((0 . "*LINE,ARC"))))<br />       (SETQ ss (SSGET '((0 . "*LINE,ARC"))))<br />   ) ;<br />   (SSSETFIRST nil)<br />   (IF ss<br />     (PROGN<br />       (IF (= (SSLENGTH ss) 1)<br />         (SETQ ss (SSGET "A" '((0 . "*LINE,ARC"))))<br />       ) ;_ 结束IF<br />       (COMMAND "pedit" "m" ss "" "j" 0 "")<br />     ) ;_ 结束PROGN<br />     (PRINC "\n  ***未选择对象***")<br />   ) ;_ 结束IF<br />   (SETVAR  'cmdecho co_old)<br />   (SETVAR  'PEDITACCEPT pt_old)<br />   (PRIN1)<br /> ) ;_ 结束DEFUN

184632152

langke52 发表于 2017-12-14 13:40
(COMMAND "pedit" "m" ss "" "j" 0 "")
pedit 命令里有个模糊距离，我这边输入0 ，就是要交点在同一点才 ...

这个模糊值可以改成输入命令后自己设置吗？可以根据不同的需要随意设置模糊值这样就完美了

langke52

htlaser 发表于 2017-12-14 12:57
测试了下烂图还是不能组合   构思：先把图缩小1000倍 组合  再把图放大1000倍     不知道程序怎么写！

(COMMAND "pedit" "m" ss "" "j" 0 "")
pedit 命令里有个模糊距离，我这边输入0 ，就是要交点在同一点才能合并，如果两线段有间隙的话，可以把0改成合并控制范围

434939575

感谢分享，(SETVAR 'PEDITACCEPT 1) ;转化为多段线总算，知道'PEDITACCEPT的功能.

htlaser

对于烂图来说   也不能很合并   

htlaser

测试了下烂图还是不能组合   构思：先把图缩小1000倍 组合  再把图放大1000倍     不知道程序怎么写！

htlaser

好的  谢谢    我再测试下

htlaser

加了模糊值 一样不行  

新鲜8

谢谢楼主分享

langke52

htlaser 发表于 2017-12-14 19:08
加了模糊值 一样不行

(COMMAND "pedit" "m" ss "" "j" "J" "b" 0.01 "")可以合并你这种线跟圆弧连接的。就是把连接类型改为 添加  默认类型 是 延长的 。

htlaser

谢谢版主