[LISP函数]：为LCD设计的LISP：多条PLINE是否封闭瞬间可知

saintdog

多条PLINE是否封闭瞬间可知，封闭的线条会改变为红色，图层不变。
(defun  C:JO (/ plines bnt count)
     (setq plines (ssget (prompt  "\n输入多义线:")))
          (setq count 0)
        (while  (< count (sslength plines))
               (setq bnt (entget (ssname plines count)))
               (if (= 1 (cdr (assoc 70  bnt)))
            (command  "chprop"  (ssname plines count) "" "c" "red" ""));if
                  (setq count  (+  1 count)))
             (PRINC)
            ) ;defun

saintdog

(defun C:XX (/ a b xs d dist jk xjj obj1 pt1 aaa)
(setq a "0")
(setq b 1)
(setq dist (getdist "测量布线宽度："))
(setq xs (getint "线条数："))
(initget 7)
(setq jk (/ dist (+ 1 (* 2 xs))))
(prompt "\平均间距:" )
(prin1 (* 2 jk))
(setq xjj (getreal "线间距:"))
(setq dist (/ (- dist (* (+ xs 1) xjj)) xs))
(prompt "\选择基线：")
(while (= obj1 nil)
(setq obj1 (entsel)))
(initget 1)
(setq pt1 (getpoint "\在布线侧任取一点："))
(setq xhs (+ 1 xs))
(while (not (= b xhs))
(progn
(setq aaa (car obj1))
(setq d 1)
(while (/= d 3)
(if (= 1 d)
(setq a (rtos (+ (atof a) xjj) 2))
(setq a (rtos (+ (atof a ) dist) 2)))
(command "_.offset" a aaa pt1 "")
(setq d (+ 1 d)))
(setq b (+ 1 b))
);end progn
);end while
(prompt "图层转换:")
(setq obj1 (ssget))
(while (/= obj1 nil)
(setq a (getstring "选择图层:"))
(command "chprop" "p" "" "la"  a ""))
(princ))