尺寸标注文字的替换

lch8526

zxq0220 发表于 2014-11-6 20:08

大虾，谢谢你。为什么我放进CAD的改标注的时候尺寸对应不上相对的沉头？麻烦你再帮我改一下好吗？谢谢

lch8526

zxq0220 发表于 2014-11-6 20:08

终于找到问题在哪里啦，把“<”改为“>”就好了

zxq0220

lch8526 发表于 2014-11-7 08:30
大虾，谢谢你。为什么我放进CAD的改标注的时候尺寸对应不上相对的沉头？麻烦你再帮我改一下好吗？谢谢

不知道你为什么不行。上传个调试图吧。

lch8526

zxq0220 发表于 2014-11-7 09:03
不知道你为什么不行。上传个调试图吧。

已经改好了，谢谢你的帮忙

ll_j

我也在zxq的基础上改了一个，可以兼顾非自动标注。

1. (defun c:tt (/ ent i ss d1 d42 dm dimlst)
   
2.   (setq dimlst '((4 1.6)
   
3.                  (4.8 2)
   
4.                  (5.5 2.5)
   
5.                  (6.5 3)
   
6.                  (8 4)
   
7.                  (9.5 5)
   
8.                  (11 6)
   
9.                  (14 8)
   
10.                  (17 10)
    
11.                  (20 12)
    
12.                  (26 16)
    
13.                  (32 20)
    
14.                  (38 24)
    
15.                  (47 30)
    
16.                  (56 36)
    
17.                 )
    
18.   )
    
19.   (if (setq ss (ssget '((0 . "DIMENSION"))))
    
20.     (progn
    
21.       (setq i 0)
    
22.       (repeat (sslength ss)
    
23.         (setq ent (entget (ssname ss i))
    
24.               d1  (cdr (assoc 1 ent))
    
25.               d42 (cdr (assoc 42 ent))
    
26.               i   (1+ i)
    
27.         )
    
28.         (if (/= d1 "")
    
29.           (setq dm (cadr (assoc (atof d1) dimlst)))
    
30.           (setq dm (cadr (assoc d42 dimlst)))
    
31.         )
    
32.         (setq dm (strcat "M" (rtos dm 2) "沉头"))
    
33.         (entmod (subst (cons 1 dm) (assoc 1 ent) ent))
    
34.       )
    
35.     )
    
36.   )
    
37.   (princ)
    
38. )

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

iLisp

都是同行？这么熟悉:)

lch8526

zxq0220 发表于 2014-11-7 09:03
不知道你为什么不行。上传个调试图吧。

你这个程序还是有点问题，我把“<”改为“>”后，改直径标注，有时候正确有时候不正确，不知道是什么原因

lch8526

ll_j 发表于 2014-11-7 09:19
我也在zxq的基础上改了一个，可以兼顾非自动标注。

谢谢你的程序，但你这个程序只可以改线性标注，改不是直径标注，希望可以帮忙改一下

ll_j

lch8526 发表于 2014-11-7 12:04
谢谢你的程序，但你这个程序只可以改线性标注，改不是直径标注，希望可以帮忙改一下

刚才的程序还有点错误，改了一下，增加对直接、半径的支持，非本专业，半径按乘以2计。

1. (defun c:tt (/ ent i ss d1 d42 dm dimlst)
   
2.   (setq dimlst '((4 1.6)
   
3.                  (4.8 2)
   
4.                  (5.5 2.5)
   
5.                  (6.5 3)
   
6.                  (8 4)
   
7.                  (9.5 5)
   
8.                  (11 6)
   
9.                  (14 8)
   
10.                  (17 10)
    
11.                  (20 12)
    
12.                  (26 16)
    
13.                  (32 20)
    
14.                  (38 24)
    
15.                  (47 30)
    
16.                  (56 36)
    
17.                 )
    
18.   )
    
19.   (if (setq ss (ssget '((0 . "DIMENSION"))))
    
20.     (progn
    
21.       (setq i 0)
    
22.       (repeat (sslength ss)
    
23.         (setq ent (entget (ssname ss i))
    
24.               d1  (cdr (assoc 1 ent))
    
25.               d42 (cdr (assoc 42 ent))
    
26.               d70 (cdr (assoc 70 ent))
    
27.               i   (1+ i)
    
28.         )
    
29.         (if (/= d1 "")
    
30.           (setq dm (atof d1))
    
31.           (setq dm d42)
    
32.         )
    
33.         (if (= (logand 4 (cdr (assoc 70 ent))) 4)
    
34.           (setq dm (* dm 2.0))
    
35.         )
    
36.         (if (setq dm (assoc (atof (rtos dm 2)) dimlst))
    
37.           (progn
    
38.             (setq dm (strcat "M" (rtos (cadr dm) 2) "沉头"))
    
39.             (entmod (subst (cons 1 dm) (assoc 1 ent) ent))
    
40.           )
    
41.         )
    
42.       )
    
43.     )
    
44.   )
    
45.   (princ)
    
46. )

(defun c:tt (/ ent i ss d1 d42 dm dimlst)<br />   (setq dimlst '((4 1.6)<br />                  (4.8 2)<br />                  (5.5 2.5)<br />                  (6.5 3)<br />                  (8 4)<br />                  (9.5 5)<br />                  (11 6)<br />                  (14 8)<br />                  (17 10)<br />                  (20 12)<br />                  (26 16)<br />                  (32 20)<br />                  (38 24)<br />                  (47 30)<br />                  (56 36)<br />                 )<br />   )<br />   (if (setq ss (ssget '((0 . "DIMENSION"))))<br />     (progn<br />       (setq i 0)<br />       (repeat (sslength ss)<br />         (setq ent (entget (ssname ss i))<br />               d1  (cdr (assoc 1 ent))<br />               d42 (cdr (assoc 42 ent))<br />               d70 (cdr (assoc 70 ent))<br />               i   (1+ i)<br />         )<br />         (if (/= d1 "")<br />           (setq dm (atof d1))<br />           (setq dm d42)<br />         )<br />         (if (= (logand 4 (cdr (assoc 70 ent))) 4)<br />           (setq dm (* dm 2.0))<br />         )<br />         (if (setq dm (assoc (atof (rtos dm 2)) dimlst))<br />           (progn<br />             (setq dm (strcat "M" (rtos (cadr dm) 2) "沉头"))<br />             (entmod (subst (cons 1 dm) (assoc 1 ent) ent))<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

lch8526

ll_j 发表于 2014-11-7 13:32
刚才的程序还有点错误，改了一下，增加对直接、半径的支持，非本专业，半径按乘以2计。

非常感谢你的帮忙，请问能不能介绍几本初学LISP的书看看

ll_j

lch8526 发表于 2014-11-7 14:23
非常感谢你的帮忙，请问能不能介绍几本初学LISP的书看看

好久不看书了，我现在也基本不写程序了，我看的ALisp书还是acadr11的，后来就主要查联机帮助了。
明经通道现在有函数专区（http://www.mjtd.com/function/index-14.html），查起来还是比较方便的，还有前几个acad简体中文版的帮助都有关于Lisp的部分，也可以看看。
初学者手上也的确需要一本书，你可以到书店看看，不要厚的，最好也不要与专业相关的，能查函数就行，内容也都差不多。Lisp学的是一种编程思想，熟悉了就可以举一反三了。