（XD::Entity:Name）获得对象的名字

marting

1. (defun xd::entity:name (ent)
   
2.   (cond        ((vlax-property-available-p ent 'effectivename)
   
3.          (vla-get-effectivename ent)
   
4.         )
   
5.         ((vlax-property-available-p ent 'name) (vla-get-name ent))
   
6.   )
   
7. )
   

(defun xd::entity:name (ent)<br />   (cond        ((vlax-property-available-p ent 'effectivename)<br />          (vla-get-effectivename ent)<br />         )<br />         ((vlax-property-available-p ent 'name) (vla-get-name ent))<br />   )<br /> )<br />

A羽飞

学习学习。。。