yyrr1984 发表于 2007-5-29 21:42:00

[求助]关于两条线关联的程序为什么错？

<p>下面这段程序为实现两条线的关联，请教高手错在哪里？</p><p>Public Sub GetHandle()<br/>&nbsp; Dim objSelect1 As AcadEntity<br/>&nbsp; Dim objSelect2 As AcadEntity<br/>&nbsp; Dim DataType(0) As Integer<br/>&nbsp; Dim Data(0) As Variant<br/>&nbsp; DataType(0) = 1005<br/>&nbsp; <br/>&nbsp; ThisDrawing.Utility.GetEntity objSelect1, basePnt, "选择边线1："<br/>&nbsp; ThisDrawing.Utility.GetEntity objSelect2, basePnt, "选择边线2："<br/>&nbsp; <br/>&nbsp; Data(0) = Str(objSelect2.Handle)<br/>&nbsp; <font style="BACKGROUND-COLOR: #f76809;">objSelect1.SetXData DataType, Data</font><br/>End Sub</p>

laoliu09 发表于 2007-5-30 00:17:00

<p>DataType(0) = 1001: Data(0) = "Test_Application"<br/>DataType(1) = 1000: Data(1) = "This is a test for xdata"<br/></p><p>必须写应用程序名,必须从组码1001开始！</p>

放纵 发表于 2011-12-28 19:24:06

哎 同样的问题啊都愁死我了感觉自己真是没有编程的天赋啊 但老师还是给自己一个编程的题目 突然感觉自己是那么笨啊
页: [1]
查看完整版本: [求助]关于两条线关联的程序为什么错？