[原创]：相对坐标网格自动标注

david96007

相对坐标网格自动标注

2. 
   
3. 
   
4. (defun c:tt (/             plot_scale             TextHeight
   
5.              tht     ss             sslen   n             ent
   
6.              sp_w    ep_w    sp             ep             ang
   
7.              sp_x    sp_y    ep_x    ep_y    str
   
8.             )
   
9.   (if (= (getvar "useri1") 0)
   
10.     (setq plot_scale 1000)
    
11.     (setq plot_scale (getvar "useri1"))
    
12.   ) ;_ end of if
    
13.   (if (= (getvar "userr1") 0)
    
14.     (setq TextHeight 2.5)
    
15.     (setq TextHeight (getvar "userr1"))
    
16.   ) ;_ end of if
    
17.   (setq        tht   (* textheight plot_scale)
    
18.         ss    (ssget '((0 . "line")))
    
19.         sslen (sslength ss)
    
20.         n     0
    
21.   )
    
22.   (while (< n sslen)
    
23.     (setq ent  (entget (ssname ss n))
    
24.           sp_w (cdr (assoc 10 ent))
    
25.           ep_w (cdr (assoc 11 ent))
    
26.           sp   (trans sp_w 0 1)
    
27.           ep   (trans ep_w 0 1)
    
28.           ang  (angle sp_w ep_w)
    
29.           sp_x (x sp)
    
30.           sp_y (y sp)
    
31.           ep_x (x ep)
    
32.           ep_y (y ep)
    
33.           n    (1+ n)
    
34.     )
    
35.     (if        (equal sp_x ep_x 0.001)
    
36.       (draw_s)
    
37.       (draw_h)
    
38.     )
    
39.   )
    
40.   (prin1)
    
41. )
    
42. 
    
43. (defun x (pt) (car pt))
    
44. (defun y (pt) (cadr pt))
    
45. 
    
46. (defun draw_s ()
    
47.   (if (< sp_y ep_y)
    
48.     (progn (setq ang (angle sp_w ep_w)
    
49.                  pt  (trans (polar ep (* pi 0.5) tht) 1 0)
    
50.                  str (strcat "B " (rtos (/ sp_x 1000) 2 0))
    
51.            )
    
52.            (text pt tht str ang 0 2)
    
53.            (setq pt (trans (polar sp (* pi 1.5) tht) 1 0))
    
54.            (text pt tht str ang 2 2)
    
55.     )
    
56.     (progn (setq ang (angle ep_w sp_w)
    
57.                  pt  (trans (polar sp (* pi 0.5) tht) 1 0)
    
58.                  str (strcat "B " (rtos (/ sp_x 1000) 2 0))
    
59.            )
    
60.            (text pt tht str ang 0 2)
    
61.            (setq pt (trans (polar ep (* pi 1.5) tht) 1 0))
    
62.            (text pt tht str ang 2 2)
    
63.     )
    
64.   )
    
65. )
    
66. 
    
67. (defun draw_h ()
    
68.   (if (< sp_x ep_x)
    
69.     (progn (setq ang (angle sp_w ep_w)
    
70.                  pt  (trans (polar ep (* pi 0) tht) 1 0)
    
71.                  str (strcat "A " (rtos (/ sp_Y 1000) 2 0))
    
72.            )
    
73.            (text pt tht str ang 0 2)
    
74.            (setq pt (trans (polar sp (* pi 1) tht) 1 0))
    
75.            (text pt tht str ang 2 2)
    
76.     )
    
77.     (progn (setq ang (angle ep_w sp_w)
    
78.                  pt  (trans (polar sp (* pi 0) tht) 1 0)
    
79.                  str (strcat "A " (rtos (/ sp_y 1000) 2 0))
    
80.            )
    
81.            (text pt tht str ang 0 2)
    
82.            (setq pt (trans (polar ep (* pi 1) tht) 1 0))
    
83.            (text pt tht str ang 2 2)
    
84.     )
    
85.   )
    
86. )
    
87. (defun text (pt tht str ang j72 j73)
    
88.   (ENTMAKE (list '(0 . "TEXT")
    
89.                  '(100 . "AcDbEntity")
    
90.                  '(410 . "Model")
    
91.                  '(8 . "_xdzbw")
    
92.                  '(100 . "AcDbText")
    
93.                  (cons 10 pt)
    
94.                  (cons 40 tht)
    
95.                  (cons 1 str)
    
96.                  (cons 50 ang)
    
97.                  (cons 72 j72)
    
98.                  (cons 11 pt)
    
99.                  (cons 73 j73)
    
100.            )
     
101.   )
     
102. )

<br /> <br /> (defun c:tt (/             plot_scale             TextHeight<br />              tht     ss             sslen   n             ent<br />              sp_w    ep_w    sp             ep             ang<br />              sp_x    sp_y    ep_x    ep_y    str<br />             )<br />   (if (= (getvar "useri1") 0)<br />     (setq plot_scale 1000)<br />     (setq plot_scale (getvar "useri1"))<br />   ) ;_ end of if<br />   (if (= (getvar "userr1") 0)<br />     (setq TextHeight 2.5)<br />     (setq TextHeight (getvar "userr1"))<br />   ) ;_ end of if<br />   (setq        tht   (* textheight plot_scale)<br />         ss    (ssget '((0 . "line")))<br />         sslen (sslength ss)<br />         n     0<br />   )<br />   (while (< n sslen)<br />     (setq ent  (entget (ssname ss n))<br />           sp_w (cdr (assoc 10 ent))<br />           ep_w (cdr (assoc 11 ent))<br />           sp   (trans sp_w 0 1)<br />           ep   (trans ep_w 0 1)<br />           ang  (angle sp_w ep_w)<br />           sp_x (x sp)<br />           sp_y (y sp)<br />           ep_x (x ep)<br />           ep_y (y ep)<br />           n    (1+ n)<br />     )<br />     (if        (equal sp_x ep_x 0.001)<br />       (draw_s)<br />       (draw_h)<br />     )<br />   )<br />   (prin1)<br /> )<br /> <br /> (defun x (pt) (car pt))<br /> (defun y (pt) (cadr pt))<br /> <br /> (defun draw_s ()<br />   (if (< sp_y ep_y)<br />     (progn (setq ang (angle sp_w ep_w)<br />                  pt  (trans (polar ep (* pi 0.5) tht) 1 0)<br />                  str (strcat "B " (rtos (/ sp_x 1000) 2 0))<br />            )<br />            (text pt tht str ang 0 2)<br />            (setq pt (trans (polar sp (* pi 1.5) tht) 1 0))<br />            (text pt tht str ang 2 2)<br />     )<br />     (progn (setq ang (angle ep_w sp_w)<br />                  pt  (trans (polar sp (* pi 0.5) tht) 1 0)<br />                  str (strcat "B " (rtos (/ sp_x 1000) 2 0))<br />            )<br />            (text pt tht str ang 0 2)<br />            (setq pt (trans (polar ep (* pi 1.5) tht) 1 0))<br />            (text pt tht str ang 2 2)<br />     )<br />   )<br /> )<br /> <br /> (defun draw_h ()<br />   (if (< sp_x ep_x)<br />     (progn (setq ang (angle sp_w ep_w)<br />                  pt  (trans (polar ep (* pi 0) tht) 1 0)<br />                  str (strcat "A " (rtos (/ sp_Y 1000) 2 0))<br />            )<br />            (text pt tht str ang 0 2)<br />            (setq pt (trans (polar sp (* pi 1) tht) 1 0))<br />            (text pt tht str ang 2 2)<br />     )<br />     (progn (setq ang (angle ep_w sp_w)<br />                  pt  (trans (polar sp (* pi 0) tht) 1 0)<br />                  str (strcat "A " (rtos (/ sp_y 1000) 2 0))<br />            )<br />            (text pt tht str ang 0 2)<br />            (setq pt (trans (polar ep (* pi 1) tht) 1 0))<br />            (text pt tht str ang 2 2)<br />     )<br />   )<br /> )<br /> (defun text (pt tht str ang j72 j73)<br />   (ENTMAKE (list '(0 . "TEXT")<br />                  '(100 . "AcDbEntity")<br />                  '(410 . "Model")<br />                  '(8 . "_xdzbw")<br />                  '(100 . "AcDbText")<br />                  (cons 10 pt)<br />                  (cons 40 tht)<br />                  (cons 1 str)<br />                  (cons 50 ang)<br />                  (cons 72 j72)<br />                  (cons 11 pt)<br />                  (cons 73 j73)<br />            )<br />   )<br /> )

tgh56

在2002中测试,用不了,请楼住检查一下

david96007

提示什么错误?

啵浪鼓

CAD2006选择完后无任何提示
如果是聚合线也不认识

david96007

我的图是以mm为单位的!

jinsong-liao

不能用啊，请楼主重新测试下。

david96007

奇怪了，我用着没事啊！看看我的图！

llbbgg1968

看不明白，不会用，不行，有不对的地方。

一生有你

能帮忙解释一下怎么重新画一个坐标系吗？
谢谢！！期待你尽快回答