Topic: Dialog Boxs for Blocks

[Kerry]

Is the slide library on your search path ??

ie. can the proggy find the .SLB file from CAB's install ??

[PHX cadie]

Yes. The path d:\greg\misc\lisp\imgmenu011205 is in the Support File Search Path

[Kerry]

What happens if you take the nil and comment from this line in the test routine ??

sld-lib   nil ;"op-elec"

ie
sld-lib  "op-elec"

I haven't tried it, but from a quick reading of the code, I think if no .SLB is passed in, the routine looks for sld files

[TJAM51]

I am having the same problem.

[CAB]

Kerry, thanks for the input...
You got it.
In the sample files, I sent a library file instead of individual slides & never updated the test.lsp
The code change as Kerry pointed out is:

Code: [Select]

 (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  "op-elec"  ;  <---<<<   HERE, because you have a library
  )

[TJAM51]

If you wanted to bring the symbols into the drawing based on the dimscale, how could this BE ACCOMPLISHED?



tHANKS

[CAB]

Using this example:

Code: [Select]

(command "-insert" (strcat path picked) pause "" "" pause)
written another way
(command "-insert"
         (strcat path picked) ; block name
         pause                ; insertion point
         ""                   ; X scale factor
         ""                   ; Y scale factor
         pause                ; rotation angle
         )
Change to this
(command "-insert"
         (strcat path picked) ; block name
         pause                ; insertion point
         (getvar "DimScale")  ; X scale factor
         ""                   ; Y scale factor <use X scale factor>
         pause                ; rotation angle
         )

[TJAM51]

As I understand it.......this code would be used in the Blkinsert.lsp and each block would have it's own code for insertion with dimscale?

Thanks

[CAB]

There is no provisions for acquiring the scale needed for each block.
You would have to provide that by user input vis a PAUSE or via Lisp
in the form of a lookup table. If this information was in the block
as an attribute you could add code to acquire it.

[PHX cadie]

CAB/Keith,
 Should I cut/paste CAB updated code to the the img_menu.lsp? or should Keiths codes be saved as a lsp?
Is defun the command for a lsp? (defun mocorosc, therfore type mocorosc to run that lisp?
Is it poss to have several libraries/catagories with your program? ie civil blocks, struct, elec, notes etc.?
Keep in mind I'm just a mosquito

[CAB]

CAB/Keith, <--<<  you mean Kerry not Keith
Should I cut/paste CAB updated code to the the img_menu.lsp?   NO NO NO
Is defun the command for a lsp? it defines a function
In ACAD type VLIDE then click on help, click the INDEX tab, enter defun to see the help info.

(defun mocorosc, therefore type mocorosc to run that lisp? Well not exactly:
If the function is named (defun MyRoutine at the command line in acad you would type (MyRoutine)
If the function is named (defun c:MyRoutine at the command line in acad you would type MyRoutine
If the function is expecting arguments like  (defun MyRoutine (arg1 arg2 / local vars) you
would have to supply the arg1 ans arg2


Is it poss to have several libraries/categories with your program?  Yes, but I don't have the time
right now to walk you through it. My work load won't permit it. Perhaps someone else will help you
through the process, although this is a little complex for your first lisp project.

[CAB]

Here is the corrected code:

Code: [Select]

(defun c:test (/ 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  "op-elec" ; nil if no library file
  )
  ;;  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]

Sorry Kerry
No prob, by no means do I want to impose. All have been a great help!
As far as complex, its never been my luck to start easy

[adalea03]

I organize my blocks in directories, and then employ the DosLib "dwg-preview" function.

[GDF]

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

I modified an older version of Hotblocks many years ago, you can download a newer version free from the link below.

;;; by Lintang Darudjati
;;; HotBlocks
;;; A block manager with INI style customization file and a dialog box performing collection-grouping,
;;; file path display, and slide previews as 'hot thumbnails'. Build your own dwg block library with it.
;;; And make them ready to be inserted easily anytime.
;;; http://www.geocities.com/RainForest/1073/download.html

Gary