1207| 4
|
想实现点击尺寸数值后再点属性块使它数值修改 |
10明经币
最佳答案(defun C:NM (/ chicun set-att-value)
(defun set-att-value (entblock attname value / entdata entname test)
(setq entname entblock
test t
)
(while (and
test
(setq entname (entnext entname))
)
(setq entdata (entget entname))
(cond
((not (= (cdr (assoc 0 entdata)) "ATTRIB"))
(setq test nil)
)
((= "SEQEND" (cdr (assoc 0 entdata)))
...
| ||
发表于 2023-5-8 12:18:24
|
显示全部楼层
此帖仅作者可见
| |