坐标！ - 编程申请 - AutoCAD论坛 - 明经CAD社区 - 第2页

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

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

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

试一试这个.....

;===================================== ;点坐标输出 ;编程 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:00

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

o ,不过还是谢谢你！

页: 1 [2]

明经CAD社区's Archiver