按层连接多段线

孙玉坤

CAD 低版本的没有为问题 怎么在2018  就提示无效的选项关键字呢 请高手给看一下  最好加一个容错 可以输入参数  带记忆功能，默认容错的数值为0

satan421

;************************************************按层连接多段线
(defun c:j7 ( / D N E SS SS2)
  (while (setq e (entsel "\n选择实体以确定图层:"))
    (setq ss (ssget "x" (list (assoc '8 (entget (car e)))))
          ss (ssget "p" '((0 . "POLYLINE,LWPOLYLINE,ARC,LINE")))
          d  (getdist "\n输入模糊距离<0.0>:"))
    (cond
      (ss
       (if (setq ss2 (ssget "p" '((0 . "ARC,LINE"))))
         (repeat (setq n (sslength ss2))
           (vl-cmdf "_.pedit" (ssname ss2 (setq n (1- n))) "y" "")
           (ssadd (entlast) ss)
         )
       )
       (if d
         (vl-cmdf "_.pedit" "m" ss "" "j" d "")
         (vl-cmdf "_.pedit" "m" ss "" "j" 0.0 "")
       )
      )
    )
  )
  (princ)
)

孙玉坤

satan421 发表于 2019-7-24 08:19
CAD2016正常，不知道你选了什么。

;****************************************************多段线并集
(defun c:w2 (/ ss s1 e)
(setvar "CMDECHO" 0)
(if (setq ss (ssget '((0 . "ARC,CIRCLE,LINE,*POLYLINE")))) (progn
  (setq e (entlast))
  (setq s1 (ssadd))
  (command ".region" ss "")
  (while (setq e (entnext e)) (ssadd e s1))
  (command ".union" s1 "")
      (setvar "QAFLAGS" 1)
  (command ".explode" "L" "")
  (setq ss2 (ssget "_p"))
      (if (= "REGION" (cdr ( assoc 0 (entget (ssname ss2 0)))))
   (command  ".EXPLODE" "P" "")
)
  (setvar "QAFLAGS" 0)
;  (setvar "PEDITACCEPT" 0)
(command "_.pedit" "_M" "P" "" "_J" "0" "")
;  (setvar "PEDITACCEPT" 1)
))
(setvar "CMDECHO" 1)
(princ)
)

孙玉坤

;************************************************按层连接多段线
(defun c:j7 ( / ss d)
  (while (setq e (entsel "\n选层上参照实体:"))
    (setq ss (ssget "x" (list (assoc 8 (entget (car e)))))
          ss (ssget "p" '((0 . "POLYLINE,LWPOLYLINE,ARC,LINE")))
          d  (if d d (getdist "\n断线容差:")))
    (cond
      (ss
       (if (setq ss2 (ssget "p" '((0 . "ARC,LINE"))))
         (repeat (setq n (sslength ss))
           (vl-cmdf ".pedit" (ssname ss (setq n (1- n))) "y" "")
           (ssadd (entlast) ss)
         )
       )
       (vl-cmdf ".pedit" "m" ss "" "y" "j" d "")
      )
    )
  )(princ)
)

孙玉坤

孙玉坤

孙玉坤 发表于 2019-7-23 20:53

在2018里  提示 未选择有效对象    在2012以下的版本就能用

satan421

孙玉坤 发表于 2019-7-23 20:55
在2018里  提示 未选择有效对象    在2012以下的版本就能用

CAD2016正常，不知道你选了什么。

孙玉坤

satan421 发表于 2019-7-24 08:19
CAD2016正常，不知道你选了什么。

感谢  ，估计和变量有关系吧 算啦 不弄啦

664571221

孙玉坤 发表于 2019-7-24 08:34
感谢  ，估计和变量有关系吧 算啦 不弄啦

为啥不弄弄起来呀很好的东西

664571221

satan421 发表于 2019-7-23 17:03
;************************************************按层连接多段线
(defun c:j7 ( / D N E SS SS2)
  (w ...

能否加一个范围选择

satan421

664571221 发表于 2019-7-24 09:54
能否加一个范围选择

"X"改为":N"即可。