(66 . 1)是属性块特有的群码么？

zhuquanmao

查属性块群码  里面有个(66 . 1)  伴随属性=1时会有系列的属性组件等候来伴随插入，由一个SEQEND对象来结束   是不是这是属性块特有的群码？借此可以识别属性块

newer

66肯定不是唯一确定是块属性的。

newer

又查了下，虽然祖玛66不是INSERT独有的，但可以判断图块是否带有属性。

牢固

组码66是跟随标志，(66 . 1)在块里，表示后面跟随属性，在PolyLine里，表示后面跟随顶点子段图元，其他实体组码66都默认为0！

zhuquanmao

牢固就是G版啊 我说呢 厉害啊:lol

zhuquanmao

newer 发表于 2013-4-16 14:18

                               
登录/注册后可看大图

又查了下，虽然祖玛66不是INSERT独有的，但可以判断图块是否带有属性。

您这看的是什么外文资料？听详细的

newer

zhuquanmao 发表于 2013-4-16 22:51

                               
登录/注册后可看大图

您这看的是什么外文资料？听详细的

Autodesk自己的帮助文件啊。

cuyongping

newer 发表于 2013-4-16 14:18

                               
登录/注册后可看大图

又查了下，虽然祖玛66不是INSERT独有的，但可以判断图块是否带有属性。

版主可否提供一个关于INSERT  与66 . 1的实际例子吗？正需要这方面的知识了！谢谢了！

zxq0220

[pcode=lisp,true]
;属性替换 明经 ZZXXQQ 2008.5.27
(DEFUN C:TT ()
  (IF (AND (SETQ S1 (ENTSEL "\nSelect a Block have old attribute 选择带属性图块 :"))
           (SETQ ENT (ENTGET(CAR S1)))
           (= (CDR (ASSOC 0 ENT)) "INSERT")
           (= (CDR (ASSOC 66 ENT)) 1)) (PROGN
   (SETQ ENT1 ENT LAB (LIST) TAGLST (list "Tag1" "Tag2" "Tag3") I 0)
   (WHILE (/= (CDR(ASSOC 0 (SETQ ENT1 (ENTGET (ENTNEXT (CDR (ASSOC -1 ENT1))))))) "SEQEND")
    (IF (= (CDR(ASSOC 2 ENT1)) (NTH I TAGLST))
     (SETQ LAB (APPEND LAB (LIST (CDR (ASSOC 1 ENT1))))
           I (1+ I))
    )
   )
   (IF (AND (SETQ S2 (ENTSEL "\nChange a Block with new attribute 选择要替换属性的图块 :"))
            (SETQ ENT2 (ENTGET(CAR S2)))
            (= (CDR (ASSOC 0 ENT)) "INSERT")
            (= (CDR (ASSOC 66 ENT)) 1)) (PROGN
    (SETQ ENT3 ENT2 TAGLST (LIST "TagA1" "TagA2" "TagA3") I 0)
    (WHILE (= (CDR(ASSOC 0 (SETQ ENT3 (ENTGET (ENTNEXT (CDR(ASSOC -1 ENT3))))))) "SEQEMD")
     (IF (= (CDR(ASSOC 2 ENT3)) (NTH I TAGLST)) (PROGN
      (SETQ ENT3 (SUBST (CONS 1 (NTH I LAB)) (ASSOC 1 ENT3) ENT3))
      (SETQ I (1+ I))
      (ENTMOD ENT3)
      (ENTMOD ENT2)
     ))
    )
   ))
  ))
  (PRINC)
)
[/pcode]

cuyongping

zxq0220 发表于 2013-5-1 00:10

                               
登录/注册后可看大图

太感谢您提供的示例了！谢谢了！