(XD::Reference:GetGlobalScale)读取当前图纸的绘图比例

Lispboy

1. ;|
   
2. 读取图纸绘图比例值
   
3. |;
   
4. (defun XD::Reference:GetGlobalScale(/ ob scl val)
   
5.    (setq ob (xdrx_object_get "layer" "0"))
   
6.    (if (setq val (xdrx_object_getXrecord ob "GlobalScale"))
   
7.      val
   
8.      (progn
   
9.         (setq scl 1000)
   
10.         (xdrx_object_setXrecord ob "GlobalScale" 1000)
    
11.         1000
    
12.      )
    
13.    )
    
14. )
    
15. 
    

;|<br /> 读取图纸绘图比例值<br /> |;<br /> (defun XD::Reference:GetGlobalScale(/ ob scl val)<br />    (setq ob (xdrx_object_get "layer" "0"))<br />    (if (setq val (xdrx_object_getXrecord ob "GlobalScale"))<br />      val<br />      (progn<br />         (setq scl 1000)<br />         (xdrx_object_setXrecord ob "GlobalScale" 1000)<br />         1000<br />      )<br />    )<br /> )<br /> <br />

zhangq_cai1

1:100的比例用的最多，建议楼主默认值为100~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

ll120921

正需要，谢谢楼主，学习了

lifei18

这个程序很不错