[求助]VBA在CAD中写入文字的程序修改

jiangzl · 发表于 2005-11-12 18:52:00

请各位帮忙看看下面这段简单代码，为什么运行不了啊?运行时说是:当前CAD窗口未显示

Private Sub cmdadd_Click()
For n = 0 To (List1.ListCount - 1)
If List1.Selected(n) = True Then
Text1.Text = Text1.Text & vbCrLf & List1.List(n)
End If
Next
End Sub
Private Sub cmdclose_Click()
Unload Me
End Sub
Private Sub Cmdopen_Click()
List1.Clear
CommonDialog1.FONTNAME = ""
CommonDialog1.Flags = 512
CommonDialog1.InitDir = "C:\字库文件"
CommonDialog1.Filter = "Text(*.Txt)|*.txt"
CommonDialog1.ShowOpen
If CommonDialog1.FileName > "" Then
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, Mydata
List1.AddItem Mydata
Loop
Close #1
End If
End Sub
(出差就在下面这段里)
Private Sub cmdwrite_Click()
Dim WordObj As AcadMText
Dim startPnt As Variant
Dim EndPnt As Variant
startPnt = ThisDrawing.Utility.GetPoint(, vbCrLf & "输入起点:")
EndPnt = ThisDrawing.Utility.GetPoint(startPnt, vbCrLf & "输入止点:")
Set WordObj = ThisDrawing.ModelSpace.AddMText(startPnt, EndPnt, Text1.Text)
ThisDrawing.Application.ZoomAll
End Sub
多谢，多谢...

mikewolf2k · 发表于 2005-11-12 23:43:00

startPnt = ThisDrawing.Utility.GetPoint(, vbCrLf & "输入起点:")
前面加一句:
activedocument.show

jiangzl · 发表于 2005-11-13 12:58:00

谢谢mikewolf2k的回答,但还是不行啊,我试了一下,你加的这段处显时:对象不支持该属性或方法.小弟是菜鸟,请各位帮忙再看看...

Private Sub cmdadd_Click()
For n = 0 To (List1.ListCount - 1)
If List1.Selected(n) = True Then
Text1.Text = Text1.Text & vbCrLf & List1.List(n)
End If
Next
End Sub
Private Sub cmdclose_Click()
Unload Me
End Sub
Private Sub Cmdopen_Click()
List1.Clear
CommonDialog1.FONTNAME = ""
CommonDialog1.Flags = 512
CommonDialog1.InitDir = "C:\字库文件"
CommonDialog1.Filter = "Text(*.Txt)|*.txt"
CommonDialog1.ShowOpen
If CommonDialog1.FileName > "" Then
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, Mydata
List1.AddItem Mydata
Loop
Close #1
End If
End Sub
Private Sub cmdwrite_Click()
Dim WordObj As AcadMText
Dim startPnt As Variant
Dim EndPnt As Variant
ActiveDocument.Show
startPnt = ThisDrawing.Utility.GetPoint(, vbCrLf & "输入起点:")
EndPnt = ThisDrawing.Utility.GetPoint(startPnt, vbCrLf & "输入止点:")
Set WordObj = ThisDrawing.ModelSpace.AddMText(startPnt, EndPnt, Text1.Text)
ThisDrawing.Application.ZoomAll
End Sub

雪山飞狐_lzh · 发表于 2005-11-13 13:24:00

前面加
me.hide
后面加
me.show

jiangzl · 发表于 2005-11-14 22:17:00

谢谢两位的指导,但小弟我确实太菜了,做了还是不理想,我将其发上来,大家看看,有空的朋友,帮我再修一下.主要存在下面问题:
1\点"写入"按键时,应该将窗体隐藏,到CAD窗口中去获插入点及宽度,当获取到数据后自动将TEXT1.TXET写入CAD界面,然后再回到窗体上,再次显示对话框.我不知道如何隐藏对话框,和再次让它出现.
2\运行时,当对话框加载时,自动获得"C:/ZK/121.txt"文件,并将文件内容付给List1.list.
再次请求各位帮忙修改一下....谢谢!

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:z4tkdbcvisi.dvb
下载次数:0 文件大小:43.5 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

bland · 发表于 2005-11-15 21:57:00

Private Sub cmdwrite_Click()
'Me.Show
Dim WordObj As AcadMText
Dim startPnt As Variant
Dim EndPnt As Variant
Me.Hide
startPnt = ThisDrawing.Utility.GetPoint(, vbCrLf & "输入起点:")
EndPnt = ThisDrawing.Utility.GetDistance(startPnt, vbCrLf & "输入文字宽度:")
Set WordObj = ThisDrawing.ModelSpace.AddMText(startPnt, EndPnt, Text1.Text)
ThisDrawing.Application.ZoomAll
Me.Show
End Sub