[求助]：如何连续用vb程序绘图？

心渐凉

autocad中，回车键或者鼠标右键是执行上一个绘图命令。我如今有一vb程序（不是vba），我想也能够使用回车或者右键来连续执行它，请问如何做？如今，我的vb程序好像和cad无关似的，在执行完一遍vb程序后，按回车，执行的是上一个cad命令。
请执教

XDSoft

最初由 心渐凉 发布
[B]autocad中，回车键或者鼠标右键是执行上一个绘图命令。我如今有一vb程序（不是vba），我想也能够使用回车或者右键来连续执行它，请问如何做？如今，我的vb程序好像和cad无关似的，在执行完一遍vb程序后，按回车，执?.. [/B]

把代码贴论坛来吧。

心渐凉

？？
贴什么代码？我是请教大家怎么做啊，希望大家给我个代码啊。
我编的一个程序，里面带一个菜单，可以调用各个编的绘图小程序。我是想在cad里面，在执行完一个小程序（从vb程序菜单里调用）后，按回车就是重复执行这个小程序。如何实现？

efan2000

编写一个Lisp小程序，在其中定义自己的命令。如：

2. 
   
3.   [FONT=courier new]
   
4. (defun TJ(/ cmdecho-save) '定义统计的命令
   
5.   (setq cmdecho-save (getvar "CMDECHO"))
   
6.   (setvar "CMDECHO" 0)
   
7.   (startapp "tj.exe") '调用统计的VB子程序
   
8.   (setvar "CMDECHO" cmdecho-save)
   
9.   (princ)
   
10. )
    
11.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun TJ(/ cmdecho-save) '定义统计的命令<br />   (setq cmdecho-save (getvar "CMDECHO"))<br />   (setvar "CMDECHO" 0)<br />   (startapp "tj.exe") '调用统计的VB子程序<br />   (setvar "CMDECHO" cmdecho-save)<br />   (princ)<br /> )<br />   [/FONT]<br />

在菜单中，添加下面的一行。如：

1. 
   
2.   [FONT=courier new]
   
3. ID_TJ          [统计(&T)]^C^CTJ
   
4.   [/FONT]
   

复制代码

这样，自己的程序就如CAD内部的命令一样，可以随意调用了。
记住，在CAD中一定要加载这个LSP程序，否则定义的命令就不能用了。