tigcat 发表于 2024-9-28 20:46:30

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


适用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 发表于 2024-9-28 23:43:26

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

moranyuyan 发表于 2024-9-29 07:06:40

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

哪个命令求赐教

qazxswk 发表于 2024-9-29 08:55:26

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

hatchgenerateboundary

wangsr 发表于 2024-9-29 18:11:20

谢谢分享..
页: [1]
查看完整版本: 使用CAD2014的重建填充边界源码