1078815748 发表于 2011-7-3 10:25:33

ljpnb 发表于 2011-7-3 10:36:20

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

alwtyp 发表于 2011-7-3 10:37:59

先在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 发表于 2011-7-3 10:48:46


(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 发表于 2011-7-3 10:50:25

(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 发表于 2011-7-3 10:53:28

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

)
(princ)
)

1078815748 发表于 2011-7-3 10:54:55

ljpnb 发表于 2011-7-3 10:55:35

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

改成“-plot”试试

ljpnb 发表于 2011-7-3 11:00:51

1078815748 发表于 2011-7-3 10:54 static/image/common/back.gif
回复 ljpnb 的帖子

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

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

1078815748 发表于 2011-7-3 11:04:09

页: [1] 2
查看完整版本: 程序连接局域网的打印机就不行了