坐标！

wedg · 发表于 2004-6-28 08:40

我现在有一张dwg图，图上有300多个坐标点（坐标在图上已于各对应点标出了）。可是单位现在要求把这些坐标点绘制成表格（dwg格式）打印出来！各位有什么办法？？我在想如果，可以把这些坐标导入execl中，再导入cad那该多好？（有象展点程序的逆过程）各位能编写出这样的程序吗？

ljcgq · 发表于 2004-6-28 19:31

试一试这个..... ;=====================================
;点坐标输出
;编程 ljc
;=====================================
(defun c:hh()
(setq ss (ssget '((0 . "point")) ))
(setq zg(getint "请输入字高"))
(setq pp(getpoint "请选择位置"))
(setq ppx(car pp))
(setq ppy(cadr pp)) (setq n (sslength ss))
(setq a 0)
(setq b 0)
(repeat n
(setq mz (ssname ss a))
(setq q(entget mz))
(setq pp1(list ppx (- ppy b)))
(setq pp2(list (+ ppx (* 10 zg)) (- ppy b)))
(setq pp3(list (+ ppx (* 30 zg)) (- ppy b)))
(setq pp4(list (+ ppx (* 50 zg)) (- ppy b)))

(setq qd1(assoc 10 q))
(setq qd(cdr qd1) )

(setq qdx (car qd))
(setq qdy (cadr qd))
(setq qdz(caddr qd))
(command "text" "j" "tc" qd zg 0 a "")
(command "text" "j" "tl" pp1 zg 0 a "")
(command "text" "j" "tl" pp2 zg 0 qdx "")
(command "text" "j" "tl" pp3 zg 0 qdy "")
(command "text" "j" "tl" pp4 zg 0 qdz "")
(setq b (+ b (* zg 2)))
(setq a (+ a 1))
)
)

ljcgq · 发表于 2004-6-28 19:37

如果需要排序到http://bbs.mjtd.com/forum.php?mod=forumdisplay&fid=3&page=上找找排序的程序，然后加在hh里就可以了，自己去试一下...

wedg · 发表于 2004-6-30 16:12

请教你的程序使用方法！谢谢！

ljcgq · 发表于 2004-6-30 18:04

加载后输入hh选择点。。。

ljcgq · 发表于 2004-6-30 18:50

wedg · 发表于 2004-6-30 19:20

你好事做到底，告诉我排序的方法？ok?

wedg · 发表于 2004-6-30 19:29

而且，我使用后发现有以下几个问题：

1、小数点后的数字太多了。如果能由我们自己控制就好了！（三位或四位）

2.那些点的标号都是由程序自动编的，如果由自己标号，程序能生成坐标吗？

ljcgq · 发表于 2004-7-1 15:35

其实我的水平太菜，我也不会排序，我只是觉得这个程序可能对你有用所以给你贴上来了....

wedg · 发表于 2004-7-1 16:31

o ,不过还是谢谢你！

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

坐标！

本帖子中包含更多资源