[LISP程序]：发个转换图层的工具

zqb05 · 发表于 2009-5-30 21:17:42

我想要

pipilu1984 · 发表于 2009-5-31 14:53:49

复杂

xinr111 · 发表于 2009-6-1 10:43:09

也是控制层的源程序,有兴趣可以试试
;;;;将选择层关闭
(defun c:gf(/ n1 n2 n3 n4 n5 n ent)
(setq n1 (ssget))
(setvar "cmdecho" 0)
(command "_.undo" "be")
(setq n2 (sslength n1))
(setq n 0)
(while (> n2 n)
   (setq ent (ssname n1 n))
   (setq n3 (assoc 8 (setq n4 (entget ent))))
   (setq n5 (cdr n3))
   (command "layer" "OFF" n5 "")
   (setq n (+ 1 n))
)
  (command "_.undo" "e"))
;;;;;;将选择层打开

(defun c:ss(/ n1 n2 n3 n4 n5 n ent)
(setq n1 (ssget))
(setvar "cmdecho" 0)
(command "_.undo" "be")
(setq n2 (sslength n1))
(command "layer" "off" "*" "y" "")
(setq n 0)
(while (> n2 n)
   (setq ent (ssname n1 n))
   (setq n3 (assoc 8 (setq n4 (entget ent))))
   (setq n5 (cdr n3))
   (command "layer" "on" n5 "")
   (command "layer" "set" n5 "")
   (setq n (+ 1 n))
)
  (command "_.undo" "e"))

bao95229 · 发表于 2014-4-3 15:06:57

看看看看看

jokersart · 发表于 2014-12-21 16:15:34

在哪里下载啊

tmwall · 发表于 2014-12-22 21:08:42

好东西，谢谢

静待夕阳 · 发表于 2014-12-23 15:32:28

无私奉献，我辈楷模

静待夕阳 · 发表于 2014-12-23 15:35:17

新人回复赚D豆的，抱歉啊

wangxf888 · 发表于 2016-5-23 21:59:54

看不到文件啊:o

wangxf888 · 发表于 2016-5-24 09:39:40

下载试用下谢谢

dreamxiyan · 发表于 2017-2-20 23:27:30

顶起

天下第五坑 · 发表于 2021-7-30 14:32:56

挖坟，居然有代码 666

huisguiji · 发表于 2024-3-5 17:06:49

谢谢分享

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