CAD LISP语言求助

jinlang007

在CAD中，怎样用LISP写这样的代码：
8 ?! `% c6 {( s: t打开选择物体的图层，而关闭其它所有图层

Camello

(setvar "Expert" 1)
- _9 h% z5 ]8 t8 p2 n! ~(command "Layer" "off"
& J" N! B7 }8 F+ \/ h8 c9 J  (strcat    "~"
- r9 ^% E8 [. ?' h5 P6 N$ ^) L    (cdr (assoc 8 (entget (car (entsel)))))
, i* N2 L5 X( R, [1 W0 I. m- W  )
. Y& ^; I8 w! J4 J+ D/ w  ""
; e+ ^8 ?& R+ ]# v0 d, G)

jinlang007

(setvar "Expert" 1)
/ R% X. j. [0 [5 e  |2 `; O(command "Layer" "off"
* S# i; _  M4 C& q. s  (strcat    "~"
    (cdr (assoc 8 (entget (car (ents ...
: t( z) s+ f, b6 s' F1 Y. u! tCamello 发表于 2011-10-20 15:06

    谢谢，上午又是你解决了我的问题，太谢谢了，这个你可以加个说明吗？我看不明白

jinlang007

( c  ]& Q" @: w1 W0 H; K9 V3 h
; o3 i/ y0 R) Q' P回复 2# Camello

- N2 @/ J  ~8 L; p" G, X
加个说明好吗？