输入模糊距离合并线，弧和多义线

flyfox1047

1. ;;; 用模糊距离连接线，弧和多义线
   
2. (defun c:jf () (c:pljoinfuzz)) ; this line can be commented out if there is an existing command called jf
   
3. (defun c:pljoinfuzz (/ ss1 entLine objType oldcmdecho oldpeditaccept fuzz okObjects)
   
4.   (setq oldcmdecho (getvar "cmdecho"))
   
5.   (setq oldpeditaccept (getvar "PEDITACCEPT"))
   
6.   (setvar "cmdecho" 0)
   
7.   (setq A2k4 (>= (substr (getvar "ACADVER") 1 2) "16"))
   
8.   (if A2k4 (setvar "PEDITACCEPT" 0))
   
9.   (setq  okObjects '((0 . "LINE,ARC,POLYLINE,LWPOLYLINE")))
   
10.   (princ "\nSelect object to join: ")
    
11.   (setq ss1 (ssget okObjects))
    
12.   (setq fuzz (getdist "\nFuzz distance <0>: "))
    
13.   (if (= fuzz nil) (setq fuzz 0))
    
14.   (if (/= ss1 nil)
    
15.       (progn
    
16.   (setq objType (cdr (assoc 0 (entget (setq entLine (ssname ss1 0))))))
    
17.   (if (= (sslength ss1) 1) (setq ss1 (ssget "X" okObjects)))
    
18.   (if (member objType '("LINE" "ARC"))
    
19.     (command "_.pedit" "_M" ss1 "" "_Y" "_J" "_J" "_B" fuzz "")
    
20.     (command "_.pedit" "_M" ss1 "" "_J" "_J" "_B" fuzz "")
    
21.   )
    
22.       )
    
23.   )
    
24.   (setq ss1 nil)
    
25.   (setvar "cmdecho" oldcmdecho)
    
26.   (if A2k4 (setvar "PEDITACCEPT" oldpeditaccept))
    
27.   (princ)
    
28. )

;;; 用模糊距离连接线，弧和多义线<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 />   (setq ss1 nil)<br />   (setvar "cmdecho" oldcmdecho)<br />   (if A2k4 (setvar "PEDITACCEPT" oldpeditaccept))<br />   (princ)<br /> )

尘缘一生

最小距离为3.0



;;; **********用模糊距离连接线，弧和多义线***************
(defun c:jf ()
(c:pljoinfuzz)
)
(defun c:pljoinfuzz (/ ss1 entLine objType oldcmdecho oldpeditaccept fuzz okObjects)
(setq oldcmdecho (getvar "cmdecho"))
(setq oldpeditaccept (getvar "PEDITACCEPT"))
(setvar "cmdecho" 0)
(setq A2k4 (>= (substr (getvar "ACADVER") 1 2) "16"))
(if A2k4 (setvar "PEDITACCEPT" 0))
(setq  okObjects '((0 . "LINE,ARC,POLYLINE,LWPOLYLINE")))
(princ "\nSelect object to join: ")
(setq ss1 (ssget okObjects))
(setq fuzz (getdist "\n模糊距离为<3.0>: "))
(if (= fuzz nil)
  (setq fuzz (* (getvar "DIMSCALE") 3.0))
)
(if (/= ss1 nil)
  (progn
   (setq objType (cdr (assoc 0 (entget (setq entLine (ssname ss1 0))))))
   (if (= (sslength ss1) 1)
    (setq ss1 (ssget "X" okObjects))
   
   )
   (if (member objType '("LINE" "ARC"))
    (command "_.pedit" "_M" ss1 "" "_Y" "_J" "_J" "_B" fuzz "")
    (command "_.pedit" "_M" ss1 "" "_J" "_J" "_B" fuzz "")
   )
  )
)
(setq ss1 nil)
(setvar "cmdecho" oldcmdecho)
(if A2k4 (setvar "PEDITACCEPT" oldpeditaccept))
(princ)
)

xyp1964

;; 感觉高版本的有问题

1. ;; 用模糊距离连接线，弧和多义线
   
2. (defun c:tt ()
   
3.   (setvar "PEDITACCEPT" 1)
   
4.   (setq fuzz (Udist 5 "" "距离<输入或鼠标直接量取>" fuzz nil))
   
5.   (setq qf '((0 . "LINE,ARC,*POLYLINE")))
   
6.   (princ "\n选择实体<退出>: ")
   
7.   (if (setq ss (ssget qf))
   
8.     (command "_.pedit" "_M" ss "" "_J" "_J" "_B" fuzz "")
   
9.   )
   
10.   (princ)
    
11. )

;; 用模糊距离连接线，弧和多义线<br /> (defun c:tt ()<br />   (setvar "PEDITACCEPT" 1)<br />   (setq fuzz (Udist 5 "" "距离<输入或鼠标直接量取>" fuzz nil))<br />   (setq qf '((0 . "LINE,ARC,*POLYLINE")))<br />   (princ "\n选择实体<退出>: ")<br />   (if (setq ss (ssget qf))<br />     (command "_.pedit" "_M" ss "" "_J" "_J" "_B" fuzz "")<br />   )<br />   (princ)<br /> )

ddbegg

xyp1964 发表于 2019-2-26 13:24
;; 感觉高版本的有问题

命令 pm - j - j 下面合并类型中 添加(A) 及两者都(B) 对模糊距离不起作用，不知道版主能不能给支个招？
说明白点，就是设置了模糊距离只对合并类型中的 延伸 有效，试了好久都这样，不知道是什么原因？

ynhh

支持分享

eddydqiao

经过使用，这个lisp是相当的霸气啊，好用！

fjb007

谢谢楼主分享，正需要这种程序

434939575

支持，这个好使！

434939575

好像只有“0”，和非“0”两种模式样的。

wngxb

非常不错，能不能去掉模糊输入直接链接成一条线？而非像补丁起来的线。

tony1435

楼主这合并多段线确实强大，顶上，让大家受惠~

farlcr

这个程序能不能再改一下？现在多线相交时会分别组成两部分，我想全部线都闭合在一起。

664571221

老师能不能不要输入距离，把距离固定直接选线合并  我要的是距离300以下的都合并