VBA和dimscale

RickyD302 · 发表于 2022-7-6 16:16:54

难道你不想得到dimscale，看看它是什么，如果不是你想要的改变它吗？

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）
如果结束

The Buzzard · 发表于 2022-7-6 16:21:58

当我需要标注尺寸时，我应该知道根据经验使用的正确尺寸比例。设置正确的dimscale不应该是火箭科学。我的程序也在lisp中，正如我提到的，我不在VBA中编程。如果你能帮我解决这个问题，我更愿意站在一边。我只是尽力帮你。

[编程交流] VBA和dimscale

发表回复

精选推荐