cad填充转多段线脚本

国际Ser

于 2022-07-16 09:18:09 发布

阅读量937

点赞数

分类专栏： cad 文章标签： lisp

本文链接：https://blog.csdn.net/shendygis/article/details/125815679

版权

cad 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

将cad的填充转化为多段线lisp脚本如下：

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