【AutoCAD二次开发】第十节系统变量的使用

时间：2020-01-03 08:11 作者：AcadApp 阅读：1146 评论：1

Windows10

其他

CASS9

'第十节系统变量的使用
Sub GetScale() '读取比例尺
MsgBox ThisDrawing.Application.ActiveDocument.GetVariable("USERR1")
End Sub
Sub SetScale() '设置比例尺为1:500
ThisDrawing.Application.ActiveDocument.SetVariable "USERR1", 500
ThisDrawing.Application.ActiveDocument.SetVariable "LTSCALE", 0.5
End Sub

全部评论

等级:LV30

积分:49979

奔跑蜗牛 2020-01-03 08:55

😁

1

【AutoCAD二次开发】第十节 系统变量的使用

【AutoCAD二次开发】第十节系统变量的使用