当前位置：网站首页>CAD fill to polyline script

CAD fill to polyline script

2022-07-19 07:58:00 【International ser】

take cad The fill of is converted to a polyline lisp The script is as follows ：

(defun c:zs()
(COMMAND "UNDO" "BEGIN" "")
(SETVAR "CMDECHO" 0)
(SETVAR "PLINEGEN" 1)
(SETVAR "SNAPMODE" 0)
     (princ "\nZS: ")
     (setq fltr '((-4 . "<OR")
                              (0  .  "hatch")
                (8 . "8112")
                          (-4 . "OR>")
                ))
  (setq ss (ssget "x" fltr))
  (if (/= ss nil)
  (progn
              (setq sslen (sslength ss))
    (setq loop 0)
    (while (< loop sslen)
    (setq ent (ssname ss loop))
      (setq ed (entget ent))
(setq pt (assoc 8 ed))
(setq layer (cdr pt))
(command "layer" "m" layer "")
    (command "hatchedit" ent "B" "P" "Y")


  (setq loop (+ 1 loop))
 )
 ))

(COMMAND "UNDO" "END" "")
)

原网站

版权声明
本文为[International ser]所创，转载请带上原文链接，感谢
https://yzsam.com/2022/200/202207170549455574.html

边栏推荐

猜你喜欢

随机推荐