CAD LISP语言求助

jinlang007

, A' j" _% s2 ?5 g" C0 A
在CAD中，怎样用LISP写这样的代码：
( L9 ]3 d% S  s# h5 Z' R8 s打开选择物体的图层，而关闭其它所有图层

Camello

(setvar "Expert" 1)
(command "Layer" "off"
  (strcat    "~"
* g: W! r. M. O    (cdr (assoc 8 (entget (car (entsel)))))
, X9 }) r$ V/ C% E  {  )
  ""
! P8 K) H% s3 ~: E, F$ I5 }' ^+ A* s)

jinlang007

(setvar "Expert" 1)
(command "Layer" "off"
9 B7 u+ P6 I" t: ]: k& t2 W  (strcat    "~"
6 u9 P1 D6 L9 k: Y/ D! C+ q- x    (cdr (assoc 8 (entget (car (ents ...
1 {, H! {" s& @# l* sCamello 发表于 2011-10-20 15:06

& v* P' S* X- U& R) B6 r# y) P
6 ]8 s7 e+ j) a, z% e: o" a
" c1 [. g: a  F7 _6 P    谢谢，上午又是你解决了我的问题，太谢谢了，这个你可以加个说明吗？我看不明白

jinlang007

# X' g# I- l% O% J/ W# E, x) J
回复 2# Camello
3 {, @. }6 h7 W2 w$ C

加个说明好吗？