ZZXXQQ斑竹帮忙做个程序啊

claotlaot

程序选取圆后自动标注如附件图所示

要求能设置字高以及小数点精度，谢谢

claotlaot

亲爱的斑竹人呢，~~

ZZXXQQ

3. ;圆心坐标标注 明经  huanghao35 2008.4.8 ，ZZXXQQ 2008.5.6改
4. (defun c:edim (/ ds SS PC rad PY PX P4 P5)
5. (setvar "CMDECHO" 0)
6. (setq oldos (getvar "OSMODE"))
7. (setq oldzin (getvar "DIMZIN"))
8. (setvar "OSMODE" 0)
9. (setvar "DIMZIN" 0)
10. (setvar "LUPREC" 3)
11. (setq ds (getdist "\nEnter a distance for dimension text:"))
12. (princ "\nSelect circle's :")
13. (setq ss (ssget '((0 . "CIRCLE"))))
14. (setq i 0)
15. (repeat (sslength ss)
16.   (setq ssn (ssname ss i))
17.   (setq PC (cdr (assoc 10 (entget ssn))))
18.   (setq rad (cdr (assoc 40 (entget ssn))))
19.   (setq py (polar pc (/ pi 2) rad))
20.   (setq py (trans py 0 1))
21.   (setq px (polar pc 0 rad))
22.   (setq px (trans px 0 1))
23.   (setq p4 (polar pc (/ pi 2) (+ (* rad 1.1) ds)))
24.   (setq p4 (trans p4 0 1))
25.   (setq p5 (polar pc 0 (+ (* rad 1.1) ds)))
26.   (setq p5 (trans p5 0 1))
27.   (command "dimordinate" "cen" py p4)
28.   (command "dimordinate" "cen" px p5)
29.   (setq i (1+ i))
30. )
31. (setvar "OSMODE" oldos)
32. (setvar "DIMZIN" oldzin)
33. (setvar "CMDECHO" 1)
34. (princ)
35. )

;圆心坐标标注 明经  huanghao35 2008.4.8 ，ZZXXQQ 2008.5.6改 (defun c:edim (/ ds SS PC rad PY PX P4 P5) (setvar "CMDECHO" 0) (setq oldos (getvar "OSMODE")) (setq oldzin (getvar "DIMZIN")) (setvar "OSMODE" 0) (setvar "DIMZIN" 0) (setvar "LUPREC" 3) (setq ds (getdist "\nEnter a distance for dimension text:")) (princ "\nSelect circle's :") (setq ss (ssget '((0 . "CIRCLE")))) (setq i 0) (repeat (sslength ss)   (setq ssn (ssname ss i))   (setq PC (cdr (assoc 10 (entget ssn))))   (setq rad (cdr (assoc 40 (entget ssn))))   (setq py (polar pc (/ pi 2) rad))   (setq py (trans py 0 1))   (setq px (polar pc 0 rad))   (setq px (trans px 0 1))   (setq p4 (polar pc (/ pi 2) (+ (* rad 1.1) ds)))   (setq p4 (trans p4 0 1))   (setq p5 (polar pc 0 (+ (* rad 1.1) ds)))   (setq p5 (trans p5 0 1))   (command "dimordinate" "cen" py p4)   (command "dimordinate" "cen" px p5)   (setq i (1+ i)) ) (setvar "OSMODE" oldos) (setvar "DIMZIN" oldzin) (setvar "CMDECHO" 1) (princ) )

claotlaot

非常感谢，`~试用一下，程序很好