(defun test (lst / elem cnt)
(setq cnt 1)
(foreach elem lst
(princ (strcat "\nLevel "
(itoa cnt)
" Object is a "
(vl-princ-to-string (car elem))
" on Layer "
(vl-princ-to-string (cdr elem))
)
)
(setq cnt (1+ cnt))
)
(princ)
)
HTH,
Kurt
(defun test (lst / elem cnt msg)
(setq cnt 1 msg "")
(foreach elem lst
(setq msg (strcat msg
(strcat "\nLevel "
(itoa cnt)
" Object is a "
(vl-princ-to-string (car elem))
" on Layer "
(vl-princ-to-string (cdr elem))
)
))
(setq cnt (1+ cnt))
)
(alert msg)
)
also take a look at Harrie's solution.
(defun ConvToUserFriendly (Objname)
(cond
((= Objname "AcDbPolyline") "Polyline")
((= Objname "AcDbBlockReference" ) "Block" )
((= Objname "AcDbLine" ) "Line" )
((= Objname "AcDbCircle" ) "Circle" )
;;; ((= Objname "AcDbMore" ) "More" )
(T Objname)
);cond
)
(defun alertDottedList (lst / i)
(setq i 0)
(alert (apply 'strcat (mapcar (function (lambda(obj layer)
(strcat "\nLevel " (itoa (setq i (1+ i)))" Object is a <" (ConvToUserFriendly obj) "> on layer \"" layer "\"")
))(mapcar 'car lst)(mapcar 'cdr lst))))
)
(alertDottedList '(("AcDbPolyline" . "myLayer2") ("AcDbLine" . "mylayer1") ("AcDbCircle" . "myLayer5")
("AcDbBlockReference" . "MyLayer8")("AcDbText" . "mylayer9")))
Cheers
Harrie