兩個編輯多義線的程序

sieben

(defun c:j (/ join-ss rep1 len entnam enti)
(setvar "CMDECHO" 0)
(setq join-ss (ssget '((-4 . "<OR")
(0 . "LINE")
(0 . "ARC")
(-4 . "<AND")
(0 . "POLYLINE")
(70 . 0)
(-4 . "AND>")
(-4 . "<AND")
(0 . "LWPOLYLINE")
(70 . 0)
(-4 . "AND>")
(-4 . "OR>")
)
)
)
(if (not join-ss)
(exit)
)
(vl-cmdf "_.undo" "begin")
(setq rep1 0)
(setq len (sslength join-ss))
(terpri)
(repeat len
(setq entnam (ssname join-ss rep1))
(setq enti (entget entnam))
(princ (strcat "\rProcessing line " (itoa (1+ rep1)) " of " (itoa len)))
(if enti
(if (or (= (cdr (assoc 0 enti)) "POLYLINE")
(= (cdr (assoc 0 enti)) "LWPOLYLINE")
)
(command "_.pedit" entnam "j" join-ss "" "x")
(command "_.pedit" entnam "y" "j" join-ss "" "x")
)
)
(setq rep1 (1+ rep1))
)
(vl-cmdf "_.undo" "end")
(setvar "CMDECHO" 1)
(princ)
)
;;***************************
(defun c:jj (/ join-ss rep1 len entnam enti)
(setvar "CMDECHO" 0)
(setq join-ss (ssget '((-4 . "<OR")
(0 . "LINE")
(0 . "ARC")
(-4 . "<AND")
(0 . "POLYLINE")
(70 . 0)
(-4 . "AND>")
(-4 . "<AND")
(0 . "LWPOLYLINE")
(70 . 0)
(-4 . "AND>")
(-4 . "OR>")
)
)
)
(setq join-ss1 (ssget "x"
'((-4 . "<OR")
(0 . "LINE")
(0 . "ARC")
(-4 . "<AND")
(0 . "POLYLINE")
(70 . 0)
(-4 . "AND>")
(-4 . "<AND")
(0 . "LWPOLYLINE")
(70 . 0)
(-4 . "AND>")
(-4 . "OR>")
)
)
)
(vl-cmdf "_.undo" "begin")
(if (not join-ss)
(exit)
)
(setq rep1 0)
(setq len (sslength join-ss))
(terpri)
(repeat len
(if (setq entnam (ssname join-ss rep1))
(progn
(setq enti (entget entnam))
(princ (strcat "\rProcessing line " (itoa (1+ rep1)) " of " (itoa len)))
(if enti
(if (or (= (cdr (assoc 0 enti)) "POLYLINE")
(= (cdr (assoc 0 enti)) "LWPOLYLINE")
)
(command "_.pedit" entnam "j" join-ss1 "" "")
(command "_.pedit" entnam "y" "j" join-ss1 "" "")
)
)
)
)
(setq rep1 (1+ rep1))
)
(vl-cmdf "_.undo" "end")
(setvar "CMDECHO" 1)
(princ)
)

332888

感谢分享

熊哥哥

感谢分享

小刁0605

怎么用呀

lz689706

不好使。
Processing line 1 of 1

H┞lo┭ve┡L

顶顶顶顶顶顶

qq229918602

作用是什么？？？

328302216

程序的效果是什么啊？