VBA-绘图单位
如何将图形单位从默认设置为米（或任何其他可用单位）？我在“帮助”菜单上找不到我想要的信息。
如果你想看我的代码，有另一个线程名为VBA基础；由我创建。 寻找LUNITS、MEASUREINIT系统变量和SetVariable方法。
对不起，我现在完全是个笨蛋。这是我第一周的编程，我在工作量任务之间自学。
但是，您提到的用于AutoLISP的命令不是吗？
如果我在寻找做某事的最快方法，那么你会找到合适的方法。但目前我只是尽量熟悉VBA，直到我得到一些书籍和正式培训。
谢谢 以下代码将要求用户输入一个整数，以在UNITS中设置变量；然后，代码将INSUNITSDEFSOURCE和INSUNITSDEFTARGE变量设置为与输入值相同的整数值。
Option Explicit
Public Sub Example_SetVariable()
Dim retVal As String
Dim SysvarName As String
Dim sysVarData As Variant
Dim DataType As Integer
' Set INSUNITS system variable (data type Integer) to 6. NOTE that
' you need to declare a variable as the data type of system variable,
' assign data to that variable and then make it variant type
retVal = ThisDrawing.Utility.GetString _
(1, vbCrLf & "Enter the Value of InsUnits (This will also change InsUnitsDefSource & InsUnitsDefTarget to the same Value): ")
Dim intData As Integer
SysvarName = "INSUNITS"
intData = retVal
sysVarData = intData ' Integer data
ThisDrawing.SetVariable SysvarName, sysVarData
' Check the variable using GetVariable
sysVarData = ThisDrawing.GetVariable(SysvarName)
MsgBox SysvarName & " = " & sysVarData, , "SetVariable Example"
SysvarName = "INSUNITSDEFSOURCE"
ThisDrawing.SetVariable SysvarName, sysVarData
SysvarName = "INSUNITSDEFTARGET"
ThisDrawing.SetVariable SysvarName, sysVarData
End Sub
不确定这是否是你想要的；但它对阿斯米的评论进行了一些扩展。 例如：
ThisDrawing.SetVariable "LUNITS", 3
将其系统变量设置为3（工程单位）。
谢谢，我以为你在给我lisp命令，但我的经验不足。
再一次，我周一上班的时候会试试这些，谢谢你，
你知道哪本书最适合我学习VBA吗。
如果我是诚实的，我真的不明白当我设置为变量，字符串等。好的，我知道字符串是文本等，但我希望每个明确的定义，所以我不假设等。
有什么想法可以让我找到我需要的解释吗？
然后我可以回来给你们更高级的问题
我确实试过这个，但当我输入单位时，它总是设置为毫米。
查找INSUNITS变量。 谢谢，我终于到了。我只需要把你们说的话读两到三遍，然后我才会理解。
页:
[1]