这个批量打印的lisp为何不能运行?

crane4731 · 发表于 2004-11-11 23:11

在AutoCAD中用PLOT命令每次只能打印一张图纸，如果在一个图形文件内有多张大小一样的图纸成纵向排列，间距M_d=500mm。通过Mplot只需调试一张，便可打印所有图纸。程序如下：

　 (defun c:Mplot()

   (setq p_1 (getpoint"\n\tFirst CORNER:")

   P_2 (getPOINT"\n\tOther CORNER:")

   n (getint"\n\t???:<1>"))

   (if (= n nil) (setq n 1))

   (setq m_d 500)

   (REPEAT n

   (command"plot" "w" P_1 P_2 "n" COMMAND) </P< p>

(setq p_1 (polar p_1 (/ pi 2) m_d) p_2 (polar p_2 (/ pi 2) m_d))

   )

   ) ;enddef

我加载后键入mplot,cad命令行提示参数值错误,怎么回事?这个程序是针对图纸纵向排列的,如果图纸横向排列,应该怎样修改?请高手指点,感激不尽.

crane4731 · 发表于 2004-11-14 15:15

没人帮我吗

mkhsj928 · 发表于 2004-11-15 20:09

(command"plot" "w" P_1 P_2 "n" COMMAND) </P< p>？

在CAD命令行运行: (command "plot")试试会产生那些提问，再修改上面这句的参数

如果是横向排列，把(setq p_1 (polar p_1 (/ pi 2) m_d) p_2 (polar p_2 (/ pi 2) m_d))这句中的两个 (/ pi 2) 换成0就可以了！

crane4731 · 发表于 2004-11-18 11:37

谢谢mkhsj928,输入mplot后可以选打印范围,但输入图纸数量后提示出错,不知何故.命令行提示如下:
命令: _appload 已成功加载 print.lsp.
命令:
命令:
命令: mplot
First CORNER:
Other CORNER:
???:<1>4 未知命令┃N┃.按F1查看帮助.
; 错误:参数值错误: AutoCAD 命令: #<SUBR @030a2ac8 COMMAND>

crane4731 · 发表于 2004-11-27 10:24

yinheng · 发表于 2004-12-2 10:23

你找的程序太老了，好像还是在R14上用的。

wolf96_99 · 发表于 2005-3-16 21:36

啊哈，我找到这个了。我也和楼主一样用了这个r14的批量打印的程序，但只能打印纵向排列的图纸。能不能像阵列命令一样输入范围、行数和列数就自动按顺序打印同样大小的图纸。原理大概是这样：首先选取最左上角一张图纸的两个对角点，输入行数，输入列数，就会自动从左到右，从上到下打印。（行距和列距定义好）

SWAYWOOD · 发表于 2005-3-17 12:30

这个是我的打印程序，适合于2002，2005，可以在模型，布局中打，自己改一下很容易实现你的功能

_____________________________________8.打印_________________________________________________________________________________
;;;2005-3-8最后修改，加上布局打印的功能，袁轶琳提，BY SWAYWOOD
(defun c:prt (/ absx absy dir b equip)
(setvar "cmdecho" 0)
(if (not prtax)
(setq prtax "A3")
)
(if (= prtax "")
(setq prtax "A3")
)
(while (and (/= b "A1")
(/= b "A2")
(/= b "A3")
(/= b "A4")
(/= b "")
)
(setq b (strcase (getstring (strcat "\n请输入图幅<" prtax ">:"))))
)
(setq prtax (if (= b "")
prtax
b
)
prtp1 (getpoint "\n请选择第一点:")
prtp2 (getcorner prtp1 "\n请选择第二点:")
absx (abs (- (car prtp1) (car prtp2)))
absy (abs (- (cadr prtp1) (cadr prtp2)))
dir (if (> absx absy)
"l"
"p"
)
)
(cond
((= prtax "A3")
(progn
(setq equip "\\\\morimatsu\\Kyocera Mita KM-4035 KX(design1)")
(setq axx prtax)
)
)
((= prtax "A4")
(progn
(setq equip "\\\\morimatsu\\Kyocera Mita KM-4035 KX(design1)")
(setq axx prtax)
)
)
((= prtax "A1")
(progn
(setq equip "\\\\MORIMATSU\\HP DesignJet 430 (D/A1) by HP")
(setq axx "过大尺寸：ISO A1 ")
)
)
((= prtax "A2")
(progn
(setq equip "\\\\MORIMATSU\\HP DesignJet 430 (D/A1) by HP")
(setq axx "过大尺寸：ISO A2 (横向)")
)
)
)
(command "_.zoom" "w" prtp1 prtp2)
(setq pwhere (getvar "CTAB"))
(if (and axx equip dir prtp1 prtp2 (plotstyle))
(if (= pwhere "Model")
(command "plot" "y" pwhere equip axx "m" dir
"n" "w" prtp1 prtp2 "f" "c" "y"
"acad(cyan).ctb" "y" "n" "n" "n"
"y"
)
(command "plot" "y" pwhere equip axx "m" dir
"n" "w" prtp1 prtp2 "f" "c" "y"
"acad(cyan).ctb" "y" "n" "n" "n"
"n" "n" "y"
)
)
)
)
(defun plotstyle (/ DIR DIRA DIRB DIRC)
(if (findfile "c:\\Program Files\\Acadm 6\\acad.exe")
(setq dir "c:\\Program Files\\Acadm 6\\Plot Styles\")
)
(if (findfile "d:\\Program Files\\Acadm 6\\acad.exe")
(setq dir "d:\\Program Files\\Acadm 6\\Plot Styles\")
)
(if (findfile "c:\\Program Files\\autocad 2005\\acad.exe")
(progn
(setq dira "C:\\Documents and Settings\"
dirb (getenv "username")
dirc "\\Application Data\\Autodesk\\AutoCAD 2005\\R16.1\\chs\\Plot Styles\"
)
(setq dir (strcat dira dirb dirc))
)
)
(if (findfile "d:\\Program Files\\autocad 2005\\acad.exe")
(progn
(setq dira "d:\\Documents and Settings\"
dirb (getenv "username")
dirc "\\Application Data\\Autodesk\\AutoCAD 2005\\R16.1\\chs\\Plot Styles\"
)
(setq dir (strcat dira dirb dirc))
)
)
(if (findfile (strcat dir "acad(cyan).ctb"))
t
(vl-file-copy
"\\\\morimatsu\\design-soft\\swcad\\support\\acad(cyan).ctb"
(strcat dir "acad(cyan).ctb")
)
)
)

_____________________________________8.打印_________________________________________________________________________________
;;;2005-3-8最后修改，加上布局打印的功能，袁轶琳提，BY SWAYWOOD
(defun c:prt (/ absx absy dir b equip)
   (setvar "cmdecho" 0)
   (if (not prtax)
       (setq prtax "A3")
   )
   (if (= prtax "")
       (setq prtax "A3")
   )
   (while (and (/= b "A1")
             (/= b "A2")
             (/= b "A3")
             (/= b "A4")
             (/= b "")
   )
       (setq b (strcase (getstring (strcat "\n请输入图幅<" prtax ">:"))))
   )
   (setq  prtax (if (= b "")
    prtax
    b
             )
  prtp1 (getpoint "\n请选择第一点:")
  prtp2 (getcorner prtp1 "\n请选择第二点:")
  absx   (abs (- (car prtp1) (car prtp2)))
  absy   (abs (- (cadr prtp1) (cadr prtp2)))
  dir     (if (> absx absy)
    "l"
    "p"
             )
   )
   (cond
       ((= prtax "A3")
         (progn
             (setq equip "\\\\morimatsu\\Kyocera Mita KM-4035 KX(design1)")
             (setq axx prtax)
         )
       )
       ((= prtax "A4")
         (progn
             (setq equip "\\\\morimatsu\\Kyocera Mita KM-4035 KX(design1)")
             (setq axx prtax)
         )
       )
       ((= prtax "A1")
         (progn
             (setq equip "\\\\MORIMATSU\\HP DesignJet 430 (D/A1) by HP")
             (setq axx "过大尺寸：ISO A1 ")
         )
       )
       ((= prtax "A2")
         (progn
             (setq equip "\\\\MORIMATSU\\HP DesignJet 430 (D/A1) by HP")
             (setq axx "过大尺寸：ISO A2   (横向)")
         )
       )
   )
   (command "_.zoom" "w" prtp1 prtp2)
   (setq pwhere (getvar "CTAB"))
   (if (and axx equip dir prtp1 prtp2 (plotstyle))
       (if  (= pwhere "Model")
           (command "plot"   "y"         pwhere   equip     axx         "m"         dir
               "n"         "w"         prtp1     prtp2     "f"         "c"         "y"
               "acad(cyan).ctb"               "y"         "n"         "n"         "n"
               "y"
             )
           (command "plot"   "y"         pwhere   equip     axx         "m"         dir
               "n"         "w"         prtp1     prtp2     "f"         "c"         "y"
               "acad(cyan).ctb"               "y"         "n"         "n"         "n"
               "n"         "n"         "y"
             )
       )
   )
)
(defun plotstyle (/ DIR DIRA DIRB DIRC)
   (if (findfile "c:\\Program Files\\Acadm 6\\acad.exe")
       (setq dir "c:\\Program Files\\Acadm 6\\Plot Styles\")
   )
   (if (findfile "d:\\Program Files\\Acadm 6\\acad.exe")
       (setq dir "d:\\Program Files\\Acadm 6\\Plot Styles\")
   )
   (if (findfile "c:\\Program Files\\autocad 2005\\acad.exe")
       (progn
           (setq dira "C:\\Documents and Settings\"
         dirb (getenv "username")
         dirc "\\Application Data\\Autodesk\\AutoCAD 2005\\R16.1\\chs\\Plot Styles\"
           )
           (setq dir (strcat dira dirb dirc))
       )
   )
   (if (findfile "d:\\Program Files\\autocad 2005\\acad.exe")
       (progn
           (setq dira "d:\\Documents and Settings\"
         dirb (getenv "username")
         dirc "\\Application Data\\Autodesk\\AutoCAD 2005\\R16.1\\chs\\Plot Styles\"
           )
           (setq dir (strcat dira dirb dirc))
       )
   )
   (if (findfile (strcat dir "acad(cyan).ctb"))
       t
       (vl-file-copy
           "\\\\morimatsu\\design-soft\\swcad\\support\\acad(cyan).ctb"
           (strcat dir "acad(cyan).ctb")
       )
   )
)

顺子 · 发表于 2006-1-19 23:14

glow=255,red,2]路过的看一下打印问题的确很凡人的如果图形在不同的CAD图挡能不能批次打印好象实现不了啊[[/glow]

账号		自动登录	找回密码
密码			注册