Visual LISP, AutoLISP and General Customization

[#1]

OK i see the problem but

just wonder if (ssget) solved it why not use it?

[#2]

I would, I am just not sure what its really doing.

Your code exits with an error, though it seems to work.

I will try a couple things first, mainly (command "select" "") to see if I can get it down to one3 case at the export step.

thanks a bunch for your thoughts on this so far!

[#3]

what is the error? send a picture

for me it runs clean

[#4]

I get this:

Command: ttt
Insertion base Point: Unknown command "TTT".  Press F1 for help.

I am not sure why it gives that since TTT is defined. It should have failed on the SS param.

I'll probably just use that as the error seems benign.

[#5]

this error means that you got an extra enter

[#6]

I agree, and worry a bit about what that might do in certain situations.

It was your extra enter though

There is some bug going on, as simply adding "oops" after the command messes it up.

It works fine when you type it, just not in the flow of lisp.

[#7 · Accepted solution]

OK,

i removed the extra enter, does it's works now?

moshe

(defun c:ttt (/ fname ss ins)

 (defun askPoint ()
  (setq ins (getpoint "\nInsertion base Point: "))
 )
   
 (setq fname "C:\\TEMP\\JAMES.dwg")
  
 (if (setq ss (ssget "i"))
  (if (askPoint)
   (command ".export" fname ins ss "" "oops")
  ); if
  (if (setq ss (ssget))
   (if (askPoint)
    (command ".export" fname "" ins ss "" "oops")
   ); if
  ); if
 ); if

 (princ)
)

[#8]

yah, it does. I am sure I tried that before, here is revised test code:

(DEFUN C:TTT ( / SS PICKPT tempdrawing james)
	(SETQ SS (SSGET "I"))
	(SETQ PICKPT (getpoint "\nPick Insert Point"))
	(setq tempdrawing "C:\\TEMP\\tempp.DWG")
	(command ".export" tempdrawing PICKPT SS "" "OOPS")
)

 I will have to look back over what I did before, as I must have fooled myself that I tried it.

Maybe the fact that it behaves differently in lisp than on command line tricked me, but it seems its working now.

Thanks again.

[#9]

Hallelujah!

Hallelujah!

Hallelujah!

[#10]

I posted the WTIT.lsp in a new thread, if you want to see the results of our labor.