标注尺寸加减前后缀

848818376

哪位大侠帮忙编一个lsp，用于标注尺寸自定义前后缀，例如下图，前缀为：2-Φ，后缀：x10,总之可以选择标准尺寸后，可以添加前后缀，感谢帮忙

wx302008008

2. <div class="blockcode"><blockquote>(defun c:ttt ( / a ss n i qz hz qz0 hz0)
   
3. (setq a (getint "[1:标注添加前后缀 2：标注去除前缀 3：标注去除后缀]:" ))
   
4. (princ)
   
5. (cond
   
6.         ((= a 1)
   
7.                 (princ "选择需要添加前后缀的线性标注：")
   
8.         (princ)
   
9.         (setq ss (ssget '((0 . "DIMENSION")))
   
10.                    n (sslength ss)
    
11.                    i 0
    
12.         )
    
13.     (setq qz (getstring "输入要添加的前缀："))
    
14.     (if
    
15.             (= qz nil)
    
16.             (setq qz "")
    
17.     )
    
18.     (setq hz (getstring "输入要添加的后缀："))
    
19.     (if
    
20.             (= hz nil)
    
21.             (setq hz "")
    
22.     )
    
23.         (while (< i n)
    
24.                 (setq qz0 (Vlax-Get (Vlax-Ename->Vla-Object (ssname ss i)) 'TextPrefix )
    
25.                           hz0 (Vlax-Get (Vlax-Ename->Vla-Object (ssname ss i)) 'TextSuffix )
    
26.                 )
    
27.                 (Vlax-Put-Property (Vlax-Ename->Vla-Object (ssname ss i)) 'TextPrefix (if (= qz0 "") qz (strcat qz qz0)))
    
28.                 (Vlax-Put-Property (Vlax-Ename->Vla-Object (ssname ss i)) 'TextSuffix (if (= hz0 "") hz (strcat hz0 hz)))
    
29.             (setq i (+ i 1))
    
30.         )
    
31.         )
    
32.         ((= a 2)
    
33.                                 (princ "选择需要删除前缀的线性标注：")
    
34.         (princ)
    
35.         (setq ss (ssget '((0 . "DIMENSION")))
    
36.                    n (sslength ss)
    
37.                    i 0
    
38.         )
    
39.         (while (< i n)
    
40.                 (Vlax-Put-Property (Vlax-Ename->Vla-Object (ssname ss i)) 'TextPrefix "")
    
41.             (setq i (+ i 1))
    
42.         )
    
43.         )
    
44.         ((= a 3)
    
45.                                 (princ "选择需要删除后缀的线性标注：")
    
46.         (princ)
    
47.         (setq ss (ssget '((0 . "DIMENSION")))
    
48.                    n (sslength ss)
    
49.                    i 0
    
50.         )
    
51.         (while (< i n)
    
52.                 (Vlax-Put-Property (Vlax-Ename->Vla-Object (ssname ss i)) 'TextSuffix "")
    
53.             (setq i (+ i 1))
    
54.         )
    
55.         )
    
56. )
    
57. )

<div class="blockcode"><blockquote>(defun c:ttt ( / a ss n i qz hz qz0 hz0)<br /> (setq a (getint "[1:标注添加前后缀 2：标注去除前缀 3：标注去除后缀]:" ))<br /> (princ)<br /> (cond <br />         ((= a 1)<br />                 (princ "选择需要添加前后缀的线性标注：")<br />         (princ)<br />         (setq ss (ssget '((0 . "DIMENSION")))<br />                    n (sslength ss)<br />                    i 0<br />         )<br />     (setq qz (getstring "输入要添加的前缀："))<br />     (if <br />             (= qz nil)<br />             (setq qz "")<br />     )<br />     (setq hz (getstring "输入要添加的后缀："))<br />     (if <br />             (= hz nil)<br />             (setq hz "")<br />     )<br />         (while (< i n)<br />                 (setq qz0 (Vlax-Get (Vlax-Ename->Vla-Object (ssname ss i)) 'TextPrefix )<br />                           hz0 (Vlax-Get (Vlax-Ename->Vla-Object (ssname ss i)) 'TextSuffix )<br />                 )<br />                 (Vlax-Put-Property (Vlax-Ename->Vla-Object (ssname ss i)) 'TextPrefix (if (= qz0 "") qz (strcat qz qz0)))<br />                 (Vlax-Put-Property (Vlax-Ename->Vla-Object (ssname ss i)) 'TextSuffix (if (= hz0 "") hz (strcat hz0 hz)))<br />             (setq i (+ i 1))<br />         )<br />         )<br />         ((= a 2)<br />                                 (princ "选择需要删除前缀的线性标注：")<br />         (princ)<br />         (setq ss (ssget '((0 . "DIMENSION")))<br />                    n (sslength ss)<br />                    i 0<br />         )<br />         (while (< i n)<br />                 (Vlax-Put-Property (Vlax-Ename->Vla-Object (ssname ss i)) 'TextPrefix "")<br />             (setq i (+ i 1))<br />         )<br />         )<br />         ((= a 3)<br />                                 (princ "选择需要删除后缀的线性标注：")<br />         (princ)<br />         (setq ss (ssget '((0 . "DIMENSION")))<br />                    n (sslength ss)<br />                    i 0<br />         )<br />         (while (< i n)<br />                 (Vlax-Put-Property (Vlax-Ename->Vla-Object (ssname ss i)) 'TextSuffix "")<br />             (setq i (+ i 1))<br />         )<br />         )<br /> )<br /> )

KO你

848818376 发表于 2012-12-15 15:17
没人回复，我自己来咯，作者：明经 ZZXXQQ 2008.2.12

标注尺寸加减前后缀
怎么只有加，没有减？
建议加个对话框和记忆功能

菜鸟初来乍到

848818376 发表于 2012-12-15 15:17
没人回复，我自己来咯，作者：明经 ZZXXQQ 2008.2.12

感谢楼主分享

848818376

没人回复，我自己来咯，作者：明经 ZZXXQQ 2008.2.12

cheng714951554

怎么下载不了啊!

QJGUANBA

你怎么自问自答？

848818376

QJGUANBA 发表于 2016-1-18 14:27
你怎么自问自答？

在别处找到了

小熊-小熊-

顶，学习一下。

paulpipi

顶，学习一下。

00放飞梦想00

848818376 发表于 2018-3-26 21:22
在别处找到了

发上来看看

lxf20190917

学习一下，看看