标注内容修改

lch8526

请问如何用LISP程序修改直径标注和线性标注？就像燕秀工具箱里面的螺纹标注那样
例如：直径标注为Ф10时，改为M10。线性标注为10时，改为M10。
步骤：选中标注->判断是直径标注还是线性标注->如果是直径标注则只要数值并在前面加M，如果是线性标注则直接在前面加M。
由于能力有限，不知道怎样去读取标注的测量值。

iLisp

建立$3标注样式，增加M前缀即可

lch8526

我知道这样可以，但我有时候要在前面加数量的，这样不方便

iLisp

vla-get-measurement

lch8526

那位大虾能写个LISP程序来学习一下

amwkto2011

1. (defun c:tt(/ eL et as rt)
   
2.   (and (setq eL (entsel "\n选择标注:"))
   
3.        (progn
   
4.        (setq et (entget (car eL)))
   
5.        (setq as (cdr (assoc 70 et)))
   
6.        (if (or (= as 32) (= as 33) (= as 35))
   
7.        (progn
   
8.        (setq rt (strcat "M" (rtos (cdr (assoc 42 et))2 2)))
   
9.        (entmod (subst (cons 1 rt) (assoc 1 et) et))
   
10.        );pr
    
11.     (alert "\n标注类型错误，请重新选择")
    
12.        );if
    
13.        ))
    
14.   (princ)
    
15.   )

(defun c:tt(/ eL et as rt)<br />   (and (setq eL (entsel "\n选择标注:"))<br />        (progn<br />        (setq et (entget (car eL)))<br />        (setq as (cdr (assoc 70 et)))<br />        (if (or (= as 32) (= as 33) (= as 35))<br />        (progn<br />        (setq rt (strcat "M" (rtos (cdr (assoc 42 et))2 2)))<br />        (entmod (subst (cons 1 rt) (assoc 1 et) et))<br />        );pr<br />     (alert "\n标注类型错误，请重新选择")<br />        );if<br />        ))<br />   (princ)<br />   )

zxq0220

2. (defun c:tt ()
   
3. (if (setq ss (ssget '((0 . "DIMENSION")(-4 . "<OR")(70 . 32)(70 . 33)(70 . 163)(-4 . "OR>"))))
   
4.   (repeat (setq i (sslength ss))
   
5.    (setq ent (entget(ssname ss (setq i (1- i)))))
   
6.    (setq txt (cdr(assoc 1 ent)))
   
7.    (if (or (= txt "") (wcmatch txt "*<>"))
   
8.     (setq txt "<>")
   
9.    )
   
10.    (if (and (wcmatch txt "*<>") (= (cdr(assoc 70 ent)) 163))
    
11.     (setq txt (rtos(cdr(assoc 42 ent)) 2))
    
12.    )
    
13.    (if (not(wcmatch txt "M*"))
    
14.     (entmod (subst (cons 1 (strcat "M" txt)) (assoc 1 ent) ent))
    
15.    )
    
16.   )
    
17. )
    
18. (princ)
    
19. )
    

(defun c:tt ()<br /> (if (setq ss (ssget '((0 . "DIMENSION")(-4 . "<OR")(70 . 32)(70 . 33)(70 . 163)(-4 . "OR>"))))<br />   (repeat (setq i (sslength ss))<br />    (setq ent (entget(ssname ss (setq i (1- i)))))<br />    (setq txt (cdr(assoc 1 ent)))<br />    (if (or (= txt "") (wcmatch txt "*<>"))<br />     (setq txt "<>")<br />    )<br />    (if (and (wcmatch txt "*<>") (= (cdr(assoc 70 ent)) 163))<br />     (setq txt (rtos(cdr(assoc 42 ent)) 2))<br />    )<br />    (if (not(wcmatch txt "M*"))<br />     (entmod (subst (cons 1 (strcat "M" txt)) (assoc 1 ent) ent))<br />    )<br />   )<br /> )<br /> (princ)<br /> )<br />

革天明

amwkto2011 发表于 2015-1-5 18:32

请问标注的(70 . 32)、(70 . 33)、(70 . 35)组码的意义是什么，还有遇到了(70 . 160)这样的

iLisp

128 + 32 128是补码