|
|
Public Function 向CAD命令行发送命令(命令 As String)
'STRING为变长字符串，可以储存2的32次方字符即2亿多个
Dim CAD As AcadApplication, CADDOC As AcadDocument
Dim MYSpacE, j, plineObj, layerobj
Set CAD = GetObject(, ".Application") '取得CAD现有进程
If Err Then
Err.Clear
Set CAD = CreateObject("AutoCAD.Application") '若 AutoCad未启动，则运行它
If Err Then
Dim msg As String
msg = Err.Description + "! 检查CAD安装是否正确"
MsgBox msg
Exit Function
End If
End If
CAD.Visible = True
Set CADDOC = CAD.ActiveDocument
Set MYSpacE = CADDOC.ModelSpace
'创建新图层000宏或命令行所画图元放于此
Set layerobj = CADDOC.Layers.Add("000宏或命令行所画图元放于此")
CADDOC.SendCommand 命令
向CAD命令行发送命令 = "检查一下"
End Function
|
|
置顶卡
