|
|
Public Sub intext()
'已打开一个EXCEL文档和一个图档,当运行本程序后提示选择EXCEL文档的
'某一单元格,选后提示在AutoCAD图档点选一位置,使EXCEL文档相关单元格的内容
'以文本方式填在AutoCAD图档的指定位置
On Error Resume Next
' 连接Excel应用程序
Dim xlApp As Excel.Application
Set xlApp = GetObject(, "Excel.Application")
If Err Then
MsgBox " Excel 应用程序没有运行。请启动 Excel 并重新运行程序。"
Exit Sub
End If
Dim xlSheet As Worksheet
Dim na As Integer '所选单元格所在行的编号
Dim n1 As String ' 单元格的值(内容)
Set xlSheet = xlApp.ActiveSheet
'####################################################################
'这段不会编啊！这段不会编啊！这段不会编啊！
'这段是提示用户选取EXCEL单元格,并获得所选单元格的行编号na,
'以及读取单元格cells(na,3)的内容n1
' n1 = Cells(na, 3):n2=Cells(na, 5):n3=Cells(na, 8) ……
'####################################################################
Dim pt As Variant '插入点
pt = ThisDrawing.Utility.GetPoint(, "起始参考点")
If IsEmpty(pt) Then Exit Sub
ThisDrawing.ModelSpace.AddText n1, pt, 10
End Sub
|
|
置顶卡
