社区 › Auto Lisp › 工作文件的位置，

danielk 发表于 2022-7-6 06:18:34

工作文件的位置，

我正在寻找一个lisp，它可以创建一个文本，显示我当前正在处理的文件的位置。
有吗？

Tharwat 发表于 2022-7-6 06:24:41

这
 

(defun c:foo (/ p)
(if (setq p (getpoint "\n Specify text location :"))
   (entmakex
   (list '(0 . "TEXT")
         (cons 10 p)
         (cons 11 p)
         '(50 . 0.)
         (cons 40 (getvar 'TEXTSIZE))
         (cons 07 (getvar 'TEXTSTYLE))
         (cons 01 (vl-string-right-trim "\\" (getvar 'DWGPREFIX)))
   )
   )
)
(princ)
)

danielk 发表于 2022-7-6 06:33:50

它不加载

Tharwat 发表于 2022-7-6 06:40:43

 
你能更具体地回答这个问题吗？

danielk 发表于 2022-7-6 06:46:47

抱歉，它没有加载，我缺少括号。
但是它把位置写在一个文本文件中，我希望它在图形中作为一个autocad文本实体。

Tharwat 发表于 2022-7-6 06:49:10

 
没关系，不用担心
 
 
代码已更新，请重试。

danielk 发表于 2022-7-6 06:59:16

你是个天才，谢谢！！！

Tharwat 发表于 2022-7-6 07:03:14

 
不客气

MSasu 发表于 2022-7-6 07:08:09

顺便说一句，您将通过内置的命令字段实现同样的效果。此外，这将确保路径标签保持最新。

dbroada 发表于 2022-7-6 07:12:52

我们现在有一个多行文字对象，其文件名字段隐藏在边界中，以确保我们知道文件来自何处。

查看完整版本: 工作文件的位置，