vba调用cad命令

① 如何用VBA向CAD2004发送作图指令

'需引用链接cad库，然后打开cad文档，在CAd活动文档实时操作
Public sub 读文本画图（文件 as 带路径文件名）
Set acadApp = GetObject(, "AutoCAD.Application")
Set DOC = acadApp.ActiveDocument
DOC.WindowState = acMax '旁明中最大化
Dim pline3DObj As Acad3DPolyline
Dim points3D() As Double: ReDim points3D(0)
i=-1:J=0’去掉第一行

Open 文件 For Input As #1'读文本文件
Do While Not EOF(1) ' 检查文件尾。
Line Input #1, InputData ' 读入一行数据。
if i=0 then
points3D(0)= val(InputData)
elseif i>0 then’转成3d
ReDim Preserve points3D(j)
points3D(j)= val(InputData)
if ( i mod 2)=1 then
j=j+1
ReDim Preserve points3D(j)
points3D(j)= 0
end if
end if
I=i+1 :j=j+1
Loop
Close #1
Set pline3DObj = DOC.ModelSpace.Add3DPoly(points3D)
DOC.SendCommand "_zoom" & vbCr & "a" & vbCr
End sub
变量申明、错误处理、新建CAD另加，我比较槐弊喜欢多段线，所以按3d点编制，希望有运山所启发

② 怎么利用EXCEL vba 在CAD上画多段线

1、复制计算出的坐标到excel中，分为X、Y两列坐标
2、把X、Y坐标备渗胡用逗号（英文状态）连接在一起，excel里用公式&","&连接
3、选中坐标组，复制（这样数据暂时都保存在粘贴板里）
4、打开cad软件喊搭，新建文件或者在你需要绘制的文件里，输入spl命令（或者点击工具栏图标‘样条曲线’）
5、直接Ctrl+V粘贴（或者在命仿拦令行右键菜单“粘贴”）刚才复制的坐标组，然后回车确定
6、双击滚轮显示全部对象，可以看到曲线已经画好了

③ vba程序中调用cad命令遇到的困难

mysql_select_db($database_conn_news, $conn_news);
$query_newsType1 = "SELECT * FROM newstable ORDER BY newsTime DESC";
$newsType1 = mysql_query($query_newsType1, $conn

④ 请问一下:在excel使用vba粘贴数据到cad命令框里怎么写代码

你的问题大概是想让CAD执行某些命令吧，比如画线命令，EXCEL表格中有线的拐点坐标了，根据这些坐标在CAD中画线，步聚如下：

1、把单元格中的数据，变成逗号分隔 如图：

2、选中这些变好的单元格，按 Ctrl+C也就是复制

3、到CAD界面中，在命令行中键入PLINE,回车后，会提示你输入起点坐标，这时候，你在提示后边点一下鼠标，然后按Ctrl+V，也就是把刚才复制的东西粘贴上去，这样你会发现线条画出来了---------------你试试吧，祝你工作愉快

===========如果你真的是想用VBA在CAD命令行中输入一些东西，那么另外再回答你

⑤ 怎么用vba编的程序调用cad里的全选和删除图形的命令

在历明你的袭昌程序拍烂扒前面加上
Dim obj As AcadObject
For Each obj In ThisDrawing.ModelSpace
obj.Delete
Next

⑥ 怎么在autocad命令行运行VBA编的程序

这个怎么样.........................PHP代码:
[拷贝到剪切板]vl-vbarun
函数
语法
(vl-vbarun
macroname)
功能
运行
Visual
Basic
宏。
说明
参数
macroname
为字符串，表示要加载的
Visual
Basic
宏。
返回值：
macroname。
样例：
1）加载
VBA
工程文件：
_$
(vl-vbaload
"c:/program
files/acad2000/sample/vba/cntrline.dvb")
"c:\program
files\acad2000\sample\vba\cntrline.dvb"
2）运行加载工程中的宏：
_$
(vl-vbarun
"cntrline")
"竖握cntrline"
请参见
vl-vbaload
函数。PHP代码:
[拷贝到剪切板]vl-vbaload函数
语法
(vl-vbaload
filename)
功能
加悄毁载
Visual
Basic
工程。
说明
参数
filename
为字符串，指定要加载的
Visual
Basic
工程。
返回值：
如果成功，则启纤备返回值未确定。
样例：
_$
(vl-vbaload
"c:/program
files/acad2000/sample/vba/cntrline.dvb")
"c:\program
files\acad2000\sample\vba\cntrline.dvb"
请参见
vl-vbarun
函数。

⑦ VBA程序代码有了，怎么应用到CAD中去。也就是代码应该写在哪才能用APPLOAD命令加载。求步骤。

Alt+F11打开VBA编辑器，按照你的代码提供者说明的要求将代码贴在相应的地方，一般是李洞新建一个模块，碧扰首粘贴到模块里面。
保存该项目为一个.DVB文件。使用时用appload选择该文件加载就可以了，也可以直接打开AutoCAD以后，直接将该DVB文件直接拖到绘图窗口里面，这样也可以加载。然后你运行该VBA项目里面的(命悔数令VBARUN)宏调用命令就可以了。

⑧ Excel VBA调用CAD2007画图并显示

我这里提供一个函数，是连接获取cad（2004版，其他差不多）
Private Function ConnectToCAD2004() As Boolean
'连接AUTO CAD 2004
On Error Resume Next
Set acadApp = GetObject(, "autocad.application.16")
If Err Then
Err.Clear
Set acadApp = CreateObject("autocad.application.16")
If Err Then
ConnectToCAD2004 = False
MsgBox "连接Auto CAD 2004没有成功!" & vbNewLine & "请确认安装的版本。或手动打开Auto CAD 2004，然后点击连接按钮。" _
& vbNewLine & vbNewLine & Err.Description, vbInformation, AppName
Exit Function
End If
End If
On Error GoTo 0
'获取Auto CAD 2004当前文档
On Error Resume Next
Set acadDoc = acadApp.ActiveDocument
If Err.number <> 0 Then
ConnectToCAD2004 = False
MsgBox "Auto CAD 2004中滑贺丛没有活动的文档。" _
& "请激活一个文档或新建一个文信樱档。", vbInformation, AppName
Err.Clear
Exit Function
End If
ConnectToCAD2004 = True
acadApp.Visible = True
End Function

需要全局变量或者模块及变量：
Public Const AppName = "----------------"
Public acadApp As AcadApplication
Public acadDoc As AcadDocument

每次执行画图拍散之前：调用函数即可：
'连接CAD2004
If ConnectToCAD2004 = False Then
Exit Sub
End If

⑨ 用VBA编写的过程在CAD中怎样在命令行中调用

在VBA窗口双击左侧缓手缺列表框的thisworkbook在右边窗口粘贴下面的代码PrivateSubWorkbook_Open()userform1.show'如果你更改了窗体的名称那就改为窗体名称.showEndSub这样打开这个工作薄就直接调用你建的扰辩窗体.还有一种就是创建一个过程宏调用,可以写在任意工作薯薯表的代码中或者模块中调用sub加载操作窗体()userform1.showendsub