参见:http://bbs.mjtd.com/forum.php?mod=viewthread&tid=73386
![](source/plugin/imc_colorcode/images/loading.gif) - (defun C:TEST ()
- (setq N 1) ;对象类型墙所在位置
- (setq N1 2) ;墙总宽所在位置
- (setq WI "200") ;墙厚
- (vlax-invoke-method
- (vlax-get (vlax-get-acad-object) 'ACTIVEDOCUMENT)
- 'SENDCOMMAND
- (car (list "Qselect "
- (vlax-invoke-method
- (vlax-get-or-create-object "WScript.Shell")
- 'SENDKEYS
- "%b{DOWN 9}%p{DOWN 15}%v200{Enter}"
- ;;9是对象类型墙所在位置 15是墙总宽所在位置 200是墙厚,根据需修改
- )
- )
- )
- )
- )
|