extract linear parameter length from dynamic block

[aaronashley1977783620]

Hi, I've got a dynamic block that has a linear parameter with a distance name called "Length" that I'm trying to extract the value. How would I go about doing that in lisp? Thanks in advance! -Aaron

[dlanor]

Take a look HERE ==> http://www.lee-mac.com/dynamicblockfunctions.html

- - - Updated - - -

Oops http://www.lee-mac.com/dynamicblockfunctions.html

- - - Updated - - -

Well that wasn't very successful HERE

- - - Updated - - -

Linky Thingy http://www.lee-mac.com/dynamicblockfunctions.html

- - - Updated - - -

Take a look HERE ==> http://www.lee-mac.com/dynamicblockfunctions.html

Perhaps This will work

[aaronashley1977783620]

I've been there, but none of those pieces of code make sense to me how to integrate them into what I'm doing.

[Ed Jobe]

If you already have something, post your code.

[dlanor]

I've been there, but none of those pieces of code make sense to me how to integrate them into what I'm doing.

Providing you are using a windows full fat version of AutoCAD, then use this function. Just insert the code above your main lisp function and ensure the (vl-load-com) is there.

Call it from within your lisp like this (setq val (LM:getdynpropvalue blk prop)), replacing blk and prop with the block and property as required in the red highlighted comments

;; Get Dynamic Block Property Value  -  Lee Mac
;; Returns the value of a Dynamic Block property (if present)
;; blk - [vla] VLA Dynamic Block Reference object
;; prp - [str] Dynamic Block property name (case-insensitive)

(vl-load-com) 

(defun LM:getdynpropvalue ( blk prp )
    (setq prp (strcase prp))
    (vl-some '(lambda ( x ) (if (= prp (strcase (vla-get-propertyname x))) (vlax-get x 'value)))
        (vlax-invoke blk 'getdynamicblockproperties)
    )
)

[Tharwat]

Hi,

Try this function.

(defun Get:param:value (blk / val)
  ;; blk = Block reference vla-object.	;;
  (vl-some '(lambda (x)
              (and (= (strcase (vla-get-propertyname x)) "LENGTH")
                   (progn (setq val (vlax-get x 'Value)) t)
              )
            )
           (vlax-invoke blk 'getdynamicBlockproperties)
  )
  val
) (vl-load-com)

[aaronashley1977783620]

If you already have something, post your code.

here's what i have so far

(defun c:penrodcount ( ) ;/ unsup effname num unsupstring
	(vl-load-com)
	(setq BB1 (getpoint "\nWindow select areas to be counted:\n"))						;asks 1st point of area
	(setq BB2 (getcorner BB1))										;asks 2nd point of area
	(if (setq blks (ssget "w" bb1 bb2 (list (cons 0 "insert") (cons 8 "TIE - Pencil Rod"))))		;selection set of blocks in current bounding box
		(progn												;start progn
			(setq num 0)										;set block number to 0, aka first
			(repeat (sslength blks)									;repeat this the number of blocks found
				(setq blk (ssname blks num))							;set current block
				(setq effname (vla-get-EffectiveName (vlax-ename->vla-object blk)))		;gets effective name of current block
				(cond										;conditional that puts the current entity into the correct selection set based on effective name
					((= effname "Pencil Rod") (findlength))					;if effective name is Pencil Rod, run findlength subroutine 
					(t (setq unsup effname))						;if effective name is not, then set unsup name to current block name
				)										;end of cond
				(setq num (+ 1 num))								;adds 1 to block number so can go to next block
			)											;end of repeat
		)												;end progn
	)													;end if
	(if (/= unsup nil)											;if unsup has value
		(progn												;progn
		  	(setq unsupstring (strcat "Unsupported block  " unsup "  found in count process"))	;create alert string
			(alert unsupstring)									;alert
		)												;end progn
	)													;end if
)  														;end 

(defun findlength ( / currentlength)
	;; (setq currentlength 	??????????????????????????????????				;PART IM ASKING ABOUT
	;; round to nearest inch								;haven't written yet
	;; if this size doesnt exist, 								;start of if
		;; create new size & add this entity to count of current size			;
		;; add this entity to count of existing size					;
	;;											;end of if
)

I attempted to insert both of the proposed sections of code by Tharwat and dlanor instead of (findlength) and they resulted in an error saying that there were too few arguments. I think part of the problem is that I don't know what I'm supposed to put for "prp" if using code suggested by dlanor, or "val" if using code suggested by Tharwat.

If I copy (vlax-invoke blk 'getdynamicblockproperties) into the command line after running the program, i get ; error: bad argument type: VLA-OBJECT <Entity name: 163161a1480>

Don't know if this helps or not, but thank you all for your help.

If I can figure out how to upload the block i'm working with, i'd be willing to do that if it would help too.

Thanks again - Aaron

[aaronashley1977783620]

here's the block. I'm trying to retrieve the dimension, in this case, it's set at 8.5 inches.

Thanks again

[Tharwat]

This part.

((= effname "Pencil Rod") (Get:param:value (vlax-ename->vla-object blk)))

[aaronashley1977783620]

This part.

((= effname "Pencil Rod") (Get:param:value (vlax-ename->vla-object blk)))

ok, I made that change, and now it says ; error: too many arguments