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

longyu 发表于 2002-7-15 15:37:00

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

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

mccad 发表于 2002-7-15 22:02:00

看看示例：
    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 发表于 2002-7-16 10:18:00

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

mccad 发表于 2002-7-16 12:26:00

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

longyu 发表于 2002-7-16 14:46:00

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

longyu 发表于 2002-7-17 15:26:00

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

longyu 发表于 2002-7-18 12:27:00

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

longyu 发表于 2002-7-18 16:22:00

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

mccad 发表于 2002-7-18 20:28:00

程序界面：(其中编辑框名为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 Err0 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.come-mail:mccad@mjtd.com"
End Sub
-------
建立一个模块做为程序的驱动主程序：
Sub main()
Load UserForm1
UserForm1.Show
End Sub

查看完整版本: 用对用话框输入的内容，如何在autocad上显示出来？？？