106
1万
101
顶梁支柱
使用道具 举报
0
24
初来乍到
13
56
39
初露锋芒
(defun c:pp (/ fnm fl)(while (null fnm) (or (snvalid (setq fnm (vl-string-trim " " (getstring T "\nFilename: ")))) (progn (princ "\n** Invalid Filename **") (setq fnm nil) ) ))(initget "D Documents")(setq fl (getkword "\nSpecify Save Location [D/DOcuments] <Other>: "))(cond ((eq fl "D")(setq fnm (strcat "c:\\pdf\" fnm ".pdf"))) ((eq fl "Documents")(setq fnm (strcat (getenv "userprofile") "\\My Documents\" fnm ".pdf"))) ( T (setq fnm (getfiled "Specify Save Location" fnm "pdf" 1))))(command "tilemode" "0")(command "-plot" "y" "" "Dwg To PDF.pc3" "ISO expand A4 (210.00 x 297.00 MM)" "M" "P" "N" "W" "0,0" "0,0" "1:1" "C" "Y" "test.ctb" "Y" "N" "N" "N" fnm "N" "Y")(princ))
4
2143
2197
限制会员
8
本版积分规则 发表回复 回帖后跳转到最后一页
微信公众平台
扫描访问手机版
点击图片下载手机App
|关于我们|小黑屋|乐筑天下 繁体中文
GMT+8, 2025-3-13 16:48 , Processed in 0.408043 second(s), 70 queries .
© 2020-2025 乐筑天下
在线时间:10:00-17:00
暂无
扫一扫,关注我们
帮助中心
关于我们
下载APP客户端