如何获得当前图纸比例VBA

amiltx · 发表于 2007-11-3 18:03:10

提示: 作者被禁止或删除内容自动屏蔽

hailucc · 发表于 2007-11-4 01:02:28

用天河吧，图纸比例直接在绘图软件的标题栏中显示的。

amiltx · 发表于 2007-11-4 13:30:45

提示: 作者被禁止或删除内容自动屏蔽

woaishuijia · 发表于 2008-2-2 15:33:52

用GetCustomScale方法，参见下面例程：

Sub PS()
Dim M As Double, N As Double, P(2) As Double
With ThisDrawing
      .ActiveLayout.GetCustomScale M, N
      If .ActiveSpace = acModelSpace Then
         .ModelSpace.AddText M & ":" & N, P, 10
      Else
         .PaperSpace.AddText M & ":" & N, P, 10
      End If
End With
End Sub

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

通知

[已答复] 如何获得当前图纸比例VBA

浏览过的版块

amiltx amiltx 当前离线积分 493 UID 286671 主题在线时间小时注册时间 2007-4-11 头像被屏蔽	发表于 2007-11-3 18:03:10 \| 显示全部楼层 \|阅读模式来自：中国北京提示: 作者被禁止或删除内容自动屏蔽

	回复举报

amiltx amiltx 当前离线积分 493 UID 286671 主题在线时间小时注册时间 2007-4-11 头像被屏蔽	楼主\| 发表于 2007-11-4 13:30:45 \| 显示全部楼层来自：中国北京提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对举报