如何打印出文件存放路径？

gogok

大家好：


请问如何在出图时将文件在硬盘上的存放路径打印到图纸上，以便于查找？

yesong555

启用打印戳记

cadhby_ylh

在哪？　

gzy

命令：plotstamp 或：“打印”对话框里去设置。

cadhby_ylh

谢谢!找到了，不过预览时看不到，是吗？

BDYCAD

我從前很少用打印戳记. 因為它不能由我設置它的位置, 所以我一直用下面這個程序來做的. rogram make by ＢＤＹＣＡＤ
;2003-04-16
(defun c:TFF (/ file el ctabc model dd ell fpath rt lian spoint tp ddp)
(SETVAR "CMDECHO" 0)
(COMMAND ".UNDO" "G")
(setq file (strcase (getvar "dwgprefix")) ;---|
el (STRCASE (getvar "dwgname")) ; |
ctabc (getvar "ctab")
MODEL (STRCAT "Model")
dd (strcat "繪圖位置﹕" ctabc)
;;; ell (strcase (getvar "loginname")); 打上電腦名
fpath (strcat "文件路徑﹕" ;|ell|; "--" file el)
rt (rtos (getvar "cdate") 2 6)
lian (strcat "繪圖日期﹕"
(substr rt 1 4)
"-"
(substr rt 5 2)
"-"
(substr rt 7 2)
)
spoint (GETPOINT "\n請點選或輸入文件路徑放置起點﹕")
tp (list (car spoint) (- (cadr spoint) 5))
ddp (list (car tp) (- (cadr tp) 5))
)
(if (= ctabc MODEL)
(SETQ dd (strcat "繪圖位置﹕模型空間"))
)
(command "text" spoint "2.5" "" fpath)
(command "text" tp "" "" dd)
(command "text" ddp "" "" LIAN)
(COMMAND ".UNDO" "E")
(SETVAR "CMDECHO" 1)
(princ)
)