[讨论] acad r14 vba

liarcht · 发表于 2003-5-17 09:49:00

r14的vba中没有sendcommand这个命令
不知道大家是如何解决vba中调用lisp命令的?

mccad · 发表于 2003-5-18 12:16:00

http://www.mjtd.com/function/list.asp?id=366

tangshengxia · 发表于 2003-5-18 15:43:00

我在进行VBA编程时遇到了一问题:
在进行绘制弧的程序编写时:
   Dim cenpt AS Variant
   Dim centerpt() AS Variant
   Dim radius AS Double
   cenpt=centerpt(p1,p2,p3)
   radius=R
   set cenpt=ThisDrawing.Modelspace.AddArc(cenpt,radius)
但在运行时出错了,说是 centerpt 和 cenpt 的类型不符,这是怎么一回事阿??
                  请帮帮忙!!!!!
               时间紧阿!!!!

liarcht · 发表于 2003-5-19 08:45:00

代码可以使用，但是和sendkeys没有区别，我的想法是在vba的窗体中调用sendcommand,调用结束后返回，但是这个函数是在窗体关闭后再运行相关的lisp语句

liarcht · 发表于 2003-5-19 08:55:00

程序调试通过后，我把成功的代码贴上来

zhuqi75 · 发表于 2003-5-19 10:06:00

我们的软件是R14.01版本上开发的,可是我们一直没有这个,一直用R14来代替,而这个二次开发的软件许多的功能是用VBA开发的,这一部分功能就丢失了,我认为丢失的这部分才是精华.
R14.01中文的市场上有,可我们的工作是对日的,要英文的才行,能帮帮我们公司吗?

liarcht · 发表于 2003-5-20 00:50:00

可能你们没有装r14,所有下面的代码才能在r14下运行，有2处修改
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Const WM_COPYDATA = &H4A
Type COPYDATASTRUCTURE
dwData As Long
cbData As Long
lpData As String
End Type
Public Sub SendCommand(CommandString As String)
Dim udtData As COPYDATASTRUCTURE
Dim lngHwnd As Long
udtData.dwData = 1
udtData.lpData = CommandString
udtData.cbData = LenB(CommandString) + 2
lngHwnd = FindWindow(vbNullString, ThisDrawing.Application.Caption)
SendMessage lngHwnd, WM_COPYDATA, 0, udtData
End Sub

mccad · 发表于 2003-5-21 17:55:00

在调用一个交互式对话框之后生成VBA执行代码
http://www.mjtd.com/a2/list.asp?id=501

[讨论] acad r14 vba

发表回复

精选推荐