gogok 发表于 2004-3-20 10:57:00

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

大家好：


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

yesong555 发表于 2004-3-20 11:02:00

启用打印戳记

cadhby_ylh 发表于 2004-3-20 12:16:00

在哪？　

gzy 发表于 2004-3-20 12:20:00

命令：plotstamp


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

cadhby_ylh 发表于 2004-3-21 14:16:00

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

BDYCAD 发表于 2004-3-21 17:01:00

我從前很少用打印戳记. 因為它不能由我設置它的位置, 所以我一直用下面這個程序來做的.


;Program make by ＢＤＹＣＡＤ<BR>;2003-04-16<BR>(defun c:TFF (/ file el ctabc model dd ell fpath rt lian spoint tp ddp)<BR>       (SETVAR "CMDECHO" 0)<BR>       (COMMAND ".UNDO" "G")<BR>       (setq        file               (strcase (getvar "dwgprefix")) ;---|<BR>        el                               (STRCASE (getvar "dwgname")) ;                                               |<BR>        ctabc       (getvar "ctab")<BR>        MODEL       (STRCAT "Model")<BR>        dd                               (strcat "繪圖位置﹕" ctabc)<BR>;;;        ell                       (strcase (getvar "loginname")); 打上電腦名<BR>        fpath       (strcat "文件路徑﹕" ;|ell|; "--" file el)<BR>        rt                               (rtos (getvar "cdate") 2 6)<BR>        lian               (strcat "繪圖日期﹕"<BR>                                                               (substr rt 1 4)<BR>                                                               "-"<BR>                                                               (substr rt 5 2)<BR>                                                               "-"<BR>                                                               (substr rt 7 2)<BR>                                                       )<BR>        spoint (GETPOINT "\n請點選或輸入文件路徑放置起點﹕")<BR>        tp                               (list (car spoint) (- (cadr spoint) 5))<BR>        ddp                       (list (car tp) (- (cadr tp) 5))<BR>       )<BR>       (if (= ctabc MODEL)<BR>                       (SETQ dd (strcat "繪圖位置﹕模型空間"))<BR>       )<BR>       (command "text" spoint "2.5" "" fpath)<BR>       (command "text" tp "" "" dd)<BR>       (command "text" ddp "" "" LIAN)<BR>       (COMMAND ".UNDO" "E")<BR>       (SETVAR "CMDECHO" 1)<BR>       (princ)<BR>)
页: [1]
查看完整版本: 如何打印出文件存放路径？