尺寸标注文字的替换

lch8526

请大虾帮忙用LISP编一个程序
程序要求先检测尺寸的内容，然后用指定的文字把它替换。例如尺寸内容如果是“14”则用“M8沉头”把它替换，如果是“18”则用“M10沉头”把它替换等等。

newer

M8沉头 这些哪来，你自己输入吗？

st788796

自己写个对应表

lch8526

newer 发表于 2014-11-6 16:18
M8沉头 这些哪来，你自己输入吗？

M8沉头把14替换

lch8526

如图所示。。。。。。。。。。。

lch8526

为什么我上传的图片没了？

st788796

lch8526 发表于 2014-11-6 16:51
为什么我上传的图片没了？

1. (defun c:tt (/ ss)
   
2.   (if (setq ss (ssget '((0 . "dimension"))))
   
3.     (mapcar '(lambda (x / str)
   
4.                (if (setq str
   
5.                           (cadr
   
6.                             (assoc (xdrx_getpropertyvalue x "dimensiontext")
   
7.                                    '(("14" "M8沉头"));_自己往里加
   
8.                             )
   
9.                           )
   
10.                    )
    
11.                  (xdrx_setpropertyvalue x "dimensiontext" str)
    
12.                )
    
13.              )
    
14.             (xdrx_pickset->ents ss)
    
15.     )
    
16.   )
    
17.   (princ)
    
18. )

(defun c:tt (/ ss)<br />   (if (setq ss (ssget '((0 . "dimension"))))<br />     (mapcar '(lambda (x / str)<br />                (if (setq str<br />                           (cadr<br />                             (assoc (xdrx_getpropertyvalue x "dimensiontext")<br />                                    '(("14" "M8沉头"));_自己往里加<br />                             )<br />                           )<br />                    )<br />                  (xdrx_setpropertyvalue x "dimensiontext" str)<br />                )<br />              )<br />             (xdrx_pickset->ents ss)<br />     )<br />   )<br />   (princ)<br /> )

newer

lch8526 发表于 2014-11-6 16:51
为什么我上传的图片没了？

你没传对呗。

lch8526

st788796 发表于 2014-11-6 16:57

我刚试了，你这个程序不行啊。点击尺寸后出现错误

st788796

lch8526 发表于 2014-11-6 17:34
我刚试了，你这个程序不行啊。点击尺寸后出现错误

1  尺寸必须是 文字替代 的
2 加载 xdrxapi

lch8526

st788796 发表于 2014-11-6 17:35
1  尺寸必须是 文字替代 的
2 加载 xdrxapi

怎样加载xdrxapi

lch8526

lch8526

如图所示

XDSoft

lch8526 发表于 2014-11-6 17:38
怎样加载xdrxapi

看我签名 和 论坛置顶的帖子。

zxq0220

2. (defun c:tt ()
   
3. (setq dimlst '((4 1.6) (4.8 2) (5.5 2.5) (6.5 3) (8 4) (9.5 5) (11 6)
   
4. (14 8) (17 10) (20 12) (26 16) (32 20) (38 24) (47 30) (56 36)))
   
5. (if (setq ss (ssget '((0 . "DIMENSION"))))
   
6. (repeat (setq i (sslength ss))
   
7.   (setq ent (entget(ssname ss (setq i (1- i)))))
   
8.   (setq di (cdr(assoc 42 ent)))
   
9.   (setq i 0)
   
10.   (foreach x dimlst (if (< di (car x)) (setq i (1+ i))))
    
11.   (setq dim (strcat "M" (rtos (cadr(nth i dimlst)) 2) "沉头"))
    
12.   (entmod (subst (cons 1 dim) (assoc 1 ent) ent))
    
13. )
    
14. )
    
15. (princ)
    
16. )
    

(defun c:tt ()<br /> (setq dimlst '((4 1.6) (4.8 2) (5.5 2.5) (6.5 3) (8 4) (9.5 5) (11 6)<br /> (14 8) (17 10) (20 12) (26 16) (32 20) (38 24) (47 30) (56 36)))<br /> (if (setq ss (ssget '((0 . "DIMENSION"))))<br /> (repeat (setq i (sslength ss))<br />   (setq ent (entget(ssname ss (setq i (1- i)))))<br />   (setq di (cdr(assoc 42 ent)))<br />   (setq i 0)<br />   (foreach x dimlst (if (< di (car x)) (setq i (1+ i))))<br />   (setq dim (strcat "M" (rtos (cadr(nth i dimlst)) 2) "沉头"))<br />   (entmod (subst (cons 1 dim) (assoc 1 ent) ent))<br /> )<br /> )<br /> (princ)<br /> )<br />