如何把坐标存储在文件中

alexmai

修改图纸会画云线标记修改范围，然后绘制一条线指向修改日期坐标点，如何把这个坐标点存储在该文件中，打开该文件再读取该坐标，继续使用。

2. (defun c:xxx (/  c pt pt2 r snap)
   
3. 
   
4.   (if #Pt
   
5.    (WHILE
   
6.     (setq p1 (getpoint "\n插入点:  "))
   
7.     (command "line" (w2u (car #Pt)) p1 "")
   
8.    )
   
9.    (progn  
   
10.       (setq p1 (getpoint "\n预设射线坐标点 : "))
    
11.       (setq #Pt (list (u2w p1)))
    
12.       (WHILE
    
13.         (setq p1 (getpoint "\n插入点:  "))
    
14.         (command "line" (w2u (car #Pt)) p1 "")
    
15.       )
    
16.    )
    
17.   );if
    
18. 
    
19. )
    
20. ;;坐标WCS=>UCS
    
21. (defun w2u( pt )
    
22. (trans pt 0 1)
    
23. )
    
24. ;999公共函数
    
25. ;;坐标UCS=>WCS
    
26. (defun u2w( pt )
    
27. (trans pt 1 0)
    
28. )

(defun c:xxx (/  c pt pt2 r snap)<br /> <br />   (if #Pt<br />    (WHILE <br />     (setq p1 (getpoint "\n插入点:  "))<br />     (command "line" (w2u (car #Pt)) p1 "")<br />    )<br />    (progn  <br />       (setq p1 (getpoint "\n预设射线坐标点 : "))<br />       (setq #Pt (list (u2w p1)))<br />       (WHILE <br />         (setq p1 (getpoint "\n插入点:  "))<br />         (command "line" (w2u (car #Pt)) p1 "")<br />       )<br />    )<br />   );if<br /> <br /> )<br /> ;;坐标WCS=>UCS<br /> (defun w2u( pt )<br /> (trans pt 0 1)<br /> )<br /> ;999公共函数<br /> ;;坐标UCS=>WCS<br /> (defun u2w( pt )<br /> (trans pt 1 0)<br /> )

tigcat

写字典，可以随图保存

alexmai

tigcat 发表于 2023-4-4 18:14
写字典，可以随图保存

坐标点有小数，字典是保存实数值

liuhe

alexmai 发表于 2023-4-4 18:18
坐标点有小数，字典是保存实数值

不可能吧   我把全局变量 都储存在字典里，字符串和坐标  都没有问题的

liuhe

alexmai 发表于 2023-4-4 18:18
坐标点有小数，字典是保存实数值

你保存表啊，坐标是表

alexmai

liuhe 发表于 2023-4-4 20:55
不可能吧   我把全局变量 都储存在字典里，字符串和坐标  都没有问题的

参考这个，搞定了，谢谢
http://bbs.mjtd.com/thread-184263-1-1.html

liuhe

alexmai 发表于 2023-4-5 12:11
参考这个，搞定了，谢谢
http://bbs.mjtd.com/thread-184263-1-1.html

你如果用了user 储存，怕就怕其他程序也用这个。字典是可以最大程度保证唯一性