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

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

适用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

谢谢分享..

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

本帖被以下淘专辑推荐:

点评