这是我一直在用的
- (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)
- )
|