|
795| 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-6 21:56
置顶卡
变色卡
显身卡
楼主