Inserting blocks in table cells using LISP

[costas.vassiliou]

Good morning Fixo,

I am using this nice lisp program that inserts blocks in a dwg.
The problem I have is tah what ever scale I specify for the block,
the block inserted in the table has a different scale.

I attatch a dwg with 3 blocks. The blocks in the table created are of scale 0.1, eventhough the block scale parameter specified in the lisp program is 5.0.

Can you please see where I go wrong ?
I have a suspicion that lisp sets autofit to YES and blockscale doesn't work. I am not sure.

I also attach the lisp file BDT.

Regards
Costas

[fixo]

Good morning Fixo,

I am using this nice lisp program that inserts blocks in a dwg.
The problem I have is tah what ever scale I specify for the block,
the block inserted in the table has a different scale.

I attatch a dwg with 3 blocks. The blocks in the table created are of scale 0.1, eventhough the block scale parameter specified in the lisp program is 5.0.

Can you please see where I go wrong ?
I have a suspicion that lisp sets autofit to YES and blockscale doesn't work. I am not sure.

I also attach the lisp file BDT.

Regards
Costas

Ok, will try

~'J'~

[fixo]

Costas

Sorry, Costas

I can't solve it

You can just scale this table manually after

~'J'~

[steveeckert]

im sorry how do i run this?

[fixo]

Welcome on board
Usualy lisp loads with its commands, i.e
if you have lisp like:

(defun C:ahha()
.....etc
(princ)
)

So you have just type in the command line AHHA or ahha
to run this lisp

[sparker441180]

Hi Costas,
I have accidently come across this routine and realised that you may have solved my problem partly.
I am looking for a lisp routine taht can create a legened with the following headings (Symbol, Block Name, Block Description, Quantity)
Do you think you could modify this routine to do that for me.
Much appreciated.

[dgregory85]

Hi Peter,

Is there any way to modify this to select an existing table and convert a column with block names into symbols? I have a point table linked to excel that has been heavily formatted already. I downloaded the "CP311-3_Visual_LISP_Table_Magic" you linked to and it is really impressive. It's quite beyond my capabilities to even read through. Any help would be appreciated.

Here is a portion of code from my LISP Table Magic course I taught last year at Autodesk University. The course is downloadable and will do what you want listed above. If you do a search on this forum for LISP Table magic I think I posted the code here too.

The function listed below with the errortrap will convert a column in a table with block names in it, into symbols.

Peter

(defun AU06:ConvertBlockNameToSymbol (objTable       ; Object Table
                                      intNumColumn   ; Integer Column Index
                                      / 
                                      intNumRow      ; Integer Row Index
                                      intObjectID    ; Integer Block Definition Object ID
                                      strBlockName)  ; String Block Name
 (repeat (- (setq intNumRow (vla-get-rows objTable)) 2)
  (setq intNumRow   (1- intNumRow ))
  (and 
   (AU06:Errortrap (quote (setq strBlockName (vla-getText objTable intNumRow intNumColumn))))
   (AU06:Errortrap (quote (setq intObjectID (vla-get-objectID 
                                             (vla-item 
                                              (vla-get-blocks
                                               (vla-get-activedocument
                                                (vlax-get-acad-object)))
                                              strBlockName)))))                   
   (AU06:Errortrap
    (quote (vla-setcelltype objTable intNumRow intNumColumn acBlockCell)))
   (AU06:Errortrap
    (quote (vla-setblocktablerecordID objTable intNumRow intNumColumn intObjectID :vlax-true)))
   (AU06:Errortrap
    (quote (vla-SetCellAlignment objTable intNumRow intNumColumn acMiddleCenter))))))
;****************************************************************************************************
(defun AU06:ErrorTrap (symFunction ; Symbol (lisp expr. wrapped in a quote expression)
                       / 
                       objError    ; Object Error test
                       result)     ; Result of wrapped lisp expression.
 (if (vl-catch-all-error-p
      (setq objError (vl-catch-all-apply
                     '(lambda (X)(set X (eval symFunction)))
                      (list 'result)))) 
  nil  
  (if result result 'T)
 )
)