如何把全局比例因子ltscale复制到其他dwg里

shh_188

我要在当前打开的dwg里，读取ltscale的值。
然后，要把这个值发送到其他的dwg里。

不知道VisualLisp里该怎么去读取和写入，向大家请教！

nzl1116

vl-bb-set vl-bb-ref

自贡黄明儒

(vl-propagate 'HH:MyNameis)

shh_188

自贡黄明儒 发表于 2015-4-24 13:06
(vl-propagate 'HH:MyNameis)

其实不止是要把某个变量继承到其他dwg里

之前一直用vlax-dump-object在查这个值，就是不知道在什么地方
如果有知道的话，也请吼一下，这个全局比例因子是在哪个位置查到的

自贡黄明儒

dimscale?
是要 这个吗？
(getvar 'ltscale)

shh_188

自贡黄明儒 发表于 2015-4-24 13:22
dimscale?
是要 这个吗？

是你第2个截屏里线型的比例，也就是要读取和修改ltscale得到的值

自贡黄明儒

shh_188 发表于 2015-4-24 13:25
是你第2个截屏里线型的比例，也就是要读取和修改ltscale得到的值

(vlax-get (vlax-ename->vla-object(car(entsel))) 'Linetypescale)

shh_188

自贡黄明儒 发表于 2015-4-24 15:51
(vlax-get (vlax-ename->vla-object(car(entsel))) 'Linetypescale)

不是某个图元对象的线型比例，是整个dwg的ltscale比例
就是系统变量ltscale，怎么在VisualLisp里设置

shh_188

我已经找到方法了，有点讨巧

这样可以获取某个文件的ltscale值，这里是以当前文件为例
(vlax-variant-value (vlax-invoke-method (vla-get-ActiveDocument (vlax-get-acad-object)) "GetVariant" "ltscale"))

假设新值是1000，那么设置的方法就是
(vlax-invoke-method (vla-get-ActiveDocument (vlax-get-acad-object)) "SetVariant" "ltscale" 1000)

主要就是利用VisualLisp里自带的GetVariant和SetVariant方法来对系统变量进行操作。
如果有其他系统变量需要操作，大家也就可以采用这种方法了～

qjchen

shh_188 发表于 2015-4-28 12:11
我已经找到方法了，有点讨巧

这样可以获取某个文件的ltscale值，这里是以当前文件为例

(getvar"ltscale")  
如何