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

试一试：
 


(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

bsamc2000 发表于 2022-7-6 18:02:43

您也可以将其保留为Excel文件，并通过VBA或Dot Net打开。如果没有人先发，我明天会发。

bsamc2000 发表于 2022-7-6 18:18:21

试试这个。它应该允许您从现有块的列表中进行选择，并选择一个Excel文件来检索点列表。
很抱歉，代码中缺少注释，但我希望它能有所帮助。
积分。拉链

rookie37 发表于 2022-7-6 18:28:11

非常感谢你的帮助。我总是对这里的帮助感到惊讶。有时这比有偿服务要好。
 
这也让我有点尴尬。你已经完成了所有这些工作，而我对VBA一无所知。我从来没用过，但我可能会弄明白的。然而，我不知道如何编辑它或泰勒它到我的需要。
页: [1]
查看完整版本: 从文本输入坐标