claotlaot 发表于 2008-5-5 13:36:00

ZZXXQQ斑竹帮忙做个程序啊

本帖最后由 作者 于 2008-5-5 13:37:26 编辑 <br /><br /> <p>程序选取圆后自动标注如附件图所示</p><p>要求能设置字高以及小数点精度，谢谢</p>

claotlaot 发表于 2008-5-5 14:42:00

亲爱的斑竹人呢，~~

ZZXXQQ 发表于 2008-5-7 08:05:00


;圆心坐标标注 明经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 发表于 2008-5-7 14:37:00

非常感谢，`~试用一下，程序很好
页: [1]
查看完整版本: ZZXXQQ斑竹帮忙做个程序啊