[转贴]：PLJOINFUZZ

eachy

2. 
   
3. 
   
4. ;;; PLJOINFUZZ.LSP
   
5. ;;; Joins lines, arcs and polylines using a fuzz distance
   
6. ;;; If only one object is selected it tries to join to all objects that are possible
   
7. ;;; By Jimmy Bergmark
   
8. ;;; Copyright (C) 2003-2004 JTB World, All Rights Reserved
   
9. ;;; Website: [url]www.jtbworld.com[/url]
   
10. ;;; E-mail: [email]info@jtbworld.com[/email]
    
11. ;;; Tested on AutoCAD 2002,2004 and 2005
    
12. ;;; Latest revision made 2004-11-11
    
13. ;;; Minor code cosmetic change made 2004-11-13
    
14. ;;; Bug corrected 2004-12-23
    
15. 
    
16. (defun c:jf () (c:pljoinfuzz)) ; this line can be commented out if there is an existing command called jf
    
17. (defun c:pljoinfuzz (/ ss1 entLine objType oldcmdecho oldpeditaccept fuzz okObjects)
    
18.   (setq oldcmdecho (getvar "cmdecho"))
    
19.   (setq oldpeditaccept (getvar "PEDITACCEPT"))
    
20.   (setvar "cmdecho" 0)
    
21.   (setq A2k4 (>= (substr (getvar "ACADVER") 1 2) "16"))
    
22.   (if A2k4 (setvar "PEDITACCEPT" 0))
    
23.   (setq        okObjects '((0 . "LINE,ARC,POLYLINE,LWPOLYLINE")))
    
24.   (princ "\nSelect object to join: ")
    
25.   (setq ss1 (ssget okObjects))
    
26.   (setq fuzz (getdist "\nFuzz distance <0>: "))
    
27.   (if (= fuzz nil) (setq fuzz 0))
    
28.   (if (/= ss1 nil)
    
29.       (progn
    
30.         (setq objType (cdr (assoc 0 (entget (setq entLine (ssname ss1 0))))))
    
31.         (if (= (sslength ss1) 1) (setq ss1 (ssget "X" okObjects)))
    
32.         (if (member objType '("LINE" "ARC"))
    
33.           (command "_.pedit" "_M" ss1 "" "_Y" "_J" "_J" "_B" fuzz "")
    
34.           (command "_.pedit" "_M" ss1 "" "_J" "_J" "_B" fuzz "")
    
35.         )
    
36.       )
    
37.   )
    
38.   (setvar "cmdecho" oldcmdecho)
    
39.   (if A2k4 (setvar "PEDITACCEPT" oldpeditaccept))
    
40.   (princ)
    
41. )

<br /> <br /> ;;; PLJOINFUZZ.LSP<br /> ;;; Joins lines, arcs and polylines using a fuzz distance<br /> ;;; If only one object is selected it tries to join to all objects that are possible<br /> ;;; By Jimmy Bergmark<br /> ;;; Copyright (C) 2003-2004 JTB World, All Rights Reserved<br /> ;;; Website: [url]www.jtbworld.com[/url]<br /> ;;; E-mail: [email]info@jtbworld.com[/email]<br /> ;;; Tested on AutoCAD 2002,2004 and 2005<br /> ;;; Latest revision made 2004-11-11<br /> ;;; Minor code cosmetic change made 2004-11-13<br /> ;;; Bug corrected 2004-12-23<br /> <br /> (defun c:jf () (c:pljoinfuzz)) ; this line can be commented out if there is an existing command called jf<br /> (defun c:pljoinfuzz (/ ss1 entLine objType oldcmdecho oldpeditaccept fuzz okObjects)<br />   (setq oldcmdecho (getvar "cmdecho"))<br />   (setq oldpeditaccept (getvar "PEDITACCEPT"))<br />   (setvar "cmdecho" 0)<br />   (setq A2k4 (>= (substr (getvar "ACADVER") 1 2) "16"))<br />   (if A2k4 (setvar "PEDITACCEPT" 0))<br />   (setq        okObjects '((0 . "LINE,ARC,POLYLINE,LWPOLYLINE")))<br />   (princ "\nSelect object to join: ")<br />   (setq ss1 (ssget okObjects))<br />   (setq fuzz (getdist "\nFuzz distance <0>: "))<br />   (if (= fuzz nil) (setq fuzz 0))<br />   (if (/= ss1 nil)<br />       (progn<br />         (setq objType (cdr (assoc 0 (entget (setq entLine (ssname ss1 0))))))<br />         (if (= (sslength ss1) 1) (setq ss1 (ssget "X" okObjects)))<br />         (if (member objType '("LINE" "ARC"))<br />           (command "_.pedit" "_M" ss1 "" "_Y" "_J" "_J" "_B" fuzz "")<br />           (command "_.pedit" "_M" ss1 "" "_J" "_J" "_B" fuzz "")<br />         )<br />       )<br />   )<br />   (setvar "cmdecho" oldcmdecho)<br />   (if A2k4 (setvar "PEDITACCEPT" oldpeditaccept))<br />   (princ)<br /> )

kuku2

好东西啊~~~~~下下来看看

xuyu

是什么东西啊，看不懂lisp代码

tuger

楼上的这是合并成多段线的代码

az98hxq

非常不错，还有间隙多少的调控因子

ljh19991220

如果一条直线和多段线和并好像有问题，能否改进