shinet 发表于 2004-6-13 16:14:00

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

如体

雪山飞狐_lzh 发表于 2004-6-13 16:24:00

<A href="dispbbs.asp?BoardID=4&amp;ID=9980" target="_blank" >dispbbs.asp?BoardID=4&amp;ID=9980</A>



用“命令”做关键字搜索，可以搜出一大堆

gzy 发表于 2004-6-13 18:08:00

把LISP语句写到VBA的THISDRAWING中。


Private Sub AcadDocument_EndCommand(ByVal CommandName As String)


ThisDrawing.SendCommand "(defun c:命令名()(vl-vbarun ""模块名"")(princ))(princ)" &amp; vbCr


wmz 发表于 2004-6-13 20:07:00

也提一点建议.将你写的VBA程序放在你自己建立的某一文件夹里(我这里暂时将工程命名为"User.dvb",假设在该工程命名了一模块Module,并且建立了一过程Textstyle),现在,可在ACAD.DVB的ACADStartup过程里写下如下代码,搞定!<BR>Sub ACADStartup()<BR>       <BR>               ' Call AcadApplication.RunMacro(".\support\User.dvb!VBAIDE_Customization")<BR>                       AcadApplication.LoadDVB "d:\acad2000\support\User.dvb"<BR>                       ThisDrawing.SendCommand "(defun c:ml()(vl-vbarun ""Module.Textstyle"")(princ))(princ)" &amp; vbCr


End Sub

wmz 发表于 2004-6-13 20:26:00

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

shinet 发表于 2004-6-13 21:16:00

谢谢大家！
页: [1]
查看完整版本: 我用VBA编了一个小程序，怎样把他做成在CAD下能运行的命令