[LISP程序]：献丑的三个小程序

papayaa · 发表于 2005-6-28 00:23:43

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

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

×

;图层归0
(defun c:0 ()
  (setvar "clayer" "0")
  (setvar "cecolor" "bylayer")
  (command "linetype" "s" "bylayer" "")
  (command "lweight" "bylayer")
  (princ)
)
;;图层复原
(defun c:00()
  (setvar "cecolor" "bylayer")
  (command "linetype" "s" "bylayer" "")
  (command "lweight" "bylayer")
  (princ)
)
;;恢复图元随层
(defun c:000()
  (command "SELECT" PAUSE)
  (command "CHPROP" "P" "" "C" "BYLAYER" "LT" "BYLAYER" "S" "1" "LW" "BYLAYER" "")
  (princ)
)

很多人作图很烂，不讲究图层，这三个小程序就派上用场了。

0，把图层回到0层，颜色，线宽，线形的参数都恢复到随层。
00，看CAD标准工具条，颜色，线形等参数都不是随层的，00把那些参数改回来。
000，有些图元的参数，颜色都不是随层，用000改之。

贱人 · 发表于 2005-6-28 00:35:45

沙发，支持原创，很好用，
谢谢，楼主辛苦了

ioriaya · 发表于 2005-6-28 00:42:42

不是很懂，但应该很好用吧，顶

jsrlb · 发表于 2005-6-28 14:44:09

好象没多大用处耶。

czad · 发表于 2005-6-29 10:58:54

非常的好，谢谢楼主！

dhcad · 发表于 2005-7-1 16:07:54

那些画图没有好习惯的人到是有用。尤其是那些爱改同一层图元的线型的颜色的人

linuxme · 发表于 2005-7-1 22:51:49

将图形全选，然后颜色选择随层不就完了？用的着加个lsp？

papayaa · 发表于 2005-7-2 01:09:53

大家得注意，现在工作图常常不是你一个人画得，从设计院拿来得图纸就已经很烂了。

xunix · 发表于 2005-7-3 08:09:22

的确也是，各有各的一套，当然，也有自己的一套：）
有针对性的处理，才会提高效率。

ltjxl · 发表于 2005-7-3 09:47:01

很好，用用看。

PFD8667 · 发表于 2005-7-3 15:27:06

ET扩展工具不是有现成的吗?

star8818 · 发表于 2005-7-4 16:13:05

支持楼主原创工具....在努力!!!

true_gouki · 发表于 2005-7-5 01:25:00

好东西呀，楼主辛苦了

wym8768 · 发表于 2005-7-5 11:43:00

楼主辛苦了原创工具

oldheart · 发表于 2005-7-12 11:51:30

支持楼主
这类程序应该很实用的
就是楼主解释的不是很明白

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

[LISP程序]：献丑的三个小程序

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

相关帖子