乐筑天下

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

请问如何获得标注的起点和终点坐标,除了DimAligned那个。谢谢!

[复制链接]

1

主题

3

帖子

1

银币

初来乍到

Rank: 1

铜币
7
发表于 2006-2-20 12:30:00 | 显示全部楼层 |阅读模式
请问如何获得标注的起点和终点坐标,除了DimAligned那个。谢谢!
回复

使用道具 举报

2

主题

9

帖子

1

银币

初来乍到

Rank: 1

铜币
17
发表于 2006-2-23 16:49:00 | 显示全部楼层
Dim PtPick As Variant
dim pstar(0 to 1),  pend(0 to 1), as double
    userform1.Hide
  MsgBox ("选择起点" )
       PtPick = ThisDrawing.Utility.GetPoint(, "选择起点")           
'这个时候你也可以给你的变量值
   pstar(0)=PtPick(0)
   pstar(1)=PtPick(1)
MsgBox ("选择终点" )
       PtPick = ThisDrawing.Utility.GetPoint(, "选择终点")
'这个时候你也可以给你的变量值
   pend(0)=PtPick(0)
   pend(1)=PtPick(1)
  userform1.show
你还可以试试其他的方法,也可以吧坐标值直接显示在你的窗体的文本内,语句想应改变就可以了!
回复

使用道具 举报

6

主题

31

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
55
发表于 2006-2-24 11:37:00 | 显示全部楼层
利用VBA如何控制线性标注文字的具体位置?如标注距离小,文字不能放到尺寸界线内,只能放在外边,能不能控制其放置的具体位置?
回复

使用道具 举报

1

主题

3

帖子

1

银币

初来乍到

Rank: 1

铜币
7
发表于 2006-2-27 22:41:00 | 显示全部楼层
好的
  非常感谢!
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-5 06:25 , Processed in 0.549040 second(s), 61 queries .

© 2020-2025 乐筑天下

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