(defun c:foo
(/ fmt lst sel str in
) "%<\\AcObjProp Object(%<\\_ObjId "
">%).TextString>%"
)
)
(command "_.mleader" "\\" "\\" str
) )
)
"%<\\AcObjProp Object(%<\\_ObjId "
(LM:ObjectID
)
">%).TextString>%"
" + "
lst
)
)
)
"%<\\AcExpr "
" \\f \""
fmt
"\">%"
)
)
(command "_.mleader" "\\" "\\" str
) )
)
)
)
;; ObjectID - Lee Mac
;; Returns a string containing the ObjectID of a supplied VLA-Object
;; Compatible with 32-bit & 64-bit systems
(defun LM:ObjectID
( obj
) )
)
)
)
(LM:ObjectID obj)
)
;; Active Document - Lee Mac
;; Returns the VLA Active Document Object
(LM:acdoc)
)