CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
查看: 1353|回复: 3

[求助] 选物关层lsp程序

[复制链接]
发表于 2012-6-17 10:43 | 显示全部楼层 |阅读模式
求选物关层lsp程序,包括当前层
发表于 2012-6-17 10:50 | 显示全部楼层

  1. % \  b8 {+ q+ g" f4 H* R
  2. (defun Loff (lyr)
    $ X# P! D! p) B, B$ q6 K
  3.    (if (= (getvar "Clayer") lyr)$ T: u. O. ?6 c* r% }6 I" a3 q1 q
  4.      (command "layer" "off" lyr "y" "")
    " o. Y) \) j# t2 B9 `
  5.      (command "layer" "off" lyr ""). B* P* K8 S# ?/ [5 G
  6.    )7 `$ I3 j" o2 Z
  7. )( E8 i) y. M' u' f) Y
  8. 7 F; [* T0 T, k+ @. ]( c( I
  9. (defun C:test ()7 s- U- Q5 j) p& }
  10.    (setq ee (entsel))4 x5 [8 A$ d( ]" p
  11.    (Loff (cdr (assoc 8 (entget (car ee)))))
    ! }: q1 n9 x; `  d
  12. )
    3 h3 V0 B6 c; V! h* e6 D7 v
复制代码
 楼主| 发表于 2012-6-17 12:19 | 显示全部楼层
回复 2# Camello
& X& S1 r+ m1 u/ P4 E$ n+ M& @) U" M6 a8 C) q+ P( ^
9 F3 K" [7 `4 M; B8 l
    非常谢谢
发表于 2012-6-22 16:19 | 显示全部楼层
神马意思?
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2025-2-19 06:27

CAD设计论坛,为工程师增加动力。

© 2005-2025 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表