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

Lmaoy

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

17号

关注，
等待

wengsg

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

chfeng

我用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 "")
) 如不能满足要求，可以根据个人需求改编。

myfreemind

编程申请里面的那个坐标注记程序你看看能不能用！

yfy2003

简单一点！ 给你个联接： http://bbs.mjtd.com/forum.php?mod=viewthread&tid=8831