export a part of a drawing to dxf
WBLOCK command.
Pick your base point and object(s), and the browse ... button:
and in there, give it a name after you pull down the Files of type: list for the variety you want [it will supply the .dxf in the File name: slot]:
@komondormrex wrote:
.... Then newly created document saved and opened in another autocad document window to be saved as dxf version 2004. Down side is opening of another window. ....
It's not necessary to open the resulting drawing file to save it to DXF format, when WBLOCK can create it directly in that format. See Message 2.
@komondormrex wrote:
.... wblock will retain source origin of CS, while TS wants it to be especially set.
WBLOCK via the dialog box lets you pick the origin/base/insertion point. And overall it doesn't seem any more complicated than your described process -- pick a base point, select objects, choose a format, give it a name [and those can be in any order], done.
WBLOCK via the dialog box lets you pick the origin/base/insertion point.
am i missed smth? wblock's generated dxf will be somehow a block and i am aware when inserted it will be inserted with that base point. but opened independently it will retain the source origin of CS. correct me if i went wrong.
@komondormrex wrote:
... wblock's generated dxf will be somehow a block and i am aware when inserted it will be inserted with that base point. but opened independently it will retain the source origin of CS. correct me if i went wrong.
It won't be a Block, but a drawing interchange file. It will constitute or become the definition of a Block only if and when it is Inserted in some other drawing, in which case its internal Coordinate System will be irrelevant, so does it matter?
Yes, the Coordinate System 0,0 will remain where it was in relation to the exported pieces. But back to your description: "User then point origin point he wants to be an origin point of CS of created dwg document to which routine copies selected entities." I don't see how that would change it, either. By what methods, exactly, are you picturing the User would pick the origin point and the routine would copy the things to a new drawing?
Also, "Then newly created document saved and opened in another autocad document window to be saved as dxf version 2004." If you are picturing that as being done within the same routine that exported things to a new drawing, that won't be possible, because an AutoLisp routine cannot start in one drawing and continue in another. It would need to be done manually by the User, or a follow-up separate routine would need to be written, to be called for when in the new drawing.
@Hans_Knol : If it's necessary to actually change the 0,0 origin in the exported drawing [does that matter to the CNC machine or something?], I suspect it will require either:
A. Moving the selected objects from the desired origin to 0,0 in the source drawing before exporting them; or
B. Defining the selected objects into a Block first, using the desired origin location as the base point, and then WBLOCKing out that Block definition [not the selected objects independent of it] to a new drawing/dxf file, in which case in the resulting new drawing the 0,0 origin will be where the selected base point was in the source drawing.
@Hans_Knol wrote:
Hello, does somebody know how or have a lisproutine that give the posibility to export a part of the drawing (by selection and set the 0,0 point) to a dxf file, it will be used for a CNC machine so it must be an old 2004 dxf format file (if possible)
Hope te find it soon.
just as a demo.
Does not test for the existence of a file with the same name, and the dwf will be created in the same directory with the same dwg name...
(defun c:demo (/ *error* ss)
(defun *error* (msg)
(if ofs
(setenv "DefaultFormatForSave" ofs)
)
(cond ((not msg))
((member msg '("Function cancelled" "quit / exit abort")))
((princ (strcat "\n** Error: " msg " ** ")))
)
(princ)
)
(if (setq ss (ssget))
(progn
(setq ofs (getenv "DefaultFormatForSave"))
(setenv "DefaultFormatForSave" "25");; AutoCAD 2004 DXF
(command "_.wblock" (strcat (getvar "Dwgprefix") (vl-filename-base (getvar "dwgname"))".dxf") "" "" "0,0,0" SS "" "_.oops")
(setenv "DefaultFormatForSave" ofs)
)
)
(princ)
)
Hope this helps,
Henrique
@Hans_Knol wrote:
is it possible to select the starting point in instead of using 0,0,0 in the lisp file?
@CADaSchtroumpf code in message #10 already do that.
Henrique
