[LISP函数]：块炸开后图层改变？？急！

petertian · 发表于 2005-10-25 17:37:37

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

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

×

大虾们，我的块是在0层作的，插入到40层了，现在炸开块后，块图形跑到0层了，要求是40层的块炸开后仍旧为40层，都是有名称的块。图内很多块都是这样，用lisp怎么办呀！谢谢！

xyp1964 · 发表于 2005-10-25 19:31:58

[FONT=courier new](defun c:test ()
(if (setq ss (ssget '((0 . "INSERT") (8 . "40"))))
(progn
(setq ss1 (ssget "X"))
(command "explode" ss "")
(setq ss2 (ssget "X"))
(command "select" ss2 "r" ss1 "")
(command "change" (ssget "P") "" "p" "la" 40 "")
)
)
)[/FONT]

petertian · 发表于 2005-10-26 08:40:19

xyp1964 斑竹，您的程序每次只能处理一个，我的图内有很多相同的有名块，和无名块，程序运行后，只有一个块被炸开了，并符合要求了！那是怎么回事？文件样图在附件中！谢谢！

狂刀 · 发表于 2005-10-26 08:53:46

[php](defun c:ex40 ()
(setvar "qaflags" 1)
(command ".explode" (setq ss (ssget '((0 . "INSERT") (8 . "40"))) "")
(command "change" (ssget "P") "" "p" "la" 40 "")
(princ)
)
[/php]

petertian · 发表于 2005-10-26 09:38:29

谢谢狂刀大虾，小弟以后向您好好学习了，您的程序完全满足了我的要求！非常感谢您！

xshrimp · 发表于 2005-10-27 09:50:40

最初由狂刀发布
[B][php](defun c:ex40 ()
(command ".explode" (setq ss (ssget '((0 . "INSERT") (8 . "40"))) "")
)
[/php] [/B]

此段少一个括号.
(command ".explode" (setq ss (ssget '((0 . "INSERT") (8 . "40")))) "")
下面根据上面程序优化一下.块炸层不变,适合所有的块.
[php]
;;0层定义块炸后放置在原块所在层
;块炸层不变
(defun c:test (/ ss no i objname objlay)
(setvar "CMDECHO" 0)
(setq ss (ssget '((0 . "INSERT"))))
(setq no (sslength ss))
(setq i 0)
(while (< i no)
      (setq objname (ssname ss i))                   ;单个元素的名称
      (setq objlay (cdr (assoc 8 (entget objname)))) ;单个元素的图层值
      (command ".explode" objname "")
      (command "change" (ssget "P") "" "p" "la" objlay "")
      (setq i (+ 1 i))
)
(princ)
)[/php]

petertian · 发表于 2005-10-27 11:16:06

非常感谢xshrimp 大虾，其实，昨天狂刀大虾是提供了个思路，您的帖子很详细，谢谢大虾们！

zqw_zhang · 发表于 2005-10-28 17:22:11

6楼的大侠果然厉害，谢谢了。

pcgprz · 发表于 2005-10-28 22:00:37

６楼，还不错！

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

[LISP函数]：块炸开后图层改变？？急！

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

相关帖子