Topic: How do you get the coordinates of a Dyn. Blocks Parameter grips

[BazzaCAD]

Ok I posted a similar topic last year here:
http://www.theswamp.org/index.php?topic=17582.0
But now I'd like to get the coordinates of the grip points\end points of the "Overall Length" Parameter.
Anyone have any ideas on this?

[ronjonp]

Here's a start but gotta go....maybe someone can get it working correctly

Code: [Select]

(defun c:test (/ blks props p d ang ins)
  (if (and (setq blk (vlax-ename->vla-object (car (entsel))))
   (= (vla-get-ObjectName blk) "AcDbBlockReference")
   (setq ins (vlax-get blk 'InsertionPoint))
   (setq props (vlax-invoke blk 'getdynamicblockproperties))
      )
    (foreach p props
      (if (= (vla-get-propertyname p) "Overall Length")
(setq d (/ (vlax-variant-value (vla-get-value p)) 2.))
      )
      (if (= (vla-get-propertyname p) "Angle1")
(setq ang (vlax-variant-value (vla-get-value p)))
      )
    )
  )
  (list (polar ins ang d) (polar ins (+ pi ang) d))
)

[BazzaCAD]

Hmmmm, that was easier then I thought, thanks a lot.
It seams to be working correctly...
What am I missing?

[ronjonp]

Hmmmm, that was easier then I thought, thanks a lot.
It seams to be working correctly...
What am I missing?

Maybe it does work and you're welcome.

[ronjonp]

Here's another version  :

Code: [Select]

(defun c:test (/ blks props p d ang ins)
  (if (and (setq blk (vlax-ename->vla-object (car (entsel))))
   (= (vla-get-ObjectName blk) "AcDbBlockReference")
   (setq ins (vlax-get blk 'InsertionPoint))
   (setq props (vlax-invoke blk 'getdynamicblockproperties))
      )
    (foreach p (mapcar 'cons
       (mapcar 'vla-get-propertyname props)
       (mapcar 'vlax-variant-value
       (mapcar 'vla-get-value props)
       )
       )
      (if (= (car p) "Overall Length")
(setq d (/ (cdr p) 2.))
      )
      (if (= (car p) "Angle1")
(setq ang (cdr p))
      )
    )
  )
  (list (polar ins ang d) (polar ins (+ pi ang) d))
)