Dynamic Block Table Properties

[stusic]

Is there a way to get the info from a Block Table (the new version of a lookup table) inside of a Dynamic Block using LISP? I need to get the values of a particular column put into a list, but I've only heard of people doing it with .NET or C+...

Thank ya!

[peter]

I haven't played with .net yet but it seems the value of the table can be accessed but the options in the table cannot.



As far as I can see

; IAcadDynamicBlockReferenceProperty: AutoCAD Dynamic Block Property Interface
; Property values:
;   AllowedValues (RO) = nil
;   Description (RO) = ""
;   PropertyName (RO) = "Block Table1"
;   ReadOnly (RO) = 0
;   Show (RO) = -1
;   UnitsType (RO) = 0
;   Value = 3
; No methods

If it exposed to .net you can create a lispmetho to expose it to lisp.

Peter

[stusic]

Yeah, that's about as far as I've gotten. I'm with you though - haven't played with .net at all...

Hrm...

[BlackBox]

Perhaps you could post a sample drawing on which others can test?

[stusic]

Here you go. A simple block with 3 attributes (PART, DESC, QTY), with a Block Properties Table containing 5 items. The goal of this is to extract the 5 items into something useable (ideally, a lisp variable).

Thanks

[Opie]

You forgot the file.

[stusic]

You forgot the file.

Duly noted.

[peter]

That was a REALLY good question!

It isn't pretty but....

Peter

(defun C:BlockPropertiesTable (/ blnOut entBlock entItem entSelection lstENtity lstEntity2 objSelection )
 (if (setq ssSelection (ssget ":S:E" (list (cons 0 "INSERT"))))
  (progn
   (setq entSelection (ssname ssSelection 0)
         objSelection (vlax-ename->vla-object entSelection)
         strBlockName (vla-get-name objSelection)
         entBlock     (tblobjname "block" strBlockName)
         entItem      entBlock
   )
   (while (and (setq entItem (entnext entItem))(not blnOut))
    (setq lstEntity (entget entItem))
    (if (and (assoc 102 lstEntity)
             (setq dprPair (assoc 330 lstEntity))
             (setq lstEntity2 (entget (cdr dprPair)))            
             (= (cdr (assoc 0 lstEntity2)) "BLOCKPROPERTIESTABLE")
        )
     (progn
      (setq blnOut T)
      (print lstEntity2)
     )
    )
   )
  )
 )
 (princ)
)

[stusic]

Wow! That's awesome! I really wasn't expecting a solution, just verifying it couldn't be done without .net

Now I can do anything!!!!

Thanks a ton, Peter. I've seen people ask to do this all over the place, so maybe they'll find it here

[steveo]

Here you go. A simple block with 3 attributes (PART, DESC, QTY), with a Block Properties Table containing 5 items. The goal of this is to extract the 5 items into something useable (ideally, a lisp variable).

Thanks

Is it possible to knock down your example drawing to AC2008 so we can play too ?
TIA,
Steve