[求助]高手能修改一下程序吗

tobyliang

下面的程序是从网上找到的（原先时龙龙仔版主编的），但序号为1.000等，有人能帮忙修改一下不，

实现功能如图片的样子，如输入H，序号就从H1开始编，序号、直径、X坐标、Y坐标之间有线隔开。

另外尺寸精度小数点后3为就可以了。希望龙龙仔再完善一下程序啊，谢谢！

;;;功能:圆坐标输出
;;;BY Spring (根据龙龙仔的程序修改的)
;;;08/12-03
(defun AI_ERROR (ERRMSG)
  (if ERRMSG
    '("console break"
      "Function Cancelled"
     )
    (princ (strcat "\nError: " ERRMSG))
  )
  (princ)
) ;_defun
;;;_______________________________________________________
(defun WRITE_LIST (R_LIST /)
  (command "_.text" "j" "C" P1 T_HIGH 0 "序号")
  (command "_.text"
    "j"
    "C"
    (polar P1 0 (* T_HIGH 7))
    T_HIGH
    0
    "孔  径"
  )
  (command "_.text"
    "j"
    "C"
    (polar P1 0 (* T_HIGH 16))
    T_HIGH
    0
    "X 坐标"
  )
  (command "_.text"
    "j"
    "C"
    (polar P1 0 (* T_HIGH 26))
    T_HIGH
    0
    "Y 坐标"
  )
  (setq P1 (polar P1 (/ pi -2.0) (* T_HIGH 2)))
  (setq N 1)
  (while (/= (setq DATA (car R_LIST)) NIL)
    (setq DATA1 (car X_LIST))
    (setq DATA2 (car Y_LIST))
    (command "_.text"
      "j"
      "c"
      (polar P1 0 (* T_HIGH 7))
      T_HIGH
      ""
      (strcat "%%C" (rtos (* (car DATA) 2.0) 2 2))
    )
    (command "_.text"
      "j"
      "c"
      (polar P1 0 (* T_HIGH 16))
      T_HIGH
      ""
      (rtos (- (car DATA1) X_P2))
    )
    (command "_.text"
      "j"
      "c"
      (polar P1 0 (* T_HIGH 25))
      T_HIGH
      ""
      (rtos (- (car DATA2) Y_P2))
    )
    (command "_.text"
      "j"
      "C"
      (polar P1 0 (* T_HIGH 0.25))
      T_HIGH
      ""
      (rtos N)
    )
    (setq P1 (polar P1 (/ pi -2.0) (* T_HIGH 2)))
    (setq R_LIST (cdr R_LIST))
    (setq X_LIST (cdr X_LIST))
    (setq Y_LIST (cdr Y_LIST))
    (setq N (1+ N))
  )
)
;;;_______________________________________________________
(defun WRITE_LINE (/ LL)
  (setq P1 (polar P1 (/ pi 2.0) (* T_HIGH 1.5)))
  (command "_.LINE"
    (polar P1 pi (* T_HIGH 2.5))
    (polar P1 0 (* T_HIGH 30))
    ""
  )
  (command "_.CHANGE" (entlast) "" "P" "Color" "2" "")
  (command "_.ARRAY"
    (entlast)
    ""
    "R"
    (+ (length R_LIST) 2)
    ""
    (* 2 T_HIGH)
  )
  (command "_.LINE"
    (polar P1 pi (* T_HIGH 2.5))
    (cdr (assoc 10 (entget (entlast))))
    ""
  )
  (command "_.CHANGE" (entlast) "" "P" "Color" "2" "")
  (setq LL (entlast))
  (command "_.COPY" LL "" P1 (polar P1 0 (* T_HIGH 5.0)))
  (command "_.COPY" LL "" P1 (polar P1 0 (* T_HIGH 13.5)))
  (command "_.COPY" LL "" P1 (polar P1 0 (* T_HIGH 23)))
  (command "_.COPY" LL "" P1 (polar P1 0 (* T_HIGH 32.5)))
)
;;;_______________________________________________________
(defun C:MAK (/       T_HIG   T_HIGH  SS      COUNT   R_LIST  X_LIST
       Y_LIST  EN      ED      CEN     CEN_X   CEN_Y   TMP
       NOU     P1      CEN_LIST N
      )
  (setvar "MODEMACRO" "***SPRING***")
  (setq CM (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq OLD_ERROR *ERROR*
 *ERROR* AI_ERROR
  )
  (command "_.UNDO" "group")
  (command "_.UCS" "World")
  (princ "\nText high <")
  (setq T_HIG (getvar "TEXTSIZE"))
  (princ T_HIG)
  (setq T_HIGH (getstring ">"))
  (if (= T_HIGH "")
    (setq T_HIGH T_HIG)
    (setq T_HIGH (atof T_HIGH))
  )
  (setq P2 (getpoint "\n指定基准点<0,0>:"))
  (setq P3 '(0 0))
  (if (= P2 NIL)
    (setq P2 P3)
  )
  (setq X_P2 (car P2))
  (setq Y_P2 (nth 1 P2))
  (setq SS (ssget '((0 . "CIRCLE"))))
  (setq COUNT 0
 N 0
  )
  (setq R_LIST NIL)
  (setq X_LIST NIL)
  (setq Y_LIST NIL)
  (repeat (sslength SS)
    (setq EN (ssname SS N))
    (setq ED (entget EN))
    (if (not (member
        (setq CEN (cdr (assoc 10 ED)))
        CEN_LIST
      )
 )
      (progn
 (setq CEN_LIST (append CEN_LIST (list CEN)))
 (setq CEN_X (list (car CEN)))
 (setq CEN_Y (list (cadr CEN)))
 (setq TMP (cdr (assoc 40 ED)))
 (setq R_LIST (cons (list TMP COUNT) R_LIST))
 (setq X_LIST (cons CEN_X X_LIST))
 (setq Y_LIST (cons CEN_Y Y_LIST))
 (setq COUNT (1+ COUNT))
 (setq NOU (itoa COUNT))
 (command "_.text" "j" "C" CEN T_HIGH "" NOU)
      )
    )
    (setq N (1+ N))
  )
  (setq X_LIST (reverse X_LIST))
  (setq Y_LIST (reverse Y_LIST))
  (setq P1 (getpoint "\ninsert point"))
  (setq R_LIST (vl-sort R_LIST
   (function (lambda (E1 E2)
        (< (cadr E1) (cadr E2))
      )
   )
        )
  )
  (WRITE_LIST R_LIST)
  (WRITE_LINE)
  (command "_.UCS" "Prev")
  (command "_.UNDO" "end")
  (setvar "cmdecho" CM)
  (setq *ERROR* OLD_ERROR)
  (princ)
)

zml84

3. ;;;功能:圆坐标输出到表格
4. ;;;_______________________________________________________
5. ;;;_______________________________________________________
6. (defun C:MAK (/ CEN CM ED EN I LST N P1 P2 PT_I R SS T_HIGH)
7. &#160;&#160;&#160; ;;
8. &#160;&#160;&#160; (princ "\n设置文字高度 <")
9. &#160;&#160;&#160; (princ (getvar "TEXTSIZE"))
10. &#160;&#160;&#160; (if&#160;&#160;&#160; (= (setq T_HIGH (getstring ">: ")) "")
11. &#160;&#160;&#160; (setq T_HIGH (getvar "TEXTSIZE"))
12. &#160;&#160;&#160; (setq T_HIGH (atof T_HIGH))
13. &#160;&#160;&#160; )
14. &#160;&#160;&#160; (if&#160;&#160;&#160; (and (setq P1 (getpoint "\n插入点: "))
15. &#160;&#160;&#160; &#160;&#160;&#160;&#160; (princ "\n选择圆对象...")
16. &#160;&#160;&#160; &#160;&#160;&#160;&#160; (setq SS (ssget '((0 . "CIRCLE"))))
17. &#160;&#160;&#160; )
18. &#160;&#160;&#160; (progn
19. &#160;&#160;&#160; &#160;&#160;&#160; ;;
20. &#160;&#160;&#160; &#160;&#160;&#160; (command "_.UNDO" "group")
21. &#160;&#160;&#160; &#160;&#160;&#160; (setq CM (getvar "cmdecho"))
22. &#160;&#160;&#160; &#160;&#160;&#160; (setvar "cmdecho" 0)
23. &#160;&#160;&#160; &#160;&#160;&#160; ;;根据半径排序
24. &#160;&#160;&#160; &#160;&#160;&#160; (setq LST '()
25. &#160;&#160;&#160; &#160;&#160;&#160; &#160; N&#160;&#160; 0
26. &#160;&#160;&#160; &#160;&#160;&#160; )
27. &#160;&#160;&#160; &#160;&#160;&#160; (repeat (sslength SS)
28. &#160;&#160;&#160; &#160;&#160;&#160; (setq EN (ssname SS N))
29. &#160;&#160;&#160; &#160;&#160;&#160; (setq ED (entget EN))
30. &#160;&#160;&#160; &#160;&#160;&#160; (if (member
31. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (setq CEN (cdr (assoc 10 ED)))
32. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; LST
33. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; )
34. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; ()
35. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (progn
36. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (setq R&#160;&#160;&#160; &#160; (cdr (assoc 40 ED))
37. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; LST (cons (list R EN) LST)
38. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; )
39. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; )
40. &#160;&#160;&#160; &#160;&#160;&#160; )
41. &#160;&#160;&#160; &#160;&#160;&#160; (setq N (1+ N))
42. &#160;&#160;&#160; &#160;&#160;&#160; )
43. &#160;&#160;&#160; &#160;&#160;&#160; (setq LST (vl-sort LST
44. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160;&#160; (function (lambda (E1 E2)
45. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; (< (car E1) (car E2))
46. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;)
47. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160;&#160; )
48. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; )
49. &#160;&#160;&#160; &#160;&#160;&#160; )
50. &#160;&#160;&#160; &#160;&#160;&#160; ;;绘制表头
51. &#160;&#160;&#160; &#160;&#160;&#160; (setq P2 (polar P1 0 (* 34 T_HIGH)))
52. &#160;&#160;&#160; &#160;&#160;&#160; (command "_.LINE" "non" P1 "non" P2 "")
53. &#160;&#160;&#160; &#160;&#160;&#160; (setq SS (entlast))
54. &#160;&#160;&#160; &#160;&#160;&#160; (command "_.CHANGE" SS "" "P" "Color" "2" "")
55. &#160;&#160;&#160; &#160;&#160;&#160; (command "_.COPY"
56. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; SS
57. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; ""
58. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; "non"
59. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; '(0 0)
60. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; "non"
61. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; (list 0 (* -2 T_HIGH))
62. &#160;&#160;&#160; &#160;&#160;&#160; )
63. &#160;&#160;&#160; &#160;&#160;&#160; (setq PT_I (polar P1 (* -0.5 pi) T_HIGH))
64. &#160;&#160;&#160; &#160;&#160;&#160; (foreach N '(("序号" 3)
65. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;("孔&#160; 径" 10)
66. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;("X 坐标" 19)
67. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;("Y 坐标" 29)
68. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; )
69. &#160;&#160;&#160; &#160;&#160;&#160; (command "_.text"
70. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;"j"
71. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;"MC"
72. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;(polar PT_I 0 (* T_HIGH (cadr N)))
73. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;T_HIGH
74. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;0
75. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;(car N)
76. &#160;&#160;&#160; &#160;&#160;&#160; )
77. &#160;&#160;&#160; &#160;&#160;&#160; )
78. &#160;&#160;&#160; &#160;&#160;&#160; ;;填写表中内容
79. &#160;&#160;&#160; &#160;&#160;&#160; (setq I 0)
80. &#160;&#160;&#160; &#160;&#160;&#160; (repeat (length LST)
81. &#160;&#160;&#160; &#160;&#160;&#160; (setq ED (entget (cadr (nth I LST))))
82. &#160;&#160;&#160; &#160;&#160;&#160; (setq CEN (cdr (assoc 10 ED))
83. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; R&#160;&#160;&#160; &#160; (cdr (assoc 40 ED))
84. &#160;&#160;&#160; &#160;&#160;&#160; )
85. &#160;&#160;&#160; &#160;&#160;&#160; ;;园内标记
86. &#160;&#160;&#160; &#160;&#160;&#160; (command "_.text"
87. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;"j"
88. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;"MC"
89. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;"non"
90. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;CEN
91. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;T_HIGH
92. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;""
93. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;(itoa N)
94. &#160;&#160;&#160; &#160;&#160;&#160; )
95. &#160;&#160;&#160; &#160;&#160;&#160; ;;增加一行
96. &#160;&#160;&#160; &#160;&#160;&#160; (command "_.COPY"
97. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;SS
98. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;""
99. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;'(0 0)
100. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;(list 0 (* -2 (+ I 2) T_HIGH))
101. &#160;&#160;&#160; &#160;&#160;&#160; )
102. &#160;&#160;&#160; &#160;&#160;&#160; ;;写文字
103. &#160;&#160;&#160; &#160;&#160;&#160; (setq PT_I (polar PT_I (* -0.5 pi) (* 2 T_HIGH)))
104. &#160;&#160;&#160; &#160;&#160;&#160; (foreach N (list (list (strcat "H"(itoa I)) 3)
105. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;(list (strcat "%%C" (rtos R 2 2)) 10)
106. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;(list (rtos (car CEN) 2 4) 19)
107. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;(list (rtos (cadr CEN) 2 4) 29)
108. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160; )
109. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (command "_.text"
110. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; "j"
111. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; "MC"
112. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; (polar PT_I 0 (* T_HIGH (cadr N)))
113. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; T_HIGH
114. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; 0
115. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; (car N)
116. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; )
117. &#160;&#160;&#160; &#160;&#160;&#160; )
118. &#160;&#160;&#160; &#160;&#160;&#160; (setq I (1+ I))
119. &#160;&#160;&#160; &#160;&#160;&#160; )
120. &#160;&#160;&#160; &#160;&#160;&#160; ;;绘制竖线
121. &#160;&#160;&#160; &#160;&#160;&#160; (command
122. &#160;&#160;&#160; &#160;&#160;&#160; "_.LINE"
123. &#160;&#160;&#160; &#160;&#160;&#160; "non"
124. &#160;&#160;&#160; &#160;&#160;&#160; P1
125. &#160;&#160;&#160; &#160;&#160;&#160; "non"
126. &#160;&#160;&#160; &#160;&#160;&#160; (polar P1 (* -0.5 pi) (* 2 (1+ (length LST)) T_HIGH))
127. &#160;&#160;&#160; &#160;&#160;&#160; ""
128. &#160;&#160;&#160; &#160;&#160;&#160; )
129. &#160;&#160;&#160; &#160;&#160;&#160; (setq SS (entlast))
130. &#160;&#160;&#160; &#160;&#160;&#160; (command "_.CHANGE" SS "" "P" "Color" "2" "")
131. &#160;&#160;&#160; &#160;&#160;&#160; (foreach N '(6 14 24 34)
132. &#160;&#160;&#160; &#160;&#160;&#160; (command "_.COPY"
133. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;SS
134. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;""
135. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;"non"
136. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;'(0 0)
137. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;"non"
138. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;(list (* N T_HIGH) 0)
139. &#160;&#160;&#160; &#160;&#160;&#160; )
140. &#160;&#160;&#160; &#160;&#160;&#160; )
141. &#160;&#160;&#160; &#160;&#160;&#160; (command "_.UCS" "Prev")
142. &#160;&#160;&#160; &#160;&#160;&#160; (command "_.UNDO" "end")
143. &#160;&#160;&#160; &#160;&#160;&#160; (setvar "cmdecho" CM)
144. &#160;&#160;&#160; )
145. &#160;&#160;&#160; )
146. &#160;&#160;&#160; ;;
147. &#160;&#160;&#160; (princ)
148. )

;;;功能:圆坐标输出到表格 ;;;_______________________________________________________ ;;;_______________________________________________________ (defun C:MAK (/ CEN CM ED EN I LST N P1 P2 PT_I R SS T_HIGH) &#160;&#160;&#160; ;; &#160;&#160;&#160; (princ "\n设置文字高度 <") &#160;&#160;&#160; (princ (getvar "TEXTSIZE")) &#160;&#160;&#160; (if&#160;&#160;&#160; (= (setq T_HIGH (getstring ">: ")) "") &#160;&#160;&#160; (setq T_HIGH (getvar "TEXTSIZE")) &#160;&#160;&#160; (setq T_HIGH (atof T_HIGH)) &#160;&#160;&#160; ) &#160;&#160;&#160; (if&#160;&#160;&#160; (and (setq P1 (getpoint "\n插入点: ")) &#160;&#160;&#160; &#160;&#160;&#160;&#160; (princ "\n选择圆对象...") &#160;&#160;&#160; &#160;&#160;&#160;&#160; (setq SS (ssget '((0 . "CIRCLE")))) &#160;&#160;&#160; ) &#160;&#160;&#160; (progn &#160;&#160;&#160; &#160;&#160;&#160; ;; &#160;&#160;&#160; &#160;&#160;&#160; (command "_.UNDO" "group") &#160;&#160;&#160; &#160;&#160;&#160; (setq CM (getvar "cmdecho")) &#160;&#160;&#160; &#160;&#160;&#160; (setvar "cmdecho" 0) &#160;&#160;&#160; &#160;&#160;&#160; ;;根据半径排序 &#160;&#160;&#160; &#160;&#160;&#160; (setq LST '() &#160;&#160;&#160; &#160;&#160;&#160; &#160; N&#160;&#160; 0 &#160;&#160;&#160; &#160;&#160;&#160; ) &#160;&#160;&#160; &#160;&#160;&#160; (repeat (sslength SS) &#160;&#160;&#160; &#160;&#160;&#160; (setq EN (ssname SS N)) &#160;&#160;&#160; &#160;&#160;&#160; (setq ED (entget EN)) &#160;&#160;&#160; &#160;&#160;&#160; (if (member &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (setq CEN (cdr (assoc 10 ED))) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; LST &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; ) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; () &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (progn &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (setq R&#160;&#160;&#160; &#160; (cdr (assoc 40 ED)) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; LST (cons (list R EN) LST) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; ) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; ) &#160;&#160;&#160; &#160;&#160;&#160; ) &#160;&#160;&#160; &#160;&#160;&#160; (setq N (1+ N)) &#160;&#160;&#160; &#160;&#160;&#160; ) &#160;&#160;&#160; &#160;&#160;&#160; (setq LST (vl-sort LST &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160;&#160; (function (lambda (E1 E2) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; (< (car E1) (car E2)) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160;&#160; ) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; ) &#160;&#160;&#160; &#160;&#160;&#160; ) &#160;&#160;&#160; &#160;&#160;&#160; ;;绘制表头 &#160;&#160;&#160; &#160;&#160;&#160; (setq P2 (polar P1 0 (* 34 T_HIGH))) &#160;&#160;&#160; &#160;&#160;&#160; (command "_.LINE" "non" P1 "non" P2 "") &#160;&#160;&#160; &#160;&#160;&#160; (setq SS (entlast)) &#160;&#160;&#160; &#160;&#160;&#160; (command "_.CHANGE" SS "" "P" "Color" "2" "") &#160;&#160;&#160; &#160;&#160;&#160; (command "_.COPY" &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; SS &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; "" &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; "non" &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; '(0 0) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; "non" &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; (list 0 (* -2 T_HIGH)) &#160;&#160;&#160; &#160;&#160;&#160; ) &#160;&#160;&#160; &#160;&#160;&#160; (setq PT_I (polar P1 (* -0.5 pi) T_HIGH)) &#160;&#160;&#160; &#160;&#160;&#160; (foreach N '(("序号" 3) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;("孔&#160; 径" 10) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;("X 坐标" 19) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;("Y 坐标" 29) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; ) &#160;&#160;&#160; &#160;&#160;&#160; (command "_.text" &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;"j" &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;"MC" &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;(polar PT_I 0 (* T_HIGH (cadr N))) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;T_HIGH &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;0 &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;(car N) &#160;&#160;&#160; &#160;&#160;&#160; ) &#160;&#160;&#160; &#160;&#160;&#160; ) &#160;&#160;&#160; &#160;&#160;&#160; ;;填写表中内容 &#160;&#160;&#160; &#160;&#160;&#160; (setq I 0) &#160;&#160;&#160; &#160;&#160;&#160; (repeat (length LST) &#160;&#160;&#160; &#160;&#160;&#160; (setq ED (entget (cadr (nth I LST)))) &#160;&#160;&#160; &#160;&#160;&#160; (setq CEN (cdr (assoc 10 ED)) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; R&#160;&#160;&#160; &#160; (cdr (assoc 40 ED)) &#160;&#160;&#160; &#160;&#160;&#160; ) &#160;&#160;&#160; &#160;&#160;&#160; ;;园内标记 &#160;&#160;&#160; &#160;&#160;&#160; (command "_.text" &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;"j" &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;"MC" &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;"non" &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;CEN &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;T_HIGH &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;"" &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;(itoa N) &#160;&#160;&#160; &#160;&#160;&#160; ) &#160;&#160;&#160; &#160;&#160;&#160; ;;增加一行 &#160;&#160;&#160; &#160;&#160;&#160; (command "_.COPY" &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;SS &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;"" &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;'(0 0) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;(list 0 (* -2 (+ I 2) T_HIGH)) &#160;&#160;&#160; &#160;&#160;&#160; ) &#160;&#160;&#160; &#160;&#160;&#160; ;;写文字 &#160;&#160;&#160; &#160;&#160;&#160; (setq PT_I (polar PT_I (* -0.5 pi) (* 2 T_HIGH))) &#160;&#160;&#160; &#160;&#160;&#160; (foreach N (list (list (strcat "H"(itoa I)) 3) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;(list (strcat "%%C" (rtos R 2 2)) 10) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;(list (rtos (car CEN) 2 4) 19) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;(list (rtos (cadr CEN) 2 4) 29) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160; ) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (command "_.text" &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; "j" &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; "MC" &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; (polar PT_I 0 (* T_HIGH (cadr N))) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; T_HIGH &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; 0 &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; (car N) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; ) &#160;&#160;&#160; &#160;&#160;&#160; ) &#160;&#160;&#160; &#160;&#160;&#160; (setq I (1+ I)) &#160;&#160;&#160; &#160;&#160;&#160; ) &#160;&#160;&#160; &#160;&#160;&#160; ;;绘制竖线 &#160;&#160;&#160; &#160;&#160;&#160; (command &#160;&#160;&#160; &#160;&#160;&#160; "_.LINE" &#160;&#160;&#160; &#160;&#160;&#160; "non" &#160;&#160;&#160; &#160;&#160;&#160; P1 &#160;&#160;&#160; &#160;&#160;&#160; "non" &#160;&#160;&#160; &#160;&#160;&#160; (polar P1 (* -0.5 pi) (* 2 (1+ (length LST)) T_HIGH)) &#160;&#160;&#160; &#160;&#160;&#160; "" &#160;&#160;&#160; &#160;&#160;&#160; ) &#160;&#160;&#160; &#160;&#160;&#160; (setq SS (entlast)) &#160;&#160;&#160; &#160;&#160;&#160; (command "_.CHANGE" SS "" "P" "Color" "2" "") &#160;&#160;&#160; &#160;&#160;&#160; (foreach N '(6 14 24 34) &#160;&#160;&#160; &#160;&#160;&#160; (command "_.COPY" &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;SS &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;"" &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;"non" &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;'(0 0) &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;"non" &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;(list (* N T_HIGH) 0) &#160;&#160;&#160; &#160;&#160;&#160; ) &#160;&#160;&#160; &#160;&#160;&#160; ) &#160;&#160;&#160; &#160;&#160;&#160; (command "_.UCS" "Prev") &#160;&#160;&#160; &#160;&#160;&#160; (command "_.UNDO" "end") &#160;&#160;&#160; &#160;&#160;&#160; (setvar "cmdecho" CM) &#160;&#160;&#160; ) &#160;&#160;&#160; ) &#160;&#160;&#160; ;; &#160;&#160;&#160; (princ) )

tobyliang

2楼的程序我用了，导入CAD时会提示出错啊！（命令: appload 已成功加载 mak.lsp。命令: ; 错误: 输入的列表有缺陷），请修正一下好吗。

zml84

3楼请不要轻易说。
2楼代码显示不正确，是论坛解析的问题。纯文本如下：

;;;功能:圆坐标输出到表格
;;;_______________________________________________________
;;;_______________________________________________________
(defun C:MAK (/ CEN CM ED EN I LST N P1 P2 PT_I R SS T_HIGH)
    ;;
    (princ "\n设置文字高度 <")
    (princ (getvar "TEXTSIZE"))
    (if    (= (setq T_HIGH (getstring ">: ")) "")
    (setq T_HIGH (getvar "TEXTSIZE"))
    (setq T_HIGH (atof T_HIGH))
    )
    (if    (and (setq P1 (getpoint "\n插入点: "))
         (princ "\n选择圆对象...")
         (setq SS (ssget '((0 . "CIRCLE"))))
    )
    (progn
        ;;
        (command "_.UNDO" "group")
        (setq CM (getvar "cmdecho"))
        (setvar "cmdecho" 0)
        ;;根据半径排序
        (setq LST '()
          N   0
        )
        (repeat (sslength SS)
        (setq EN (ssname SS N))
        (setq ED (entget EN))
        (if (member
            (setq CEN (cdr (assoc 10 ED)))
            LST
            )
            ()
            (progn
            (setq R      (cdr (assoc 40 ED))
                  LST (cons (list R EN) LST)
            )
            )
        )
        (setq N (1+ N))
        )
        (setq LST (vl-sort LST
                   (function (lambda (E1 E2)
                         (< (car E1) (car E2))
                     )
                   )
              )
        )
        ;;绘制表头
        (setq P2 (polar P1 0 (* 34 T_HIGH)))
        (command "_.LINE" "non" P1 "non" P2 "")
        (setq SS (entlast))
        (command "_.CHANGE" SS "" "P" "Color" "2" "")
        (command "_.COPY"
             SS
             ""
             "non"
             '(0 0)
             "non"
             (list 0 (* -2 T_HIGH))
        )
        (setq PT_I (polar P1 (* -0.5 pi) T_HIGH))
        (foreach N '(("序号" 3)
             ("孔  径" 10)
             ("X 坐标" 19)
             ("Y 坐标" 29)
            )
        (command "_.text"
             "j"
             "MC"
             (polar PT_I 0 (* T_HIGH (cadr N)))
             T_HIGH
             0
             (car N)
        )
        )
        ;;填写表中内容
        (setq I 0)
        (repeat (length LST)
        (setq ED (entget (cadr (nth I LST))))
        (setq CEN (cdr (assoc 10 ED))
              R      (cdr (assoc 40 ED))
        )
        ;;园内标记
        (command "_.text"
             "j"
             "MC"
             "non"
             CEN
             T_HIGH
             ""
             (itoa N)
        )
        ;;增加一行
        (command "_.COPY"
             SS
             ""
             '(0 0)
             (list 0 (* -2 (+ I 2) T_HIGH))
        )
        ;;写文字
        (setq PT_I (polar PT_I (* -0.5 pi) (* 2 T_HIGH)))
        (foreach N (list (list (strcat "H" (itoa I)) 3)
                 (list (strcat "%%C" (rtos R 2 2)) 10)
                 (list (rtos (car CEN) 2 4) 19)
                 (list (rtos (cadr CEN) 2 4) 29)
               )
            (command "_.text"
                 "j"
                 "MC"
                 (polar PT_I 0 (* T_HIGH (cadr N)))
                 T_HIGH
                 0
                 (car N)
            )
        )
        (setq I (1+ I))
        )
        ;;绘制竖线
        (command
        "_.LINE"
        "non"
        P1
        "non"
        (polar P1 (* -0.5 pi) (* 2 (1+ (length LST)) T_HIGH))
        ""
        )
        (setq SS (entlast))
        (command "_.CHANGE" SS "" "P" "Color" "2" "")
        (foreach N '(6 14 24 34)
        (command "_.COPY"
             SS
             ""
             "non"
             '(0 0)
             "non"
             (list (* N T_HIGH) 0)
        )
        )
        (command "_.UCS" "Prev")
        (command "_.UNDO" "end")
        (setvar "cmdecho" CM)
    )
    )
    ;;
    (princ)
)

tobyliang

四楼的程序坐标系不对啊，程序修改后不能制定零点了，另外圆上面的序号与表格里面的对不上号码了啊，请再修正一下好吗