[LISP程序]：新手，请高手指点！

robinlxp · 发表于 2004-10-28 14:03:25

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

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

×

我想编一个简化CAD命令的Lisp程序，命令是用来控制图层的ON和OFF，但是总是关掉当前图层以外的所有图层，希望高手指点指点，谢谢！

aidraft · 发表于 2004-10-28 15:03:32

(defun c:iso ()
(command "-layer" "off" "*" "" "")
)

lsjjm · 发表于 2004-10-29 06:11:05

打开所有图层: (vl-cmdf "layer" "on" "*" "")
关闭所点击实体所在图层:
  (prompt "\nSelect entity that is on the layer you wish to turn off: ")
   (setq ss (ssget) n 0)
   (while (< n (sslength ss))
      (setq slay (cdr (assoc 8 (entget (ssname ss n)))))
      (if (= slay (getvar "clayer"))
      (vl-cmdf "layer" "s" "0" "" "layer" "off" slay "")
      (vl-cmdf "layer" "off" slay "")
      )
      (setq n (1+ n))
   )
...

robinlxp · 发表于 2004-10-29 12:57:50

谢谢！

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

[LISP程序]：新手，请高手指点！

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

相关帖子