我用VBA编了一个小程序，怎样把他做成在CAD下能运行的命令

shinet

如体

雪山飞狐_lzh

dispbbs.asp?BoardID=4&ID=9980 用“命令”做关键字搜索，可以搜出一大堆

gzy

把LISP语句写到VBA的THISDRAWING中。

2. Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
4. 
   
5. ThisDrawing.SendCommand "(defun c:命令名()(vl-vbarun ""模块名"")(princ))(princ)" & vbCr
7. 
   

Private Sub AcadDocument_EndCommand(ByVal CommandName As String) <br /> ThisDrawing.SendCommand "(defun c:命令名()(vl-vbarun ""模块名"")(princ))(princ)" &amp; vbCr <br />

wmz

也提一点建议.将你写的VBA程序放在你自己建立的某一文件夹里(我这里暂时将工程命名为"User.dvb",假设在该工程命名了一模块Module,并且建立了一过程Textstyle),现在,可在ACAD.DVB的ACADStartup过程里写下如下代码,搞定!
Sub ACADStartup()

' Call AcadApplication.RunMacro(".\support\User.dvb!VBAIDE_Customization")
AcadApplication.LoadDVB "d:\acad2000\support\User.dvb"
ThisDrawing.SendCommand "(defun c:ml()(vl-vbarun ""Module.Textstyle"")(princ))(princ)" & vbCr End Sub

wmz

gzy老弟:我引用了你的贴子,不介意吧?

shinet

谢谢大家！