程序连接局域网的打印机就不行了

ljpnb

可能打印样式表MONOCHROME.CTB不存在关系，你设置成ACAD.CTB试试

alwtyp

先在WINDOWS中把打印機設變默認打印機
(COMMAND "_PLOT" "Y" "" "Default Windows SYStem Printer6" "A4" "M" "L" "N" "W" PT1 PT2 "F" "" "Y" "monochrome.ctb" "Y" "W" "N" "N" "Y")

hao3ren

(DEFUN C:W( / PT1 PT2 )
(setq myprint (getenv "DefaultConfig"))
  (SETVAR "CMDECHO" 0) (PRINC "\n以A3纸纵向出图!!\(WRITEN BY YTM 2011.04.07)")
  (SETQ PT1 (GETPOINT "\n请输入一点:"))
  (SETQ PT2 (GETCORNER PT1 "\n请输入另一点:"))
  (SETQ NN(GETINT "\n请输入要打印的份数<1>:"))
  (IF (= NN NIL) (SETQ NN 1) )
  (REPEAT NN (SETVAR "CMDDIA" 0)   
  (COMMAND "_PLOT" "Y" "" myprint "A3" "" "L" "" "W" PT1 PT2 "" "c" "" "acad.ctb" "" "" "" "" "")
    (SETVAR "CMDDIA" 1)
    (SETVAR "CMDECHO" 1) )
  (PRINC "\nOK!")
  (PRINC)
)

出来那个打印执行框，很不爽，速度很慢，如何修改能改为批量就比较实用了，就是连续选择多个对角点再执行打印

hao3ren

(defun c:dy ()
(setq n (getint "/n数量:" ))
(setq myprint (getenv "DefaultConfig"))
   (setq pt (getpoint "\n选择一点:")
           pt1 (getcorner pt "\n选择对角点")
   )
(repeat n
(command "_.plot" "Y" "" myprint "A3" "" "L" "" "W" pt pt1 "" "c" "" "acad.ctb" "" "" "" "" "")
))
和我这个一样不好使啊

ljpnb

这是我一直在用的

2. 
   
3. (DEFUN C:DY ()
   
4.   (setq p1 (getpoint "\n 请选择打印范围的第一点:"))
   
5.   (setq p2 (getcorner p1 "\n 请选择打印范围的第二点:"))
   
6.   (setq l1 (abs (- (car p2) (car p1))))
   
7.   (setq l2 (abs (- (cadr p2) (cadr p1))))
   
8.   (setq aa "HP LaserJet P1007")
   
9.   (if (> l1 l2)
   
10.     (command "-plot"           "y"          ""         aa        ""     ""     "L"
    
11.              ""            "W"           P1          P2         "F"        "center"      "Y"
    
12.              "acad.ctb"           ""          ""         "N"        "Y"    "Y"
    
13.             )
    
14.     (command "-plot"           "y"          ""         aa        ""     ""     "p"
    
15.              ""            "W"           P1          P2         "F"        "center"      "Y"
    
16.              "acad.ctb"           ""          ""         "N"        "Y"    "Y"
    
17.             )
    
18. 
    
19.   )
    
20.   (princ)
    
21. )
    

<br /> (DEFUN C:DY ()<br />   (setq p1 (getpoint "\n 请选择打印范围的第一点:"))<br />   (setq p2 (getcorner p1 "\n 请选择打印范围的第二点:"))<br />   (setq l1 (abs (- (car p2) (car p1))))<br />   (setq l2 (abs (- (cadr p2) (cadr p1))))<br />   (setq aa "HP LaserJet P1007")<br />   (if (> l1 l2)<br />     (command "-plot"           "y"          ""         aa        ""     ""     "L"<br />              ""            "W"           P1          P2         "F"        "center"      "Y"<br />              "acad.ctb"           ""          ""         "N"        "Y"    "Y"<br />             )<br />     (command "-plot"           "y"          ""         aa        ""     ""     "p"<br />              ""            "W"           P1          P2         "F"        "center"      "Y"<br />              "acad.ctb"           ""          ""         "N"        "Y"    "Y"<br />             )<br /> <br />   )<br />   (princ)<br /> )<br />

ljpnb

hao3ren 发表于 2011-7-3 10:48
(DEFUN C:W( / PT1 PT2 )
(setq myprint (getenv "DefaultConfig"))
  (SETVAR "CMDECHO" 0) (PRINC "\ ...

改成“-plot”试试

ljpnb

1078815748 发表于 2011-7-3 10:54
回复 ljpnb 的帖子

我现在解决的问题是连接局域网打印

你看看出错的信息，如果是打印机没有找到，信息中会出现与打印机有关的提示；
另外 这里"\\HONGYOU\\Minolta Di3010f PCL6"要改成 "\\\\HONGYOU\\Minolta Di3010f PCL6"
打印之前要保证与局域网里电脑连接正常