[求助]：谁能给个LISP程序可批量标注座标？？

xxming · 发表于 2004-5-24 09:23:04

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

各位：我的晓东工具中的批量标注（2005）不能用，谁能给个LISP程序可批量标注座标？？

风车车 · 发表于 2004-5-24 19:58:08

能把要求说具体点吗？现成的没有，大家一起开发啊：）

xxming · 发表于 2004-5-24 20:44:13

就是点击该多义线，就可标注该图形所有点的X，Y座标值

chstart · 发表于 2004-5-25 18:58:04

而且最好能自动判别线的转折，用是适当的位置（左下左上右下右上）来引注
求助高手了 : )

xxming · 发表于 2004-5-26 15:45:50

各位：这个程序很难有人解答吗

eachy · 发表于 2004-5-27 08:04:42

最初由 xxming 发布
[B]各位：这个程序很难有人解答吗 [/B]

坐标标注的独立版本（正在修改原程序，这个是绝版了），可以替换掉XDTBOX中的文件。

xxming · 发表于 2004-5-27 08:23:11

怎么用？

eachy · 发表于 2004-5-27 12:12:47

最初由 xxming 发布
[B]怎么用？ [/B]

和工具箱中用法一样。

duely · 发表于 2004-5-27 15:21:35

用我的这个吧，这才是真正的绝版好lisp!加载之后键入zbbz就可以，而且在任何坐标系里标注的都是世界坐标！真的不错！

ydf7332462 · 发表于 2004-5-27 20:00:02

9F--是否批量，能否成ucs下？

xiaoxinxin · 发表于 2004-6-11 08:18:51

偶两个都要试试

falconry · 发表于 2004-6-11 08:39:38

(defun c:zb (/ p x y x1 y1 x2 y2 x0 y0)

(command "osnap" "none")
(setq p1 (getpoint"点选起点"))                   ;输入p1，需选整点
(setq p2 (getpoint"点选终点"))                   ;输入p2
(setq x1 (car p1))
(setq y1 (cadr p1))
(setq x0 (car p1))
(setq y0 (cadr p1))
(setq x2 (car p2))
(setq y2 (cadr p2))
  (while (< y1 y2)
(while (< x1 x2)
(command "pline" (list (- x1 25) y1)
                  (list (+ x1 25) y1)
                  ""
)
(command "pline" (list x1 (- y1 25))
                  (list x1 (+ y1 25))
                  ""
)
(setq x (rtos x1 2 0))
(setq y (rtos y1 2 0))
(command "text" (list (+ x1 1.7) (+ y1 0.9)) 4 0 "N=")
(command "text" (list (+ x1 0.9) (- y1 1.6)) 4 -90 "E=")
(command "text" (list (+ x1 7.6) (+ y1 0.9)) 4 0 y)
(command "text" (list (+ x1 0.9) (- y1 7.2)) 4 -90 x)
(print)
(setq x1 (+ x1 100))
)
  (setq x1 x0)
  (setq y1 (+ y1 100))
  )

xxming · 发表于 2004-6-11 09:01:56

楼上大哥：不能用啊程序有错

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

[求助] [求助]：谁能给个LISP程序可批量标注座标？？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块