[求助]：求一个图元是否存在的函数是什么！

0451doctor

1.求一个图元是否存在的函数是什么！


2.还有怎么才能得到一个图元的之前的图元名！比例我画了A，再画B (setq   b1 (entlast)) B1为B的图元名，哪我怎么通过B1求得A的图元名呢！

owen2020

不好意思不知道你再讲什么

eachy

最初由 0451doctor 发布
[B]1.求一个图元是否存在的函数是什么！


2.还有怎么才能得到一个图元的之前的图元名！比例我画了A，再画B (setq   b1 (entlast)) B1为B的图元名，哪我怎么通过B1求得A的图元名呢！ [/B]

1 vlax-erased-p

语法

    (vlax-erased-p obj)

功能

     判断对象是否被删除。

　

说明

参数 obj 为VLA 对象。

返回值：

若对象被删除，则返回 T，否则返回 nil。

2 前面刚刚讨论过，[获取标记后新实体]，用 Item 方法

lsjjm

最初由 eachy 发布

[B] “求一个图元是否存在的函数是什么！“
1 vlax-erased-p
语法
(vlax-erased-p obj)
功能
判断对象是否被删除。
[/B]

我想“求一个图元是否存在不一定和 “对象是否被删除“
有关系： 例如一个图元，根本就还没有画上哪，那里谈得上删除不删除吗？

eachy

语法

      (vlax-write-enabled-p obj)

功能

       判断是否能够修改 AutoCAD 图形。

　

说明

参数 obj 为VLA 对象或 AutoLISP 图元对象 (ename)。

返回值：

若可以修改 AutoCAD 图形则返回 T，若对象不能被修改，则返回 nil。

0451doctor

第一问题可以用（bb为图元名），（setq b  (vlax-ename->vla-object bb))
如果b 为nil 则该图元不存在！

snsj

0451doctor ，存在的图元被删除了，你的方法是不行的，好好EA提供的两个函数都是非常好的

0451doctor

我在2004下运行成功，请版主试试看！
(defun c:aa ()
   (setq a (car (entsel))
         b 1)
   (command "erase" a "")
)

(defun c:bb ()
   (setq b (vlax-ename->vla-object a)
         c (1+ 0)
   )

)

aeo

(entget e)-->为nil时。

lsjjm

最初由 aeo 发布
[B](entget e)-->为nil时。 [/B]

如果有图元名e，直接判别e 是否nil 不就行了吗，何必再用(entget e) ?
其实，１楼的原问条件有些不充分：是想判别图上有没有某个图元本身呢，还是有没有图元名称为e的图元？

心梦相随

当实体被删除后，entity name是存在的，非nil。
用entget是测试是否存在。

aeo

最初由 lsjjm 发布
[B]

如果有图元名e，直接判别e 是否nil 不就行了吗，何必再用(entget e) ?
其实，１楼的原问条件有些不充分：是想判别图上有没有某个图元本... [/B]

命令: (setq e(entlast))
<图元名: 40094498>

命令: (entdel e)
<图元名: 40094498>

命令: !e
<图元名: 40094498>