可以编辑一个块属性的修改反应器,用英文输入法可以实现,切换为中文输入几个文字,甚至几个英文字母,反应器真是反应不过来了,导致Acad无警告退出! 如下构建反应器函数: (setq a (vlax-ename->vla-object (car (entsel "\n选择一个属性块:")))) (vlr-object-reactor (list a) "" '((:vlr-Subobjmodified . ch))) ;;;构建反应器 (defun ch (x y z) (princ "\n更改!")) ;;写个回调函数 |