明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1631|回复: 0

AutoCAD2012下取直线坐标的问题

[复制链接]
发表于 2011-8-28 23:57:24 | 显示全部楼层 |阅读模式
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 下出现问题,选择调试停在红色代码处,不知道是什么原因,


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-25 18:28 , Processed in 0.167334 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表