【KAIXIN】----通用函数,跟贴伪源码

AbnerXk

顶顶~~~谢谢分享~~

gwpgc

顶，强烈支持。

参股银行

支持楼主无私献身精神

【KAIXIN】

2. ;标注文本归原始位，作者：【KAIXIN】，QQ：295963716
   
3. ;本程序需要KAIXIN通用函数的支持
   
4. (DEFUN C:XX (/ SS I S1)
   
5. (KX-COMA)
   
6. (KX-princA "标注文本归原始位")
   
7.       (KX-PRINC "标注对象")
   
8.   (setq        ss (ssget '((0 . "*DIMENSION")))
   
9.         i  -1
   
10.   )
    
11.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
12.     (if        (> (KX-get-DXF 70 s1) 32)
    
13.       (command "dim" "home" (list s1 '(0 0 0)) "" "exit")
    
14.     )
    
15.   )
    
16. (KX-COMB)
    
17. )
    

;标注文本归原始位，作者：【KAIXIN】，QQ：295963716<br /> ;本程序需要KAIXIN通用函数的支持<br /> (DEFUN C:XX (/ SS I S1)<br /> (KX-COMA)<br /> (KX-princA "标注文本归原始位")<br />       (KX-PRINC "标注对象")<br />   (setq        ss (ssget '((0 . "*DIMENSION")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (if        (> (KX-get-DXF 70 s1) 32)<br />       (command "dim" "home" (list s1 '(0 0 0)) "" "exit")<br />     )<br />   )<br /> (KX-COMB)<br /> )<br />

726613

感谢版主分享精华

Michael527

回复看看有些什么

qianzj

哇   一看就是好东西            

【KAIXIN】

2. ;尺寸文本修改，作者：【KAIXIN】，QQ：295963716
   
3. ;本程序需要KAIXIN通用函数的支持
   
4. (DEFUN C:XX ( / a)
   
5. (KX-COMA)
   
6. (KX-princA "尺寸文本修改")
   
7.     (setq a (KX-str 1 "你要的内容" a nil "KX"))
   
8.       (KX-PRINC "标注")
   
9.    (KX-PUT-DXF (SSGET) 1 a)
   
10. (KX-COMB)
    
11. )
    

;尺寸文本修改，作者：【KAIXIN】，QQ：295963716<br /> ;本程序需要KAIXIN通用函数的支持<br /> (DEFUN C:XX ( / a)<br /> (KX-COMA)<br /> (KX-princA "尺寸文本修改")<br />     (setq a (KX-str 1 "你要的内容" a nil "KX"))<br />       (KX-PRINC "标注") <br />    (KX-PUT-DXF (SSGET) 1 a) <br /> (KX-COMB)<br /> )<br />

kelingzhi

支持你　　无条件

蔡__洛

能否不收 币币啊？ 55555 从开始到现在始终只有一个！