[求助]：请问vba下如何得到选中元素的坐标??

ldbxt · 发表于 2004-8-16 19:05:21

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

用Dim enumerator As ElementEnumerator
Set enumerator = ActiveModelReference.Scan(scanCriteria)
取得元素集之后,如何能得到单个元素的具体坐标???谢谢!!

MicroStation迷 · 发表于 2004-8-17 11:24:03

Dim oEle As Element
Do While enumerator.MoveNext
         Set oEle = enumerator.Current
         '根据oEle的类型来提取其坐标点
   Select Case oEle.Type
         Case msdElementTypeLine
               ' oEle.StartPoint, oEle.EndPoint就是你要的线的坐标点
         Case msdElementTypeLineString

         Case msdElementTypeShape

         Case msdElementTypeArc

         Case msdElementTypeEllipse

         End Select
Loop

ldbxt · 发表于 2004-8-17 15:01:43

谢谢,我马上试试看!

怎么oEle没有StartPoint成员啊?

哦,要用oele.asLineElement.StartPoint

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

[求助]：请问vba下如何得到选中元素的坐标??

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子