lisp routine for popout menu of sizes 3/4" to 36"

[gugg]

I know I've seen it before ... a list that would POPOUT from a menu that would offer standard pipe or conduit sizes to paste into a drawing. it would "op out" a list to choose the selectable size wanted and paste it into a drawing once or multiple times.

Please let me know if you've seen this type of routine. Thanks.

Al

[Tom Beauford]

Moderator should move this to Programming → AutoLISP forum

I like using initget & getkword to provide options to either select from command line or right-click popup menu.

[gugg]

Good point ... could a Moderator move this to Programming → AutoLISP forum, please!

[gugg]

lisp routine for popout menu of sizes 3/4" to 36"

I know I've seen it before ... a list that would POPOUT from a menu that would offer standard pipe or conduit sizes to paste into a drawing. it would "pop out" a list to choose the selectable size wanted and paste it into a drawing once or multiple times.

I want to create a FLYOUT that has the sizes to choose from 3'4" to 36" placing that size in the drawing.

Please let me know if you've seen this type of routine. Thanks.

Al

[CCarleton]

See attached. Is that what you mean by pop out menu?

If so what are you trying to select in the menu? Blocks, line commands, images, etc. It sounds like blocks.

The specific argument you want is

(setq get1 (getkword "[size 1/size 2/etc] <default choice on return>")) if that's all you wanted.

[gugg]

I think what I want is a flyout menu when picked a "FLYOUT" list of incremented pipe sizes or conduit sizes represented by text could be selected as text and placed multiple times in the drawing. It is a minor step saved but important in it's use. thanks.

[Tom Beauford]

I think what I want is a flyout menu when picked a "FLYOUT" list of incremented pipe sizes or conduit sizes represented by text could be selected as text and placed multiple times in the drawing. It is a minor step saved but important in it's use. thanks.

While this is slightly less confusing than your thread: http://forums.augi.com/showthread.ph...95#post1297595
Varth's example uses initget & getkword to provide options to either select from command line or popup menu in a lisp routine. AutoCAD's drop-down Menus, Ribbon Panels, Toolbars, Tool Palettes, etc… all use flyouts. If you could explain how you expect to access this list and what you expect to happen when you select one of those sizes we should be able to figure out what you're looking for.

[BIG-AL]

Lots of ways to do this here is some examples,

1 have a submenu from a main menu, simple to make
2 we have old fashioned slide menu's so pick an image, supports automatically multiple pages.
3 use a tool pallete
4 old way again is to have a pop side menu, unfortunately this has lost support by Autodesk so a bit difficult to get to work but was super simple to make.
5 use a library dcl and just populate a List dcl and pick.
6 have a dcl with images about 4x4 is max

Here is a library code for a LIST DCL returns ITEM as pick value

    ;; LIST SELECT DIALOG (TEMP DCL LIST BOX SELECTION, BASED ON PROVIDED LIST)  ;; TITLE - LIST BOX TITLE
  ;; LABEL - LABEL FOR LIST BOX
  ;; HEIGHT - HEIGHT OF BOX
  ;; WIDTH - WIDTH OF BOX
  ;; MULTI - SELECTION METHOD ["TRUE": MULTIPLE, "FALSE": SINGLE]
  ;; LST - LIST OF STRINGS TO PLACE IN LIST BOX
  ;; ALAN J. THOMPSON, 09.23.08 / 05.17.10 (REWRITE)
(DEFUN AT:LISTSELECT (TITLE LABEL HEIGHT WIDTH MULTI LST / FN FO D ITEM F)
  (SETQ FO (OPEN (SETQ FN (VL-FILENAME-MKTEMP "" "" ".DCL")) "W"))
  (FOREACH X (LIST (STRCAT "LIST_SELECT : DIALOG { LABEL = \"" TITLE "\"; SPACER;")
                   (STRCAT ": LIST_BOX { LABEL = \"" LABEL "\";" "KEY = \"LST\";")
                   (STRCAT "ALLOW_ACCEPT = TRUE; HEIGHT = " (VL-PRINC-TO-STRING HEIGHT) ";")
                   (STRCAT "WIDTH = " (VL-PRINC-TO-STRING WIDTH) ";")
                   (STRCAT "MULTIPLE_SELECT = " MULTI "; } SPACER; OK_CANCEL; }")
             )
    (WRITE-LINE X FO)
  )
  (CLOSE FO)
  (NEW_DIALOG "LIST_SELECT" (SETQ D (LOAD_DIALOG FN)))
  (START_LIST "LST")
  (MAPCAR (FUNCTION ADD_LIST) LST)
  (END_LIST)
  (SETQ ITEM (SET_TILE "LST" "0"))
  (ACTION_TILE "LST" "(SETQ ITEM $VALUE)")
  (SETQ F (START_DIALOG))
  (UNLOAD_DIALOG D)
  (VL-FILE-DELETE FN)
  (IF (= F 1)
    ((LAMBDA (S / I S L)
       (WHILE (SETQ I (VL-STRING-SEARCH " " S))
         (SETQ L (CONS (NTH (ATOI (SUBSTR S 1 I)) LST) L))
         (SETQ S (SUBSTR S (+ 2 I)))
       )
       (REVERSE (CONS (NTH (ATOI S) LST) L))
     )
      ITEM
    )
  )
)

[Wanderer]

Good point ... could a Moderator move this to Programming → AutoLISP forum, please!

Sure thing. You should get more help in this forum.

Cheers!

[CCarleton]

Sure thing. You should get more help in this forum.

Cheers!

Too bad he already had the same thread here.

I don't think we ever got clarification for what he was exactly wanting to do with this pop out list. It sounds like he wants to run a command to get a list, choose a size, and then bring in a block or a chunk of text or something which is why I offered what I offered in his other thread, but he seemed to turn it down. When Tom asked for further clarification on what he was exactly trying to use it for we never got a response.