...I would like to see is the ability to put into a 'continuous' mode...Also for people like me who redefine commands - is to add a period to the commands to allow original command to be called. Example: _.LINE instead of _LINE. Nevertheless thank you for sharing.
This is awesome, I like the direction you've taken with this. The only thing I would like to see is the ability to put into a 'continuous' mode where the menu automagically opens up after the command saving an additional right click.
I'm waiting for my pair of Myo armbands to come in, thinking they could save a huge amount of time in the drafting department with some toying, and this kind of idea is a great start.
Thanks for sharing
reltro,
A snappy and well thought out routine. May add this to a right click menu.
It would be even better as WILL HATCH suggested:...I would like to see is the ability to put into a 'continuous' mode...Also for people like me who redefine commands - is to add a period to the commands to allow original command to be called. Example: _.LINE instead of _LINE. Nevertheless thank you for sharing.
Kindest regards, Robbo
- Markers if a button has a LEFT-click-action or/and LEFT-click-actionNot sure what you mean here
* can be toggled OFF by pressing Shift+#
reltro,
Great improvements. The only thing I could not get to work is the toggle (Shift+#) for the markers.
One thing I think that could improve this, is to perhaps have a Help button, perhaps near the centre of the graphic (similar to your ? function) to explain how to operate the tool as described in your updated post.
Keep up the good work. Kind regards, Robbo.
BTW - I load this lisp in on start-up and created a shortcut key Shift+Z to call the tool.
img : image_button
{
height = 5.5;
width = 18.00;
fixed_width = true;
fixed_height = true;
alignment = centered;
color = -2;
}
txt : text {fixed_width = true; alignment = centered; }
col : column {fixed_width = true; width = 28; }
//---------------------------------------------------------------------------------------------------------
controlvalves : dialog {
label = "EPCO Control Valves"; spacer;
: row
{
: col
{
: img { key = "Slide1"; } : txt { label = "Hand Op. Butterfly Control Valve"; } spacer_1;
: img { key = "Slide2"; } : txt { label = "Hand Op. 3-Way Control Valve"; } spacer_1;
: img { key = "Slide3"; } : txt { label = "Diaph. Act. w Ind. Valve Action"; } spacer_1;
: img { key = "Slide4"; } : txt { label = "Butterfly CV (Shut-Down Valve)"; } spacer_1;
: img { key = "Slide5"; } : txt { label = "Globe Control Valve"; } spacer_1;
: img { key = "Slide6"; } : txt { label = "Ball Type Control Valve"; }
}
: col
{
: img { key = "Slide7"; } : txt { label = "Control Valve w Hand Actuator"; } spacer_1;
: img { key = "Slide8"; } : txt { label = "Angle Control Valve"; } spacer_1;
: img { key = "Slide9"; } : txt { label = "Pilot Valve w Manual Reset"; } spacer_1;
: img { key = "Slide10"; } : txt { label = "Backpressure Reg.- Int. Sensing"; } spacer_1;
: img { key = "Slide11"; } : txt { label = "Backpressure Reg.- Ext. Sensing"; } spacer_1;
: img { key = "Slide12"; } : txt { label = "Pres. Red. Reg.- Int. Sensing"; }
}
}
spacer; cancel_button;
}///manualvalves
obviously this DCL is meant to display image slides but it shows how simple it is to modify ,( ;-------------------------------------------------
(MENU,SCALE 150)
(MENU,SCALE,INI 150)
(MENU,SCALE,INCREMENTER 9)
;-------------------------------------------------
(COLOR,MARKER,LEFT 1)
(COLOR,MARKER,RIGHT 3)
(COLOR,TEXT,SYM,GRAPHICMODE 9)
(COLOR,TEXT,SYM,TEXTMODE 2)
(COLOR,TEXT,TITLE 2)
(COLOR,TEXT,LASTCOMMAND 1)
(COLOR,BOUNDARY 8)
(COLOR,GUIDE 3)
;-------------------------------------------------
(MARKER,SHOW:HIDE T)
(GRAPHIC:TEXT T)
(NOACTION>GOSUB NIL)
(DISPLAYALL NIL)
(SNAPPY 'T)
(ONECHARSHORTCUT NIL)
;-------------------------------------------------
(KEY,OPENSUB 9) ;TAB
(KEY,TOGGLEMARKER 151);F11
(KEY,TOGGLEDISPLAYMODE 31) ;F12
(KEY,RESTORESCALE 35) ;#
(KEY,SCALEUP 43) ;+
(KEY,SCALEDOWN 45) ;-
(KEY,SNAPPY 6) ;F3
(KEY,SHOWALL 25) ;F4
)
DCL is simple as pie.
Here's an example to show exactly how easy it is.Code: [Select]img : image_buttonobviously this DCL is meant to display image slides but it shows how simple it is to modify ,
{
height = 5.5;
width = 18.00;
fixed_width = true;
fixed_height = true;
alignment = centered;
color = -2;
}
txt : text {fixed_width = true; alignment = centered; }
col : column {fixed_width = true; width = 28; }
//---------------------------------------------------------------------------------------------------------
controlvalves : dialog {
label = "EPCO Control Valves"; spacer;
: row
{
: col
{
: img { key = "Slide1"; } : txt { label = "Hand Op. Butterfly Control Valve"; } spacer_1;
: img { key = "Slide2"; } : txt { label = "Hand Op. 3-Way Control Valve"; } spacer_1;
: img { key = "Slide3"; } : txt { label = "Diaph. Act. w Ind. Valve Action"; } spacer_1;
: img { key = "Slide4"; } : txt { label = "Butterfly CV (Shut-Down Valve)"; } spacer_1;
: img { key = "Slide5"; } : txt { label = "Globe Control Valve"; } spacer_1;
: img { key = "Slide6"; } : txt { label = "Ball Type Control Valve"; }
}
: col
{
: img { key = "Slide7"; } : txt { label = "Control Valve w Hand Actuator"; } spacer_1;
: img { key = "Slide8"; } : txt { label = "Angle Control Valve"; } spacer_1;
: img { key = "Slide9"; } : txt { label = "Pilot Valve w Manual Reset"; } spacer_1;
: img { key = "Slide10"; } : txt { label = "Backpressure Reg.- Int. Sensing"; } spacer_1;
: img { key = "Slide11"; } : txt { label = "Backpressure Reg.- Ext. Sensing"; } spacer_1;
: img { key = "Slide12"; } : txt { label = "Pres. Red. Reg.- Int. Sensing"; }
}
}
spacer; cancel_button;
}///manualvalves
you'd simply set your controls for what you are going to be using at the top of the routine,
and then "call" them throughout your dcl, using the
: col/ : row
commands in order to organize them where you'd like them to appear.
There are more commands and controls that could be defined, such as text PARAGRAPHS, which would allow for multiline text formatting a bit better than the text controls shown in this example.
Wish I could do it for you, don't have the time quite yet!
Hey People...
There is a new Version of RadialMenu... :)
Version 2.1a
- Added a Keyword-Menu to modify look and behaviour, wich can be opened by pressing ? in the center or the free space below.
* there the option-keyword ? gives a feedback and redirect u to this URL
- Added a Snappy-Mode so the Menu follows the cursor
- Added a option to show the whole Menu at the same time
- Added the possiblity to switch between "singleChar"- and "String"- Shortcuts
*SingleChar will save a Keypress (ENTER or SPACE)
- Added an option wich controlls if a click on a button without an appropriate action opens the submenu or not (NOACTION>GOSUB ...
In the Attachment a prepared Example with the following setting:Code: [Select]( ;-------------------------------------------------
(MENU,SCALE 150)
(MENU,SCALE,INI 150)
(MENU,SCALE,INCREMENTER 9)
;-------------------------------------------------
(COLOR,MARKER,LEFT 1)
(COLOR,MARKER,RIGHT 3)
(COLOR,TEXT,SYM,GRAPHICMODE 9)
(COLOR,TEXT,SYM,TEXTMODE 2)
(COLOR,TEXT,TITLE 2)
(COLOR,TEXT,LASTCOMMAND 1)
(COLOR,BOUNDARY 8)
(COLOR,GUIDE 3)
;-------------------------------------------------
(MARKER,SHOW:HIDE T)
(GRAPHIC:TEXT T)
(NOACTION>GOSUB NIL)
(DISPLAYALL NIL)
(SNAPPY 'T)
(ONECHARSHORTCUT NIL)
;-------------------------------------------------
(KEY,OPENSUB 9) ;TAB
(KEY,TOGGLEMARKER 151);F11
(KEY,TOGGLEDISPLAYMODE 31) ;F12
(KEY,RESTORESCALE 35) ;#
(KEY,SCALEUP 43) ;+
(KEY,SCALEDOWN 45) ;-
(KEY,SNAPPY 6) ;F3
(KEY,SHOWALL 25) ;F4
)
The setting can also modified from outside... it is an assoc-list wich can be found at (cadr C:Draw-Modify)
**NOTE: take care by changing "COMMAND,LAST":
structure: ("title" (command "_close"))
To create a Menu at ur own, u need an other Script than that... Just write my a PM ;)
[EDIT: found a lil bug with the display of the last command: fixed and reattached]
Greets
reltro
Enabled the Continous-Mode :kewl::kewl:
Enabled the Continous-Mode :kewl::kewl:
With the update to 2015 we can do synchronous commands in .net now.... wink wink
@Bhull1985just draw something in paint. for sure we can easily make something with dcl.
I would be thankful if u want to build the dcl :P
All,
Please find attached version of Radial Menu for Text and Dims.
Special thanks to reltro for all his hard work and permission allowing me to compile this.
Feedback welcome.
Kind regards, Robbo.
Modified: Updated to enable MLeader command to operate with mtext window
will draw some soon... :) thanks for ur nice offer...@Bhull1985just draw something in paint. for sure we can easily make something with dcl.
I would be thankful if u want to build the dcl :P
k.
All,
Please find attached version of Radial Menu for Text and Dims.
Special thanks to reltro for all his hard work and permission allowing me to compile this.
Feedback welcome.
Kind regards, Robbo.
Modified: Updated to enable MLeader command to operate with mtext window
ähm ok, that sounds very strange, how does it work? I know just a lil C#.net... I have 2015 here... So if u have time would be nice to give an example how this works? ;)
Whats about (getvar 'cmdactive)? is it 0?
Dimension enhancements made.
Dimension enhancements made.
Thanks ROBBO, Great routine !
You and Reltro are the same person ?
Thanks Robbo... nice stuff...
The file is now pretty big, hm... U draw a lot of lines in the graphics... they look nice...
nice-looking stuff hasto be big I think :P
new version - RADIAL MENU 2.4
Now with a DCL-control to change look and behaviour...
Its me first DCL, so tell me what u think! ;)
Its really easy :)
:-D
Big thanks to ROBBO to build up such a nice draw-modifiy-menu!!!
CHANGES:
- the routine now does not exit with an *error* by pressing ESC, so it can be used as a subroutine
- added a key for the "noAction>goSub"option (forgot about it)
- added an Overview for the current Menu and his actions/shortcuts
- changed the "writeToFile"
* in the previous Version changes were not written to file until an recall of the routine
* last used command is skipped
EDIT: Writing the Menu to File would be overwrite the inserted Subroutines... fixed and reattached... They are now readed first and rewritten to the new file
So far so good...
enjoy...
Hope its useful to someone... :)
reltro
:ugly: 400 downloads? thats a lot... but just one feedback... :|
nevermind....
p.s. to reiterate reltro's comment::ugly: 400 downloads? thats a lot... but just one feedback... :|
nevermind....
Feedback negative or positive is most welcome.
(command ... (while (= (getvar 'cmdactive) 1) (command pause))) I added this piece of code in the routine it self. So its not necassary to add it all the time.A slight bug in the rectangle commands to return to menu after command.
Commands to be amended to:Code - Auto/Visual Lisp: [Select]Code - Auto/Visual Lisp: [Select]
respectively to return to menu after placement.
Cheers, Robbo.
p.s. to reiterate reltro's comment::ugly: 400 downloads? thats a lot... but just one feedback... :|
nevermind....
Feedback negative or positive is most welcome.
Thanks reltro & robbo
A little advice, I think can increase a little more color for the graphical interface.
I allready solved that issue for all planar UCS (planar to the Display), but I can't figure out how to do it for a 3DView, like isometric.
Thanks reltro & robbo
A little advice, I think can increase a little more color for the graphical interface.
What do u mean?
U allready tried pressing ? on the center? A DCL pops up... There u can adjust the Colors and KeyPresses... Just have a look...
greets
reltro
I really like this menu. Thank you for putting it together. It reminds me of the marking menu they were trying to roll out a few years ago. I think that ACAD electrical uses it...
But this is definitely a great way to bring focus to the screen.
I have been trying to understand how to customize this if needed, but the file size is just too big for the VLIDE to handle and when i try to understand what is going on in note pad, it is just too jumbled.
The way that I would like to try to utilize this is to have a text-dims version that could deliver some standards that people tend to not even acknowledge that they exist at work, they tend to override text styles and make look like they adhere to standards. This is really getting annoying to many people and a menu like this might actually make using the "standards" fun.
Usually there are a couple of different text styles, with the default text height set to 0 (zero) and we have a tool that when someone clicks it, the tool will set the height for the various types of text like (Title, Sub Title, General)...
If the radial menu could be easier for me to understand and easier to customize, I think that this could replace some of the tools that people tend to ignore.
Thanks again to Reltro & Robbo for doing this.
~Greg
Incredible work reltro, I'm impressed 8-)
(RadialMenu:changeColor 'C:draw-modify 1 1 1 1 1 1 1 1)
@ Robbo
super thank you
Since Autodesk can take an example :-) :-)
super Danke
Da kann sich Autodesk ein Beispiel nehmen.
added a functionality wich I call "VisibilitySpace". check it Out...
Any feedback is welcome...
greets reltro
added a functionality wich I call "VisibilitySpace". check it Out...
Any feedback is welcome...
greets reltro
I use visibility all the time, so having it in the menu is great. the only feedback I would give is: When you switch the visibility to "invisible" the "Hide" button should really say "UnHide".
Otherwise, great addition!
new Version - Radial Menu 2.5
Any feedback is welcome...
Damn... this got complicated fast. Very nice gents!Jup ;)
When the settings page is opened, the window's close button does not work, the only way to close is the 'OK' buttonI knew this, but I don'tbuilt this up... its my first DCL, so there may be lotof issues... Anyway, I didn't investigate this because the changes are done immidiatly, so a 'close'-Button would be the same as the 'OK'-button...
I like how you've added the hide mechanism. I'm curious if it would be difficult to allow you to have a button (or when hovering over the show all button) which temporarily unhides the hidden itemsIt wouldn't be so hard to implemnt this, but, in general im working on the compiler wich "calculates" the Menu, and the problem about it is that such a function and his namespace would collide with the namespace of the Menu itself. So it may not be the best Idea to implement this in this routine. But at the moment I'm working on some similar addition for what its necessary to rethink the whole routine. Im allready on a good point and willing to think about this too... This would become v3.0 ;)
Also seeing that when we are in a command which requires a selection (move for example) we aren't allowed to do windows (acad 2013 vanilla, win 7 x64)Fixed and reattached it above.
(Command "_.move" (while (= (getvar 'cmdactive) 1) (command pause)))Now its:(Command "_.move" (ssget) "" (while (= (getvar 'cmdactive) 1) (command pause)))Beside, thanks for the report! :)First, Thanks for the ncice words :)new Version - Radial Menu 2.5
Any feedback is welcome...
Wow very creative work it must be nice for Win8 touch-screen ACAD user! (In future maybe stylus to replace mouse?) Does it work auto-rotate screen?
anyway, i must say Excellent job!
Thank you :)
When the settings page is opened, the window's close button does not work, the only way to close is the 'OK' buttonI knew this, but I don'tbuilt this up... its my first DCL, so there may be lotof issues... Anyway, I didn't investigate this because the changes are done immidiatly, so a 'close'-Button would be the same as the 'OK'-button...
is_cancel = true;I have compiled a menu with some useful dimension lisp routines I commonly use - many familiar to some. Menu can also be activated with a right-click on 'dims' from the slightly tweaked text-dims menu.
Feedback welcome.
Version 2.5.
Best regards, Robbo
...the Wipeouts are on the right place only if the Screen is plan to the WCS... Maybe some of u has some experiences with Wipeouts and can help me or give me a tip? would be nice....
Hello reltro
Get an error message :-o
Thanks Lee for the link......the Wipeouts are on the right place only if the Screen is plan to the WCS... Maybe some of u has some experiences with Wipeouts and can help me or give me a tip? would be nice....
Maybe this (http://bit.ly/18MZEnB) can help?
...the Wipeouts are on the right place only if the Screen is plan to the WCS... Maybe some of u has some experiences with Wipeouts and can help me or give me a tip? would be nice....
Maybe this (http://bit.ly/18MZEnB) can help?
(progn
(progn
;Visibility-Space
;
;Author : reltro
;Version : 1.0
;
;==================================================================
(vl-load-com)Command: DRAW-MODIFY
>>> type shortcut [?]: Grread-loop: bad argument type: lentityp nil; error: bad
argument type: lentityp nil
Code: [Select](progn
(progn
;Visibility-Space
;
;Author : reltro
;Version : 1.0
;
;==================================================================
(vl-load-com)
Version 1.0 ?? why not V3.0
error:Code: [Select]Command: DRAW-MODIFY
>>> type shortcut [?]: Grread-loop: bad argument type: lentityp nil; error: bad
argument type: lentityp nil
Command: DRAW-MODIFY
>>> type shortcut [?] OR <Line>: Grread-loop: bad argument type: lentityp nil;
error: An error has occurred inside the *error* functionAutoCAD variable
setting rejected: "CMDECHO" nil
Command:No start.Code: [Select]Command: DRAW-MODIFY
>>> type shortcut [?] OR <Line>: Grread-loop: bad argument type: lentityp nil;
error: An error has occurred inside the *error* functionAutoCAD variable
setting rejected: "CMDECHO" nil
Command:
I test in 2010.
BTW. What is the difference between DRAW-MODIFY 3.0b.
@emk2012
I reattached the file above. It may be the same error with entmakex like in the previous version of V3...
Can u test it please?
greets reltro
Command: draw-modify
>>> type shortcut [?]: Grread-loop: no function definition:
VLA-PUT-ENTITYTRANSPARENCY
Command:
Command: draw-modify
>>> type shortcut [?]: Grread-loop: no function definition:
VLA-PUT-ENTITYTRANSPARENCY
All right... so in ACAD2010 is no transparency? did know this...
Reattached it above...
greets reltro
BTW: thanks for ur tests :)
Command: DRAW-MODIFY
>>> type shortcut [?] OR <Circle>: _.circle Specify center point for circle or
[3P/2P/Ttr (tan tan radius)]:
Specify radius of circle or [Diameter] <310.1726>: 10
Command: ; error: bad argument type: lentityp nilHm ok...
This is strange... I can not reproduce the error. Would be nice if u can help me to find the error.
Can u run some test?
01: run the Menu, then press F9 (toggles Off the wipeouts) and then draw a circle?
02: Same above just with F7 (toggles Off the Title-Override)
03: Same above just with F8 (toggles Off the mouseover-action)
greets reltro
Command: ; error: bad argument type: lentityp nil