[原创]：图块定义至0层.可以包括多重块,无名块.重新定义至0层.解决块不随层显示的问题

xshrimp · 发表于 2006-9-26 00:38:20

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

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

×

[php]
;图块定义至0层.可以包括多重块,无名块.重新定义至0层.解决块不随层显示的问题.
(defun c:blkfix( /  b bn doc e el tl x)
(vl-load-com)
;;; a list of all block names
;;; return example ("*D5" "A$C263E5435" "b2" "b1")
(defun ax:blocks (/ b bn tl)
  (vlax-for b (vla-get-blocks
            (vla-get-ActiveDocument (vlax-get-acad-object))
            )
(if (= (vla-get-islayout b) :vlax-false)
   (setq tl (cons (vla-get-name b) tl))
)
  )
  (reverse tl)
)

(defun bredef (b / e el)
(setq e (tblobjname "BLOCK" b))
(while e
   (setq el (entget e))
   (setq el (subst '(8 . "0") (assoc 8 el) el))
      (setq el (if (assoc 62 el)
               (subst '(62 . 256) (assoc 62 el) el)
               (append el '((62 . 256)))
               );end if
            );end setq
   (entmake el)
   (setq e (entnext e))
)
(if (/= "ENDBLK" (cdr (assoc 0 el))) (entmake '((0 . "ENDBLK") (8 . "0") (62 . 256))))
  )

(setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
(mapcar  '(lambda (x) (bredef x)) (ax:blocks))
(command "regen")
)
[/php]

eachy · 发表于 2006-9-26 01:41:26

[iframe h=600 w=100%]http://eachy.bokee.com/5695576.html[/iframe]

xshrimp · 发表于 2006-9-26 18:48:16

运行后
; 错误: 参数类型错误: VLA-OBJECT nil

KLDC · 发表于 2006-9-26 23:50:20

楼主的程序好霸道，一运行都不提示把较中所有块都变了。
最好能把选择的块进行转换就行了。

liuyj · 发表于 2006-9-27 08:37:05

最初由 xshrimp 发布
[B]运行后
; 错误: 参数类型错误: VLA-OBJECT nil [/B]

先(vl-load-com)

xshrimp · 发表于 2006-9-28 00:24:45

运行了没有用啊.

zhaoyafei19 · 发表于 2006-10-20 21:15:57

编译好后传上来好吗？

xotoo · 发表于 2008-3-29 17:48:09

这个程序很好啊，麻烦楼主再改改，能框选就好了……

+突破+ · 发表于 2008-4-1 20:52:35

一直为这个事情烦，谢了。

xotoo · 发表于 2008-4-5 12:22:16

二楼eachy 版主的程序运行错误……
提示：Error:参数类型错误: VLA-OBJECT nil

goubeishu · 发表于 2008-4-7 19:57:39

挺不错的程序！

xotoo · 发表于 2008-6-30 10:23:58

可惜不能线形也改为随层……有些块里面的线形乱七八糟，如果也一块改为随层就好了……

不惹尘埃 · 发表于 2015-7-7 20:23:40

不能改线性呀，也不能框选块呀，能不能改一下呀，楼主？

xhwcj@sina.com · 发表于 2015-7-8 08:28:34

学习学习中、、、、、、、、、、、、:(:(

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

[原创]：图块定义至0层.可以包括多重块,无名块.重新定义至0层.解决块不随层显示的问题

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

相关帖子