用对用话框输入的内容，如何在autocad上显示出来？？？

longyu

用对话框输入的内容（AutoCAD中的vb编辑器编写的对话框），如何在autocad上显示出来？？？

谢谢大家了^_^

mccad

看看示例：
    If Me.DimTolSym = True Then
        DimObj.ToleranceDisplay = acTolSymmetrical
        DimObj.ToleranceHeightScale = 1
        DimObj.ToleranceJustification = acTolBottom
        DimObj.ToleranceUpperLimit = Me.DimTolMid
        DimObj.ToleranceLowerLimit = Me.DimTolMid
        DimObj.Update
    End If

在这里DimTolMid就窗体中编辑框的名称，可以直接将值赋给ACAD中的对象属性。

longyu

要是将对话框中的内容一起显示出来那，如：“制图单位”后输入“天津市...”，然后就在autocad上以表格显示出：制图单位、天津市...

mccad

至于表格这些东西，需要自己写编程并将值写入。

longyu

类似这样的问题，在网上那里可以找到例子代码？？？

longyu

帮人帮到底，我刚刚才接触这个方面的内容，还不是很熟悉，上面又要的急，请举个例子或是给一些具体的提示，用哪个命令、方法、函数，给我一点思路，好嘛，谢谢了！

mccad

longyu

高手觉得很简单，可是我是初学，没有什么思路和经验，请指点一下吧！
在autocad中想获得vb编写的对话框中控件的值（如text/label），用什么命令；然后用什么命令可以把它写到autocad图纸上？？？

longyu

若要把从对话框中获得的值，写到cad的图纸的表格上，是应该先画出表格，还是用什么函数就可以了？？？都要用到哪些命令、函数？？？请指点一下

mccad

程序界面：(其中编辑框名为textbox1，三个命令按钮分别为
CommandButton1，CommandButton2，CommandButton3

------------
命令按钮的触动动作如下：
Private Sub CommandButton1_Click()
Dim TxtValue As String
TxtValue = TextBox1.Value
Me.Hide
Dim Pnt As Variant
On Error Resume Next
Pnt = ThisDrawing.Utility.GetPoint(, "请选择文字写入的位置：")
    If Err <> 0 Then
        Err.Clear
        ThisDrawing.Utility.Prompt " 没有选取点,退出"
        Exit Sub
    End If
ThisDrawing.ModelSpace.AddText TxtValue, Pnt, 5
Unload Me
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub CommandButton3_Click()
MsgBox "明经通道：http://www.mjtd.com  e-mail:mccad@mjtd.com"
End Sub
-------
建立一个模块做为程序的驱动主程序：
Sub main()
Load UserForm1
UserForm1.Show
End Sub