Topic: Dialog Boxs for Blocks

[PHX cadie]

Is there a tutorail for setting up slides for inserting blocks. Since moving to Arizonia I've seen several companies that have thier blocks set up as a dialog box with slides that when you click on one of the slides that block will insert. My new boss has mentioned setting up each preview as a slide, then image manager to set up a dialog box, but my Cad book does not get in much depth with slides, creating dialog boxs or image manager. If it helps what I am after is very similiar to what "Blockman" looks like. I've had a few replies, but I'm not looking to spend $50-$100

[daron]

I don't have anything for you. I don't much care for sld's and blockwerx is the only thing I can think of, but it costs $. Where in AZ do you live? Where'd you move from?

[PHX cadie]

Phoenix, from Oxnard/Ventura CA. Its our first summer

[daron]

I lived in Mesa and AJ for 16 years up until last year. Be sure you have air in your car and a water bottle. I was born in Oxnard, CA. Port Hueneme N.A.S.

[Keith™]

you can create slides with MSLIDE, then if you look into menu creation and the IMAGE menu, you should be able to create an image driven menu and use the slides as previews.

[CAB]

You may want to check this out.
http://www.theswamp.org/phpBB2/viewtopic.php?t=3263&highlight=image

[CADaver]

Beat me to it Charles.

[CAB]

[Amsterdammed]

Hello WannaBeCader

I assume you already have a lot of dwg’s you need to make slides from. I had the some challenge for the Company I’m working for. Since I didn’t want to open a few thousand dwgs I ran a script file to “ mslide” the files.. For getting the script done I downloaded a cool standalone scriptmaker.exe from the Web. But that was a few years ago (R14) and I can’t find the link for you anymore. But if you want send me a mail an will mail it to you.

Bernd

[PHX cadie]

Thanks to All  
I never got any response from another site, so I greatly appreciate everyones help. I'm not dumb, but not the sharpest knife in the kitchen, (you guys are more tech advanced than myself, for the moment   )so it may take me a few days to digest this.
CAB,  I'll try you're file it looks exactly like what I'm needing. Did you get a multiple ......page...library set up? Thanks!!!!!!
Hope CAB / Keith don't meet Dennis this weekend

[Keith™]

Looks like we'll only get the fringes of it here .... The Tampa Bay area will get it a little harder .. but nothing like the swampers we have in Alabama and Mississippi

[hudster]

Here are a few excerpts from my menu.

This calls the 54_med library from my blocks menu.

Code: [Select]

[54 Medical Gases]^C^C$I=blocks.54_MED $I=*

This is the MG001 block inserted from the 54_med slide library.

Code: [Select]

[54_MED(MG001,Vacuum Outlet)]

look at this website Autodesk slidelib manager utility that will allow you to easily build your slide libraries. http://www.dotsoft.com/slideman.htm

[PHX cadie]

CAB,
I feel like a "Mosquito" after reading some of the codes you guys are posting and I am exercising a lot of restraint, wanting to conceal my ignorance with a PM,   but I can’t get the img_menu.lsp or mocorosc.lsp commands to take, though blkinsert works. I have loaded all 3 .lsp’s in the startup suite and added the folder to the Support File Search Path  I think I am not using the correct command. Does defun mean define function? What is the command for img_menu.lsp or mocorosc.lsp?. Sorry to look a gift lsp in the mouth
Hope I’m not being a pain.
Hope Dennis left you alone

[Kerry]

What happens when you type TEST at the command line < after loading img_menu.lsp>

added:
then load MOCOROSC.LSP and type TEST again.

Perhaps try this :
note : I haven't tried this, but it COULD work.

Code: [Select]


(defun c:testMOCO (/ ss p)
  (prompt "\nSelect objects:")
  (if (and (setq ss (ssget))
           (setq p (getpoint "\Pick base point:"))
      )
    (mocorosc ss p)
  )
  (princ)
)

Code: [Select]

(defun c:testIMG (/ slide_lst sld-lib picked path)
  (setq slide_lst '("ESYM-001"      "ESYM-002"      "ESYM-003"      "ESYM-004"      "ESYM-005"      "ESYM-006"
                    "ESYM-007"      "ESYM-008"      "ESYM-009"      "ESYM-010"      "ESYM-011"      "ESYM-012"
                    "ESYM-013"      "ESYM-014"      "ESYM-015"      "ESYM-016"      "ESYM-017"      "ESYM-018"
                    "ESYM-019"      "ESYM-020"      "ESYM-021"      "ESYM-022"      "ESYM-023"      "ESYM-024"
                    "ESYM-025"      "ESYM-026"      "ESYM-027"      "ESYM-028"      "ESYM-02A"      "ESYM-030"
                   )
        sld-lib   nil ;"op-elec"
  )
  ;;  set path to "" or nil if using acad search path
  ;(setq path "C:\\OPTI\\LIBRARY\\ELEC\\")
    (setq path "")

  (while
    (setq picked
           (dcl_img_menu sld-lib ; name of slide library
                         slide_lst ; list of slide names
                         path ; path to the slides
                         "-=<  Electrical Symbols >=-" ; Dialog Box Title
                         "[ Pick image to insert: ]" ; prompt on image box
                         3 ; number of rows    3
                         4 ; number of columns 4
                         7 ; image height
                         18; image width
                        )
    )

     (princ (strcat "\n" picked " slide selected."))
     (command "-insert" (strcat path picked) pause "" "" pause)
  )
  (princ "\n***  User Quit  ***")
  (princ)
)

[PHX cadie]

Typing "test" brings up a dialog box that is blank, but picking a blank slide to insert will insert the elec sym.
Now I'm really confused
You guys are quick, I logged back in to remind CAB of the old Chinese proverb "Teach a man how to fish and maybe they won't show up for dinner"