[讨论]：高手看看，这个有点邪门了！

onemax

我也碰到了块属性的问题，想问一下为什么地形图里的标高值同样是图块，但却不能修改数值文本的图层(样图见附件)，炸散此标高值后连文本也不见了，真烦恼！

eachy

图块属性是程序生成的，块定义中是不含属性的。要想保留属性文字就不能直接使用Explode 命令，ET 的 BURST 命令可以炸开属性块并保留文字。文本图层可以双击修改（2007 2006其他版本没有试过）

ll_j

最初由 onemax 发布
[B]我也碰到了块属性的问题，想问一下为什么地形图里的标高值同样是图块，但却不能修改数值文本的图层(样图见附件)，炸散此标高值后连文本也不见了，真烦恼！ [/B]

刚从乡下回来，看了一下你的图，正如eachy所说，属性是程序加在块GC200上的，块GC200本身并没有定义属性。在R2007中测试，双击可以使用eattedit打开编辑，在R2004中出错，Eattedit命令不承认有“属性块”存在，定义一个与GC200相似的块，块中包含属性定义，使用块替换（我的网络U盘中cb.lsp），替换后就可以使用双击了，对于较多的这种情况，最好是使用 BURST 替换成文本或者写程序替换。

针对你的问题，写了一段简单代码，将属性调整到“0”层，没作前后处理，权作抛砖引玉吧。
[php](defun c:chatt()
  (setq se(ssget '((0 . "INSERT")))
        n (sslength se)
        se2 (ssadd)
        i -1
  )
  (repeat n
    (setq i (1+ i)
          en(ssname se i)
          nx(entnext en)
    )
    (if nx
      (if (= (cdr (assoc 0 (setq ee (entget nx)))) "ATTRIB")
        (progn
          (setq ee (subst (cons 8 "0") (assoc 8 ee) ee))
          (entmod ee)
          (entupd nx)
        )
      )
    )
  )
  (princ)
)[/php]

zhongmei1000

“长得不一样”定是属性不一样，这与图层没有关系。我觉得你可以重做一次决来看一下是否有其它的原因。

szqige008

请你有时间帮我看看这个难题:
http://p4.xdcad.net/forum/showthread.php?s=&threadid=563157

ll_j

最初由 szqige008 发布
[B]请你有时间帮我看看这个难题:
http://p4.xdcad.net/forum/showthread.php?s=&threadid=563157 [/B]

你的情况与本主题所说的情况一样，是属性的一种应用形式（就算是“扩展”用法吧），我前面的解释也只是简单分析这种“扩展”，对“属性”有一定的了解才能看懂。你可以先看看关于属性的一些基本概念，再对照分析。

有点小烦

呵呵，惭愧啊，学艺不精，我想补充个问题，请斑竹和长老门赐教：
是别人问我的一个问题，她从一张甲方的图上拷场地的标高到另一张图上，却粘贴不了，图层倒是随着过去了，我后来觉得是因为这个图（标高）是用天正做的缘故，她换用天正果然就可以了，但是究竟系统地说是什么缘故呢？能不能给点专业地分析，谢谢啊。呵呵！
（说明一下，选择标高用的是快速选择，只粘贴过去一个块，这个块是又标高符号和一个标高数字组成的。其他的标高都不是块，没有粘贴过去。）

还有一个小问题，在中望CAD里好象是没有快速选择这个工具的是不是？

ll_j

不能复制的情况很多，有可能是系统问题，也可能是Acad问题，也有可能是图形问题，不知是否有类似天正的自定义实体问题，没有仔细分析过，不好乱说。

回到本主题，趁热打铁，再来一个“制作”程序，帮助大家理解，权当一块碎砖。
[php];;;插入一个块与属性相对“独立”的属性块
;;;先制作一个块和一个属性定义（Attdef）
(defun c:blka (/ blk pt1 att pt2 txt)
  (setq        blk (car (entsel "\n选择块："))
        pt1 (getpoint "\n块插入基点：")
        att (car (entsel "\n选择属性："))
        pt2 (getpoint "\n属性插入基点：")
        txt (getstring "\n属性文本：")
  )
  (entmake (list '(0 . "INSERT")
                 '(100 . "AcDbEntity")
                 '(67 . 0)
                 '(410 . "Model")
                 '(8 . "0")
                 '(100 . "AcDbBlockReference")
                 '(66 . 1)
                 (assoc 2 (entget blk))
                 (cons 10 pt1)
                 '(41 . 1.0)
                 '(42 . 1.0)
                 '(43 . 1.0)
                 '(50 . 0.0)
                 '(70 . 0)
                 '(71 . 0)
                 '(44 . 0.0)
                 '(45 . 0.0)
                 '(210 0.0 0.0 1.0)
           )
  )
  (entmake (list '(0 . "ATTRIB")
                 '(100 . "AcDbEntity")
                 '(67 . 0)
                 '(410 . "Model")
                 '(8 . "0")
                 '(100 . "AcDbText")
                 (cons 10 pt2)
                 '(40 . 112.805)
                 (cons 1 txt)
                 '(50 . 0.0)
                 '(41 . 1.0)
                 '(51 . 0.0)
                 (assoc 2 (entget blk))
                 '(71 . 0)
                 '(72 . 0)
                 '(11 0.0 0.0 0.0)
                 '(210 0.0 0.0 1.0)
                 '(100 . "AcDbAttribute")
                 (assoc 2 (entget blk))
                 '(70 . 0)
                 '(73 . 0)
                 '(74 . 0)
           )
  )
  (entmake '((0 . "SEQEND")
             (100 . "AcDbEntity")
             (67 . 0)
             (410 . "Model")
             (8 . "0")
            )
  )
  (princ)
)
[/php]

有点小烦

我那位同事换了天正，她那个问题就解决了。不过我还是不很理解，因为那些标高都是简单的元素组成的——SOLID和TEXT，按道理说ACAD里都有这些元素，却不能拷贝，真是不理解。我现在在想如果那个时候我把这些标高都换个新的图层，会不会有可能拷贝的过去。

szqige008

最初由 ll_j 发布
[B]不能复制的情况很多，有可能是系统问题，也可能是Acad问题，也有可能是图形问题，不知是否有类似天正的自定义实体问题，没有仔细分析过，不好乱说。

回到本主题，趁热打铁，再来一个“制作”程序，帮助大家理解，... [/B]

我得出的是不可双击编辑的块,请问是还有没有可艰双击编辑的块????????????????*-*1 *-*1 *-*1

ll_j

最初由 szqige008 发布
[B]我得出的是不可双击编辑的块,请问是还有没有可艰双击编辑的块???????????????? [/B]

这样：先制作一个带属性的块和一个属性，再使用23楼程序 blka 构造“属性块”，这个属性块是可以双击编辑的，然后用命令 Bedit 或 Refedit 编辑前面制作的母块，将属性删除，就满足你要的条件了。

szqige008

嘿嘿,不愧是长老,俺服了
我也想学学VB方便以后研究下CAD的,请问LL-J有什么建议或指教么,谢谢

xuehuchen

大侠们好，我用了BURST是什么命令啊，我用的CAD2002，怎么没有这个命令啊

有点小烦

BURST也是一个炸开的命令，但它能把属性块变成文本，EXPLO不行，属性块还是存在的。

rk35

R14版本的BURST是很好用的一个命令。有些地方是不可或缺的命令！按28楼的说法难道以后的版本里面没有这个命令吗？我正打算改换2004版本作图啊。。。