taochiabc 发表于 2012-6-17 10:43

选物关层lsp程序

求选物关层lsp程序，包括当前层

Camello 发表于 2012-6-17 10:50


(defun Loff (lyr)
   (if (= (getvar "Clayer") lyr)
   (command "layer" "off" lyr "y" "")
   (command "layer" "off" lyr "")
   )
)

(defun C:test ()
   (setq ee (entsel))
   (Loff (cdr (assoc 8 (entget (car ee)))))
)

taochiabc 发表于 2012-6-17 12:19

回复 2# Camello


    非常谢谢

mashanjie 发表于 2012-6-22 16:19

神马意思？
页: [1]
查看完整版本: 选物关层lsp程序