;first of all
i apologize for making another tread for this,
;as the one i seek help has not been answered yet,
,,,anyway
;could anyone take a look at this lisp routine and fix the part where it should "plot",
;basically this supposed to go through a few steps before it invoke the "plot" command.
;but somehow it did'nt and stop with "purge",, im totally newbie into lisp so pls. folks help me,,,
;here's the code,,, by the way this is from "allanjt" who contributed most of it,,
;;;-----------------------------
;
(defun c:pizp ( / ss)
(if
(progn
(setvar "filedia" 1) ; Ensure that dialog boxes will be displayed instead of using the command line
(setvar "cmdecho" 0)
(command "-layer" "t" "0" "s" "0" "")
(command "tilemode" "0")
(command "pspace")
(command "zoom" "all")
;;;========================================================================
; Search drawing for images...
(if (setq ss (ssget "X" '((0 . "IMAGE"))))
; If there are images, detach them
(command "-image" "d" "*" )
; If there aren't any images, just spit out a prompt that there aren't any images
(princ "\n There are NO images here...")
)
;;;========================================================================
(command "-purge" "all" "" "n")
(prompt "\nPurging #1")
(command "-purge" "all" "" "n")
(prompt "\nPurging #2")
(prompt "...done")
);progn
(command "plot") [color=red]; it is here that the program stumble, at my end it stop with purging and exit, did not go to "plot", i needed it to be able to show me the plot config, dialogue box or force acad to do that.[/color]
);if
(princ)
)
;;-----------end
;;; with thanks everyone
;;;excuse mu grammar