xyz import/export
david l armstrong
of lines etc. into an ascii file, space or comma delimited.
Is there such a routine for Autocad r12?
Thanks, david
Steve Rockwell
>Need an AutoLISP routine that will import/export the xyz coordinates
>of lines etc. into an ascii file, space or comma delimited.
You could use the SQL extension built into AutoCAD but you'll have to
figure out all the formatting to get just the coordinate info in the
output file. Good luck!
Steve Rockwell
Dennis Shinn
>>Need an AutoLISP routine that will import/export the xyz coordinates
>>of lines etc. into an ascii file, space or comma delimited.
I offered this routine as a possible import utility:
======================snipper-oooo===============================
;;; PtsIn.lsp
;;; Dennis Shinn
;;; Seattle AutoCAD User Group
;;; BBS: (206) 644-7115
;;; email - jee...@halcyon.com
;;; Reads an external ascii point data file in the format:
;;; x,y,z
;;; x,y,z
;;; x,y,z
;;; etc.
;;; and posts the points in the drawing file
;;; - Prompts -
;;; File name:...
;;; "File name' must be a fully qualified
;;; file eg drive:\directory\filename.extension
;;; if the data file does not reside in the
;;; current drawing directory
;;;
;;; - Symbols -
;;; fn = data file
;;; datfile = data file alias
;;; pt = point list as read from data file
;;; - Dependencies -
;;; None
;;; - Disclaimer -
;;; This bit of a hack is released in the public domain
;;; as is not guaranteed to do anything but occupy space
;;; on your hard drive. Please feel free to distribute it
;;; to whomever might be brave enough to use it.
;;; revision note: added subfunction and filename
;;; verification 02Dec95
;;; *** main function ***
(DeFun C:PtsIn (/ fn datfile pt)
(SetQ fn (GetString "\nFile name:..."))
(If
(Not
(SetQ datfile (Open fn "r"))
)
(Prompt "\nFile not found; please verify path and extension ....")
(PltPts)
)
);PtsIn.lsp
;;; *** subfunction pltpts.lsp ***
(DeFun pltpts ()
(SetQ pt (Read-Line datfile))
(Command "POINT" pt)
(While pt
(Command "POINT" pt)
(SetQ pt (Read-Line datfile))
)
(SetQ fn (Close datfile))
);PltPts.lsp
(Princ "\n")
(Princ "\n")
(Princ "\nPtsIn loaded ...enter ptsin to execute")
(Princ "\nCourtesy Seattle AutoCAD User Group")
Dennis Shinn
Seattle AutoCAD User Group
SAUG-BBS [206] 644-7115 PCGNet 9:517/215
email: jee...@halcyon.com
BBS: dennis...@saug.wa.com