(defun c:positionblocks
( / ano blk bpt idx lst obj par sel srt tag val vec
)
tag "NUM"
par '("POSIZIONE1 X" "POSIZIONE1 Y")
vec '(0.0 -1.0 0.0)
)
(LM:getanonymousreferences blk)
)
)
)
)
)
)
)
)
val (LM:vl-getattributevalue obj tag)
)
)
)
)
)
)
)
)
;; Set Dynamic Block Properties - Lee Mac
;; Modifies values of Dynamic Block properties using a supplied association list.
;; blk - [vla] VLA Dynamic Block Reference object
;; lst - [lst] Association list of ((<Property> . <Value>) ... )
;; Returns: nil
(defun LM:setdynprops
( blk lst
/ itm
) )
)
)
;; Get Attribute Value - Lee Mac
;; Returns the value held by the specified tag within the supplied block, if present.
;; blk - [vla] VLA Block Reference Object
;; tag - [str] Attribute TagString
;; Returns: [str] Attribute value, else nil if tag is not found.
(defun LM:vl
-getattributevalue
( blk tag
) )
)
;; Get Anonymous References - Lee Mac
;; Returns the names of all anonymous references of a block.
;; blk - [str] Block name/wildcard pattern for which to return anon. references
(defun LM:getanonymousreferences
( blk
/ ano def lst rec ref
) )
)
)
)
)
)
)
)
)
)
)
)
)
)
;; Effective Block Name - Lee Mac
;; ent - [ent] Block Reference entity
(defun LM:al
-effectivename
( ent
/ blk rep
) )
)
)
'("acdbblockrepbtag")
)
)
)
)
)
)
)
blk
)