使用CAD2014的重建填充边界源码

tigcat

适用CAD版本2014.

;|
20220310947 v0.0
|;
(defun c:cjbj(/ ent i n ss)
        (SETVAR "CMDECHO" 0)
        (command "UNDO" "be")
        (setq i 0)
        (if (setq ss
                (ssget '((0 . "HATCH")        ))
        )
               
  (progn
                (setq n (sslength ss))
  (repeat n
    (setq ent (ssname ss i))
    (command "-HATCHEDIT" ent  "b" "" "y" )
                (setq i (1+ i))
        )))
        (command "UNDO" "e")
        (prin1)
)
(prompt "\n********重生边界<c:cjbj>*****")
(prin1)

qazxswk

这个方式，原则是适合任一版本。高版本中，有一个命令直接生成填充边界线。

moranyuyan

qazxswk 发表于 2024-9-28 23:43
这个方式，原则是适合任一版本。高版本中，有一个命令直接生成填充边界线。

哪个命令求赐教

qazxswk

moranyuyan 发表于 2024-9-29 07:06
哪个命令求赐教

hatchgenerateboundary