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

请教取消填充关联？

请教老师，为啥，我写的这个取消，填充关联只能，一次只能取消一个填充关联的？能批量取消填充关联吗？
(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:29

这样(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:36

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

学习了，厉害了老师

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

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

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

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

很不错 学习了

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

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

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

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

好像不行呢？？？
页: [1]
查看完整版本: 请教取消填充关联？