triggerman 发表于 2005-5-17 11:17:00

代码好像有问题啊，大家帮看一下吧！

Attribute VB Name = "Form3"<BR>Attribute VB GlobalNameSpace = False<BR>Attribute VB Creatable = False<BR>Attribute VB PredeclaredId = True<BR>Attribute VB Exposed = False<BR>Dim acadapp As AcadApplication 'ACAD对象



Private Sub Command1 Click()<BR>Dim returnobj As AcadObject<BR>Dim basepnt As Variant<BR>Dim I As Integer


Dim Name As String<BR>Set acadapp = GetObject(, "autocad.application")<BR>'On Error Resume Next<BR>'Dim ssetobj As AcadSelectionSet<BR>'Set ssetobj = acadapp.ActiveDocument.SelectionSets.Add("Test1")<BR>AppActivate acadapp.Caption '激活AutoCAD窗口


RETRY:<BR>For I = 1 To 5<BR>Select Case I<BR>Case 1<BR>Name = "房间号"<BR>Case 2<BR>Name = "房间名称"<BR>Case 3<BR>Name = "负责人"<BR>Case 4<BR>Name = "面积"<BR>Case 5<BR>Name = "类别"<BR>End Select<BR>        'roomNo = acadapp.ActiveDocument.Utility.GetString(1, vbCrLf &amp; "请输入房间号：")<BR>'If roomNo = "" Then Exit Sub<BR>'acadapp.ActiveDocument.Utility.GetEntity returnobj1, basepnt1, "请选择 房间号 "<BR>'If Err &lt;&gt; 0 Then Exit Sub<BR>'acadapp.ActiveDocument.Utility.GetEntity returnobj2, basepnt2, "请选择 房间名称 "<BR>'If Err &lt;&gt; 0 Then Exit Sub<BR>'acadapp.ActiveDocument.Utility.GetEntity returnobj3, basepnt3, "请选择 负责人 "<BR>'If Err &lt;&gt; 0 Then Exit Sub<BR>'acadapp.ActiveDocument.Utility.GetEntity returnobj4, basepnt4, "请选择 面积 "<BR>'If Err &lt;&gt; 0 Then Exit Sub<BR>'等待用户从屏幕上选择实体对象<BR>acadapp.ActiveDocument.Utility.GetEntity returnobj, basepnt, "请选择" + Name


If Err &lt;&gt; 0 Then<BR>Err.Clear<BR>Form1.Show<BR>R.Close<BR>c.Close<BR>Set c = Nothing<BR>Set R = Nothing<BR>Exit Sub<BR>Else<BR>'根据图形的文字改数据库的数据<BR>'-----------------------------<BR>Set db = Workspaces(0).OpenDatabase(App.Path + "\zsw", False)<BR>Set rst = db.OpenRecordset("2000", dbOpenTable)<BR>rst.AddNew<BR>rst.Fields(Name) = returnobj.TextString<BR>rst.Update<BR>rst.Close<BR>db.Close<BR>Set rst = Nothing<BR>Set db = Nothing<BR>'----------------------------<BR>End If<BR>Next I<BR>GoTo RETRY<BR>R.Close<BR>c.Close<BR>Set c = Nothing<BR>Set R = Nothing<BR>End Sub<BR>


开头的attribute就显示有错，attribute是什么意思啊！大家发表一下意见吧！

zfbj 发表于 2005-5-17 21:11:00

你自己写的程序也不知道Attribute 是什么意思啊，我也不太清楚。

triggerman 发表于 2005-5-18 16:07:00

不好意思。不是我自己写的！是找人帮我写的

mccad 发表于 2005-5-18 21:47:00

你的程序是保存成BAS或FRM文件后的文件内容，<BR>Attribute VB Name = "Form3"<BR>Attribute VB GlobalNameSpace = False<BR>Attribute VB Creatable = False<BR>Attribute VB PredeclaredId = True<BR>Attribute VB Exposed = False<BR>这些内容是文件的配置内容，而不是程序的一部分。<BR>使用导入的方式导入文件时，则在程序段中并不会出现这些内容。

triggerman 发表于 2005-5-19 09:20:00

哦，原来是这样，谢谢管理员了！


我也感觉到了，文件格式就是Visual Basic Form File。我打开它只能用VB6.0，我想用AutoCAD加载它，把这些程序转换成VBA格式可以吗？怎么办呢？

今晚打老虎 发表于 2005-5-20 08:57:00

晕，在VBA环境下导入这个文件就行了。

triggerman 发表于 2005-5-20 19:39:00

不好意思，楼上的朋友，你能告诉我怎么导入吗？它的格式是Form。谢谢！

今晚打老虎 发表于 2005-5-23 10:45:00

在VBA环境的工程面板下右键选择导入文件。
页: [1]
查看完整版本: 代码好像有问题啊，大家帮看一下吧！