kdst 发表于 2011-8-28 23:57:24

AutoCAD2012下取直线坐标的问题

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 下出现问题，选择调试停在红色代码处，不知道是什么原因，


页: [1]
查看完整版本: AutoCAD2012下取直线坐标的问题