修改块参照中的自定义项

willj

已解决，谢谢各位大佬

vitalgg

1. (setq blk (car (entsel "请选择动态块0000轿底板:")))
   
2. (if (wcmatch (block:get-effectivename blk) "*轿底板")
   
3.     (foreach
   
4.      dynprop
   
5.      '(("轿厢宽度" . 1300)
   
6.        ("轿厢深度" . 1500)
   
7.        ("JJ" . 900)
   
8.        ("偏心" . 50)
   
9.        ("前小壁孔距" . 30)
   
10.        ("前小壁孔数" . 4))
    
11.      (block:set-dynprop blk (car dynprop)(cdr dynprop))))
    

(setq blk (car (entsel "请选择动态块0000轿底板:")))<br /> (if (wcmatch (block:get-effectivename blk) "*轿底板")<br />     (foreach<br />      dynprop<br />      '(("轿厢宽度" . 1300)<br />        ("轿厢深度" . 1500)<br />        ("JJ" . 900)<br />        ("偏心" . 50)<br />        ("前小壁孔距" . 30)<br />        ("前小壁孔数" . 4))<br />      (block:set-dynprop blk (car dynprop)(cdr dynprop))))<br />

这里是两个函数的定义：