从文本输入坐标

rookie37 · 发表于 2022-7-6 17:21:54

我需要从文本文件中输入坐标

我写了一个lisp，但我相信有一个更容易/更干净的方法来做同样的事情

这将插入一个块

我在一列中键入excel 479.61，在另一列中键入22

然后我把这两个粘在一起

 
(COMMAND "-insert" "lsection" "479.61,22.00" "" "" "")
(DEFUN C:555 ()
(COMMAND "-insert" "lsection" "479.61,22.00" "" "" "")
(COMMAND "-insert" "lsection" "596.51,22.00" "" "" "")
(COMMAND "-insert" "lsection" "611.69,22.00" "" "" "")
(COMMAND "-insert" "lsection" "620.42,22.00" "" "" "")
(COMMAND "-insert" "lsection" "638.62,22.00" "" "" "")
)

rkmcswain · 发表于 2022-7-6 17:32:16

试一试：

copy


(setq fp (open "c:\\coords.txt" "r") lst '() i 0)
(while (setq a (read-line fp))
 (setq lst (cons a lst))
)
(close fp)
(repeat (length lst)
 (command "._insert" "lsection" (nth i lst) "" "" "")
 (setq i (1+ i))
)

borgunit · 发表于 2022-7-6 17:46:42

http://www.cadtutor.net/forum/showthread.php?t=25204

rookie37 · 发表于 2022-7-6 17:54:00

非常感谢。这节省了我一两天的工作

如何将其更改为查看2个文件？

c： \\x书签。txt“
c： \\y书签。txt“

或者（可能更好。不知道是否可行）

让我的文本文件看起来像

x
165.26
164.37
332.58
412.40
y
21
21
21
21

而不是

165.26,21.00
164.37,21.00
332.58,21.00
412.40,21.00