polyline bulge

;;; **************************************************************************** ;;; * MPLINEC.LSP * ;;; * * ;;; * Description: Creates a polyline on the specified layer. The vertices of * ;;; * the polyline are supplied as a list. * ;;; * The bulge is calculated. * ;;; * * ;;; * Author: Dale Levesque * ;;; * D. M. Levesque and Associates * ;;; * * ;;; * Created: October 23, 2001 * ;;; * * ;;; * Input: 1.) Layer Name for the newly created Polyline entity. * ;;; * * ;;; * 2.) A list of point co-ordinates that will become the * ;;; * vertices of the polyline and the bulge factor. * ;;; * * ;;; ****************************************************************************
(defun mplinec (ln ptlst is_s203 is_trim / org_prg_id c_pt ang1 ang2 prev_pt inc_ang) (setq org_prg_id prg_id ; Store original function ID from last routine. prg_id "Mplinec.lsp" ; Set function ID for error handler message. ) ;_ end of setq ;;; (setq ename (entmakex (list (cons 0 "POLYLINE") (cons 8 ln)))) ; Create Pline Entity (entmake (list (cons 0 "POLYLINE") (cons 8 ln))) (while ptlst (entmake (list (cons 0 "VERTEX") (cons 8 ln) ; Layer name (cons 10 (caar ptlst)) ; Vertex (if (setq c_pt (caadar ptlst)) (progn (setq prev_pt (caar ptlst) ang1 (angle c_pt prev_pt) ang2 (angle c_pt (caadr ptlst)) ;_ end of setq ) ;_ end of setq (if (and (> (rtod ang2) 350) (< (rtod ang2) 360)) (setq ang2 (- (* 2 pi) ang2)) ) ;_ end of if (setq inc_ang (if (or (> (car c_pt) (car (caadr ptlst))) (> (car c_pt) (car prev_pt))) (abs (- ang1 ang2)) (if is_trim (- 0 (abs (- ang1 ang2))) (abs (- ang1 ang2)) ) ;_ end of if ) ;_ end of if ) ;_ end of setq (setq blge (tan (/ inc_ang 4.0))) (cons 42 blge) ;_ end of cons ) ;_ end of progn (cons 42 0) ) ;_ end of if ) ;_ end of list ) ;_ end of entmake (setq ptlst (cdr ptlst)) ) ;_ end of while (entmake (list (cons 0 "SEQEND") (cons 8 ln))) ; Add Sequence End ;;; (entupd ename) (setq prg_id org_prg_id) ; Restore original function ID. ) ; end defun mpline

Here is what I came up with. Here is what I came up with. Theobject is to create the data as a DXF from an RS-274-X file.
rem %AMTHERMAL80*7,0,0,0.080,0.055,0.0125,45*%
XC# = 0# YC# = 1# OD# = .08# ID# = .055# CT# = .0125# RO# = 45# ROTATION# = RO# XINSERT# = XC# YINSERT# = YC# REM FIRST SEGMENT X1# = SQR((OD# / 2#) ^ 2# - (CT# / 2#) ^ 2#) Y1# = CT# / 2# X2# = CT# / 2# Y2# = SQR((OD# / 2#) ^ 2# - (CT# / 2#) ^ 2#) X3# = (CT# / 2#) Y3# = SQR((ID# / 2#) ^ 2# - (CT# / 2#) ^ 2#) X4# = SQR((ID# / 2#) ^ 2# - (CT# / 2#) ^ 2#) Y4# = (CT# / 2#) X5# = SQR(((OD# / 2#) ^ 2#) / 2#) Y5# = SQR(((OD# / 2#) ^ 2#) / 2#) X6# = X2# + ((X1# - X2#) / 2#) Y6# = Y2# + ((Y1# - Y2#) / 2#) C1# = SQR((X1# - X2#) ^ 2# + (Y1# - Y2#) ^ 2#) C2# = SQR((X6# - X5#) ^ 2# + (Y6# - Y5#) ^ 2#) B1# = 2# * (C2# / C1#) X7# = SQR(((ID# / 2#) ^ 2#) / 2#) Y7# = SQR(((ID# / 2#) ^ 2#) / 2#) X8# = X4# + ((X3# - X4#) / 2#) Y8# = Y4# + ((Y3# - Y4#) / 2#) C3# = SQR((X3# - X4#) ^ 2# + (Y3# - Y4#) ^ 2#) C4# = SQR((X8# - X7#) ^ 2# + (Y8# - Y7#) ^ 2#) B2# = 2# * (C4# / C3#) B2#=-B2# REM SECOND SEGMENT X5#=-X1# Y5#=Y1# X6#=-X2# Y6#=Y2# X7#=-X3# Y7#=Y3# X8#=-X4# Y8#=Y4# B3#=-B1# B4#=-B2# REM THIRD SEGMENT X9#=-X1# Y9#=-Y1# X10#=-X2# Y10#=-Y2# X11#=-X3# Y11#=-Y3# X12#=-X4# Y12#=-Y4# B5#=B1# B6#=B2# REM FOURTH SEGMENT X13#=X1# Y13#=-Y1# X14#=X2# Y14#=-Y2# X15#=X3# Y15#=-Y3# X16#=X4# Y16#=-Y4# B7#=-B1# B8#=-B2# REM ROTATE
CLS PRINT USING "##.######## "; X1#,X5# PRINT USING "##.######## "; Y1#,Y5# PRINT USING "##.######## "; X2#,X6# PRINT USING "##.######## "; Y2#,Y6# PRINT USING "##.######## "; X3#,X7# PRINT USING "##.######## "; Y3#,Y7# PRINT USING "##.######## "; X4#,X8# PRINT USING "##.######## "; Y4#,Y8# PRINT USING "##.######## "; B1#,B3# PRINT USING "##.######## "; B2#,B4#
BLOCKNAME$ = "THERMAL80" LINETYPE$ = "CONTINUOUS" LAYERNAME$ = "0" XINSERT# = XC# YINSERT# = YC# ZINSERT# = 0# ELEVATION# = 0# THICKNESS# = 0# COLOR$ = "0" BLOCKTYPE$ = "0"
OUTFILE$ = "THERMAL.DXF" OPEN "O", 1, OUTFILE$
REM HEADER PRINT #1, " 0" PRINT #1, "SECTION" PRINT #1, " 2" PRINT #1, "HEADER" PRINT #1, " 9" PRINT #1, "$INSBASE" PRINT #1, " 10" PRINT #1, "0.0" PRINT #1, " 20" PRINT #1, "0.0" PRINT #1, " 0" PRINT #1, "ENDSEC" REM CLASSES PRINT #1, " 0" PRINT #1, "SECTION" PRINT #1, " 2" PRINT #1, "CLASSES" PRINT #1, " 0" PRINT #1, "ENDSEC" REM TABLES PRINT #1, " 0" PRINT #1, "SECTION" PRINT #1, " 2" PRINT #1, "TABLES" PRINT #1, " 0" PRINT #1, "ENDSEC" REM BLOCKS PRINT #1, " 0" PRINT #1, "SECTION" PRINT #1, " 2" PRINT #1, "BLOCKS" PRINT #1, " 0" PRINT #1, "BLOCK" PRINT #1, " 2" PRINT #1, BLOCKNAME$ PRINT #1, " 6" PRINT #1, LINETYPE$ PRINT #1, " 8" PRINT #1, LAYERNAME$ PRINT #1, " 10" PRINT #1, USING "##.###############"; 0# PRINT #1, " 20" PRINT #1, USING "##.###############"; 0# PRINT #1, " 30" PRINT #1, USING "##.###############"; 0# PRINT #1, " 38" PRINT #1, USING "##.###############"; ELEVATION# PRINT #1, " 39" PRINT #1, USING "##.###############"; THICKNESS# PRINT #1, " 62" PRINT #1, COLOR$ PRINT #1, " 70" PRINT #1, BLOCKTYPE$ PRINT #1, " 0" PRINT #1, "POLYLINE" PRINT #1, " 6" PRINT #1, "0" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 38" PRINT #1, "0" PRINT #1, " 39" PRINT #1, "0" PRINT #1, " 40" PRINT #1, "0" PRINT #1, " 41" PRINT #1, "0" PRINT #1, " 62" PRINT #1, "0" PRINT #1, " 66" PRINT #1, "1" PRINT #1, " 70" PRINT #1, "0" PRINT #1, "0" PRINT #1, "VERTEX" PRINT #1, " 6" PRINT #1, "0" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 10" PRINT #1, USING "##.###############"; X1# PRINT #1, " 20" PRINT #1, USING "##.###############"; Y1# PRINT #1, " 38" PRINT #1, "0" PRINT #1, " 39" PRINT #1, "0" PRINT #1, " 40" PRINT #1, "0" PRINT #1, " 41" PRINT #1, "0" PRINT #1, " 42" PRINT #1, USING "##.###############"; B1# PRINT #1, " 50" PRINT #1, "0" PRINT #1, " 62" PRINT #1, "0" PRINT #1, " 70" PRINT #1, "0" PRINT #1, "0" PRINT #1, "VERTEX" PRINT #1, " 6" PRINT #1, "0" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 10" PRINT #1, USING "##.###############"; X2# PRINT #1, " 20" PRINT #1, USING "##.###############"; Y2# PRINT #1, " 38" PRINT #1, "0" PRINT #1, " 39" PRINT #1, "0" PRINT #1, " 40" PRINT #1, "0" PRINT #1, " 41" PRINT #1, "0" PRINT #1, " 42" PRINT #1, "0" PRINT #1, " 50" PRINT #1, "0" PRINT #1, " 62" PRINT #1, "0" PRINT #1, " 70" PRINT #1, "0" PRINT #1, "0" PRINT #1, "VERTEX" PRINT #1, " 6" PRINT #1, "0" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 10" PRINT #1, USING "##.###############"; X3# PRINT #1, " 20" PRINT #1, USING "##.###############"; Y3# PRINT #1, " 38" PRINT #1, "0" PRINT #1, " 39" PRINT #1, "0" PRINT #1, " 40" PRINT #1, "0" PRINT #1, " 41" PRINT #1, "0" PRINT #1, " 42" PRINT #1, USING "##.###############"; B2# PRINT #1, " 50" PRINT #1, "0" PRINT #1, " 62" PRINT #1, "0" PRINT #1, " 70" PRINT #1, "0" PRINT #1, "0" PRINT #1, "VERTEX" PRINT #1, " 6" PRINT #1, "0" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 10" PRINT #1, USING "##.###############"; X4# PRINT #1, " 20" PRINT #1, USING "##.###############"; Y4# PRINT #1, " 38" PRINT #1, "0" PRINT #1, " 39" PRINT #1, "0" PRINT #1, " 40" PRINT #1, "0" PRINT #1, " 41" PRINT #1, "0" PRINT #1, " 42" PRINT #1, "0" PRINT #1, " 50" PRINT #1, "0" PRINT #1, " 62" PRINT #1, "0" PRINT #1, " 70" PRINT #1, "0" PRINT #1, "0" PRINT #1, "VERTEX" PRINT #1, " 6" PRINT #1, "0" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 10" PRINT #1, USING "##.###############"; X1# PRINT #1, " 20" PRINT #1, USING "##.###############"; Y1# PRINT #1, " 38" PRINT #1, "0" PRINT #1, " 39" PRINT #1, "0" PRINT #1, " 40" PRINT #1, "0" PRINT #1, " 41" PRINT #1, "0" PRINT #1, " 42" PRINT #1, "0" PRINT #1, " 50" PRINT #1, "0" PRINT #1, " 62" PRINT #1, "0" PRINT #1, " 70" PRINT #1, "0" PRINT #1, " 0" PRINT #1, "SEQEND" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 0" PRINT #1, "POLYLINE" PRINT #1, " 6" PRINT #1, "0" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 38" PRINT #1, "0" PRINT #1, " 39" PRINT #1, "0" PRINT #1, " 40" PRINT #1, "0" PRINT #1, " 41" PRINT #1, "0" PRINT #1, " 62" PRINT #1, "0" PRINT #1, " 66" PRINT #1, "1" PRINT #1, " 70" PRINT #1, "0" PRINT #1, "0" PRINT #1, "VERTEX" PRINT #1, " 6" PRINT #1, "0" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 10" PRINT #1, USING "##.###############"; X5# PRINT #1, " 20" PRINT #1, USING "##.###############"; Y5# PRINT #1, " 38" PRINT #1, "0" PRINT #1, " 39" PRINT #1, "0" PRINT #1, " 40" PRINT #1, "0" PRINT #1, " 41" PRINT #1, "0" PRINT #1, " 42" PRINT #1, USING "##.###############"; B3# PRINT #1, " 50" PRINT #1, "0" PRINT #1, " 62" PRINT #1, "0" PRINT #1, " 70" PRINT #1, "0" PRINT #1, "0" PRINT #1, "VERTEX" PRINT #1, " 6" PRINT #1, "0" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 10" PRINT #1, USING "##.###############"; X6# PRINT #1, " 20" PRINT #1, USING "##.###############"; Y6# PRINT #1, " 38" PRINT #1, "0" PRINT #1, " 39" PRINT #1, "0" PRINT #1, " 40" PRINT #1, "0" PRINT #1, " 41" PRINT #1, "0" PRINT #1, " 42" PRINT #1, "0" PRINT #1, " 50" PRINT #1, "0" PRINT #1, " 62" PRINT #1, "0" PRINT #1, " 70" PRINT #1, "0" PRINT #1, "0" PRINT #1, "VERTEX" PRINT #1, " 6" PRINT #1, "0" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 10" PRINT #1, USING "##.###############"; X7# PRINT #1, " 20 PRINT #1, USING "##.###############"; Y7# PRINT #1, " 38" PRINT #1, "0" PRINT #1, " 39" PRINT #1, "0" PRINT #1, " 40" PRINT #1, "0" PRINT #1, " 41" PRINT #1, "0" PRINT #1, " 42" PRINT #1, USING "##.###############"; B4# PRINT #1, " 50" PRINT #1, "0" PRINT #1, " 62" PRINT #1, "0" PRINT #1, " 70" PRINT #1, "0" PRINT #1, "0" PRINT #1, "VERTEX" PRINT #1, " 6" PRINT #1, "0" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 10" PRINT #1, USING "##.###############"; X8# PRINT #1, " 20" PRINT #1, USING "##.###############"; Y8# PRINT #1, " 38" PRINT #1, "0" PRINT #1, " 39" PRINT #1, "0" PRINT #1, " 40" PRINT #1, "0" PRINT #1, " 41" PRINT #1, "0" PRINT #1, " 42" PRINT #1, "0" PRINT #1, " 50" PRINT #1, "0" PRINT #1, " 62" PRINT #1, "0" PRINT #1, " 70" PRINT #1, "0" PRINT #1, "0" PRINT #1, "VERTEX" PRINT #1, " 6" PRINT #1, "0" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 10" PRINT #1, USING "##.###############"; X5# PRINT #1, " 20" PRINT #1, USING "##.###############"; Y5# PRINT #1, " 38" PRINT #1, "0" PRINT #1, " 39" PRINT #1, "0" PRINT #1, " 40" PRINT #1, "0" PRINT #1, " 41" PRINT #1, "0" PRINT #1, " 42" PRINT #1, "0" PRINT #1, " 50" PRINT #1, "0" PRINT #1, " 62" PRINT #1, "0" PRINT #1, " 70" PRINT #1, "0" PRINT #1, " 0" PRINT #1, "SEQEND" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 0" PRINT #1, "POLYLINE" PRINT #1, " 6" PRINT #1, "0" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 38" PRINT #1, "0" PRINT #1, " 39" PRINT #1, "0" PRINT #1, " 40" PRINT #1, "0" PRINT #1, " 41" PRINT #1, "0" PRINT #1, " 62" PRINT #1, "0" PRINT #1, " 66" PRINT #1, "1" PRINT #1, " 70" PRINT #1, "0" PRINT #1, "0" PRINT #1, "VERTEX" PRINT #1, " 6" PRINT #1, "0" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 10" PRINT #1, USING "##.###############"; X9# PRINT #1, " 20" PRINT #1, USING "##.###############"; Y9# PRINT #1, " 38" PRINT #1, "0" PRINT #1, " 39" PRINT #1, "0" PRINT #1, " 40" PRINT #1, "0" PRINT #1, " 41" PRINT #1, "0" PRINT #1, " 42" PRINT #1, USING "##.###############"; B5# PRINT #1, " 50" PRINT #1, "0" PRINT #1, " 62" PRINT #1, "0" PRINT #1, " 70" PRINT #1, "0" PRINT #1, "0" PRINT #1, "VERTEX" PRINT #1, " 6" PRINT #1, "0" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 10" PRINT #1, USING "##.###############"; X10# PRINT #1, " 20" PRINT #1, USING "##.###############"; Y10# PRINT #1, " 38" PRINT #1, "0" PRINT #1, " 39" PRINT #1, "0" PRINT #1, " 40" PRINT #1, "0" PRINT #1, " 41" PRINT #1, "0" PRINT #1, " 42" PRINT #1, "0" PRINT #1, " 50" PRINT #1, "0" PRINT #1, " 62" PRINT #1, "0" PRINT #1, " 70" PRINT #1, "0" PRINT #1, "0" PRINT #1, "VERTEX" PRINT #1, " 6" PRINT #1, "0" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 10" PRINT #1, USING "##.###############"; X11# PRINT #1, " 20 PRINT #1, USING "##.###############"; Y11# PRINT #1, " 38" PRINT #1, "0" PRINT #1, " 39" PRINT #1, "0" PRINT #1, " 40" PRINT #1, "0" PRINT #1, " 41" PRINT #1, "0" PRINT #1, " 42" PRINT #1, USING "##.###############"; B6# PRINT #1, " 50" PRINT #1, "0" PRINT #1, " 62" PRINT #1, "0" PRINT #1, " 70" PRINT #1, "0" PRINT #1, "0" PRINT #1, "VERTEX" PRINT #1, " 6" PRINT #1, "0" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 10" PRINT #1, USING "##.###############"; X12# PRINT #1, " 20" PRINT #1, USING "##.###############"; Y12# PRINT #1, " 38" PRINT #1, "0" PRINT #1, " 39" PRINT #1, "0" PRINT #1, " 40" PRINT #1, "0" PRINT #1, " 41" PRINT #1, "0" PRINT #1, " 42" PRINT #1, "0" PRINT #1, " 50" PRINT #1, "0" PRINT #1, " 62" PRINT #1, "0" PRINT #1, " 70" PRINT #1, "0" PRINT #1, "0" PRINT #1, "VERTEX" PRINT #1, " 6" PRINT #1, "0" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 10" PRINT #1, USING "##.###############"; X9# PRINT #1, " 20" PRINT #1, USING "##.###############"; Y9# PRINT #1, " 38" PRINT #1, "0" PRINT #1, " 39" PRINT #1, "0" PRINT #1, " 40" PRINT #1, "0" PRINT #1, " 41" PRINT #1, "0" PRINT #1, " 42" PRINT #1, "0" PRINT #1, " 50" PRINT #1, "0" PRINT #1, " 62" PRINT #1, "0" PRINT #1, " 70" PRINT #1, "0" PRINT #1, " 0" PRINT #1, "SEQEND" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 0" PRINT #1, "POLYLINE" PRINT #1, " 6" PRINT #1, "0" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 38" PRINT #1, "0" PRINT #1, " 39" PRINT #1, "0" PRINT #1, " 40" PRINT #1, "0" PRINT #1, " 41" PRINT #1, "0" PRINT #1, " 62" PRINT #1, "0" PRINT #1, " 66" PRINT #1, "1" PRINT #1, " 70" PRINT #1, "0" PRINT #1, "0" PRINT #1, "VERTEX" PRINT #1, " 6" PRINT #1, "0" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 10" PRINT #1, USING "##.###############"; X13# PRINT #1, " 20" PRINT #1, USING "##.###############"; Y13# PRINT #1, " 38" PRINT #1, "0" PRINT #1, " 39" PRINT #1, "0" PRINT #1, " 40" PRINT #1, "0" PRINT #1, " 41" PRINT #1, "0" PRINT #1, " 42" PRINT #1, USING "##.###############"; B7# PRINT #1, " 50" PRINT #1, "0" PRINT #1, " 62" PRINT #1, "0" PRINT #1, " 70" PRINT #1, "0" PRINT #1, "0" PRINT #1, "VERTEX" PRINT #1, " 6" PRINT #1, "0" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 10" PRINT #1, USING "##.###############"; X14# PRINT #1, " 20" PRINT #1, USING "##.###############"; Y14# PRINT #1, " 38" PRINT #1, "0" PRINT #1, " 39" PRINT #1, "0" PRINT #1, " 40" PRINT #1, "0" PRINT #1, " 41" PRINT #1, "0" PRINT #1, " 42" PRINT #1, "0" PRINT #1, " 50" PRINT #1, "0" PRINT #1, " 62" PRINT #1, "0" PRINT #1, " 70" PRINT #1, "0" PRINT #1, "0" PRINT #1, "VERTEX" PRINT #1, " 6" PRINT #1, "0" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 10" PRINT #1, USING "##.###############"; X15# PRINT #1, " 20 PRINT #1, USING "##.###############"; Y15# PRINT #1, " 38" PRINT #1, "0" PRINT #1, " 39" PRINT #1, "0" PRINT #1, " 40" PRINT #1, "0" PRINT #1, " 41" PRINT #1, "0" PRINT #1, " 42" PRINT #1, USING "##.###############"; B8# PRINT #1, " 50" PRINT #1, "0" PRINT #1, " 62" PRINT #1, "0" PRINT #1, " 70" PRINT #1, "0" PRINT #1, "0" PRINT #1, "VERTEX" PRINT #1, " 6" PRINT #1, "0" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 10" PRINT #1, USING "##.###############"; X16# PRINT #1, " 20" PRINT #1, USING "##.###############"; Y16# PRINT #1, " 38" PRINT #1, "0" PRINT #1, " 39" PRINT #1, "0" PRINT #1, " 40" PRINT #1, "0" PRINT #1, " 41" PRINT #1, "0" PRINT #1, " 42" PRINT #1, "0" PRINT #1, " 50" PRINT #1, "0" PRINT #1, " 62" PRINT #1, "0" PRINT #1, " 70" PRINT #1, "0" PRINT #1, "0" PRINT #1, "VERTEX" PRINT #1, " 6" PRINT #1, "0" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 10" PRINT #1, USING "##.###############"; X13# PRINT #1, " 20" PRINT #1, USING "##.###############"; Y13# PRINT #1, " 38" PRINT #1, "0" PRINT #1, " 39" PRINT #1, "0" PRINT #1, " 40" PRINT #1, "0" PRINT #1, " 41" PRINT #1, "0" PRINT #1, " 42" PRINT #1, "0" PRINT #1, " 50" PRINT #1, "0" PRINT #1, " 62" PRINT #1, "0" PRINT #1, " 70" PRINT #1, "0" PRINT #1, " 0" PRINT #1, "SEQEND" PRINT #1, " 8" PRINT #1, "0" PRINT #1, " 0" PRINT #1, "ENDBLK" PRINT #1, " 0" PRINT #1, "ENDSEC" REM ENTITIES PRINT #1, " 0" PRINT #1, "SECTION" PRINT #1, " 2" PRINT #1, "ENTITIES" PRINT #1, " 0" PRINT #1, "INSERT" PRINT #1, " 2" PRINT #1, BLOCKNAME$ PRINT #1, " 6" PRINT #1, LINETYPE$ PRINT #1, " 8" PRINT #1, LAYERNAME$ PRINT #1, " 10" PRINT #1, USING "##.###############"; XINSERT# PRINT #1, " 20" PRINT #1, USING "##.###############"; YINSERT# PRINT #1, "30" PRINT #1, USING "##.###############"; ZINSERT# PRINT #1, " 50" PRINT #1, ROTATION# PRINT #1, " 0" PRINT #1, "ENDSEC" REM OBJECTS PRINT #1, " 0" PRINT #1, "SECTION" PRINT #1, " 2" PRINT #1, "OBJECTS" PRINT #1, " 0" PRINT #1, "ENDSEC" REM END OF FILE PRINT #1, " 0" PRINT #1, "EOF" REM END CLOSE #1 END
Bob