dim dblDimScale
dblDImSCale=此图纸。Getvariable“DIMSCALE”
如果dblDimscale 100，则
此图纸。setVarialble“DIMSCALE”，100
其他的
......
或者像这样的
你可以查看你的空间，然后根据这个改变比例。这是我用来检查空间的
'查看用户是否在模型空间或图纸空间中
Dim blnWhichSpace作为布尔值
如果此图纸。那么ActiveSpace
blnWhichSpace=True
其他的
blnWhichSpace=此图纸。MSpace
如果结束
那么我放置对象的代码是（在本例中为block）
如果blnWhichSpace那么
设置Handle2use=ThisDrawing。模型空间。插入块（HandleLocPT、BlkName、Xscale、Yscale、Zscale、Blkrote）
其他的
设置Handle2use=ThisDrawing。纸张空间。插入块（HandleLocPT、BlkName、Xscale、Yscale、Zscale、Blkrote）
如果结束 当我需要标注尺寸时，我应该知道根据经验使用的正确尺寸比例。设置正确的dimscale不应该是火箭科学。我的程序也在lisp中，正如我提到的，我不在VBA中编程。如果你能帮我解决这个问题，我更愿意站在一边。我只是尽力帮你。
页:
1
[2]