【标注】标注取整

marting

1. (defun c:xdtb_dimrnd ( / ss v)
   
2.   (if (and (xdrx-initssget "\n请选择尺寸值要取整的尺寸标注<退出>:")
   
3.            (setq ss (xdrx-ssget '((0 . "*dimension"))))
   
4.       )
   
5.     (progn (xdrx-initget "1 2 3 4 5")
   
6.            (if (not #xd-var-global-dimrnd)
   
7.              (setq #xd-var-global-dimrnd 1)
   
8.            )
   
9.            (if (setq
   
10.                  v (getkword (xdrx-prompt
    
11.                                "\n输入取整值[1(1)/5(2)/10(3)/50(4)/100(5)]<"
    
12.                                #xd-var-global-dimrnd
    
13.                                ">:"
    
14.                                t
    
15.                              )
    
16.                    )
    
17.                )
    
18.              (setq #xd-var-global-dimrnd v)
    
19.            )
    
20.            (cond ((= #xd-var-global-dimrnd "1") (setq v 1.0))
    
21.                  ((= #xd-var-global-dimrnd "2") (setq v 5.0))
    
22.                  ((= #xd-var-global-dimrnd "3") (setq v 10.0))
    
23.                  ((= #xd-var-global-dimrnd "4") (setq v 50.0))
    
24.                  ((= #xd-var-global-dimrnd "5") (setq v 100.0))
    
25.                  (t (setq v 1.0))
    
26.            )
    
27.            (xdrx-entity-setproperty ss "dimrnd" v)
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )
    
32. 
    

(defun c:xdtb_dimrnd ( / ss v)<br />   (if (and (xdrx-initssget "\n请选择尺寸值要取整的尺寸标注<退出>:")<br />            (setq ss (xdrx-ssget '((0 . "*dimension"))))<br />       )<br />     (progn (xdrx-initget "1 2 3 4 5")<br />            (if (not #xd-var-global-dimrnd)<br />              (setq #xd-var-global-dimrnd 1)<br />            )<br />            (if (setq<br />                  v (getkword (xdrx-prompt<br />                                "\n输入取整值[1(1)/5(2)/10(3)/50(4)/100(5)]<"<br />                                #xd-var-global-dimrnd<br />                                ">:"<br />                                t<br />                              )<br />                    )<br />                )<br />              (setq #xd-var-global-dimrnd v)<br />            )<br />            (cond ((= #xd-var-global-dimrnd "1") (setq v 1.0))<br />                  ((= #xd-var-global-dimrnd "2") (setq v 5.0))<br />                  ((= #xd-var-global-dimrnd "3") (setq v 10.0))<br />                  ((= #xd-var-global-dimrnd "4") (setq v 50.0))<br />                  ((= #xd-var-global-dimrnd "5") (setq v 100.0))<br />                  (t (setq v 1.0))<br />            )<br />            (xdrx-entity-setproperty ss "dimrnd" v)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

vlisp2012

Thx for sharing.

kmliro_2017

谢谢分享！！！！！

M·R

谢谢分享。。。。。

LXH刚开始

真羡慕你们，还可以这样，我们需要精确到0.01毫米。

yaojing38

谢谢分享，，很实用