本帖最后由 作者 于 2009-9-27 16:47:20 编辑
1、在acad.mnl中我已经定义如下名令 (defun c:Iblk() (command "vbarun" "c:/M2006/VBA/Mp2000.dvb!WJSZPC.Insert_WJSZ_Block") (princ) ) 2、原来在ACAD.MNS中我定义了如下屏幕菜单,可以实现绘图,但是鼠标右键无法实现重复上一个命令 [WJSZ(53210001,给水井盖)]^C^C_-vbarun c:/M2006/VBA/Mp2000.dvb!WJSZPC.Insert_WJSZ_Block;53210001;^P [WJSZ(54100001,污水井盖)]^C^C_-vbarun c:/M2006/VBA/Mp2000.dvb!WJSZPC.Insert_WJSZ_Block;54100001;^P [WJSZ(54200001,雨水井盖)]^C^C_-vbarun c:/M2006/VBA/Mp2000.dvb!WJSZPC.Insert_WJSZ_Block;54200001;^P 3、我想把2的格式写成如下,实现鼠标右键重复上一个命令, [WJSZ(53210001,给水井盖)]^C^C^PwjszIblk;53210001;^P [WJSZ(54100001,污水井盖)]^C^C^PwjszIblk;54100001;^P 我测试了,这样不行,急用,请高手赐教!!! 谢谢!!!!!!!! |