修改块参照中的自定义项
本帖最后由 willj 于 2022-12-23 15:00 编辑已解决，谢谢各位大佬
(setq blk (car (entsel "请选择动态块0000轿底板:")))
(if (wcmatch (block:get-effectivename blk) "*轿底板")
(foreach
dynprop
'(("轿厢宽度" . 1300)
("轿厢深度" . 1500)
("JJ" . 900)
("偏心" . 50)
("前小壁孔距" . 30)
("前小壁孔数" . 4))
(block:set-dynprop blk (car dynprop)(cdr dynprop))))
这里是两个函数的定义：
页:
[1]