[原创]：蜜蜂软体：坐标标注（源代码公开，你可以修改）

netbee · 发表于 2004-4-9 22:06:48

谢谢大家的支持，再次放送源代码
轴线绘制：
http://www.xdcad.net/forum/showthread.php?s=&threadid=166187
注：
　　轴线绘制只是通过修改老天正中的轴线绘制功能，希望大家能提出意见！

kplt · 发表于 2004-4-10 01:42:07

可否增加极坐标的标注？

caixigao · 发表于 2004-5-4 11:48:49

测量工作需要，下载一个试一试！

netbee · 发表于 2004-5-11 19:32:41

最初由 caixigao 发布
[B]测量工作需要，下载一个试一试！ [/B]

呵呵，因为我是搞测绘的。
所以我这个最关键的是考虑了测量坐标系！
当你的坐标系正北方向是X正南方向是Y的话，其他很多的坐标标注程序就不行了！

tomin75 · 发表于 2004-6-28 19:35:32

好，我要学习

HJZ · 发表于 2004-6-28 23:00:28

下来研究，以增长功力，更好地为论坛作贡献。提倡大家多奉献源码。

20042005 · 发表于 2004-6-29 19:45:43

8楼楼主的很实用，谢谢！
也谢谢一楼楼主。

wkqd · 发表于 2004-7-1 04:03:58

[php]
;;;对齐xy坐标
(setq x_字符数 (strlen  ptx1))
(setq y_字符数 (strlen  pty1))
(setq 相差字符数 (abs(- x_字符数 y_字符数)))
(setq 补充空格数 "")
(repeat 相差字符数 (setq 补充空格数 (strcat 补充空格数 " ")))
(if (= 相差字符数 0)
      (setq wkx1 (strcat ptx1)
            wky1 (strcat pty1)))

(if (and (/= l 0) (> x_字符数 y_字符数))
      (setq wkx1 (strcat ptx1)
            wky1 (strcat  补充空格数 pty1)))

(if (and (/= l 0) (< x_字符数 y_字符数))
      (setq wkx1 (strcat  补充空格数 ptx1)
            wky1 (strcat  pty1)))

   ;;把坐标字符串加缀
   ;;若不为测量坐标系则XY互换
   (if (= ucscfg 1)
   (progn
   (setq strx1 (strcat " " sstr1 wkx1 " "))
   (setq stry1 (strcat " " sstr2 wky1 " "))
   )
   (progn
   (setq strx1 (strcat " " sstr1 wkY1 " "))
   (setq stry1 (strcat " " sstr2 wkX1 " "))
   )
   )
   (setq
   linel (rtos
   (* Newtextsize
      (STRLEN strx1)
      0.9
   )
         )
   )
[/php]

cadlmap · 发表于 2004-7-1 20:47:08

灌水

hmh888888 · 发表于 2004-8-31 15:40:19

可以加个坐标导出功能，导至*.csv文件内更方便

cyxzime · 发表于 2004-12-5 15:56:33

已下载，有空学习一下，不懂的地方再请教！

hemeng100 · 发表于 2004-12-5 20:11:12

要是能批量标注就更好了

xdkjzzz · 发表于 2005-3-9 09:38:10

确实不错

luob72 · 发表于 2005-3-9 16:55:15

不会加载啊

1365252869 · 发表于 2005-3-21 17:13:33

太好了，加油干

账号		自动登录	找回密码
密码			立即注册