 - (defun c:pjj () (c:pljoinfuzz))
- (defun c:pljoinfuzz ()
- "多段线线模糊连接"
- (setq cc (getvar "cmdecho")
- pc (getvar "PEDITACCEPT")
- )
- (setvar "cmdecho" 0)
- (if (setq A2k4 (>= (substr (getvar "ACADVER") 1 2) "16"))
- (setvar "PEDITACCEPT" 0)
- )
- (setq fuzz (getdist "\n模糊距离 <0.1>: "))
- (setq pw (getdist "\n线宽 <0>: "))
- (if (= fuzz nil)
- (setq fuzz 0.1)
- )
- (if (= pw nil)
- (setq pm 0)
- )
- (setq qf '((0 . "LINE,ARC,POLYLINE,LWPOLYLINE")))
- (princ "\n请选择需要连接的直线,圆弧,多义线: ")
- (while (and (setq ss1 (ssget qf)) (> (sslength ss1) 1))
- (setq et (cdr (assoc 0 (entget (ssname ss1 0)))))
- (if (member et '("LINE" "ARC"))
- (command "_.pedit" "_M" ss1 "" "_Y" "_J" "_J" "_B" fuzz "")
- (command "_.pedit" "_M" ss1 "" "_J" "_J" "_B" fuzz "")
- )
- (setq s1 (entlast))
- (command "pedit" s1 "w" pw "")
- )
- (setvar "cmdecho" cc)
- (if A2k4
- (setvar "PEDITACCEPT" pc)
- )
- (princ)
- )
- (princ)
|