[LISP]经典小程序大集合。我抛砖：改变物体所在层（包括块）

MRHDF · 发表于 2005-7-20 12:46

(defun c:chlayer (/ a1 a2 n index b1 b2 d1 d2 b3)
     (graphscr)
     (prompt "Select entities to be changed ") (terpri)
     (setq a1 (ssget))
     (prompt "Point to entity on target layer ") (terpri)
     (setq a2 (entsel))
     (setq n (sslength a1))
     (setq index 0)
     (setq b2 (entget (car a2)))
     (setq d2 (assoc 8 b2))
     (repeat n
          (setq b1 (entget (ssname a1 index)))
          (setq d1 (assoc 8 b1))
          (setq b3 (subst d2 d1 b1))
          (entmod b3)
          (setq index (+ index 1))
     )
)

xyp1964 · 发表于 2005-7-20 14:07

没必要制造麻烦：

(defun c:chlayer (/ a1 a2 d2)
(prompt "Select entities to be changed : ")
(setq a1 (ssget)
a2 (entsel "\nPoint to entity on target layer : ")
d2 (cdr(assoc 8 (entget (car a2))))
)
(command "change" a1 "" "p" "la" d2 "")
(princ)
)

MRHDF · 发表于 2005-7-20 17:30

交换反复比较。

上面的简单，但是不能改变图块的属性也随层。

希望有更多的小程序过来秀。

无痕 · 发表于 2005-7-21 03:26

用刷子不行么？

torcky · 发表于 2005-7-21 09:31

无痕发表于2005-7-21 3:26:00 用刷子不行么？

用刷子可能改变的不仅仅是图层，还有线形，颜色等。

sdwy196912 · 发表于 2005-7-21 13:51

(entmod ent)

用此语言好些!!

kuku · 发表于 2005-7-22 13:27

有道理，不过用的不多

whz_20 · 发表于 2005-7-25 17:44

很好，谢谢

sheep · 发表于 2005-7-29 17:55

我选择100000000个物体会很慢吗?

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

[LISP]经典小程序大集合。我抛砖：改变物体所在层（包括块）

本帖子中包含更多资源

评分