topic Re: block in place editing in Visual LISP, AutoLISP and General Customization Forum

block in place editing

Anonymous — Thu, 14 Apr 2016 09:44:36 GMT

Hi, I really want to have the option to go into another block for in-place editing WITHOUT having to go out of the block i am editind in place now & then entering the other one - is there a way to do that? just like moving into another block via block editor - i am just asked if to save changes & i can go right away into another block...

Thanks!

Re: block in place editing

hmsilva — Thu, 14 Apr 2016 10:06:26 GMT

@Anonymous wrote:

Hi, I really want to have the option to go into another block for in-place editing WITHOUT having to go out of the block i am editind in place now & then entering the other one - is there a way to do that? just like moving into another block via block editor - i am just asked if to save changes & i can go right away into another block...

Thanks!

Hi Hanna,

maybe, in blockeditor:

Command:bsave

Command: bedit

Hope this helps,
Henrique

Re: block in place editing

Anonymous — Thu, 14 Apr 2016 10:13:04 GMT

thanks! but the whole point is when i am in block IN PLACE.........

Re: block in place editing

hmsilva — Thu, 14 Apr 2016 10:23:02 GMT

@Anonymous wrote:
thanks! but the whole point is when i am in block IN PLACE.........

My bad!!!!

You'll have to close, to edit a new one...

Henrique

Re: block in place editing

Anonymous — Thu, 14 Apr 2016 10:27:41 GMT

yep 😞 so i was wondering if maybe there is some kind of a lisp to do that...?

Re: block in place editing

ВeekeeCZ — Thu, 14 Apr 2016 10:59:17 GMT

This routine makes close/open for you.

The question is what to do with current block: always save? always not? or ask the user.

(defun c:EditInPlace ( / ss)
  (if (setq ss (ssget ":S" '((0 . "INSERT"))))
    (progn
      (command "_.refclose")
      (while (> (getvar 'CMDACTIVE) 0)
	(command
	  	"_save"  ; change to "_discard" or PAUSE
		))))   
  (command "_.-refedit" (cdr (assoc 10 (entget (ssname ss 0)))) "_o" "_a" "_y")
  (princ)
)

Re: block in place editing

Anonymous — Thu, 14 Apr 2016 11:07:45 GMT

Wow thanks! it's almost there... first of all i want to have a choice to save or discard...second - because i have nested block it gives an error (*Invalid selection*
Expects a single object.
; error: Function cancelled)
what i would like is for the "referance edit" window to open when i select the second block- just like the program does in the first place
thank you so much!!

Re: block in place editing

marko_ribar — Thu, 14 Apr 2016 11:13:22 GMT

@ВeekeeCZ wrote:

This routine makes close/open for you.

The question is what to do with current block: always save? always not? or ask the user.

(defun c:EditInPlace ( / ss)
  (if (setq ss (ssget ":S" '((0 . "INSERT"))))
    (progn
      (command "_.refclose")
      (while (> (getvar 'CMDACTIVE) 0)
	(command
	  	"_save"  ; change to "_discard" or PAUSE
		))))   
  (command "_.-refedit" (cdr (assoc 10 (entget (ssname ss 0)))) "_o" "_a" "_y")
  (princ)
)

Hi BeekeeCZ, I am afraid that this isn't so simple... If that would be solution then this would be solved long time ago...

https://www.theswamp.org/index.php?topic=48470.0

Hint : This line marked red is probably wrong - you have to find reactive points on entity you wish to edit in place like it's explained in link I just pointed you...

Also worth of looking is this topic ... :

https://www.theswamp.org/index.php?topic=50585.0

HTH, M.R.

Re: block in place editing

ВeekeeCZ — Thu, 14 Apr 2016 11:56:27 GMT

@Anonymous wrote:
...second - because i have nested block it gives an error (*Invalid selection*
Expects a single object.
; error: Function cancelled)

what i would like is for the "referance edit" window to open when i select the second block- just like the program does in the first place
thank you so much!!

Could you more elaborate this "i have nested block"... you're IN nested block or you're selecting block with nested block... I'm not able to reproduce this - can you post some sample?

Not sure what you mean - do you mean contextual ribbon or right-click shortcut menu? You can add this command into both - use _CUI.

The third - Marco referred some issues with this approach - I don't have time to go throw all of it - it looks like that is just 3d thing. Not sure. Let know if this is your issue as well.

@marko_ribar thanks for the heads up!

Save prompt:

(defun c:EditInPlace ( / ss)
  (if (setq ss (ssget ":S" '((0 . "INSERT"))))
    (progn
      (command "_.refclose")
      (while (> (getvar 'CMDACTIVE) 0)
	(command PAUSE))
      (command "_.-refedit" (cdr (assoc 10 (entget (ssname ss 0)))) "_o" "_a" "_y")))
  (princ)
)

Re: block in place editing

Anonymous — Thu, 21 Apr 2016 06:43:03 GMT

hi BeeKeeCZ, I wanna go into a nested block & am coming out of one too, i wanna have the option to go into any block either by picking it on screen or selecting from a list - just like the window of "referance edit" gives. thanks!

Re: block in place editing

ВeekeeCZ — Thu, 21 Apr 2016 18:55:09 GMT

Ok... After some elaboration I decided make it simple... I think the best way is to make two buttons

- Save and Edit Next

- No Save end Edit Next

(defun c:SaveAndNext nil
  (initdia)
  (command "_.refclose" "_sav"
	   "_.refedit")
  (princ)
)

(defun c:NoSaveAndNext nil
  (initdia)
  (command "_.refclose" "_dis"
	   "_.refedit")
  (princ)
)

In _CUI create these two buttons... Macro would be just: SaveAndNext, name it e.g. "Save\rEdit Next"... and add it into Ribbon/Panels/Reference Edit - Edit Reference