[求助]属性块不能用vla-getattributes是为什么

xxsheng · 发表于 2008-2-16 15:10

一个基本概念问题:blkref来源于blkdef..............
你如果这样删除,再次保存,打开图形,你删除的属性还是会出现,,,,,
运行_.attsync命令就可以发现你的操作什么作用也没有!!
正确的步骤是:先删除 blkdef里面的相应的属性定义对象,然后删除blkref里面的属性ref对象..

cnks · 发表于 2008-2-16 18:40

不是很明白，楼上能否做个例子？

无痕 · 发表于 2008-2-16 18:51

本帖最后由作者于 2008-2-16 18:52:06 编辑

没有你说的问题：

(defun c:ttD (/ BLKREF)
(setq BLKREF (vlax-ename->vla-object (car (Nentsel "\n 删除块属性,点选:"))))
(vla-DELETE BLKREF)
)
(defun c:tt (/ BLKREF)
(setq BLKREF (vlax-ename->vla-object (car (entsel "\n 检查块属性值，点选块:"))))
(MAPCAR 'VLA-GET-TEXTSTRING (vlaX-INVOKE BLKREF 'getattributes))
)

cnks · 发表于 2008-2-17 16:55

无痕发表于2008-2-16 18:51:00没有你说的问题：(defun c:ttD (/ BLKREF) (setq BLKREF (vlax-ename->vla-object (car (Nentsel \"\n 删除块属性,点选:\")))) (vla-DELETE BLKREF))(defun c:tt (/ BLKREF)&nb

先谢过，我这样删除属性的：

(defun c:tt (/ ss1 Height sslenth n)
(setq ss1 (ssget '((0 . "INSERT"))))
(setq sslenth (sslength ss1))
(setq BLK (ssname ss1 0))
(if (and
(setq BLKREF (vlax-ename->vla-object BLK))
(= (vlax-get-PROPERTY BLKREF "Hasattributes") ':vlax-true)
      )
    (progn
      (setq ENT (vlax-safearray->list
    (vlax-variant-value (vla-getattributes BLKREF))
  )
      )
      (vla-Delete (car ENT))
      (vlax-invoke-method (car ENT) 'Update)
      (vlax-invoke-method BLKREF 'Update)
    )
)
)

然后执行下面这段，下面这段执行到红色部分就出错：

(defun c:tt (/ BLKREF)
(setq BLKREF (vlax-ename->vla-object (car (entsel))))
(vla-getattributes BLKREF)
)

无痕 · 发表于 2008-2-17 19:38

(vla-Delete (car ENT))
(vlax-invoke-method (car ENT) 'Update)

可能这里有问题，已经删除了，干嘛还update？

cnks · 发表于 2008-2-17 22:25

无痕发表于2008-2-17 19:38:00 (vla-Delete (car ENT)) (vlax-invoke-method (car ENT) 'Update)可能这里有问题，已经删除了，干嘛还update？

嗯，把这句删除后再执行下面也会出错：

(defun c:tt1 (/ BLKREF)
(setq BLKREF (vlax-ename->vla-object (car (entsel))))
(vla-getattributes BLKREF)
)

xxsheng · 发表于 2008-2-18 10:55

抱歉没有注意看你的问题,属性对象不同于块内的对象.
当你不是删除第一个属性对象而是其他的属性对象的时候,vla-getattributes仍然完全可以使用.
如(vla-Delete (cadr ENT))或者(vla-Delete (last ENT))后,.vla-getattributes仍然没有问题...
为什么出错估计还是vla-getattributes的工作原理本身是通过第一个属性来获取后续的属性对象,当你删除第一个属性对象,它只能是出错了.
建议如果一定要删除第一个属性还是用entnext加判断返回其他的属性.

无痕 · 发表于 2008-2-18 14:08

没有问题啊，用我上面的程序，稍微修改以下，用ttd2删除属性，再用tt测试，不管是第几个属性，都正常返回。
测试环境：cad2006

(vl-load-com)
(defun c:ttD (/ BLKREF)
(setq BLKREF (vlax-ename->vla-object (car (Nentsel "\n 删除块属性,点选:"))))
(vla-DELETE BLKREF)
)
(defun c:ttD2 (/ BLKREF a i)
(setq BLKREF (vlax-ename->vla-object (car (entsel "\n 删除块属性,点选块:"))))
(setq i (getint "\n 删除第？个属性<1>："))
(if (not i)(setq i 1))
(setq a (nth (1- i) (vlax-invoke BLKREF 'getattributes)))
(if a (vla-DELETE a))
)
(defun c:tt (/ BLKREF)
(setq BLKREF (vlax-ename->vla-object (car (entsel "\n 检查块属性值，点选块:"))))
(MAPCAR 'vla-GET-TEXTSTRING (vlaX-INVOKE BLKREF 'getattributes))
)

cnks · 发表于 2008-2-18 16:56

无痕发表于2008-2-18 14:08:00没有问题啊，用我上面的程序，稍微修改以下，用ttd2删除属性，再用tt测试，不管是第几个属性，都正常返回。测试环境：cad2006(vl-load-com)(defun c:ttD (/ BLKREF) (setq BLKREF

用你的确实没有问题，用我的有问题

我的是从选择集里面枚举：

(setq ss1 (ssget '((0 . "INSERT"))))

cnks · 发表于 2008-2-18 17:03

xxsheng发表于2008-2-18 10:55:00抱歉没有注意看你的问题,属性对象不同于块内的对象.当你不是删除第一个属性对象而是其他的属性对象的时候,vla-getattributes仍然完全可以使用.如(vla-Delete (cadr ENT))或者(vla-Delete (last

先谢了，确实是这样：不是删除第一个属性对象而是其他的属性对象的时候,vla-getattributes仍然完全可以使用

如果一定要删除第一属性对象呢？

账号		自动登录	找回密码
密码			注册