将autocad中的信息获取到

jammie · 发表于 2022-7-6 07:48:54

祝贺代码的进步！有两种方法可以提示输入文件名-getstring和getfield。GetField将生成一个很好的对话框，但getstring也有其优点。也许下面的内容可以让您了解如何使用getstring


;;Set a default file name to save your data to
(setq saveFile "c:\\design.txt")

copy


;;The following will ask the user to type a new filename to save to
;;Or if they hit enter just use the default value
(setq prompt  (strcat "\nType file or hit enter to use [" saveFile "]"))
(setq input (getstring t prompt)) 
;;If the user has hit enter then the would like to use the default file name
;;Getstring will return "", that means there is no need to change the file name
;;Thats where the not expression comes in
(if
  (not (= input ""))
  (setq saveFile input)
)

最后

copy


;;Change the original line
;;(setq file (open "c:\\design.txt" "a")) to
(setq file (open saveFile "a"))

stevesfr · 发表于 2022-7-6 07:53:02

尝试插入这些修订，但可能确实遗漏了一些内容。。。。提示如何提示用户文件保存位置。
史蒂夫

kapat · 发表于 2022-7-6 07:56:58

除非有办法获得一个漂亮的“另存为”对话框，否则我认为查找并将txt文件从c:\移动到任何地方都与键入完整位置一样有用。我需要移动并保存它们，但我只是不断覆盖我的主“c:\”记事本，并在制作完成后粘贴/重命名它们。

jammie · 发表于 2022-7-6 07:58:54

@stevesfr，你能测试一下，看看它是否像预期的那样工作吗？

copy

(defun c:p2f (/ p x y z j ptcoord textloc cs_from cs_to file text filename)
;(setq filename (strcat "c:\"(getstring "\nEnter File Name")".txt"))
(setq saveFile "c:\\design.txt")
(setq prompt  (strcat "\nType file or hit enter to use [" saveFile "]"))
(setq input (getstring t prompt)) 
(if
  (not (= input ""))
  (setq saveFile input)
)
(setq j (getint "\nEnter Start Number"))
(while ;start while
(setq p (getpoint "Pick Point"))
(setq cs_from 1)
(setq cs_to 0)
(setq p1 (trans p cs_from cs_to 0))
(setq textloc (getpoint p "PLACE TEXT"))
(setq x (rtos (car p1)))
(setq y (rtos (cadr p1)))
(setq z (rtos (caddr P1)))
(setq ptcoord (strcat "pt"(rtos j 2 0)"     "x"     "y"     "z))
(command "_leader" p textloc "" ptcoord "")
;(setq file (open filename "a"))
(setq file (open saveFile "a"))
;(write-line ptcoord file)
(write-line ptcoord saveFile)
;(close file)
(close saveFile)
(setq j (+ j 1))
(princ)
) ;end while
)

@kapat您应该查看Autolisp函数getfield-这将使您生成一个保存对话框

kapat · 发表于 2022-7-6 08:02:44

史蒂夫，你能做的就是重新做人

copy


(setq filename (strcat "c:\"(getstring "\nEnter File Name")".txt"))

使用：

copy


(setq filename (strcat (getstring "\nEnter File Name")".txt"))

当您保存它时，您可以在目录中键入“c:\file1\blahblah1”

或者你可以像我一样

copy

"c:\"

copy

"C:\Users\ (YOUR USERNAME) \Desktop\output file folder"

只需在其中标记您的计算机用户名，您就可以始终拥有一个包含所有点的桌面文件夹。

kapat · 发表于 2022-7-6 08:05:22

亲爱的，谢谢jammie！我无法详细说明这一点，谷歌无法理解我。感谢上帝赐予人类。好人。

stevesfr · 发表于 2022-7-6 08:07:34

@杰米
这在一定程度上起作用，但是在加载并从中调用程序时，我会看到一个警报弹出式问题屏幕。。。
“分配到受保护符号：提示输入中断循环？是…否…”。。。
选择保存结果的位置，程序不重复，现在每次都会询问起始坐标位置号是多少。

我用的是2008年的

jammie · 发表于 2022-7-6 08:13:34

@steve你能在我发布的代码中把变量名提示符改成msg之类的东西吗，看看效果如何？我脑子有点乱，提示是Autolisp函数，所以这是autocad返回的错误消息。。。

jammie · 发表于 2022-7-6 08:15:37

@欢迎光临

stevesfr · 发表于 2022-7-6 08:18:17

在这些修订之前，现在合并了上述修订（解决了问题），结果不会写入我的默认保存文件。最初的程序没有出现问题。现在有了这个版本，人们每次都必须输入一个起始点编号。事情每况愈下。但是，没有删除提示弹出窗口。

[编程交流] 将autocad中的信息获取到

发表回复

精选推荐