如何自定义制定尺寸的上下限公差

qinleilei

假如有很多尺寸，我想要指定其中几个尺寸带有公差，该如何制作lsp？高手帮我写一下好不，按照下面的思路  感激不敬！
输入命令 →  输入公差上限  →  输入公差下限   →   框选需要增加公差的尺寸。回车OK 效果如下图

ZZXXQQ

2. (defun c:tt ()
   
3. (if (and (setq t1 (getstring "\n上偏差: "))
   
4.           (setq t2 (getstring "\n下偏差: "))
   
5.           (princ "\n选择尺寸: ")
   
6.           (setq ss (ssget '((0 . "DIMENSION"))))) (progn
   
7.   (setq txt (strcat "<>{\\H0.7x;\\S" t1 "^" t2 ";}"))
   
8.   (repeat (setq i (sslength ss))
   
9.    (setq ent (entget(ssname ss (setq i (1- i)))))
   
10.    (entmod (subst (cons 1 txt) (assoc 1 ent) ent))
    
11.   )
    
12. ))
    
13. (princ)
    
14. )
    

(defun c:tt ()<br /> (if (and (setq t1 (getstring "\n上偏差: "))<br />           (setq t2 (getstring "\n下偏差: "))<br />           (princ "\n选择尺寸: ")<br />           (setq ss (ssget '((0 . "DIMENSION"))))) (progn<br />   (setq txt (strcat "<>{\\H0.7x;\\S" t1 "^" t2 ";}"))<br />   (repeat (setq i (sslength ss))<br />    (setq ent (entget(ssname ss (setq i (1- i)))))<br />    (entmod (subst (cons 1 txt) (assoc 1 ent) ent))<br />   )<br /> ))<br /> (princ)<br /> )<br />

qinleilei

ZZXXQQ 发表于 2014-8-8 20:31

很感谢楼上的解答，虽然不是很理想。
其实我想的是下图这种效果，不是单纯的在标注上面加上后缀。

qinleilei

好冷清额,谁能帮我看下

xhq1954425

你根据版主给的程序改动一下就能实现你所要的东西

xhq1954425

版主为你提供的是一种方法，你要通过研究明白，再为你所用，生搬硬套可能不好用

SunSpring

1. (defun c:tt ()
   
2.   (defun vla-ssname (ss index)
   
3.     (vlax-ename->vla-object (ssname ss index))
   
4.   )
   
5.   (if (and
   
6.   (setq t1 (getstring "\n上偏差: "))
   
7.   (setq t2 (getstring "\n下偏差: "))
   
8.   (princ "\n选择尺寸: ")
   
9.   (setq ss (ssget '((0 . "DIMENSION"))))
   
10.       )
    
11.     (progn
    
12.       (repeat (setq i (sslength ss))
    
13.   (setq vobj (vla-ssname ss (setq i (1- i))))
    
14.   (vla-put-ToleranceDisplay vobj acTolDeviation)
    
15.   (vla-put-ToleranceUpperLimit vobj t1)
    
16.   (vla-put-ToleranceLowerLimit vobj t2)
    
17.       )
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )

(defun c:tt ()<br />   (defun vla-ssname (ss index)<br />     (vlax-ename->vla-object (ssname ss index))<br />   )<br />   (if (and<br />   (setq t1 (getstring "\n上偏差: "))<br />   (setq t2 (getstring "\n下偏差: "))<br />   (princ "\n选择尺寸: ")<br />   (setq ss (ssget '((0 . "DIMENSION"))))<br />       )<br />     (progn<br />       (repeat (setq i (sslength ss))<br />   (setq vobj (vla-ssname ss (setq i (1- i))))<br />   (vla-put-ToleranceDisplay vobj acTolDeviation)<br />   (vla-put-ToleranceUpperLimit vobj t1)<br />   (vla-put-ToleranceLowerLimit vobj t2)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

这样应该就可以了.

dhy

能把上次的输入数据记忆下来就完美了

qinleilei

xhq1954425 发表于 2014-8-10 13:54
你根据版主给的程序改动一下就能实现你所要的东西……例如：

(defun c:tt ()

版主的是在尺寸里面加后缀的，而我需要的是尺寸附有公差，可以从特性工具里面看得出来。另外版主那个函数 (setq txt (strcat "<>\H0.7x;\S" t1 "^" t2 ";"))  txt的变量值丢失了字符 "\"  标出来的效果如下图

qinleilei

SunSpring 发表于 2014-8-10 14:54
这样应该就可以了.

太感谢你了！这正是我所想要的效果。你的代码我还看不懂，不过没关系