alexmai 发表于 2023-4-4 18:01:47

如何把坐标存储在文件中

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

(defun c:xxx (/c pt pt2 r snap)

(if #Pt
   (WHILE
    (setq p1 (getpoint "\n插入点:"))
    (command "line" (w2u (car #Pt)) p1 "")
   )
   (progn
      (setq p1 (getpoint "\n预设射线坐标点 : "))
      (setq #Pt (list (u2w p1)))
      (WHILE
      (setq p1 (getpoint "\n插入点:"))
      (command "line" (w2u (car #Pt)) p1 "")
      )
   )
);if

)
;;坐标WCS=>UCS
(defun w2u( pt )
(trans pt 0 1)
)
;999公共函数
;;坐标UCS=>WCS
(defun u2w( pt )
(trans pt 1 0)
)




tigcat 发表于 2023-4-4 18:14:03

写字典，可以随图保存

alexmai 发表于 2023-4-4 18:18:13

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

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

liuhe 发表于 2023-4-4 20:55:08

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

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

liuhe 发表于 2023-4-4 21:14:01

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

你保存表啊，坐标是表

alexmai 发表于 2023-4-5 12:11:30

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

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

liuhe 发表于 2023-4-5 14:24:12

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

你如果用了user 储存，怕就怕其他程序也用这个。字典是可以最大程度保证唯一性
页: [1]
查看完整版本: 如何把坐标存储在文件中