请教取消填充关联？

sbwdx · 发表于 2019-12-12 20:19

请教老师，为啥，我写的这个取消，填充关联只能，一次只能取消一个填充关联的？能批量取消填充关联吗？
(Defun C:GL()
(setvar "CMDECHO" 0)
(setq SS (ssget))
(if (/= ss nil)
(Command "HATCHEDIT" SS "_DI")
)
(setvar "CMDECHO" 1)
(princ)
)

x_s_s_1 · 发表于 2019-12-12 20:19

这样

(Defun C:GL (/ ss n en)
(setvar "CMDECHO" 0)
(setq SS (ssget'((0 . "hatch"))))
(if (/= ss nil)
(repeat (setq n (sslength ss))
(setq en(ssname ss(setq n(1- n))))
(Command "HATCHEDIT" en "_DI")
)
)
(setvar "CMDECHO" 1)
(princ)
)

sbwdx · 发表于 2019-12-12 20:28

x_s_s_1 发表于 2019-12-12 20:24
这样

学习了，厉害了老师

cghdy · 发表于 2020-5-26 18:10

x_s_s_1 发表于 2019-12-12 20:19
这样

你好，能否添加循环判断，如果填充关联则解除关联，非关联则关联上

nijiea123 · 发表于 2020-8-21 21:35

很不错学习了

zj20190405 · 发表于 2021-7-7 10:17

x_s_s_1 发表于 2019-12-12 20:19
这样

老哥，批量关联好像不行，按你这个改

依然小小鸟 · 发表于 2021-9-6 12:34

好像不行呢？？？

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

[提问] 请教取消填充关联？

最佳答案

浏览过的版块