清风明月名字 发表于 2013-6-19 09:10:22

在EXCEL中向CAD命令行发送命令

本帖最后由 清风明月名字 于 2014-4-14 18:55 编辑

Public Function 向CAD命令行发送命令(命令 As String)
'STRING为变长字符串，可以储存2的32次方字符即2亿多个
Dim CAD As AcadApplication, CADDOC As AcadDocument
Dim MYSpacE, j, plineObj, layerobj

Set CAD = GetObject(, "AutoCAD.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

yshf 发表于 2013-6-19 10:31:05

ThisDrawing.SendCommand"命令及参数"
例：自动清理图层
ThisDrawing.SendCommand "-purge" & vbCr & "A" & vbCr & vbCr & "N" & vbCr

yshf 发表于 2013-6-22 22:27:13

Sub Ch3_SendACommandToAutoCAD()
   ThisDrawing.SendCommand "_Circle 2,2,0 4 "
   ThisDrawing.SendCommand "_zoom a "
End Sub

齐天大圣3386 发表于 2013-6-23 08:01:45

你疯了吗？

sunny_8848 发表于 2013-7-9 10:50:34

学习了，多谢讲解

清风明月名字 发表于 2013-7-9 12:46:41

是将VBA代码放在EXCEL中，来运行的

peraperson 发表于 2014-2-18 09:15:28

怎么最近都收币啊 哎

xinght99 发表于 2014-4-13 21:58:30

懒得理你

sunny_8848 发表于 2014-9-20 16:24:48

运行不了，楼主能否上传一个excel文档？
页: [1]
查看完整版本: 在EXCEL中向CAD命令行发送命令