设置图纸的绘图比例

Lispboy

1. ;|
   
2. 设置图纸的全局比例（保存到0层扩展词典的GlobalScale记录中）
   
3. 参数：
   
4.    val --- 比例值（整数或实数）
   
5. 
   
6. 设置成功返回T，否NIL
   
7. |;
   
8. (defun XD::Reference:SetGlobalScale (val / ob)
   
9.   (if (numberp val)
   
10.     (progn
    
11.        (setq ob (xdrx_object_get "layer" "0"))
    
12.        (xdrx_object_setXrecord ob "GlobalScale" (abs val))
    
13.     )
    
14.     nil
    
15.   )
    
16. )
    
17. 
    

;|<br /> 设置图纸的全局比例（保存到0层扩展词典的GlobalScale记录中）<br /> 参数：<br />    val --- 比例值（整数或实数）<br /> <br /> 设置成功返回T，否NIL<br /> |;<br /> (defun XD::Reference:SetGlobalScale (val / ob)<br />   (if (numberp val)<br />     (progn<br />        (setq ob (xdrx_object_get "layer" "0"))<br />        (xdrx_object_setXrecord ob "GlobalScale" (abs val))<br />     )<br />     nil<br />   )<br /> )<br /> <br />

st788796

(xdrx_object_setXrecord ob "GlobalScale" val)
这句话难道不返回 T ，还要 progn + T ？

很多时候还有个 所谓 M mm 区别

zxq0220

判断太复杂，直接用函数(numberp val)就行

Lispboy

zxq0220 发表于 2013-8-30 07:33
判断太复杂，直接用函数(numberp val)就行

有道理，修改了，并把数取绝对值了。

Lispboy

st788796 发表于 2013-8-29 21:29
(xdrx_object_setXrecord ob "GlobalScale" val)
这句话难道不返回 T ，还要 progn + T ？

也是，开始主要是明确强调下返回值。修改了。

金鹅起飞

请问楼主：快捷键是什么呀？

721118231

喜爱看来学习

[山]暧琳琳

来学习一下

windowns456

来学习一下

windowns456

没看懂·····