---

Мишаня:
(defun c:VSE3 ( / osmode_old style_name
make-line make-circle make-axis-v make-axis-h
make-dashed-v make-dashed-h make-text make-arrow
draw-dim-h draw-dim-h-left draw-dim-v draw-dim-v-out
hatch-rect draw-part-1 draw-part-2 draw-part-3 )
; STREAMING_CHUNK:Initializing AutoCAD environment and GOST text style...
(setq osmode_old (getvar "OSMODE"))
(setvar "OSMODE" 0)
(setvar "LWDISPLAY" 1)
(if (not (tblsearch "STYLE" "GOST_ISOCPEUR"))
(entmakex '((0 . "STYLE")
(100 . "AcDbSymbolTableRecord")
(100 . "AcDbTextStyleTableRecord")
(2 . "GOST_ISOCPEUR")
(70 . 0)
(40 . 0.0)
(41 . 1.0)
(50 . 0.0)
(71 . 0)
(3 . "isocpeur.ttf")
(4 . "")))
)
(setq style_name (if (tblsearch "STYLE" "GOST_ISOCPEUR") "GOST_ISOCPEUR" (getvar "TEXTSTYLE")))
; STREAMING_CHUNK:Defining geometric primitives, centerlines, and hatching helpers...
(defun make-line (x1 y1 x2 y2 lw)
(entmakex (list '(0 . "LINE")
(list 10 x1 y1 0.0)
(list 11 x2 y2 0.0)
(cons 370 lw)))
)
(defun make-circle (cx cy r lw)
(entmakex (list '(0 . "CIRCLE")
(list 10 cx cy 0.0)
(cons 40 r)
(cons 370 lw)))
)
(defun make-axis-v (x y1 y2 / cur yn)
(setq cur y1)
(while (< cur y2)
(setq yn (min (+ cur 12.0) y2))
(make-line x cur x yn 18)
(if (< (+ cur 14.5) y2)
(make-line x (+ cur 14.0) x (min (+ cur 15.5) y2) 18)
)
(setq cur (+ cur 17.5))
)
)
(defun make-axis-h (x1 x2 y / cur xn)
(setq cur x1)
(while (< cur x2)
(setq xn (min (+ cur 12.0) x2))
(make-line cur y xn y 18)
(if (< (+ cur 14.5) x2)
(make-line (+ cur 14.0) y (min (+ cur 15.5) x2) y 18)
)
(setq cur (+ cur 17.5))
)
)
(defun make-dashed-v (x y1 y2 / cur yn)
(setq cur y1)
(while (< cur y2)
(setq yn (min (+ cur 4.0) y2))
(make-line x cur x yn 18)
(setq cur (+ cur 6.0))
)
)
(defun make-dashed-h (x1 x2 y / cur xn)
(setq cur x1)
(while (< cur x2)
(setq xn (min (+ cur 4.0) x2))
(make-line cur y xn y 18)
(setq cur (+ cur 6.0))
)
)
(defun hatch-rect (x1 y1 x2 y2 step / c cmin cmax xa ya xb yb)
(setq cmin (- y1 x2))
(setq cmax (- y2 x1))
(setq c (* step (fix (/ cmin step))))
(while (<= c cmax)
(setq xa (max x1 (- y1 c)))
(setq xb (min x2 (- y2 c)))
(if (< xa xb)
(progn
(setq ya (+ xa c))
(setq yb (+ xb c))
(make-line xa ya xb yb 18)
)
)
(setq c (+ c step))
)
)
; STREAMING_CHUNK:Defining GOST dimensioning and arrow functions...
(defun make-text (x y txt hgt rot)
(entmakex (list '(0 . "TEXT")
(list 10 x y 0.0)
(cons 40 hgt)
(cons 1 txt)
(cons 50 rot)
'(51 . 0.261799)
'(72 . 1)
(list 11 x y 0.0)
(cons 7 style_name)
'(370 . 18)))
)
(defun make-arrow (x y ang / a1 a2 len)
(setq len 3.5)
(setq a1 (+ ang (* pi (/ 165.0 180.0))))
(setq a2 (- ang (* pi (/ 165.0 180.0))))
(make-line x y (+ x (* len (cos a1))) (+ y (* len (sin a1))) 18)
(make-line x y (+ x (* len (cos a2))) (+ y (* len (sin a2))) 18)
)
(defun draw-dim-h (x1 y1 x2 y2 ydim txt / xm)
(make-line x1 y1 x1 (+ ydim (if (> ydim y1) 2.0 -2.0)) 18)
(make-line x2 y2 x2 (+ ydim (if (> ydim y2) 2.0 -2.0)) 18)
(make-line x1 ydim x2 ydim 18)
(make-arrow x1 ydim pi)
(make-arrow x2 ydim 0.0)
(setq xm (* 0.5 (+ x1 x2)))
(make-text xm (+ ydim 1.2) txt 3.5 0.0)
)
(defun draw-dim-h-left (x1 x2 y2 ydim txt / xm)
(make-line x2 y2 x2 (+ ydim (if (> ydim y2) 2.0 -2.0)) 18)
(make-line x1 ydim x2 ydim 18)
(make-arrow x2 ydim 0.0)
(setq xm (* 0.5 (+ x1 x2)))
(make-text xm (+ ydim 1.2) txt 3.5 0.0)
)
(defun draw-dim-v (x1 y1 x2 y2 xdim txt / ym)
(make-line x1 y1 (+ xdim (if (> xdim x1) 2.0 -2.0)) y1 18)
(make-line x2 y2 (+ xdim (if (> xdim x2) 2.0 -2.0)) y2 18)
(make-line xdim y1 xdim y2 18)
(make-arrow xdim y1 (* 1.5 pi))
(make-arrow xdim y2 (* 0.5 pi))
(setq ym (* 0.5 (+ y1 y2)))
(make-text (- xdim 1.2) ym txt 3.5 (* 0.5 pi))
)
(defun draw-dim-v-out (x1 y1 x2 y2 xdim txt / ym)
(make-line x1 y1 (+ xdim (if (> xdim x1) 2.0 -2.0)) y1 18)
(make-line x2 y2 (+ xdim (if (> xdim x2) 2.0 -2.0)) y2 18)
(make-line xdim (- y1 6.0) xdim (+ y2 6.0) 18)
(make-arrow xdim y1 (* 0.5 pi))
(make-arrow xdim y2 (* 1.5 pi))
(setq ym (* 0.5 (+ y1 y2)))
(make-text (- xdim 1.2) ym txt 3.5 (* 0.5 pi))
)
; STREAMING_CHUNK:Building Drawing 1 (Cylinder with ribs, 3 views + sections)...
(defun draw-part-1 (ox / lcx tcy xrib)
(setq lcx (+ ox 105.

0))
(setq tcy -65.0)
(setq xrib (sqrt (- 400.0 36.0)))
(make-line (- ox 50.0) 0.0 (- ox 25.0) 0.0 50)
(make-line (- ox 25.0) 0.0 (- ox 25.0) 10.0 50)
(make-line (- ox 25.0) 10.0 (+ ox 25.0) 10.0 50)
(make-line (+ ox 25.0) 10.0 (+ ox 25.0) 0.0 50)
(make-line (+ ox 25.0) 0.0 (+ ox 50.0) 0.0 50)
(make-line (- ox 50.0) 0.0 (- ox 50.0) 25.0 50)
(make-line (+ ox 50.0) 0.0 (+ ox 50.0) 25.0 50)
(make-line (- ox 50.0) 25.0 ox 25.0 50)
(make-line (+ ox 20.0) 25.0 (+ ox 50.0) 25.0 50)
(make-line (- ox 20.0) 25.0 (- ox 20.0) 80.0 50)
(make-line (+ ox 20.0) 25.0 (+ ox 20.0) 80.0 50)
(make-line (- ox 20.0) 80.0 (+ ox 20.0) 80.0 50)
(make-line (+ ox 6.0) 10.0 (+ ox 6.0) 80.0 50)
(make-line (- ox 45.0) 25.0 (- ox 20.0) 65.0 50)
(make-line (+ ox 45.0) 25.0 (+ ox 20.0) 65.0 50)
(hatch-rect (+ ox 6.0) 10.0 (+ ox 20.0) 80.0 3.0)
(hatch-rect (+ ox 20.0) 10.0 (+ ox 25.0) 25.0 3.0)
(hatch-rect (+ ox 25.0) 0.0 (+ ox 50.0) 25.0 3.0)
(make-axis-v ox -5.0 85.0)
(make-line (- lcx 30.0) 0.0 (+ lcx 30.0) 0.0 50)
(make-line (- lcx 30.0) 0.0 (- lcx 30.0) 25.0 50)
(make-line (+ lcx 30.0) 0.0 (+ lcx 30.0) 25.0 50)
(make-line (- lcx 30.0) 25.0 lcx 25.0 50)
(make-line (+ lcx 20.0) 25.0 (+ lcx 30.0) 25.0 50)
(make-line (- lcx 20.0) 25.0 (- lcx 20.0) 80.0 50)
(make-line (+ lcx 20.0) 25.0 (+ lcx 20.0) 80.0 50)
(make-line (- lcx 20.0) 80.0 (+ lcx 20.0) 80.0 50)
(make-line (- lcx 6.0) 25.0 (- lcx 6.0) 65.0 50)
(make-line (- lcx 6.0) 65.0 lcx 65.0 50)
(make-line (+ lcx 6.0) 10.0 (+ lcx 6.0) 80.0 50)
(make-line lcx 10.0 (+ lcx 30.0) 10.0 50)
(hatch-rect (+ lcx 6.0) 10.0 (+ lcx 20.0) 80.0 3.0)
(hatch-rect (+ lcx 20.0) 10.0 (+ lcx 30.0) 25.0 3.0)
(make-axis-v lcx -5.0 85.0)
(make-line (- ox 50.0) (- tcy 30.0) (+ ox 50.0) (- tcy 30.0) 50)
(make-line (+ ox 50.0) (- tcy 30.0) (+ ox 50.0) (+ tcy 30.0) 50)
(make-line (+ ox 50.0) (+ tcy 30.0) (- ox 50.0) (+ tcy 30.0) 50)
(make-line (- ox 50.0) (+ tcy 30.0) (- ox 50.0) (- tcy 30.0) 50)
(make-circle ox tcy 20.0 50)
(make-circle ox tcy 6.0 50)
(make-line (- ox 45.0) (- tcy 6.0) (- ox xrib) (- tcy 6.0) 50)
(make-line (- ox 45.0) (+ tcy 6.0) (- ox xrib) (+ tcy 6.0) 50)
(make-line (- ox 45.0) (- tcy 6.0) (- ox 45.0) (+ tcy 6.0) 50)
(make-line (+ ox xrib) (- tcy 6.0) (+ ox 45.0) (- tcy 6.0) 50)
(make-line (+ ox xrib) (+ tcy 6.0) (+ ox 45.0) (+ tcy 6.0) 50)
(make-line (+ ox 45.0) (- tcy 6.0) (+ ox 45.0) (+ tcy 6.0) 50)
(make-dashed-v (- ox 25.0) (- tcy 30.0) (+ tcy 30.0))
(make-dashed-v (+ ox 25.0) (- tcy 30.0) (+ tcy 30.0))
(make-axis-v ox (- tcy 35.0) (+ tcy 35.0))
(make-axis-h (- ox 55.0) (+ ox 55.0) tcy)
(draw-dim-h (- ox 20.0) 80.0 (+ ox 20.0) 80.0 89.0 "%%c40")
(draw-dim-v (- ox 50.0) 0.0 (- ox 50.0) 25.0 (- ox 60.0) "25")
(draw-dim-v (- ox 20.0) 25.0 (- ox 20.0) 65.0 (- ox 60.0) "40")
(draw-dim-h (- ox 25.0) 0.0 (+ ox 25.0) 0.0 -9.0 "50")
(draw-dim-h (- lcx 6.0) 80.0 (+ lcx 6.0) 80.0 89.0 "%%c12")
(draw-dim-v-out (+ lcx 30.0) 0.0 (+ lcx 30.0) 10.0 (+ lcx 40.0) "10")
(draw-dim-v (+ lcx 20.0) 0.0 (+ lcx 20.0) 80.0 (+ lcx 50.0) "80")
(draw-dim-v (- ox 45.0) (- tcy 6.0) (- ox 45.0) (+ tcy 6.0) (- ox 58.0) "12")
(draw-dim-v (- ox 50.0) (- tcy 30.0) (- ox 50.0) (+ tcy 30.0) (- ox 67.0) "60")
(draw-dim-h (- ox 45.0) (- tcy 6.0) (+ ox 45.0) (- tcy 6.0) (- tcy 40.0) "90")
(draw-dim-h (- ox 50.0) (- tcy 30.0) (+ ox 50.0) (- tcy 30.0) (- tcy 49.0) "100")
)
; STREAMING_CHUNK:Building Drawing 2 (Prismatic block with square hole, 3 views)...
(defun draw-part-2 (ox / lcx tcy)
(setq lcx (+ ox 105.0))
(setq tcy -65.0)
(make-line (- ox 50.0) 0.0 (+ ox 50.0) 0.0 50)
(make-line (- ox 50.0) 0.0 (- ox 50.0) 20.0 50)
(make-line (+ ox 50.0) 0.0 (+ ox 50.0) 20.0 50)
(make-line (- ox 50.0) 20.0 (- ox 5.0) 20.0 50)
(make-line (+ ox 25.0) 20.0 (+ ox 50.0) 20.0 50)
(make-line (- ox 25.0) 20.0 (- ox 25.0) 80.0 50)
(make-line (+ ox 25.0) 20.0 (+ ox 25.0) 80.0 50)
(make-line (- ox 25.0) 80.0 (+ ox 25.0) 80.0 50)
(make-line (- ox 4.0) 0.0 (- ox 5.5) 20.0 18)
(make-line (- ox 5.5) 20.0 (- ox 3.5) 45.0 18)
(make-line (- ox 3.5) 45.0 (- ox 6.0) 65.0 18)
(make-line (- ox 6.0) 65.0 (- ox 4.5) 80.0 18)
(make-line (- ox 3.8) 50.0 (+ ox 20.0) 50.0 50)

(make-line (+ ox 20.0) 50.0 (+ ox 20.0) 80.0 50)
(make-line ox 50.0 ox 80.0 50)
(make-line (+ ox 10.0) 0.0 (+ ox 10.0) 50.0 50)
(make-line ox 0.0 ox 50.0 50)
(make-line (+ ox 34.0) 0.0 (+ ox 34.0) 20.0 50)
(make-line (+ ox 46.0) 0.0 (+ ox 46.0) 20.0 50)
(hatch-rect (+ ox 20.0) 50.0 (+ ox 25.0) 80.0 3.0)
(hatch-rect (+ ox 10.0) 0.0 (+ ox 25.0) 50.0 3.0)
(hatch-rect (+ ox 25.0) 0.0 (+ ox 34.0) 20.0 3.0)
(hatch-rect (+ ox 46.0) 0.0 (+ ox 50.0) 20.0 3.0)
(make-axis-v ox -5.0 85.0)
(make-axis-v (- ox 40.0) -3.0 23.0)
(make-axis-v (+ ox 40.0) -3.0 23.0)
(make-line (- lcx 30.0) 0.0 (+ lcx 30.0) 0.0 50)
(make-line (- lcx 30.0) 0.0 (- lcx 30.0) 20.0 50)
(make-line (+ lcx 30.0) 0.0 (+ lcx 30.0) 20.0 50)
(make-line (- lcx 30.0) 20.0 (- lcx 5.0) 20.0 50)
(make-line (+ lcx 20.0) 20.0 (+ lcx 30.0) 20.0 50)
(make-line (- lcx 20.0) 20.0 (- lcx 20.0) 80.0 50)
(make-line (+ lcx 20.0) 20.0 (+ lcx 20.0) 80.0 50)
(make-line (- lcx 20.0) 80.0 (+ lcx 20.0) 80.0 50)
(make-line (- lcx 4.0) 0.0 (- lcx 5.5) 20.0 18)
(make-line (- lcx 5.5) 20.0 (- lcx 3.5) 45.0 18)
(make-line (- lcx 3.5) 45.0 (- lcx 6.0) 65.0 18)
(make-line (- lcx 6.0) 65.0 (- lcx 4.5) 80.0 18)
(make-line (- lcx 3.8) 50.0 (+ lcx 15.0) 50.0 50)
(make-line (+ lcx 15.0) 50.0 (+ lcx 15.0) 80.0 50)
(make-line lcx 50.0 lcx 80.0 50)
(make-line (+ lcx 10.0) 0.0 (+ lcx 10.0) 50.0 50)
(make-line lcx 0.0 lcx 50.0 50)
(hatch-rect (+ lcx 15.0) 50.0 (+ lcx 20.0) 80.0 3.0)
(hatch-rect (+ lcx 10.0) 0.0 (+ lcx 20.0) 50.0 3.0)
(hatch-rect (+ lcx 20.0) 0.0 (+ lcx 30.0) 20.0 3.0)
(make-axis-v lcx -5.0 85.0)
(make-line (- ox 50.0) (- tcy 30.0) (+ ox 50.0) (- tcy 30.0) 50)
(make-line (+ ox 50.0) (- tcy 30.0) (+ ox 50.0) (+ tcy 30.0) 50)
(make-line (+ ox 50.0) (+ tcy 30.0) (- ox 50.0) (+ tcy 30.0) 50)
(make-line (- ox 50.0) (+ tcy 30.0) (- ox 50.0) (- tcy 30.0) 50)
(make-line (- ox 25.0) (- tcy 20.0) (+ ox 25.0) (- tcy 20.0) 50)
(make-line (+ ox 25.0) (- tcy 20.0) (+ ox 25.0) (+ tcy 20.0) 50)
(make-line (+ ox 25.0) (+ tcy 20.0) (- ox 25.0) (+ tcy 20.0) 50)
(make-line (- ox 25.0) (+ tcy 20.0) (- ox 25.0) (- tcy 20.0) 50)
(make-line (- ox 20.0) (- tcy 15.0) (+ ox 20.0) (- tcy 15.0) 50)
(make-line (+ ox 20.0) (- tcy 15.0) (+ ox 20.0) (+ tcy 15.0) 50)
(make-line (+ ox 20.0) (+ tcy 15.0) (- ox 20.0) (+ tcy 15.0) 50)
(make-line (- ox 20.0) (+ tcy 15.0) (- ox 20.0) (- tcy 15.0) 50)
(make-line ox (+ tcy 10.0) (+ ox 10.0) tcy 50)
(make-line (+ ox 10.0) tcy ox (- tcy 10.0) 50)
(make-line ox (- tcy 10.0) (- ox 10.0) tcy 50)
(make-line (- ox 10.0) tcy ox (+ tcy 10.0) 50)
(make-circle (- ox 40.0) tcy 6.0 50)
(make-circle (+ ox 40.0) tcy 6.0 50)
(make-axis-v ox (- tcy 35.0) (+ tcy 35.0))
(make-axis-h (- ox 55.0) (+ ox 55.0) tcy)
(make-axis-v (- ox 40.0) (- tcy 10.0) (+ tcy 10.0))
(make-axis-v (+ ox 40.0) (- tcy 10.0) (+ tcy 10.0))
(draw-dim-h-left (- ox 15.0) (+ ox 20.0) 80.0 88.0 "40")
(draw-dim-h (- ox 25.0) 80.0 (+ ox 25.0) 80.0 96.0 "50")
(draw-dim-v (- ox 50.0) 0.0 (- ox 50.0) 20.0 (- ox 60.0) "20")
(draw-dim-h-left (- ox 10.0) (+ ox 10.0) 0.0 -9.0 "20*")
(draw-dim-h-left (- lcx 12.0) (+ lcx 15.0) 80.0 88.0 "30")
(draw-dim-h (- lcx 20.0) 80.0 (+ lcx 20.0) 80.0 96.0 "40")
(draw-dim-v (+ lcx 15.0) 50.0 (+ lcx 20.0) 80.0 (+ lcx 32.0) "30")
(draw-dim-v (+ lcx 30.0) 0.0 (+ lcx 20.0) 80.0 (+ lcx 42.0) "80")
(draw-dim-h (- lcx 30.0) 0.0 (+ lcx 30.0) 0.0 -9.0 "60")
(draw-dim-h (- ox 40.0) tcy (+ ox 40.0) tcy (- tcy 40.0) "80")
(draw-dim-h (- ox 50.0) (- tcy 30.0) (+ ox 50.0) (- tcy 30.0) (- tcy 49.0) "100")
(make-text (- ox 22.0) (- tcy 26.0) "14,1" 3.5 0.0)
(make-text (+ ox 38.0) (+ tcy 20.0) "%%c12" 3.5 0.0)
(make-text (+ ox 38.0) (+ tcy 14.0) "2 отв." 3.5 0.0)
)
; STREAMING_CHUNK:Building Drawing 3 (Stepped block with slots and cutouts, 3 views)...
(defun draw-part-3 (ox)
(make-line (- ox 40.0) 0.0 (+ ox 40.0) 0.0 50)
(make-line (- ox 40.0) 0.0 (- ox 40.0) 25.0 50)
(make-line (- ox 40.0) 25.0 (- ox 30.0) 25.0 50)
(make-line (- ox 30.0) 25.0 (- ox 30.0) 10.0 50)
(make-line (- ox 30.0) 10.0 (- ox 20.0) 10.0 50)
(make-line (- ox 20.0) 10.0 (- ox 20.0) 60.0 50)
(make-line (- ox 20.0) 60.0 (+ ox 20.0) 60.0 50)

(make-line (+ ox 20.0) 60.0 (+ ox 20.0) 10.0 50)
(make-line (+ ox 20.0) 10.0 (+ ox 30.0) 10.0 50)
(make-line (+ ox 30.0) 10.0 (+ ox 30.0) 25.0 50)
(make-line (+ ox 30.0) 25.0 (+ ox 40.0) 25.0 50)
(make-line (+ ox 40.0) 25.0 (+ ox 40.0) 0.0 50)
(make-dashed-v (- ox 25.0) 0.0 10.0)
(make-dashed-v (- ox 10.0) 0.0 60.0)
(make-dashed-v (+ ox 10.0) 0.0 60.0)
(make-dashed-v (+ ox 25.0) 0.0 10.0)
(make-axis-v ox -5.0 65.0)
(make-line (- ox 40.0) -90.0 (+ ox 40.0) -90.0 50)
(make-line (+ ox 40.0) -90.0 (+ ox 40.0) -40.0 50)
(make-line (+ ox 40.0) -40.0 (- ox 40.0) -40.0 50)
(make-line (- ox 40.0) -40.0 (- ox 40.0) -90.0 50)
(make-line (- ox 30.0) -90.0 (- ox 30.0) -40.0 50)
(make-line (+ ox 30.0) -90.0 (+ ox 30.0) -40.0 50)
(make-line (- ox 20.0) -90.0 (- ox 20.0) -75.0 50)
(make-line (- ox 20.0) -55.0 (- ox 20.0) -40.0 50)
(make-line (+ ox 20.0) -90.0 (+ ox 20.0) -75.0 50)
(make-line (+ ox 20.0) -55.0 (+ ox 20.0) -40.0 50)
(make-line (- ox 25.0) -75.0 (- ox 10.0) -75.0 50)
(make-line (- ox 10.0) -75.0 (- ox 10.0) -55.0 50)
(make-line (- ox 10.0) -55.0 (- ox 25.0) -55.0 50)
(make-line (- ox 25.0) -55.0 (- ox 25.0) -75.0 50)
(make-line (+ ox 10.0) -75.0 (+ ox 25.0) -75.0 50)
(make-line (+ ox 25.0) -75.0 (+ ox 25.0) -55.0 50)
(make-line (+ ox 25.0) -55.0 (+ ox 10.0) -55.0 50)
(make-line (+ ox 10.0) -55.0 (+ ox 10.0) -75.0 50)
(make-axis-v ox -95.0 -35.0)
(make-axis-h (- ox 45.0) (+ ox 45.0) -65.0)
(make-line (+ ox 75.0) 0.0 (+ ox 125.0) 0.0 50)
(make-line (+ ox 125.0) 0.0 (+ ox 125.0) 60.0 50)
(make-line (+ ox 125.0) 60.0 (+ ox 75.0) 60.0 50)
(make-line (+ ox 75.0) 60.0 (+ ox 75.0) 0.0 50)
(make-line (+ ox 75.0) 25.0 (+ ox 125.0) 25.0 50)
(make-line (+ ox 90.0) 25.0 (+ ox 90.0) 60.0 50)
(make-line (+ ox 110.0) 25.0 (+ ox 110.0) 60.0 50)
(make-dashed-v (+ ox 90.0) 0.0 25.0)
(make-dashed-v (+ ox 110.0) 0.0 25.0)
(make-dashed-h (+ ox 75.0) (+ ox 125.0) 10.0)
(make-axis-v (+ ox 100.0) -5.0 65.0)
(draw-dim-h (- ox 20.0) 60.0 (+ ox 20.0) 60.0 69.0 "40")
(draw-dim-h (- ox 30.0) 25.0 (+ ox 30.0) 25.0 77.0 "60")
(draw-dim-v-out (- ox 40.0) 0.0 (- ox 30.0) 10.0 (- ox 49.0) "10")
(draw-dim-v (- ox 40.0) 0.0 (- ox 40.0) 25.0 (- ox 57.0) "25")
(draw-dim-h (+ ox 75.0) 0.0 (+ ox 125.0) 0.0 -10.0 "50")
(draw-dim-v (+ ox 125.0) 0.0 (+ ox 125.0) 60.0 (+ ox 136.0) "60")
(draw-dim-v (- ox 25.0) -75.0 (- ox 25.0) -55.0 (- ox 50.0) "20")
(draw-dim-h (- ox 40.0) -90.0 (- ox 25.0) -75.0 -100.0 "15")
(draw-dim-h (- ox 25.0) -75.0 (- ox 10.0) -75.0 -100.0 "15")
(draw-dim-h (- ox 40.0) -90.0 (+ ox 40.0) -90.0 -109.0 "80")
)
; STREAMING_CHUNK:Executing all three multi-view drawings and zooming to extents...
(draw-part-1 0.0)
(draw-part-2 250.0)
(draw-part-3 500.0)
(setvar "OSMODE" osmode_old)
(command "_.zoom" "_E")
(princ)
)
(c:VSE3)