- UID
- 33236
- 积分
- 0
- 精华
- 贡献
-
- 威望
-
- 活跃度
-
- D豆
-
- 在线时间
- 小时
- 注册时间
- 2003-3-4
- 最后登录
- 1970-1-1
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本VB程序要实现的功能是在AUTOCAD中选取的点上创建一文字实体,可是Cad怎么也不会停下来等待输入点,请高手指点下毛病出在哪儿,谢谢!
Private Sub Command1_Click()
writ
End Sub
Sub writ()
Dim acad As Object
On Error Resume Next
Set acad = GetObject(, "AutoCAD.Application")
If Err <> 0 Then
Set acad = CreateObject("AutoCAD.Application")
MsgBox "没有打开CAD图文件!"
acad.Visible = True
acad.getfoucs
' Exit Sub
End If
Set doc = acad.ActiveDocument
Set mspace = doc.ModelSpace
'Dim textobj As AcadText r2000+
Dim textobj As Object 'r14
Dim height As Double
Dim Insertpoint(0 To 2) As Double
Dim testString As String
Dim i As Integer
Dim j As Integer
Dim pt As Double
Dim pnt As Variant
AppActivate acad.Caption, False
pnt = acad.GetPoint(, "选择插入点: ")
testString = "测试文字"
height = 300
Set textobj = mspace.AddText(testString, pnt, height)
AppActivate acad.Caption, False
End Sub |
|