sieben 发表于 2004-12-21 15:05:00

兩個編輯多義線的程序

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

332888 发表于 2004-12-22 14:30:00

感谢分享

熊哥哥 发表于 2004-12-28 22:19:00

感谢分享

小刁0605 发表于 2012-2-4 15:32:55

怎么用呀

lz689706 发表于 2012-3-14 10:41:39

不好使。
Processing line 1 of 1

H┞lo┭ve┡L 发表于 2012-3-20 21:32:02

顶顶顶顶顶顶

qq229918602 发表于 2012-4-22 21:27:41

作用是什么？？？

328302216 发表于 2012-9-26 11:54:37

程序的效果是什么啊？
页: [1]
查看完整版本: 兩個編輯多義線的程序