小问题 请指点啊 急啊！！！

Question

怎么打开一个 autocad 的文件？  还有如何插入 autocad 的控件 能够像在autocad 中一样的进行编辑？？

Answer 1

没有使用过我想就象使用excel一样吧,引用它,然后控制Dim exl As New Excel.Application
Dim book As New Excel.Workbook
Dim sheet As New Excel.Worksheet'先使用excel制作一个模板
Set book = exl.Workbooks.Open("你制作的excel的路径")
Set sheet = book.Worksheets(1)'在excel的格子中写入你想打印的内容
With sheet
    
    .Cells(Row, col) = ""
    
End With
sheet.PrintOut
book.Close
Set book = Nothing
exl.Quit
Set exl = Nothing

Answer 2

'控制autocadOn Error Resume Next
｀如果目前系统中已有执行R14则取得已执行R14物件
Set acadApp = GetObject(， “AutoCAD.Application＂)
If Err Then
Err.Clear
｀如果目前系统尚未有执行R14则建立R14物件(
Set acadApp = CreateObject(“AutoCAD.Application＂)
End If
acadApp.Visible = True ｀请务必将物件Visible属性设为true

Answer 3

Private Sub DrawBox_Click()
Dim p1(0 To 2) As Double
Dim p2(0 To 2) As Double
Dim p3(0 To 2) As Double
Dim p4(0 To 2) As Double
Dim lineObj As Object
｀设定点座标
p1(0) = 10#
p1(1) = 10#
p1(2) = 0#
p2(0) = 100#
p2(1) = 10#
p2(2) = 0#
p3(0) = 100#
p3(1) = 100#
p3(2) = 0#
p4(0) = 10#
p4(1) = 100#
p4(2) = 0#
｀划第一点到第二点
Set lineObj = acadApp.ActiveDocument.ModelSpace.AddLine(p1, p2)
｀划第二点到第三点
Set lineObj = acadApp.ActiveDocument.ModelSpace.AddLine(p2, p3)
｀划第三点到第四点
Set lineObj = acadApp.ActiveDocument.ModelSpace.AddLine(p3, p4)
｀划第四点到第一点
Set lineObj = acadApp.ActiveDocument.ModelSpace.AddLine(p4, p1)
acadApp.Update
End Sub

Answer 4

偶还是不太明白
如何打开一个autocad 文件阿

Answer 5

我还是不明白怎么才能打开一个autocad 的文件
谁能指点我一下啊？

Answer 6

前提是安装AUTOCAD软件
然后showexecute就可以打开了,我做过的

Answer 7

前提是安装AUTOCAD软件
然后showexecute(是个API函数,你自己查一下)就可以打开了,我做过的