Разработка программы – генератора параметрических моделей и чертежей, страница 4

  (write-line "120,140" fscr) ; view center in the paper space

  (write-line "" fscr) ; view center OK

  (write-line "90,170" fscr) ; the first corner of viewport

  (write-line "150,110" fscr) ; the second corner of viewport

  (write-line "top" fscr) ; name of the second view

  (write-line "" fscr) ; exit SOLVIEW

  (write-line "_SOLDRAW" fscr) ; to finish the first projection

  (write-line "90,280" fscr) ; select the first viewport

  (write-line "" fscr) ; finishing the first projection

  (write-line "_SOLDRAW" fscr) ; to finish the second projection

  (write-line "90,170" fscr) ; select the second viewport

  (write-line "" fscr) ; finishing the second projection

  (write-line "mview" fscr) ; to creat new viewport for isometric projection

  (write-line "90,90" fscr) ; the first corner of new veiwport

  (write-line "150,30" fscr) ; the second corner of new veiwport

  (write-line "_MSPACE" fscr) ; switching to model space in the new viewport

  (write-line "_-view" fscr) ; Calling VIEW command for the new viewport

  (write-line "_neiso" fscr)  ; setting view direction for north-east isometric projection

  (write-line "_SOLPROF" fscr) ; calling SOLid PROFile command to make isometric projection

  (write-line "_l" fscr) ; selecting last object in the new viewport

  (write-line "" fscr) ; finishing selection of objects to be projected

  (write-line "Y" fscr) ; display hidden lines on separate layer?

  (write-line "Y" fscr) ; project onto a plane?

  (write-line "Y" fscr) ; delete tangential edges?

  (write-line "_-layer" fscr) ; Calling LAYER command to freeze layers

                                    ;with model and hidden for the new viewport

  (write-line "_set" fscr) ; change current layer

  (write-line "main-VIS" fscr) ; to "main-VIS" (visible lines on main view)

  (write-line "_freeze" fscr) ; freeze

  (write-line "0" fscr)   ; layer "0" - layer with the model

  (write-line "_freeze" fscr) ; freeze

  (write-line "main-HID" fscr)   ; layer "0" - layer with hidden

                                               ;lines of the main view

  (write-line "_freeze" fscr) ; freeze

  (write-line "top-HID" fscr)   ; layer "top-HID" - layer with hidden

                                               ;lines of the top view

  (write-line "_freeze" fscr) ; freeze

  (write-line "PH*" fscr) ; all layers with hidden lines of isometric views

  (write-line "" fscr) ; return from LAYER command

  (write-line "_PSPACE" fscr) ; return to paper space

  (close fscr) ; closing script file

)

(defun projection ()

  (vl-cmdf "_-layout" "_set" "layout1" (term_dialog))

                                               ; check for the first switching to "layout1"

  (vl-cmdf "_-plot"             ; to adjust paper settingd for "layout1"

               "y" ; detailed configuration?

               "layout1" ; layout name

               "Default Windows System Printer.pc3" ;output device name

               "A4" ;paper size

               "M" ;paper units (Millimeters)

               "P" ;drawing orientation (Portrait)

               "N" ;plot upside down?

               "E" ;plot area (Extents)