RSS | ATOM | SEARCH
表示されない属性定義
Revit でDWG をリンクしました。
DWGを見ながらスラブ勾配を修正しようと押えポイントのレベルを見ると下図のような状態で、引出線と枠しかなく肝心のレベルの数値が表示されていません。
20151004burst3
AutoCAD ではもちろん表示されていました。あれっ?
AutoCAD に戻ってみると、属性定義の名称の項目にレベルの数値を入れたものでした。これは、express tool のBURST で文字に変換することも出来ない厄介なオブジェクトです。枠はポリライン、引出線はラインでした。ブロックを分解したもの?
20151004burst220151004burst1
以前に、外部参照するとこのようなオブジェクトの文字が抜けると相談をもらったことがあります。いろいろやってみましたが、解決法は見つかりませんでした。属性定義のみですからexplode も効きません。
Revit に読み込んでも、リンクしても同じように名称文字が抜けるんですね。どうしてこのような属性定義を使うのでしょう?ブロックにしないのなら、ただの文字でいいと思うのですが。
どなたか、この属性定義を文字に変換する方法をご存知ではありませんか?
author:Muu, category:AutoCAD, 23:18
comments(6), trackbacks(0), - -
Comment
こちらで紹介されているLISPで出来るようです。
http://autocad-modify.blogspot.jp/2007/03/blog-post.html
たね, 2015/10/11 12:38 PM
たね 様
お知らせありがとうございます。
TAG2TXT.lsp のダイレクトなLISPコードは見つけられませんでしたが、英語のサイトで2種ほど、同じ働きをするコードを見つけました。
確認したら、ご報告させていただきます。
Muu, 2015/10/12 12:46 AM
なくなっていましたね。
私が以前に頂いたやつです。
TAG2TXT.lsp

; ----------------------------------------------------------------------
; (Converts ATTDEF's default value to TEXT objects)
; Copyright (C) 1997 DotSoft, All Rights Reserved
; Website: www.dotsoft.com
; ----------------------------------------------------------------------
; DISCLAIMER: DotSoft Disclaims any and all liability for any damages
; arising out of the use or operation, or inability to use the software.
; FURTHERMORE, User agrees to hold DotSoft harmless from such claims.
; DotSoft makes no warranty, either expressed or implied, as to the
; fitness of this product for a particular purpose. All materials are
; to be considered 疎s-is・ and use of this software should be
; considered as AT YOUR OWN RISK.
; ----------------------------------------------------------------------

(defun C:TAG2TXT ()
(setq sset (ssget '((0 . "ATTDEF"))))
(setq num (sslength sset) itm 0)
(while (< itm num)
(setq hnd (ssname sset itm))
(setq ent (entget hnd))
(setq new '((0 . "TEXT")))
(setq new (append new (list (cons 1 (cdr (assoc 2 ent))))))
(setq dolst (list 7 8 10 11 39 40 41 50 51 62 71 72 73))
(foreach grp dolst
(setq addto (assoc grp ent))
(if (/= addto nil)
(setq new (append new (list (assoc grp ent))))
)
)
(entdel hnd)
(entmake new)
(setq itm (1+ itm))
)
(princ)
)
たね, 2015/10/12 6:55 AM
たね様

コードありがとうございます。
Muu, 2015/10/12 9:19 AM
1つのDWG内に1000個近い属性定義がありましたが、

selectSimilar
TAG2TXT

で、瞬時に文字に変換できました。
たね様
ありがとうございました。
Muu, 2015/10/13 1:54 PM
私も作成者様に感謝です。

SELECTSIMILAR
素晴らしいコマンドですよね。

ありがとうございます。
たね, 2015/10/13 9:19 PM









Trackback
url: http://blog.nakaji.moo.jp/trackback/975543