Topic: the 'UB' command

[idrawwithcad]

Hi all,

One of the guys here in our office has made the mistake of typing 'UB' into his command line a couple of times now and somehow managing to undo everything he has done since the file was opened, even if he has made saves along the way    :realmad:

As we do a lot of structural steel work, UB is something that we type in quite a bit (sposed to be text though, not in the command line!) so we decided we would like to overwrite the command with save.  However, we cant find the command anywhere, its not in the pgp, and even if we write a new command in the pgp with the u & b keys to activate it, it still calls up the undo to the beginning command    :ugly:

Does anyone know much about this command, or how we can disable it? 

Thanks guys!

[MP]

UB? Never heard of it. It may be a custom command -- either someone has penned a (defun c:UB ( ) ...) somewhere or it's defined in an arx etc.

Regardless ...

If said command "undo's all the way back", "even if he has made saves along the way" then said user should immediately close the drawing without saving, and any edits up to his last save should be intact.

[Bob Wahr]

You haven't looked everywhere because somewhere, and I'm guessing it is done with lisp, UB has been set up to do "UNDO B(ack) Y(es)"
 check any mnl files that are loading as well as any lisps that load automatically.

[Chuck Gabriel]

Sounds like a lisp routine to me.  Unfortunately, there are quite a few possible sources.

1) acad.lsp
2) acaddoc.lsp <- (is that right?)
3) .mnl file associated with one of your menus
4) a file loaded by either of the preceeding two
5) Startup Suite

You could try doing a search for files that contain the text "c:ub".

[Bob Wahr]

If I'm right that it's an UNDO Back, not UNDO BEgin, you could load this as a DVB.

Code: [Select]

private sub AcadDocument_EndCommand(byval commandname as String)
thisdrawing.sendcommand "undo m" & vbcr
end sub

[Bob Wahr]

or something like

Code: [Select]

private sub AcadDocument_BeginLisp(byval firstline as string)
for intCnt = 1 to len(firstline)
  if ucase(mid(firstline, intcnt, 4)) = "C:UB" then
    sendkeys "{ESC}{ESC}{ESC}"
    exit for
  end if
next intcnt
end sub


[Kerry]

Does he have a file named AU_Sample.LSP

with something like  this :

Code: [Select]

(defun C:UB ()
    (command ".UNDO" "End")
    (command ".UNDO" "Back" "Y")
    (princ)
)

[Kerry]

[offTopic]
Your Local time puts you somewhere between Aus' East coast and New Zealand. Didn't know there were any Steel Fabricators out there.



[/OT]

[idrawwithcad]

well found the culprit, it was part of an AutoCAD plug in that we run called "struc-plus"

why on earth anyone would create a button that undoes everything back to the beginning with the default of <Y> and no decent warning is beyond me - but its gone now anyway!

thanks folks!

[idrawwithcad]

[offTopic]
Your Local time puts you somewhere between Aus' East coast and New Zealand. Didn't know there were any Steel Fabricators out there.



[/OT]

hehe ahhh yes

ummm maybe im on an oil rig 

[Kerry]

.....  it was part of an AutoCAD plug in that we run called "struc-plus"

Send Peter a note and ask him. Doesn't sound like something he'd do.

[MP]

Quinn?

[Kerry]

Coburn

[MP]

Oh "that" Peter; duh-me.