（完成）[求助]：求属性文字转换成TEXT的程序...

szkevin · 发表于 2002-10-31 22:52:38

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请教大家如何把用attdef写的文本变成text的文字呢?
我刚接手这个图,发现很多字是用attdef写的,不用是用text写的,如何转化成text呢?
谢谢.

民工 · 发表于 2002-10-31 23:20:50

attdef是什么？
能不能炸开？

XDSoft · 发表于 2002-10-31 23:50:24

最初由 szkevin 发布
[B]请教大家如何把用attdef写的文本变成text的文字呢?
我刚接手这个图,发现很多字是用attdef写的,不用是用text写的,如何转化成text呢?
谢谢. [/B]

给你写了一个，试试看，可以批量选取处理。在“晓东工具箱”环境下加载使用。

;|
命令：XDTB_Att2TXT
功能：属性变文字
|;

[FONT=courier new]
;|
命令：XDTB_Att2TXT
功能：属性变文字
|;
(defun c:XDTB_Att2TXT (/ ss e val p10 p11 t71 t72 t73 styl high ang el lyr wid)
(prompt "\n请选取要变文字的属性定义<全选>:")
(if (or
(setq ss (ssget '((0 . "ATTDEF"))))
(setq ss (ssget "x" '((0 . "ATTDEF"))))
)
(progn
(xdrx_begin)
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(setq val (xdrx_getentdxf 2)
p10 (xdrx_getentdxf 10)
lyr (xdrx_getentdxf 8)
p11 (xdrx_getentdxf 11)
t71 (xdrx_getentdxf 71)
t72 (xdrx_getentdxf 72)
t73 (xdrx_getentdxf 74)
styl (xdrx_getentdxf 7)
high (xdrx_getentdxf 40)
wid (xdrx_getentdxf 41)
ang (xdrx_getentdxf 50)
)
(setq el (list (cons 0 "TEXT") '(100 . "AcDbEntity") '(100 . "AcDbText")
(cons 1 val) (cons 8 lyr)(cons 10 p10) (cons 11 p11)
(cons 40 high)(cons 41 wid) (cons 7 styl) (cons 50 ang)
(cons 71 t71) (cons 72 t72) (cons 73 t73)
)
)
(entmake el)
(entdel e)
)
(xdrx_end)
)
)
(princ)
)
[/FONT]

[FONT=courier new] 
;| 
   命令：XDTB_Att2TXT 
   功能：属性变文字 
|; 
(defun c:XDTB_Att2TXT (/ ss e val p10 p11 t71 t72 t73 styl high ang el lyr wid) 
  (prompt "\n请选取要变文字的属性定义<全选>:") 
  (if (or 
        (setq ss (ssget '((0 . "ATTDEF")))) 
        (setq ss (ssget "x" '((0 . "ATTDEF")))) 
      ) 
    (progn 
      (xdrx_begin) 
      (xdrx_setsstodb ss 0) 
      (while (setq e (xdrx_getentdata 0)) 
        (setq val (xdrx_getentdxf 2) 
              p10 (xdrx_getentdxf 10) 
              lyr (xdrx_getentdxf 8) 
              p11 (xdrx_getentdxf 11) 
              t71 (xdrx_getentdxf 71) 
              t72 (xdrx_getentdxf 72) 
              t73 (xdrx_getentdxf 74) 
              styl (xdrx_getentdxf 7) 
              high (xdrx_getentdxf 40) 
              wid (xdrx_getentdxf 41) 
              ang (xdrx_getentdxf 50) 
        ) 
        (setq el (list (cons 0 "TEXT") '(100 . "AcDbEntity") '(100 . "AcDbText") 
                       (cons 1 val) (cons 8 lyr)(cons 10 p10) (cons 11 p11) 
                       (cons 40 high)(cons 41 wid) (cons 7 styl) (cons 50 ang) 
                       (cons 71 t71) (cons 72 t72) (cons 73 t73) 
                 ) 
        ) 
        (entmake el) 
        (entdel e) 
      ) 
      (xdrx_end) 
    ) 
  ) 
  (princ) 
) 
[/FONT]

ydf7332462 · 发表于 2002-11-1 19:19:15

>r2000的express菜单里有

szkevin · 发表于 2002-11-2 00:20:14

最初由 ydf7332462 发布
[B]>r2000的express菜单里有 [/B]

expresstools只能把块中的属性变成text,而这个程序是把用attdef写的tag变成text.
用attdef写的字,如果没有定义成块再插入别的图,看起来也是文字,这个程序能将这个tag变成文字.
初学者一定不要搞错这个概念,用attdef来写字,会有麻烦的.

szkevin · 发表于 2002-11-2 00:50:23

最初由民工发布
[B]attdef是什么？
能不能炸开？ [/B]

attdef就是在定义块前,给块定义的属性,当定义块时一起选择这些文字,插入块时就会提示输入属性值.

雄啸 · 发表于 2002-11-3 01:03:05

用xd的程序修改了一下：），

[FONT=courier new]
(defun c:Att2TXT (/ i ne ne1 ss e ent)
(princ "\n 属性变文字v1------------lxx.2002.11 [email]dreamsky@xdcad.net[/email] ")
(setq i 0 ne nil
ne1 (list (cons 0 "TEXT") '(100 . "AcDbEntity") '(100 . "AcDbText"))
)
(prompt "\n请选取要变文字的属性定义<全选>:")
(if (or
(setq ss (ssget '((0 . "ATTDEF"))))
(setq ss (ssget "x" '((0 . "ATTDEF"))))
)
(while (setq ent (ssname ss i) )
(setq e (entget ent)
extre '(1 10 11 40 7 8 50 71 72 73 ))
(foreach n extre (setq ne (cons (assoc n e) ne)) )
(setq ne (reverse ne)
ne (append ne1 ne)
i (1+ i))
(entmake ne)
(entdel ent)
))
)
[/FONT]

yy225cn · 发表于 2002-11-13 13:46:15

用cad的扩充命令中的炸开为文字（burst）可以做到

XDSoft · 发表于 2002-11-13 13:49:04

最初由 yy225cn 发布
[B]用cad的扩充命令中的炸开为文字（burst）可以做到 [/B]

这个帖子的问题不是属性（ATTTRIB），而是属性定义（ATTDEF）实体。炸开不了的。

efan2000 · 发表于 2002-11-13 14:00:26

属性也是一种文字，当它存在于图纸上或块时，称为属性定义，是一种基本的实体对象，可以更改标签（Tag）的值，显示的是标签。但是随块插入到图纸上时，就成了另一种实体，称为属性引用，这时标签不能更改，但是可以更改文字（Text），显示的文字，而不是标签。

yy225cn · 发表于 2002-11-13 14:05:49

不好意思，还是学艺不精，弄错了

realcookie · 发表于 2002-11-13 14:26:27

OPENDWG上的ODX.OCX可以读出来，并且以TXT形式显示

XDSoft · 发表于 2002-11-13 14:31:33

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

最初由 realcookie 发布
[B]OPENDWG上的ODX.OCX可以读出来，并且以TXT形式显示 [/B]

你说在ACAD下面写程序用控件吗？没有必要吧。

liuyj · 发表于 2002-11-13 14:37:57

:i 晓东你写的程序真的是太棒了！我曾两次遇到这个问题，因为属性太多，费了好大劲才都改成text，不过好像你的程序有一点不很爽，就是属性变成text后宽度怎么都变成1了？我一般把文字宽度设成0.8的，这样我还要改宽度，稍微有点麻烦。

XDSoft · 发表于 2002-11-13 14:41:51

最初由 liuyj 发布
[B]:i 晓东你写的程序真的是太棒了！我曾两次遇到这个问题，因为属性太多，费了好大劲才都改成text，不过好像你的程序有一点不很爽，就是属性变成text后宽度怎么都变成1了？我一般把文字宽度设成0.8的，这样我还要改宽?.. [/B]

好了，修改程序了，你重新拷贝回去吧，加入了宽度系数和随层。

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

（完成）[求助]：求属性文字转换成TEXT的程序...

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [求助]：老革命遇到新问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块