wenyuan 发表于 2003-12-7 17:16:00

zhaoguo兄，能否根据我说的将代码贴出来，命令的写法我不太会啊

多谢！！！

zhaoguo 发表于 2003-12-7 18:57:00

r14sendcommand(但其中len应改为lenb):
http://www.mjtd.com/function/list.asp?id=366

命令的写法就是重复在cad中操作时需要输入字符，回车用Chr(13)。
例：
2002：
ThisDrawing.SendCommand ("-dimstyle" & Chr(13) & "s" & Chr(13) & StyleName & Chr(13) & "y" & Chr(13))
R14:
R14SendCommand"-dimstyle" & Chr(13) & "s" & Chr(13) & StyleName & Chr(13) & "y" & Chr(13)

wenyuan 发表于 2003-12-7 22:33:00

zhaoguo兄，还是有些问题，请看我的代码：
Public Sub aaaa()
    Dim adDimStyle As AcadDimStyle

    Set adDimStyle = AcadApp.ActiveDocument.DimStyles.Add("adDimStyle")
    AcadApp.ActiveDocument.ActiveDimStyle = adDimStyle

    AcadApp.ActiveDocument.SetVariable "DIMASZ", 2.5
    AcadApp.ActiveDocument.SetVariable "DIMTXT", 3.5
    AcadApp.ActiveDocument.SetVariable "DIMTIH", False
    AcadApp.ActiveDocument.SetVariable "DIMTOH", False
    AcadApp.ActiveDocument.SetVariable "DIMTAD", 1
   

    R14SendCommand "-dimstyle" & Chr(13) & "s" & Chr(13) & "aa" & Chr(13) & "y" & Chr(13)
End Sub

以上是个函数，前面你说的函数以及声明我都已经添加
但是，还是不对，好像在以下出问题：
    lngHwnd = FindWindow(vbNullString, Application.Caption)
能否帮我看一下还有什么地方存在问题，多谢！！！

wenyuan 发表于 2003-12-8 14:13:00

还有一句：adDimStyle.name=aa

wenyuan 发表于 2003-12-8 21:20:00

我知道了，主要是因为没有获得窗口的句柄，那么请问，在AutoCAD窗口设置visible为false的情况下，怎么才能得到它的句柄？

wenyuan 发表于 2003-12-8 22:14:00

奇怪，执行一下语句：
lngHwnd = FindWindow(vbNullString, AcadApp.Caption)
我跟踪了一下，明明lngHwnd取到值了，但是程序仍然报错
错误描述为：Invalid procedure or argument
然后我再执行SendMessage lngHwnd, WM_COPYDATA, 0, udtData
则又报错，错误描述为：Type dismatch
请教一下，这是怎么回事？

wenyuan 发表于 2003-12-9 15:26:00

关于句柄，我已经搞定了

下面就是sendmessage
执行SendMessage lngHwnd, WM_COPYDATA, 0, udtData
则又报错，错误描述为：Type dismatch
请教一下，这是怎么回事？

wenyuan 发表于 2003-12-9 21:46:00

总算可以发送命令了，但是又出现了新的问题：（

我AutoCAD的visible属性为false

但是在发消息的过程中，发消息使AutoCAD的visible属性变成了true

我应该在消息发完后再使其为false

但是，我没有办法控制发消息的时间

请问，有这样的情况发生吗？

怎么样解决呢？
页: 1 [2]
查看完整版本: 求助，关于设置系统变量