按层连接多段线

start4444

把 "PEDITACCEPT" 设成 "1"  试试

孙玉坤

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)
)

孙玉坤

孙玉坤 发表于 2019-7-24 15:50
;****************************************************多段线并集
(defun c:w2 (/ ss s1 e)
(setvar ...

是这个代码有问题   这个代码PEDITACCEPT  必须设置为1  不然就不行  而那个代码必须设置为0  不知道怎么修改

satan421

程序开始加一句(if (/= (getvar 'PEDITACCEPT) 1) (progn(setq pa (getvar 'PEDITACCEPT))(setvar 'PEDITACCEPT 1)))
去掉第一个if语句
程序末尾加一句(if pa (setvar 'PEDITACCEPT pa))

孙玉坤

satan421 发表于 2019-7-24 16:15
程序开始加一句(if (/= (getvar 'PEDITACCEPT) 1) (progn(setq pa (getvar 'PEDITACCEPT))(setvar 'PEDITAC ...

不知道怎么加  ，不懂lisp  还望大师给给加好  我下载用就好  万分感谢

satan421

(defun c:j7 ( / D N E SS SS2)
  (if (/= (getvar 'PEDITACCEPT) 1) (progn(setq pa (getvar 'PEDITACCEPT))(setvar 'PEDITACCEPT 1)))
  (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 d
         (vl-cmdf "_.pedit" "m" ss "" "j" d "")
         (vl-cmdf "_.pedit" "m" ss "" "j" 0.0 "")
       )
      )
    )
  )
  (if pa (setvar 'PEDITACCEPT pa))
  (princ)
)

孙玉坤

satan421 发表于 2019-7-25 08:20
(defun c:j7 ( / D N E SS SS2)
  (if (/= (getvar 'PEDITACCEPT) 1) (progn(setq pa (getvar 'PEDITACCEP ...

太感谢啦  给楼主点赞

前生

请大家看看附件中的图形。麻烦的要命。3D图纸转出来的。在线割加工中，这些线需要连成PLINE线。其中，里面的SPINE线，尽量用圆弧连接串，尽量不要用line来通过点连成pl线。线割加工会出问题。!

satan421

前生 发表于 2019-7-27 23:24
请大家看看附件中的图形。麻烦的要命。3D图纸转出来的。在线割加工中，这些线需要连成PLINE线。其中，里 ...

兄台是不是发错地方了