CAD LISP语言求助

jinlang007 · 发表于 2011-10-20 14:48

本帖最后由 jinlang007 于 2011-10-21 10:06 编辑

在CAD中，怎样用LISP写这样的代码：
打开选择物体的图层，而关闭其它所有图层

Camello · 发表于 2011-10-20 15:06

(setvar "Expert" 1)
(command "Layer" "off"
  (strcat "~"
(cdr (assoc 8 (entget (car (entsel)))))
  )
  ""
)

jinlang007 · 发表于 2011-10-20 15:09

(setvar "Expert" 1)
/ N2 y- p" { k(command "Layer" "off"
4 J$ F: ]& ?4 _0 g* i2 C (strcat "~"
3 Y" m7 }2 M0 Q2 e (cdr (assoc 8 (entget (car (ents ...) X; ~2 x0 j& v( c# o8 A! D8 K7 {6 ?
Camello 发表于 2011-10-20 15:06

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

jinlang007 · 发表于 2011-10-20 15:21

本帖最后由 jinlang007 于 2011-10-20 15:55 编辑

回复 2# Camello

加个说明好吗？

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

[已解决] CAD LISP语言求助

评分