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

xxsheng

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

cnks

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

无痕

没有你说的问题：

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

(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-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)
)

无痕

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

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

cnks

无痕发表于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

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

无痕

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

2. (vl-load-com)
3. (defun c:ttD (/ BLKREF)
4.    (setq BLKREF (vlax-ename->vla-object (car (Nentsel "\n 删除块属性,点选:"))))
5.    (vla-DELETE BLKREF)
6. )
7. (defun c:ttD2 (/ BLKREF a i)
8.    (setq BLKREF (vlax-ename->vla-object (car (entsel "\n 删除块属性,点选块:"))))
9.    (setq i (getint "\n 删除第？个属性<1>："))
10.    (if (not i)(setq i 1))
11.    (setq a (nth (1- i) (vlax-invoke  BLKREF 'getattributes)))
12.    (if a (vla-DELETE a))
13. )
14. (defun c:tt (/ BLKREF)
15.    (setq BLKREF (vlax-ename->vla-object (car (entsel "\n 检查块属性值，点选块:"))))
16.    (MAPCAR 'vla-GET-TEXTSTRING (vlaX-INVOKE  BLKREF 'getattributes))
17. )

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

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

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

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

cnks

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

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

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