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

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

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

下面这段程序为实现两条线的关联，请教高手错在哪里？
Public Sub GetHandle()
Dim objSelect1 As AcadEntity
Dim objSelect2 As AcadEntity
Dim DataType(0) As Integer
Dim Data(0) As Variant
DataType(0) = 1005

ThisDrawing.Utility.GetEntity objSelect1, basePnt, "选择边线1："
ThisDrawing.Utility.GetEntity objSelect2, basePnt, "选择边线2："

Data(0) = Str(objSelect2.Handle)
objSelect1.SetXData DataType, Data
End Sub

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

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

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

哎 同样的问题啊都愁死我了感觉自己真是没有编程的天赋啊 但老师还是给自己一个编程的题目 突然感觉自己是那么笨啊

查看完整版本: [求助]关于两条线关联的程序为什么错？