Save DXF plasma drawing to AutoCAD Release 11/12 ASCII DXF (*.dxf).

JimWebster
JimWebster
in LISP

The below lisp file works fine, but I am trying to print a message on the screen when done. At the end you will say that I have two different PRINC lines of code. Both of them seem to print the message onto the screen twice. Is there a way to stop both or either from doing that? Please keep the answer simple, like me. Thanks!

; SPD - Save Plasma Drawing
; Save the DXF plasma drawing to AutoCAD Release 11/12 ASCII DXF (.dxf)
; 17 (AC1015) = AutoCAD 2000 ASCII DXF (.dxf)
; 26 (AC1009) = AutoCAD Release 11/12 ASCII DXF (.dxf)
(defun c:SPD2 ( / OldFormat )
(setq OldFormat (getvar "SaveFormat")) ; save the current save format
(setvar "SaveFormat" 26) ; to change it to AutoCAD Release 11/12 ASCII DXF
(command "QSAVE") ; run QSAVE command
(setvar "SaveFormat" OldFormat) ; restore the previous save format
(princ (strcat "\Saved to AutoCAD Release 11/12 ASCII DXF (.dxf)."))
;;(princ "Saved to AutoCAD Release 11/12 ASCII DXF (*.dxf).")
)

(c:SPD2) ; auto run on loading

Comments

  • ALANH
    ALANH

    ;;(princ "Saved to AutoCAD Release 11/12 ASCII DXF (*.dxf).")

    change to

    (princ) ; exit quietly from a defun.

    )