profile view invert

[AR.SION]

Hi I need help to make this work. I am trying to make a lisp that will insert a block to profile view but I need to add this transparent command 'pse as my insertion point. thanks

[AR.SION]

sorry here is the lisp.

[ВeekeeCZ]

Try this?

(command "_.-INSERT" "INVERT" "_S" 1 "_R" 90 (c:PSE))

[Kent1Cooper]

May we see the code for the PSE command?

If usage as a transparent command 'PSE is the need, don't think (C:PSE) will work, because I don't think a defined custom command can be called that way except at the Command: prompt, but in the suggested code it's at the insertion-point prompt inside an Insert command.  I believe you can use transparent commands like that in command macros, but I don't think you can in AutoLisp routines.

But if you show us what PSE does, very likely the same functionality can be built into the routine in another way.

[john.uhden]

OR, if c:PSE is supposed to return an insertion point, then he can call C:PSE before the command to save the result and put it at the end of (command ...)

[ВeekeeCZ · Accepted solution]

This one works.

(vl-load-com)

(defun c:INV nil
  (vla-sendcommand
    (vla-get-activedocument (vlax-get-acad-object))
    "_.-INSERT\rINVERT\r_S\r1\r_R\r90\r'PSE\r")
  (princ)
  )

[AR.SION]

Amazing!!! thank you so much  Sir BeekeCZ  and to all who replied you guys are so helpful. thanks again.