乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 87|回复: 4

GetEntity无法获取选择点

[复制链接]

1

主题

5

帖子

2

银币

初来乍到

Rank: 1

铜币
9
发表于 2011-10-4 23:32:00 | 显示全部楼层 |阅读模式
Dim pt As Variant
   Dim En As AcadEntity
   ThisDrawing.Utility.GetEntity En, pt, "请选择圆弧:"
   ThisDrawing.ModelSpace.AddLine En.Center, pt

le34nhfg4mv.jpg

le34nhfg4mv.jpg


[attach]test.dwg[/attach]
[attach]test.dvb[/attach]
我用GetEntity命令选择青色色圆弧,
选择时点选A点附近,但实际并没有得到A点
而是返回了一个错误的点,正确结果应该为红色连线,而实际得到蓝色连线
这个问题只有我的附件的文档中有,如果把图档中的图元拷到
一个新建的文档也不会存在这个问题,请帮我看看
我用圆弧圆心与A点画一直线做了一个测试

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

47

主题

398

帖子

10

银币

中流砥柱

Rank: 25

铜币
586
发表于 2011-10-5 12:51:00 | 显示全部楼层
是不是捕捉变量设置问题。一般出现这种情况都是如此,初学者往往忘记这些设置。你的CAD是什么版本的?我的2006不能打开
回复

使用道具 举报

13

主题

113

帖子

8

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
166
发表于 2011-10-5 18:04:00 | 显示全部楼层
有没有可能是坐标系的问题?
回复

使用道具 举报

1

主题

5

帖子

2

银币

初来乍到

Rank: 1

铜币
9
发表于 2011-10-5 20:59:00 | 显示全部楼层
我把全部捕捉都关掉了,还是不行,
谢谢楼上的,问题找到了,原来是原点的问题
我把原点移动了一下就可以了,
非常感谢。
回复

使用道具 举报

1

主题

5

帖子

2

银币

初来乍到

Rank: 1

铜币
9
发表于 2011-10-5 23:09:00 | 显示全部楼层
在GetEntity前加入以入语句错误就不存在了
ThisDrawing.SendCommand "ucs" & vbCr & "w" & vbCr
请问是什么原因呢?
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-6-30 16:58 , Processed in 1.429602 second(s), 68 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表