【标注】缩放原值

marting

1. (defun c:xdtb_dimscl (/ ss)
   
2.   (xdrx-begin)
   
3.   (xd::doc:getdouble
   
4.     "\n标注对象缩放系数"
   
5.     "#xd-var-global-dimlfac"
   
6.     1.0
   
7.   )
   
8.   (if (setq ss (xdrx-ssget "\n选择标注对象<退出>:" '((0 . "dimen*"))))
   
9.     (progn
   
10.       (mapcar
    
11.         '(lambda (x)
    
12.            (xdrx-setpropertyvalue x "dimlfac" #xd-var-global-dimlfac)
    
13.          )
    
14.         (xdrx-pickset->ents ss)
    
15.       )
    
16.       (xdrx-prompt
    
17.         "\n搜索范围内内, "
    
18.         (sslength ss)
    
19.         " 个标注值按 "
    
20.         #xd-var-global-dimlfac
    
21.         " 倍缩放."
    
22.       )
    
23.     )
    
24.   )
    
25.   (princ)
    
26. )
    
27. 
    

(defun c:xdtb_dimscl (/ ss)<br />   (xdrx-begin)<br />   (xd::doc:getdouble<br />     "\n标注对象缩放系数"<br />     "#xd-var-global-dimlfac"<br />     1.0<br />   )<br />   (if (setq ss (xdrx-ssget "\n选择标注对象<退出>:" '((0 . "dimen*"))))<br />     (progn<br />       (mapcar<br />         '(lambda (x)<br />            (xdrx-setpropertyvalue x "dimlfac" #xd-var-global-dimlfac)<br />          )<br />         (xdrx-pickset->ents ss)<br />       )<br />       (xdrx-prompt<br />         "\n搜索范围内内, "<br />         (sslength ss)<br />         " 个标注值按 "<br />         #xd-var-global-dimlfac<br />         " 倍缩放."<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

kmliro_2017

谢谢分享！！！！

singa

这个不错，谢谢分享！

既然青春留不住