图素类型怎么获得？

iJero

(defun C:TT ( / LAYMB I INAME)
   (vlax-for  I  (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))   
       (if (and (= (strCase (vla-get-name I) ) "X$$-MB")
                (= "LINE"  (entget I) )  ;;;;;;;;;;;;;;;;;;;;;;;;;Step 1
           )   
           (setq LAYMB I)
           (princ "xxx" )     
       )   
    )
   (princ (strcat "=" (vla-get-name LAYMB) ) )
(princ)
)

Step 1,我目的是想得到 I的图素类型，是不是“LINE”，但这好像不对？
请问这几句代码该怎么写？

菡萏

请解释一下什么是“图素类型”？

wzg356

查看对象名称（其它特性Layer ，Linetype，Area，Color等类似）
(vlax-get-property (vlax-ename->vla-object (car(entsel))) "ObjectName")
查看特性
    (vlax-dump-object  (vlax-ename->vla-object (car(entsel))))
查看特性和方法
    (vlax-dump-object  (vlax-ename->vla-object (car(entsel))) t)


组码方法
查看图元名称（其它特性8图层、62颜色等类似）
(cdr(assoc 0(entget (car(entsel)))))

iJero

菡萏 发表于 2015-12-24 11:32
请解释一下什么是“图素类型”？

我是指，这个图元是什么东西，是直线、圆、还是矩形等等。
（那这个该怎么叫？）

Gu_xl

iJero 发表于 2015-12-24 15:28
我是指，这个图元是什么东西，是直线、圆、还是矩形等等。
（那这个该怎么叫？）

那叫图元类型：
(cdr (assoc 0 (entget (car(entsel)))))