[编程申请]：如何将坐标数据文件中的点及点标记展到CAD图中

lsy

如坐标数据文件为：
2500，4300，1678.24
2540，4356，1676.58
...............
把X（2500），Y（4300）坐标点以一个直径为0.3毫米的点标记在图上，再把H（1678.24）作为一个字符标记在点标记的旁边

ll_j

最初由 lsy 发布
如坐标数据文件为：
2500，4300，1678.24
2540，4356，1676.58
...............
把X（2500），Y（4300）坐标点以一个直径为0.3毫米的点标记在图上，再把H（1678.24）作为一个字符标记在点标记的旁边

可以编程读取数值，再处理，然后绘图。

另外，可以用Uedit及Excel辅助作图，如果你有一定的Excel基础，此方法简便易行：
1.用Uedit将文件中的“，”替换为制表符（Uedit中为“^t”），供Excel读取。
2.用Excel制作键盘宏（类似.scr命令文件），如下附件。
3.在Acad文本屏粘贴绘图。

黄卫文

我为你编了一个小程序用于A2K以上版本，用法是：
1、你可以建一个文件按上面你说的格式写好存盘为*.txt，文件中的逗号要用半角的逗号“,”！！
2、加载我下面的程序。
3、在COMMAND下键入read_txt，就能解决好了。
4、注意事项。字形为当前字形，字高为当前字高，所画的点为DONUT命令所画，如果你想调整所画点的大小，你可先用DONUT命令画一个再删除它不能用UNDO删除！所标标高与点之间的距离为DONUT的最大半径加上字高的一半。

2. (defun c:read_txt (/          file_txt        loop   txt_xyz             fil
   
3.                    x          y         z        xy     yz     xyz    x_len
   
4.                    l_len  pt
   
5.                   )
   
6.   (setq        file_txt (getfiled "Read TXT  File" " " "txt" 8)
   
7.         loop         t
   
8.         txt_xyz         nil
   
9.   )
   
10.   (vl-load-com)
    
11.   (setvar "CMDECHO" 0)
    
12.   (command "_.undo" "a" "off" "_.undo" "g")
    
13.   (if file_txt
    
14.     (progn
    
15.       (setq fil (open file_txt "r"))
    
16.       (while loop
    
17.         (setq xyz (read-line fil))
    
18.         (if (not xyz)
    
19.           (progn (close fil) (setq loop nil))
    
20.           (setq        x_len        (vl-string-position (ascii ",") xyz)
    
21.                 x        (substr xyz 1 x_len)
    
22.                 yz        (substr xyz (+ x_len 2))
    
23.                 y_len        (vl-string-position (ascii ",") yz)
    
24.                 y        (substr yz 1 y_len)
    
25.                 z        (substr yz (+ y_len 2))
    
26.                 xy        (list (atof x) (atof y))
    
27.                 xyz        (list xy z)
    
28.                 txt_xyz        (cons xyz txt_xyz)
    
29.           )
    
30.         )
    
31.       )
    
32.       (foreach pt txt_xyz
    
33.         (command
    
34.           "_.doughnut"
    
35.           ""
    
36.           ""
    
37.           (car pt)
    
38.           ""
    
39.           "_.text"
    
40.           (polar (car pt)
    
41.                  0.0
    
42.                  (+ (getvar "donutid") (* 0.5 (getvar "textsize")))
    
43.           )
    
44.           (getvar "textsize")
    
45.           0.0
    
46.           (cadr pt)
    
47.         )
    
48.       )
    
49.     )
    
50.   )
    
51.   (command "_.undo" "e" "_.undo" "a" "on")
    
52. )

(defun c:read_txt (/          file_txt        loop   txt_xyz             fil<br />                    x          y         z        xy     yz     xyz    x_len<br />                    l_len  pt<br />                   )<br />   (setq        file_txt (getfiled "Read TXT  File" " " "txt" 8)<br />         loop         t<br />         txt_xyz         nil<br />   )<br />   (vl-load-com)<br />   (setvar "CMDECHO" 0)<br />   (command "_.undo" "a" "off" "_.undo" "g")<br />   (if file_txt<br />     (progn<br />       (setq fil (open file_txt "r"))<br />       (while loop<br />         (setq xyz (read-line fil))<br />         (if (not xyz)<br />           (progn (close fil) (setq loop nil))<br />           (setq        x_len        (vl-string-position (ascii ",") xyz)<br />                 x        (substr xyz 1 x_len)<br />                 yz        (substr xyz (+ x_len 2))<br />                 y_len        (vl-string-position (ascii ",") yz)<br />                 y        (substr yz 1 y_len)<br />                 z        (substr yz (+ y_len 2))<br />                 xy        (list (atof x) (atof y))<br />                 xyz        (list xy z)<br />                 txt_xyz        (cons xyz txt_xyz)<br />           )<br />         )<br />       )<br />       (foreach pt txt_xyz<br />         (command<br />           "_.doughnut"<br />           ""<br />           ""<br />           (car pt)<br />           ""<br />           "_.text"<br />           (polar (car pt)<br />                  0.0<br />                  (+ (getvar "donutid") (* 0.5 (getvar "textsize")))<br />           )<br />           (getvar "textsize")<br />           0.0<br />           (cadr pt)<br />         )<br />       )<br />     )<br />   )<br />   (command "_.undo" "e" "_.undo" "a" "on")<br /> )

方法二：http://www.xdcad.net/forum/showthread.php?s=&threadid=17582

charlin

是不是输入id命令时，会在显示坐标并记录下来

ljttjl

网盘http://ljttjl.ys168.com  20080517目录下载zd.vlx程序即可。