lisp中getword输入默认_晓东CAD家园-论坛-A/VLISP-LISP怎样读取电脑默认打印机名称-(DEFUN C:DY33 () (setq p1 (getpoint "\n 请选择打印...

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有帐号？立即注册

x

(DEFUN C:DY33 ()

(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 1010 Series Driver"))));想让LSP自动读取电脑默认打印机名称

(if (> l1 l2)

(command "-plot"           "y"          ""         aa        ""     ""     "L"

""            "W"           P1          P2         "F"        "center"      "Y"

"monochrome.ctb"           ""          ""         "N"        "Y"    "Y"

)

(command "-plot"           "y"          ""         aa        ""     ""     "p"

""            "W"           P1          P2         "F"        "center"      "Y"

"monochrome.ctb"           ""          ""         "N"        "Y"    "Y"

)

)

(princ)

)

广告位，后台可以设置，支持js

您好，您暂时不能浏览帖子的全部内容，请 登录

| 没有账号？ 请 注册