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

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

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

谢谢大家了^_^

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

其实比VL简单得多

看看示例：
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

只有你取得编辑框等控件中的值，就可以用任何方式赋给AutoCAD

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

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

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

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

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

大家帮帮忙啊，急！！！

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

mccad 发表于 2002-7-17 19:53: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 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.come-mail:mccad@mjtd.com"
End Sub
-------
建立一个模块做为程序的驱动主程序：
Sub main()
Load UserForm1
UserForm1.Show
End Sub

页: [1] 2

明经CAD社区's Archiver