把此贴删除了

啵浪鼓

(defun c:tt()
  (setq ss (getstring "請輸入圖層名"))
  (if (tblsearch "layer" ss)
      (command ".-layer" "set" ss "")
      (princ "該圖層不能找到")
  )
  (princ)
)

强悍 不过有个问题 输入图名时候会有一个字母被后置

3527188

这样不太理想吧~！

楼主说的是直接输入图层名即为当前层

啵浪鼓

(defun c:tt (/)
 (if(tblsearch "layer" "圖層名")
   (command "layer" "on" "圖層名" "set" "圖層名" "")
   (PRINC "  Warning!!! <圖層名 layer None>")
 )

 (princ)

)

himmel

500w008发表于2009-10-6 16:16:00强悍 不过有个问题 输入图层名时候 第一个输入字母被后置了

在“输入图层名”后面加个“:”，注意一定是半角的

luowy

嘿嘿，这个东西，是废物！
怎么说是废物呢？输入个层名还花很多时间，若是层名短，或简单还好办，要是如“妈妈说这么长的层名你怎么输得又快又准啊？”的层名，还不累死你？？？

3. ;;----------------------
4. ;;将所选实体层置为当前层
5. ;;----------------------
6. (defun c:cl (/ ent ent_data clay olay)
7.   (setq olay (getvar "clayer"))
8.   (setq ent (car (entsel (strcat "\n选择物体/当前层为<" olay ">:"))))
9.   (if (/= nil ent)
10.     (progn
11.       (setq ent_data (entget ent))
12.       (setq clay (cdr (assoc 8 ent_data)))
13.       (setvar "clayer" clay)
14.       (prompt (strcat "\n成功将图层设为<" clay ">："))
15.     )
16.   )
17. )

;;---------------------- ;;将所选实体层置为当前层 ;;---------------------- (defun c:cl (/ ent ent_data clay olay)   (setq olay (getvar "clayer"))   (setq ent (car (entsel (strcat "\n选择物体/当前层为<" olay ">:"))))   (if (/= nil ent)     (progn       (setq ent_data (entget ent))       (setq clay (cdr (assoc 8 ent_data)))       (setvar "clayer" clay)       (prompt (strcat "\n成功将图层设为<" clay ">："))     )   ) )

实现的方法当然有多种，我只是用个比较简单的，其余方法等你深入了cad就自然会的了

刚刚输入第一个字母马上就被后置了

香田里浪人

luowy 发表于 2009-10-9 12:07
嘿嘿，这个东西，是废物！
怎么说是废物呢？输入个层名还花很多时间，若是层名短，或简单还好办，要是如“妈 ...

高手！确实好用。