工作文件的位置，

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)
)