cancel
Showing results for 
Search instead for 
Did you mean: 
cancel
Showing results for 
Search instead for 
Did you mean: 
cancel
Showing results for 
Search instead for 
Did you mean: 

The cursor text box should be able to be hidden in annotation like it can in 3D

The cursor text box should be able to be hidden in annotation like it can in 3D

The cursor text box can be hidden in 3D by pressing H.  This does not work for annotation.  Often, the cursor text box hides objects that need to be seen.  Pressing H should work the same in annotation as it does in 3D.

9 Comments
FriedhelmK
13-Aquamarine

Hello Tom

if you like try this as workaround.

It's for Drafting but someone who can program Lisp should be able to make it suitable for annotation.

Copy the following text in a file and input the file.

If you push CTRL+h the cursor text is switched on or of.

DEFINE Cursor_text_box_on_off
  INQ_ENV 19
  IF ((INQ 605) = ON)
    UA_DIMENSION_FEEDBACK OFF
  ELSE
    UA_DIMENSION_FEEDBACK ON
  END_IF
END_DEFINE

DEFINE_KEY "h" CONTROL EXECUTE 'Cursor_text_box_on_off'
{ *   or for exemple:
DEFINE_KEY "F3" EXECUTE 'Cursor_text_box_on_off'
* }

ThomasKirkman
16-Pearl

Unfortunately, UA_DIMENSION_FEEDBACK does not exist in annotation.

FriedhelmK
13-Aquamarine

You're right, too bad

Is there a list of the Draftingcommands known by annotation?

FriedhelmK
13-Aquamarine

Me again.


Had made the mistake of writing the path with backslashes.
The following works in annotation, I just tried it.

First load the macro (For the permanent load that can be written in the am_customize.):

(sd-execute-annotator-command :cmd "INPUT 'c:/path2file/cursor_text_box_on_off.m'")

Execute it with:

(sd-execute-annotator-command :cmd "cursor_text_box_on_off")

then make a command and put it on a key

create_command.jpg

ThomasKirkman
16-Pearl

FriedhelmK

That worked very well. I wrote a lisp program and then load that lisp program with our am_customize.  Then I added the shortcut key to am_shortcuts.acc.  This gave everybody access to the program and the short cut key.

Thanks!

Tom

FriedhelmK
13-Aquamarine

Hello Tom,

> I wrote a lisp program.

A Lisp program?
Why, that's a Drafting macro.
Now I'm curious.
Can you show us the program?

Best regards

Friedhelm

ThomasKirkman
16-Pearl

It is done with two files.

first the lisp file loads the macro, then it incorporates a command to use the macro.

;;--------------------------------------------------------------------------
;;
;;  Creo Elments - Direct - Annotation
;;   Hide the cursor text bos in Annotation
;;      created by Tom Kirkman
;;  
;;--------------------------------------------------------------------------
(oli::sd-execute-annotator-command :cmd "INPUT '//susosg175/sd/O-I_customization/sdcorp/O-I_Standard-config/macros/cursor_text_box_on_off.m'")
(in-package :OI_TOOLS)
(use-package :OLI)


(sd-define-available-command "Annotation" "O-I Commands" "cursor box on/off"
:CommandTitle "Cursor Box On/Off"
:action   "(OLI::sd-execute-annotator-command :cmd \"cursor_text_box_on_off\")"
:description "Toggle the cursor box on or off"

:ui-behavior :DEFAULT)

cursor_text_box_on_off macro

DEFINE Cursor_text_box_on_off
  INQ_ENV 19
  IF ((INQ 605) = ON)
    UA_DIMENSION_FEEDBACK OFF
  ELSE
    UA_DIMENSION_FEEDBACK ON
  END_IF
END_DEFINE

FriedhelmK
13-Aquamarine

Hello Tom,

yes, now i understand.

You're doing it this way because you take care of multiple users.

For me it is a "one man show" and I have to worry only about myself.

Thanks for the explanation is very interesting.

Best regards

Friedhelm

PTCModerator
Emeritus
Status changed to: Archived