[推荐]：自编坐标标注工具！用了近10年了。

wwangffei

97年编的。那时是基于DOS版的R12，用到现在，其间见天正等软件也有类似功能，但感觉还是自己编的更完美些。



;***********    仅注x轴,y轴     ***************
(defun c:zbtxt ()
   (command "-style" "坐标文字" "romans" "" ".7" "" "" "" "")
)



(defun c:DD2(/ os or pt1 ptx1 ptx2 ptx pty ptz lx ly lz l1 l2 pt2
               h1 h a a2 b c d pt3 pt4 pt5 pt6)
(setq os (getvar "osmode"))
(setvar "osmode" 45)
(setq pt1 (getpoint "\n请点选要标注坐标的点:"))
    (setq ptx (rtos (car pt1) 2 2))
    (setq pty (rtos (cadr pt1) 2 2))
    (setq ptz (rtos (caddr pt1) 2 2))
    (setq lx (strlen ptx) ly (strlen pty) lz (strlen ptz))
(if (> lx ly)
    (setq l1 (+ lx 2))
    (setq l1 (+ ly 2))
)
(setq l2 (1+ lz))
(setvar "osmode" 0)
(setq pt2 (getpoint "\n请点选坐标放置的位置:"))
(setq ptx1 (car pt1) ptx2 (car pt2))   
    (setq h1 (getvar "TEXTSIZE"))
    (setq h (getreal (strcat "\n请键入文字高度<" (rtos h1 2 2) ">:")))
    (if (null h) (setq h h1))
(setq a (* l1 h 0.7)
       a2 (* l2 h 0.7)
       b (sqrt (* (* 0.5 h 0.7) (* 0.5 h 0.7) 2))  
       c (* 1.6 h)
       d (sqrt (+ (* (* 0.5 h 0.7) (* 0.5 h 0.7)) (* a a2)))
)
(if (> ptx2 ptx1)
  (setq pt3 (polar pt2 0 a)
        pt4 (polar pt2 (/ pi 4) b)
        pt5 (polar pt4 (* 1.5 pi) c)
        pt6 (polar pt3 (/ (* 7 pi) 4) b)
  )
  (setq pt3 (polar pt2 pi a)
        pt4 (polar pt3 (/ pi 4) b)
        pt5 (polar pt4 (* 1.5 pi) c)
        pt6 (polar pt3 (+ pi (atan 1 (* 2 12))) d)
  )
)
(setq or (getvar "clayer"))
(command "layer" "m" "坐标-引线" "co" "5" "" "s" or "")
(command "LINE" pt1 pt2 ""
          "change" "l" "" "P" "la" "坐标-引线" ""
          "LINE" pt2 pt3 ""
          "change" "l" "" "P" "la" "坐标-引线" "")
(command "layer" "m" "坐标-文字" "co" "6" "" "s" or "")
(command "TEXT" pt4 h 0 (princ (strcat "X=" pty)) ""
          "change" "l" "" "P" "la" "坐标-文字" ""
          "TEXT" pt5 h 0 (princ (strcat "Y=" ptx)) ""
          "change" "l" "" "P" "la" "坐标-文字" ""
          "redraw"
          "osmode" os
)
)

用法：
把上面一段文字用记事本保存，保存一个你喜欢的名字，后缀为lsp。比如，zb.lsp，然后存在cad能搜索到的目录。

使用时，现在名行输入  (load dd2)    ，回车。
然后任何时候在命令行直接输入dd2即可。

这里面包含两个命令，zbtxt，dd2。
zbtxt——当文字与坐标引线对不齐时，在命令行输入即可。
dd2——直接标注。不明白的话，命令行有提示的。

当然，如果标注3位、1位的时候，以及带上标高的时候，我都有相应的命令（dd1 \  dd3 \dd2z \dd3z)。事实上，我还有很多其它的命令，基本上很少用到CAD自带的图标、菜单或完整命令。不过传起来实在太麻烦。

先传上这个，大家看看是否有用。好的话，再传其它。
比如，插入各类球场\树木图块、成批种植树木等等，，，，都有。

众里寻她

有做好的吗？这个不会用啊！

wyx

现在这个东西多了

TLHMQH

2004版，公里网值不能标注。

zhanglq314

楼主可以标注用户坐标系吗？

tdgc

用了一下很不错的,能不能将你的程序打包传上来或是传到我的邮箱里,BTTLTDGC@163.COM 谢谢了

zlzlzlzl

zbtxt不明白是怎么用`

zjy88483

看不懂哎！

782150yhm

如果你认为好就上传上来，需要的人自会下载。

hktk1994

挺好用的
谢谢

782150yhm

怎么没下文了，上传你编的lsp程序阿。

XUFULAI

不明白是怎么用`