将标注的线性标注比例设置为0.1

xxchemkin

使用lisp将CAD标注的线性标注比例设置为0.1

1. ;;;;;;;;=====将标注的线性标注比例设置为0.1
   
2. ;;;;剔除两边夹角标注、圆弧角度标注出选择集
   
3. (defun C:DD1 (/ ss1 ent sc i)
   
4.   (vl-load-com)
   
5.   (setq
   
6.     ss1        (ssget ":S:L"
   
7.                '(
   
8.                  (-4 . "<or")
   
9.                  (-4 . "<and")
   
10.                  (0 . "DIMENSION")
    
11.                  (-4 . "<and")
    
12.                  (-4 . "!=")
    
13.                  (70 . 34)
    
14.                  (-4 . "!=")
    
15.                  (70 . 37)
    
16.                  (-4 . "and>")
    
17.                  (-4 . "and>")
    
18.                  (-4 . "<and")
    
19.                  (0 . "ARC_DIMENSION")
    
20.                  (70 . 37)
    
21.                  (-4 . "and>")
    
22.                  (-4 . "or>")
    
23.                 )
    
24.         )
    
25.     sc        0.1
    
26.     i        0
    
27.   )
    
28.   (repeat (sslength ss1)
    
29.     (setq ent (vlax-ename->vla-object (ssname ss1 i)))
    
30.     (vla-put-linearscalefactor ent sc)
    
31.     (setq i (+ i 1))
    
32.   )
    
33.   ;;end repeat
    
34.   (princ)
    
35. )
    
36. ;;end defunction
    
37. 
    
38. 
    

;;;;;;;;=====将标注的线性标注比例设置为0.1<br /> ;;;;剔除两边夹角标注、圆弧角度标注出选择集<br /> (defun C:DD1 (/ ss1 ent sc i)<br />   (vl-load-com)<br />   (setq<br />     ss1        (ssget ":S:L"<br />                '(<br />                  (-4 . "<or")<br />                  (-4 . "<and")<br />                  (0 . "DIMENSION")<br />                  (-4 . "<and")<br />                  (-4 . "!=")<br />                  (70 . 34)<br />                  (-4 . "!=")<br />                  (70 . 37)<br />                  (-4 . "and>")<br />                  (-4 . "and>")<br />                  (-4 . "<and")<br />                  (0 . "ARC_DIMENSION")<br />                  (70 . 37)<br />                  (-4 . "and>")<br />                  (-4 . "or>")<br />                 )<br />         )<br />     sc        0.1<br />     i        0<br />   )<br />   (repeat (sslength ss1)<br />     (setq ent (vlax-ename->vla-object (ssname ss1 i)))<br />     (vla-put-linearscalefactor ent sc)<br />     (setq i (+ i 1))<br />   )<br />   ;;end repeat<br />   (princ)<br /> )<br /> ;;end defunction<br /> <br /> <br />