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

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

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)<BR>(setvar "dimzin" 1)<BR>(setq pt1 (getpoint"\n请点取标注点:"))       <BR>(setq x (cadr pt1))<BR>(setq y (car pt1))<BR>(setq a (rtos x 2 3))<BR>(setq b (rtos y 2 3))<BR>(setq xa (strcat "X " a))<BR>(setq yb (strcat "Y " b))<BR>(command "leader" pt1 pause               "" xa yb "")<BR>)


面积标注程序如下：文字大小为3


(defun c:bmj ()<BR>       (setq p1 (getpoint "请在要标注封闭区域内点一下:"))<BR>       (command "-boundary" p1 "")<BR>       (setq bj (entlast))<BR>       (command "area" "object" bj "")<BR>       (setq mj (rtos (getvar "area") 2 2))<BR>       (command "_.text" "mc" p1 3 0 mj "")<BR>       )


如不能满足要求，可以根据个人需求改编。

myfreemind 发表于 2004-2-2 22:35:00

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

yfy2003 发表于 2004-2-2 22:51:00

简单一点！


给你个联接：


<A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=8831" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=8831</A>
页: [1]
查看完整版本: 求：CAD2004坐标（XY)、面积一次性标注程序