https://forums.autodesk.com/t5/autocad-forum/lisp-cog-of-multiple-lines/m-p/5746445#M319356 <P>This is for a polyline...</P><P>&nbsp;</P><LI-SPOILER><PRE>(defun c:cog (/ acsp ss e ptList ID StrField txt p) (vl-load-com) (command "_.undo" "_be") (setq acsp (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))) (if (setq ss (ssget ;(progn ;(initget 1 "Y N") ;(setq ans (getkword "\nProcess All Polylines [Yes/No]: ")) ;(if (eq "Y" ans) ;"_X" ":L";)) '((0 . "*POLYLINE") ;(8 . "A-AREA-BDRY") (-4 . "&amp;") (70 . 1)(410 . "Model")))) (repeat (sslength ss) (setq e (ssname ss 0) sum '(0 0) verts (cdr (assoc 90 (entget e)))) (setq ptList (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget e)))) (foreach x ptList (setq sum (mapcar '+ x sum))) (vla-put-AttachmentPoint (setq txt (vla-addMText acsp (setq p (vlax-3d-point (mapcar '/ sum (list verts verts)))) 0 "cog")) acAttachmentPointMiddleCenter) (vla-put-InsertionPoint txt p) (ssdel e ss) )(princ "\0 Objects found:")) (command "_.undo" "_e") (princ) )</PRE></LI-SPOILER> Wed, 29 Jul 2015 10:04:30 GMT ВeekeeCZ 2015-07-29T10:04:30Z