GetEntity无法获取选择点

zhouxiuxin · 发表于 2011-10-4 23:32:36

本帖最后由 zhouxiuxin 于 2011-10-5 12:12 编辑

Dim pt As Variant
Dim En As AcadEntity
ThisDrawing.Utility.GetEntity En, pt, "请选择圆弧:"
ThisDrawing.ModelSpace.AddLine En.Center, pt

[attach]test.dwg[/attach]
[attach]test.dvb[/attach]

我用GetEntity命令选择青色色圆弧，
选择时点选A点附近，但实际并没有得到A点
而是返回了一个错误的点,正确结果应该为红色连线，而实际得到蓝色连线

这个问题只有我的附件的文档中有，如果把图档中的图元拷到
一个新建的文档也不会存在这个问题，请帮我看看
我用圆弧圆心与A点画一直线做了一个测试

cabinsummer · 发表于 2011-10-5 12:51:17

是不是捕捉变量设置问题。一般出现这种情况都是如此，初学者往往忘记这些设置。你的CAD是什么版本的？我的2006不能打开

齐天大圣3386 · 发表于 2011-10-5 18:04:14

有没有可能是坐标系的问题？

zhouxiuxin · 发表于 2011-10-5 20:59:44

我把全部捕捉都关掉了，还是不行，

谢谢楼上的，问题找到了，原来是原点的问题

我把原点移动了一下就可以了，

非常感谢。

zhouxiuxin · 发表于 2011-10-5 23:09:56

在GetEntity前加入以入语句错误就不存在了
ThisDrawing.SendCommand "ucs" & vbCr & "w" & vbCr
请问是什么原因呢？

账号		自动登录	找回密码
密码			注册

GetEntity无法获取选择点

本帖子中包含更多资源