system36 发表于 2011-9-13 09:27:08

如何把属性块批量转换成块

如何把属性块批量转换成块   因为DWG文件里面有大量的属性块

并且生成的块的名称和原来属性块的名称是一制的

ZZXXQQ 发表于 2011-9-13 09:27:09

本帖最后由 ZZXXQQ 于 2011-9-19 20:31 编辑

是不是将图中的属性块另存成图块文件？
下面程序行吗？

;块写属性块 明经 ZZXXQQ 2011.9.19
(defun c:tt ()
(setvar "CMDECHO" 0)
(if (setq ss (ssget "X" '((0 . "INSERT") (66 . 1)))) (progn
(setq i 0 bnmlst (list))
(repeat (sslength ss)
   (setq ent (entget (ssname ss i))
   bnm (cdr(assoc 2 ent)))
   (if (not (member bnm bnmlst))
    (setq bnmlst (cons bnm bnmlst))
   )
   (setq i (1+ i))
)
(setq i 0)
(repeat (length bnmlst)
   (setq bnm (nth i bnmlst))
   (if (findfile (strcat bnm ".DWG"))
    (command "_.WBLOCK" bnm "Y" bnm)
    (command "_.WBLOCK" bnm)
   )
   (setq i (1+ i))
)
))
(setvar "CMDECHO" 1)
(princ)
)

牢固 发表于 2011-9-14 22:12:06

没看懂！属性快本来就是块！何来再转成块？

system36 发表于 2011-9-25 07:52:53

关键 问题在于 属性快很多代码我在测试一下

czb203 发表于 2011-11-18 11:18:51

真的很不错的软件哦 谢谢了哈

czb203 发表于 2011-11-19 13:56:29

测试一下，真的还不错啊 谢谢啊

feiying2015 发表于 2012-5-18 10:00:46

好级了咕咕咕咕时朝觐司法

smartstar 发表于 2012-5-18 18:50:53

回去测试一下。

luckroots 发表于 2012-6-22 07:30:16

如何让块的名称自动生成？

smartstar 发表于 2012-6-22 08:29:38

谢谢分享。
页: [1] 2
查看完整版本: 如何把属性块批量转换成块