polyline bulge

What is a good formula for calclulating the bulge value of a poly line arc?
A formula that does not use angles is preferred if possible. I can calculate
the needed variables.
Bob
Reply to
sycochkn
Loading thread data ...
;;; **************************************************************************** ;;; * 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
Reply to
Dale Levesque
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
Reply to
sycochkn

PolyTech Forum website is not affiliated with any of the manufacturers or service providers discussed here. All logos and trade names are the property of their respective owners.