[LISP程序]：切换到物体所在layer 的程序

tcq2000_007 · 发表于 2006-11-24 14:20:53

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

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

×

(DEFUN C:er(/ VAR1 VAR2 O A P Q)  ;功能:切换到物体所在layer (SETQ VAR1 (GETVAR "BLIPMODE"))
  (SETQ VAR2 (GETVAR "CMDECHO"))
  (SETVAR "BLIPMODE" 0)
  (SETVAR "CMDECHO"  0)
  (PRINC "\n 切换到物体所在layer  : ")
  (SETQ O (ENTSEL))
  (SETQ A (ENTGET (CAR O)))
  (SETQ P (CDR (ASSOC 8 A)))
  (SETQ Q (GETVAR "CLAYER"))
  (IF (= Q P)
   (PRINC "\n CORRENT LAYER,CAN'T FROOZEN!!!!")
   (COMMAND "_-LAYER" "_s" P "")
)
  (SETVAR "BLIPMODE" VAR1)
  (SETVAR "CMDECHO"  VAR2)
  (PRINC "\nOK!")(PRINC)
)

个人感觉很实用，不知道对大家有没有用，支持的顶一下，我将上传更多的的实用的lisp程序源代码！
也希望能给我加点分！

zlh2002 · 发表于 2007-1-20 14:24:00

不错，谢谢

zqb05 · 发表于 2009-5-31 13:46:48

这CAD里就有了

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

[LISP程序]：切换到物体所在layer 的程序

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

相关帖子