圆圈编号 大神们在好好完善下吧

树櫴希德

1. ;;;;;;;;;;;;;;;;;
   
2. (defun insertgc ( e / e)
   
3.   (cdr(assoc 10(entget e)))
   
4.   )
   
5. ;;;;
   
6. 
   
7. 
   
8. 
   
9. 
   
10. 
    
11. (defun cx-ss2en
    
12.   (ss / enlst)
    
13.   (cond
    
14.     ((= (type ss) 'PICKSET)
    
15.       (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex SS)))
    
16.     )
    
17.     ((= (type ss) 'LIST)
    
18.       (setq enlst (ssadd))
    
19.       (last (mapcar '(lambda (x) (ssadd x enlst)) ss))
    
20.     )
    
21.     ((='ename(type ss))
    
22.       (ssadd ss)
    
23.     )
    
24.   )
    
25. )
    
26.   ;;;;;;;;;;;;;;;;;;
    
27. (defun t2t (p1 p2 p3 / p1 p2 p3) ;点到直线距离1
    
28.   
    
29. 
    
30.   (abs (car (trans (mapcar '- p3 p1) 0 (mapcar '- p2 p1))))
    
31.   
    
32. )   ;;;;;;;;;;;;;;;;
    
33. 
    
34. (defun t1t (p1 p2 p3 / p1 p2 p3) ;点到直线距离2
    
35.   
    
36. 
    
37.    (car (trans (mapcar '- p3 p1) 0 (mapcar '- p2 p1)))
    
38.   
    
39. )
    
40. 
    
41. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
42. (defun c:szpx (/ ssa kongbiao i ii zb paixuzb p1 p2 fgjj p3 cishu kb kbb iii iiii wenzi)
    
43. (setq ssa (ssget '( (0 . "circle")  (8 . "0") ) ) )
    
44. (setq kongbiao '()) (setq i 0)
    
45. (foreach x (cx-ss2en ssa)
    
46.      
    
47.     (setq zb (insertgc x)) (setq kongbiao (append (list zb) kongbiao)) (setq i (1+ i))
    
48.   )
    
49. 
    
50. (setq paixuzb (vl-sort kongbiao
    
51.              (function (lambda (e1 e2)      (> (cadr e1)(cadr e2 ) )   
    
52.               ) ) )
    
53.        )
    
54. (setq p1 (getpoint "\n请选择直线起点："))
    
55.   (setq p2 (getpoint "\n请选择直线第二点："))
    
56. (setq fgjj (getREAL "\n请输入方格间距(输入数)："));输入整数
    
57.   (setq p3 (last paixuzb))
    
58. (setq cishu (+ 2 (fix (/ (t2t p1 p2 p3) fgjj )  ) ) )
    
59. (setq kb '()) (setq ii 0)
    
60. (repeat cishu
    
61.    
    
62. 
    
63. (setq kbb
    
64. (vl-sort (vl-remove-if-not  (FUNCTION (LAMBDA (A1) (< (* -1 fgjj) (t1t (polar p1 (+ (* 0.5 pi)(angle p1 p2)) (* ii fgjj)) (polar p2 (+ (* 0.5 pi)(angle p1 p2)) (* ii fgjj)) A1) 0) ))  kongbiao)
    
65.              (function (lambda (e1 e2)      (> (car e1)(car e2 ) )   (< (cadr e1)(cadr e2 ) )
    
66.               ) ) )
    
67. 
    
68. )  (print kbb)
    
69.   (setq iiii 0)
    
70. (FOREACH x kbb
    
71.   (setq iiii (1+ iiii))
    
72. 
    
73.   (setq wenzi (strcat (vl-prin1-to-string  ii) "-" (vl-prin1-to-string  iiii)))
    
74. 
    
75.   (entmake (list '(0 . "TEXT") '(8 . "fgbaj")(cons 1 wenzi) (cons 10 x ) (cons 40 0.250)))
    
76.   )
    
77.   
    
78. (setq kb (append kbb kb))
    
79. 
    
80. (setq ii (1+ ii))
    
81. 
    
82. 
    
83.   )
    
84.   (setq iii 0)
    
85. (foreach n (reverse kb)
    
86. 
    
87. 
    
88.    ;(entmake (list '(0 . "TEXT") '(8 . "fgbj")(cons 1 (rtos (+ iii 1) 2 0)) (cons 10 n ) (cons 40 0.250)))
    
89.   ;(entmake (list '(0 . "circle") '(8 . "fgbj")(cons 62 3) (cons 10 n ) (cons 40 0.25)))
    
90. (setq iii (1+ iii))
    
91. 
    
92.   )
    
93. 
    
94. (princ)
    
95. )

;;;;;;;;;;;;;;;;;<br /> (defun insertgc ( e / e)<br />   (cdr(assoc 10(entget e)))<br />   )<br /> ;;;;<br /> <br /> <br /> <br /> <br /> <br /> (defun cx-ss2en<br />   (ss / enlst)<br />   (cond<br />     ((= (type ss) 'PICKSET)<br />       (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex SS)))<br />     )<br />     ((= (type ss) 'LIST)<br />       (setq enlst (ssadd))<br />       (last (mapcar '(lambda (x) (ssadd x enlst)) ss))<br />     )<br />     ((='ename(type ss))<br />       (ssadd ss)<br />     )<br />   )<br /> )<br />   ;;;;;;;;;;;;;;;;;;<br /> (defun t2t (p1 p2 p3 / p1 p2 p3) ;点到直线距离1<br />   <br /> <br />   (abs (car (trans (mapcar '- p3 p1) 0 (mapcar '- p2 p1))))<br />   <br /> )   ;;;;;;;;;;;;;;;;<br /> <br /> (defun t1t (p1 p2 p3 / p1 p2 p3) ;点到直线距离2<br />   <br /> <br />    (car (trans (mapcar '- p3 p1) 0 (mapcar '- p2 p1)))<br />   <br /> )<br /> <br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> (defun c:szpx (/ ssa kongbiao i ii zb paixuzb p1 p2 fgjj p3 cishu kb kbb iii iiii wenzi)<br /> (setq ssa (ssget '( (0 . "circle")  (8 . "0") ) ) )<br /> (setq kongbiao '()) (setq i 0)<br /> (foreach x (cx-ss2en ssa)<br />      <br />     (setq zb (insertgc x)) (setq kongbiao (append (list zb) kongbiao)) (setq i (1+ i))<br />   )<br /> <br /> (setq paixuzb (vl-sort kongbiao<br />              (function (lambda (e1 e2)      (> (cadr e1)(cadr e2 ) )   <br />               ) ) )<br />        )<br /> (setq p1 (getpoint "\n请选择直线起点："))<br />   (setq p2 (getpoint "\n请选择直线第二点："))<br /> (setq fgjj (getREAL "\n请输入方格间距(输入数)："));输入整数<br />   (setq p3 (last paixuzb))<br /> (setq cishu (+ 2 (fix (/ (t2t p1 p2 p3) fgjj )  ) ) )<br /> (setq kb '()) (setq ii 0)<br /> (repeat cishu<br />     <br /> <br /> (setq kbb<br /> (vl-sort (vl-remove-if-not  (FUNCTION (LAMBDA (A1) (< (* -1 fgjj) (t1t (polar p1 (+ (* 0.5 pi)(angle p1 p2)) (* ii fgjj)) (polar p2 (+ (* 0.5 pi)(angle p1 p2)) (* ii fgjj)) A1) 0) ))  kongbiao)<br />              (function (lambda (e1 e2)      (> (car e1)(car e2 ) )   (< (cadr e1)(cadr e2 ) )<br />               ) ) )<br /> <br /> )  (print kbb)<br />   (setq iiii 0)<br /> (FOREACH x kbb<br />   (setq iiii (1+ iiii))<br /> <br />   (setq wenzi (strcat (vl-prin1-to-string  ii) "-" (vl-prin1-to-string  iiii)))<br /> <br />   (entmake (list '(0 . "TEXT") '(8 . "fgbaj")(cons 1 wenzi) (cons 10 x ) (cons 40 0.250)))<br />   )<br />   <br /> (setq kb (append kbb kb))<br /> <br /> (setq ii (1+ ii))<br /> <br /> <br />   )<br />   (setq iii 0)<br /> (foreach n (reverse kb)<br /> <br /> <br />    ;(entmake (list '(0 . "TEXT") '(8 . "fgbj")(cons 1 (rtos (+ iii 1) 2 0)) (cons 10 n ) (cons 40 0.250)))<br />   ;(entmake (list '(0 . "circle") '(8 . "fgbj")(cons 62 3) (cons 10 n ) (cons 40 0.25)))<br /> (setq iii (1+ iii))<br /> <br />   )<br /> <br /> (princ)<br /> )

树櫴希德

另外一种不同效果的

1. ;;;;;;;;;;;;;;;;;
   
2. (defun insertgc ( e / e)
   
3.   (cdr(assoc 10(entget e)))
   
4.   )
   
5. ;;;;
   
6. 
   
7. 
   
8. 
   
9. 
   
10. 
    
11. (defun cx-ss2en
    
12.   (ss / enlst)
    
13.   (cond
    
14.     ((= (type ss) 'PICKSET)
    
15.       (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex SS)))
    
16.     )
    
17.     ((= (type ss) 'LIST)
    
18.       (setq enlst (ssadd))
    
19.       (last (mapcar '(lambda (x) (ssadd x enlst)) ss))
    
20.     )
    
21.     ((='ename(type ss))
    
22.       (ssadd ss)
    
23.     )
    
24.   )
    
25. )
    
26.   ;;;;;;;;;;;;;;;;;;
    
27. (defun t2t (p1 p2 p3 / p1 p2 p3) ;点到直线距离1
    
28.   
    
29. 
    
30.   (abs (car (trans (mapcar '- p3 p1) 0 (mapcar '- p2 p1))))
    
31.   
    
32. )   ;;;;;;;;;;;;;;;;
    
33. 
    
34. (defun t1t (p1 p2 p3 / p1 p2 p3) ;点到直线距离2
    
35.   
    
36. 
    
37.    (car (trans (mapcar '- p3 p1) 0 (mapcar '- p2 p1)))
    
38.   
    
39. )
    
40. 
    
41. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
42. (defun c:szpx (/ ssa kongbiao i ii zb paixuzb p1 p2 fgjj p3 cishu kb kbb iii iiii wenzi x n )
    
43. (setq ssa (ssget '( (0 . "circle")  (8 . "0") ) ) )
    
44. (setq kongbiao '()) (setq i 0)
    
45. (foreach x (cx-ss2en ssa)
    
46.      
    
47.     (setq zb (insertgc x)) (setq kongbiao (append (list zb) kongbiao)) (setq i (1+ i))
    
48.   )
    
49. 
    
50. (setq paixuzb (vl-sort kongbiao
    
51.              (function (lambda (e1 e2)      (> (cadr e1)(cadr e2 ) )   
    
52.               ) ) )
    
53.        )
    
54. (setq p1 (getpoint "\n请选择直线起点："))
    
55.   (setq p2 (getpoint "\n请选择直线第二点："))
    
56. (setq fgjj (getREAL "\n请输入方格间距(输入数)："));输入整数
    
57.   (setq p3 (last paixuzb))
    
58. (setq cishu (+ 2 (fix (/ (t2t p1 p2 p3) fgjj )  ) ) )
    
59. (setq kb '() ) (setq ii 0)
    
60. (repeat cishu
    
61.    
    
62. 
    
63. (setq kbb
    
64. (vl-sort (vl-remove-if-not  (FUNCTION (LAMBDA (A1) (< (* -1 fgjj) (t1t (polar p1 (+ (* 0.5 pi)(angle p1 p2)) (* ii fgjj)) (polar p2 (+ (* 0.5 pi)(angle p1 p2)) (* ii fgjj)) A1) 0) ))  kongbiao)
    
65.              (function (lambda (e1 e2)      (> (car e1)(car e2 ) )   (< (cadr e1)(cadr e2 ) )
    
66.               ) ) )
    
67. 
    
68. ) ; (print kbb)
    
69.   
    
70.   
    
71. (setq kb (append (list kbb) kb))
    
72. 
    
73. (setq ii (1+ ii))
    
74. 
    
75. 
    
76.   )  (print (car kb))
    
77.   (setq iii 0)
    
78. (foreach n kb
    
79. 
    
80. (setq iiii 0)
    
81. (FOREACH x n
    
82.   (setq iiii (1+ iiii))
    
83. 
    
84.   (setq wenzi (strcat (vl-prin1-to-string  iii) "-" (vl-prin1-to-string  iiii)))
    
85. 
    
86.   (entmake (list '(0 . "TEXT") '(8 . "fgbaj")(cons 1 wenzi) (cons 10 x ) (cons 40 0.250)))
    
87.   )
    
88.   
    
89. 
    
90.    ;(entmake (list '(0 . "TEXT") '(8 . "fgbj")(cons 1 (rtos (+ iii 1) 2 0)) (cons 10 n ) (cons 40 0.250)))
    
91.   ;(entmake (list '(0 . "circle") '(8 . "fgbj")(cons 62 3) (cons 10 n ) (cons 40 0.25)))
    
92. (setq iii (1+ iii))
    
93. 
    
94.   )
    
95. 
    
96. (princ)
    
97. )

;;;;;;;;;;;;;;;;;<br /> (defun insertgc ( e / e)<br />   (cdr(assoc 10(entget e)))<br />   )<br /> ;;;;<br /> <br /> <br /> <br /> <br /> <br /> (defun cx-ss2en<br />   (ss / enlst)<br />   (cond<br />     ((= (type ss) 'PICKSET)<br />       (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex SS)))<br />     )<br />     ((= (type ss) 'LIST)<br />       (setq enlst (ssadd))<br />       (last (mapcar '(lambda (x) (ssadd x enlst)) ss))<br />     )<br />     ((='ename(type ss))<br />       (ssadd ss)<br />     )<br />   )<br /> )<br />   ;;;;;;;;;;;;;;;;;;<br /> (defun t2t (p1 p2 p3 / p1 p2 p3) ;点到直线距离1<br />   <br /> <br />   (abs (car (trans (mapcar '- p3 p1) 0 (mapcar '- p2 p1))))<br />   <br /> )   ;;;;;;;;;;;;;;;;<br /> <br /> (defun t1t (p1 p2 p3 / p1 p2 p3) ;点到直线距离2<br />   <br /> <br />    (car (trans (mapcar '- p3 p1) 0 (mapcar '- p2 p1)))<br />   <br /> )<br /> <br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> (defun c:szpx (/ ssa kongbiao i ii zb paixuzb p1 p2 fgjj p3 cishu kb kbb iii iiii wenzi x n )<br /> (setq ssa (ssget '( (0 . "circle")  (8 . "0") ) ) )<br /> (setq kongbiao '()) (setq i 0)<br /> (foreach x (cx-ss2en ssa)<br />      <br />     (setq zb (insertgc x)) (setq kongbiao (append (list zb) kongbiao)) (setq i (1+ i))<br />   )<br /> <br /> (setq paixuzb (vl-sort kongbiao<br />              (function (lambda (e1 e2)      (> (cadr e1)(cadr e2 ) )   <br />               ) ) )<br />        )<br /> (setq p1 (getpoint "\n请选择直线起点："))<br />   (setq p2 (getpoint "\n请选择直线第二点："))<br /> (setq fgjj (getREAL "\n请输入方格间距(输入数)："));输入整数<br />   (setq p3 (last paixuzb))<br /> (setq cishu (+ 2 (fix (/ (t2t p1 p2 p3) fgjj )  ) ) )<br /> (setq kb '() ) (setq ii 0)<br /> (repeat cishu<br />     <br /> <br /> (setq kbb<br /> (vl-sort (vl-remove-if-not  (FUNCTION (LAMBDA (A1) (< (* -1 fgjj) (t1t (polar p1 (+ (* 0.5 pi)(angle p1 p2)) (* ii fgjj)) (polar p2 (+ (* 0.5 pi)(angle p1 p2)) (* ii fgjj)) A1) 0) ))  kongbiao)<br />              (function (lambda (e1 e2)      (> (car e1)(car e2 ) )   (< (cadr e1)(cadr e2 ) )<br />               ) ) )<br /> <br /> ) ; (print kbb)<br />   <br />   <br /> (setq kb (append (list kbb) kb))<br /> <br /> (setq ii (1+ ii))<br /> <br /> <br />   )  (print (car kb))<br />   (setq iii 0)<br /> (foreach n kb <br /> <br /> (setq iiii 0)<br /> (FOREACH x n<br />   (setq iiii (1+ iiii))<br /> <br />   (setq wenzi (strcat (vl-prin1-to-string  iii) "-" (vl-prin1-to-string  iiii)))<br /> <br />   (entmake (list '(0 . "TEXT") '(8 . "fgbaj")(cons 1 wenzi) (cons 10 x ) (cons 40 0.250)))<br />   )<br />   <br /> <br />    ;(entmake (list '(0 . "TEXT") '(8 . "fgbj")(cons 1 (rtos (+ iii 1) 2 0)) (cons 10 n ) (cons 40 0.250)))<br />   ;(entmake (list '(0 . "circle") '(8 . "fgbj")(cons 62 3) (cons 10 n ) (cons 40 0.25)))<br /> (setq iii (1+ iii))<br /> <br />   )<br /> <br /> (princ)<br /> )

树櫴希德

附件上传

13648893846

文字长度能否跟圆的半径扯上点关系，对正方式也改下

13648893846

实际上不用画出那条线来第一排的两端的圆即可判断了