这是完整代码:
- (defun c:XSX ( )
- (setvar 'CMDECHO 1)
- (setvar 'CMDDIA 1)
- (setq pt1 (getpoint "\nSelect Lower Left Hand Corner
- of Plotting Area: "))
- (setq pt2 (list (+ 40 (car pt1)) (+ 27.8 (cadr pt1)) 0.))
- (prompt "\nThanks.......")
- (command "-plot" "Y" "" "HP Deskjet 1280 series.PC3" "Iso full bleed A3 (420.00 x 297.00 MM)" "" "L" "" "Window" pt1 pt2 "F" "C" "" "" "" "" "" "" "" )
- ;(command "-plot" "Y" "" "DWG TO PDF.PC3" "Iso full bleed A3 (420.00 x 297.00 MM)" "" "L" "" "Window" pt1 pt2 "F" "C" "" "" "" "" "" "" "" )
- (princ)
- )
这是compltet erorr:
- Command: XSX
- Select Lower Left Hand Corner
- of Plotting Area:
- Thanks.......-plot Detailed plot configuration? [Yes/No] <No>: Y
- Enter a layout name or [?] <Model>: Enter an output device name or [?] <EPSON Stylus Photo 1410 Series>: HP Deskjet 1280 series.PC3 Enter paper size or [?] <Letter>: Iso full bleed A3 (420.00 x 297.00 MM)
- Command: XSX
- Unknown command "XSX". Press F1 for help.
- Command: L Unknown command "L". Press F1 for help.
- Command: XSX
- Unknown command "XSX". Press F1 for help.
- Command: Window Unknown command "WINDOW". Press F1 for help.
- Command:
- Command:
- Command: F Unknown command "F". Press F1 for help.
- Command: C Unknown command "C". Press F1 for help.
- Command: XSX
- Unknown command "XSX". Press F1 for help.
- Command: XSX
- Unknown command "XSX". Press F1 for help.
- Command: XSX
- Unknown command "XSX". Press F1 for help.
- Command: XSX
- Unknown command "XSX". Press F1 for help.
- Command: XSX
- Unknown command "XSX". Press F1 for help.
- Command: XSX
- Unknown command "XSX". Press F1 for help.
- Command: XSX
- Unknown command "XSX". Press F1 for help.
- Command:
:o:o:o:o:o:o:o:o:o:o:o:o:o:o |