500w008
发表于 2009-10-6 12:41:00
500w008
发表于 2009-10-6 16:16:00
啵浪鼓
发表于 2009-10-6 15:14:00
(defun c:tt()<br/> (setq ss (getstring "請輸入圖層名"))<br/> (if (tblsearch "layer" ss)<br/> (command ".-layer" "set" ss "")<br/> (princ "該圖層不能找到")<br/> )<br/> (princ)<br/>)
客人
发表于 2009-10-6 16:13:00
<p>强悍 不过有个问题 输入图名时候会有一个字母被后置</p>
3527188
发表于 2009-10-8 10:41:00
<p>这样不太理想吧~！</p><p>楼主说的是直接输入图层名即为当前层</p><p></p>
啵浪鼓
发表于 2009-10-8 12:43:00
<p>(defun c:tt (/)<br/> (if(tblsearch "layer" "圖層名")<br/> (command "layer" "on" "圖層名" "set" "圖層名" "")<br/> (PRINC " Warning!!! <圖層名 layer None>")<br/> )</p><p> (princ)</p><p>)</p>
himmel
发表于 2009-10-9 10:52:00
500w008发表于2009-10-6 16:16:00static/image/common/back.gif强悍 不过有个问题 输入图层名时候 第一个输入字母被后置了
<p></p>在“输入图层名”后面加个“:”，注意一定是半角的
luowy
发表于 2009-10-9 12:07:00
嘿嘿，这个东西，是废物！
怎么说是废物呢？输入个层名还花很多时间，若是层名短，或简单还好办，要是如“妈妈说这么长的层名你怎么输得又快又准啊？”的层名，还不累死你？？？
;;----------------------
;;将所选实体层置为当前层
;;----------------------
(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就自然会的了
客人
发表于 2009-10-9 22:08:00
<p>刚刚输入第一个字母马上就被后置了</p>
香田里浪人
发表于 2013-6-20 20:46:56
luowy 发表于 2009-10-9 12:07 static/image/common/back.gif
嘿嘿，这个东西，是废物！
怎么说是废物呢？输入个层名还花很多时间，若是层名短，或简单还好办，要是如“妈 ...
高手！确实好用。