[寻找]：图层全部上锁和解锁的程序

雨中漫步0423 · 发表于 2004-3-18 22:22:29

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

×

前几天好像在这里看到过，但今天来找却没找到，大家帮忙贴一下好了，谢谢，
对了，最好是可以透明使用的那一种，
还有就是LAYON和LAYOFF之种的，就是CAD自带的图层控制好像也不能在命令到一半的时候使用

小雨在这里对大家表示感谢了

自由的鱼 · 发表于 2004-3-18 23:01:19

还是在R14下用吗？如果是2000的话我做个给你！

lsjjm · 发表于 2004-3-19 03:45:02

最初由雨中漫步0423 发布
[B]前几天好像在这里看到过，但今天来找却没找到，大家帮忙贴一下好了...[/B]

(vl-cmdf "layer" "lock" "*" "")
(vl-cmdf "layer" "unlock" "*" "")

自由的鱼 · 发表于 2004-3-19 12:09:30

楼上的这个更简单，看来我该好好学学VLISP！

lsjjm · 发表于 2004-3-19 13:55:44

最初由自由的鱼发布
[B]楼上的这个更简单，看来我该好好学学VLISP！ [/B]

老的autolisp也一样:
(command "layer" "lock" "*" "")
(command "layer" "unlock" "*" "")

popxi · 发表于 2004-3-19 14:00:48

自由的鱼不会LISP,只会VB.

fengwenji · 发表于 2004-3-19 14:27:40

自由的鱼 · 发表于 2004-3-19 18:30:37

最初由 popxi 发布
[B]自由的鱼不会LISP,只会VB. [/B]

呵呵，大学的时候学过，但后来忘了个精光！

雨中漫步0423 · 发表于 2004-3-19 20:41:56

三楼的那个要怎么用？
我只会用LISP，和MNC

自由，我要的程序最好是2000下和14下都能用的，因为我们单位就只有14而已

自由的鱼 · 发表于 2004-3-19 21:04:44

小雨，这个LISP加载以后，输入lk就是锁图层，uk就是解锁，代码是利用三楼大哥的代码，他可是LISP高手！

雨中漫步0423 · 发表于 2004-3-19 21:34:07

收到，谢谢自由，呵呵
lsjjm是LISP的高手啊，这个好啊，什么版本的CAD都可以用，lsjjm你好，我是小雨，CAD的菜鸟，请多关照

自由，你也再练习用一用LISP嘛，比VB好用多了，你说是不是啊，呵呵

自由的鱼 · 发表于 2004-3-19 22:04:35

呵呵，小雨，一心不能二用啊，我除了做CAD开发还做别的开发的，我的LISP水平是没有办法提高了，：（
不过这里有这么多高手，一定可以帮到你的！：）

雨中漫步0423 · 发表于 2004-3-20 20:11:11

呵，可是小雨还是最喜欢自由啊……

自由，你的那个LISP文件我LOAD后不好用，5楼的那个能用，怎么回事啊？

自由的鱼 · 发表于 2004-3-20 21:49:26

不能用？怎么会呢，我这边试了都可以的啊

xcajcj · 发表于 2004-3-21 09:56:41

最初由雨中漫步0423 发布
[B]呵，可是小雨还是最喜欢自由啊……

自由，你的那个LISP文件我LOAD后不好用，5楼的那个能用，怎么回事啊？ [/B]

因为它不能用在R14下，看看文件中的程序代码就知，而5楼的什么版本都可以，推荐使用。

(defun c:lk()
(vl-cmdf "layer" "lock" "*" "")
)
(defun c:uk()
(vl-cmdf "layer" "unlock" "*" "")
)

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

Re: [寻找]：图层全部上锁和解锁的程序