|
|
Dim QD,Zd As Variant
Dim ObjectLine1 As Object
Dim XX1, YY1, XX2, YY2 As Variant
QD = acadDoc.Utility.GetPoint(, "起点：")
Zd = acadDoc.Utility.GetPoint(QD, " 终点：")
Set ObjectLine1 = acadDoc.ModelSpace.AddLine(QD, Zd)
ObjectLine1.Layer = Text3.Text
XX1 = ObjectLine1.StartPoint(0)
YY1 = ObjectLine1.StartPoint(1)
XX2 = ObjectLine1.EndPoint(0)
YY2 = ObjectLine1.EndPoint(1)
没有引用CAD,采用后期绑定，上面的代码在XP，cad2005 vb6 sp6 下运行没问题，但在WIN7 X64， CAD2012 X64 vb6 sp6 下出现问题，选择调试停在红色代码处，不知道是什么原因，
oim5ibf15d0.jpg
|
|
置顶卡
