lohas1118 发表于 2011-11-28 15:50:18

求模具图层管理LISP,要求简洁实用。

本帖最后由 lohas1118 于 2011-12-3 11:56 编辑

需求如下：
O+图层名为单开该图层
F+图层名为单关该图层
T+图层名为加开该图层
S+图层名为置该图层为当前层
CH+图层名为改变到该图层
CO+图层名为复制到该图层

注，图层名称不限，主要起到以上功能即可。

(defun c:O1()(command "'layer" "off" "*" "y" "s" "1" "on" "1"""))
(defun c:F1()(command "'layer" "off" "1*"""))
(defun c:T1()(command "'layer" "on" "1"""))
(defun c:S1()(command "'layer" "T" "1" "s" "1"""))
(defun c:CO1(/ a) (setq a (ssget)) (command "copy" a "" "0,0" "0,0")(command "change" a "" "p" "la" "1" ""))
(defun c:CH1(/ a) (setq a (ssget)) (command "change" a "" "p" "la" "1" ""))

大家看看还来再优化不！



MaKaiJin 发表于 2011-11-28 18:35:05

虽然我自己写了有，但是论坛上应该也有吧！

lohas1118 发表于 2011-11-29 10:47:48

MaKaiJin 发表于 2011-11-28 18:35 static/image/common/back.gif
虽然我自己写了有，但是论坛上应该也有吧！

找了好久未找到，可能未曾注意到。请多多包涵

lohas1118 发表于 2011-11-30 08:07:15

lenlenq 发表于 2011-11-30 19:22:54

应该不难呀！

zhongys 发表于 2011-12-1 10:49:04

应该将ET改一下也可以

yang198910204 发表于 2011-12-3 10:02:46

http://bbs.mjtd.com/thread-89743-1-1.html
这里有你要的

lohas1118 发表于 2011-12-3 11:56:15

(defun c:O1()(command "'layer" "off" "*" "y" "s" "1" "on" "1"""))
(defun c:F1()(command "'layer" "off" "1*"""))
(defun c:T1()(command "'layer" "on" "1"""))
(defun c:S1()(command "'layer" "T" "1" "s" "1"""))
(defun c:CO1(/ a) (setq a (ssget)) (command "copy" a "" "0,0" "0,0")(command "change" a "" "p" "la" "1" ""))
(defun c:CH1(/ a) (setq a (ssget)) (command "change" a "" "p" "la" "1" ""))

小弟不才，大家看看如何，请多多指教。

F3117021 发表于 2012-4-19 20:26:34



这个是最好用的，自己设置下就行，我现在就在用这个!!!

chinawhy817 发表于 2012-10-28 17:01:06

我有模块化的。改天录段视频向你推销推销...
BYD某部门就用俺这个，
页: [1] 2
查看完整版本: 求模具图层管理LISP,要求简洁实用。