求：CAD2004坐标（XY)、面积一次性标注程序

Lmaoy · 发表于 2003-12-26 18:25:00

CAD2004坐标（XY)、面积自带标注只能标注X坐标，再次标注Y坐标，且在一根引线上，方向没法调整；面积标注不能自动产生文字粘贴；求大师兄支持一次性标注程序！
不胜感激之至！

17号 · 发表于 2004-1-6 15:19:00

关注，
等待

wengsg · 发表于 2004-1-30 09:41:00

我正需要这个东西，静候。

chfeng · 发表于 2004-1-31 16:54:00

我用lisp语言编写了一个程序，下面是源程序，不妨试用。这里用的是测量上的大地坐标，其X，Y 与数学坐标相反。 (defun c:clzb (/ pt1 x y a b xa yb)
(setvar "dimzin" 1)
(setq pt1 (getpoint"\n请点取标注点:"))
(setq x (cadr pt1))
(setq y (car pt1))
(setq a (rtos x 2 3))
(setq b (rtos y 2 3))
(setq xa (strcat "X " a))
(setq yb (strcat "Y " b))
(command "leader" pt1 pause    "" xa yb "")
)
面积标注程序如下：文字大小为3
(defun c:bmj ()
   (setq p1 (getpoint "请在要标注封闭区域内点一下:"))
   (command "-boundary" p1 "")
   (setq bj (entlast))
   (command "area" "object" bj "")
   (setq mj (rtos (getvar "area") 2 2))
   (command "_.text" "mc" p1 3 0 mj "")
   )
如不能满足要求，可以根据个人需求改编。