如何改为 选择参考图元或者手动输入 来获取图层名称

qinleilei

各位朋友帮忙看下下面的代码如何优化，把变量p2那一行改为（选择参考图元或者手动输入图层名称）双重模式
大致意思就是说 可以让用户选择参考图元提取图层名字  或者直接手动输入图层名称， 应该怎么写？

;将图元移动到指定的层
(defun c:tt(/ p1 p2)
   (prompt "\n将图元移动到指定的层")
   (setq P1 (ssget ))
   (setq P2 (getstring "\n阁下想把它丢到哪个层？："))
   (command "CHANGE"  P1 "" "P" "LA" P2 "")
  )

ZZXXQQ

2. (defun c:tt(/ p1 p2)
   
3. (prompt "\n将图元移动到指定的层")
   
4. (setq P1 (ssget))
   
5. (initget "L")
   
6. (setq p2 (entsel "\n选择图元(L=图层) "))
   
7. (if (= p2 "L")
   
8.   (setq P2 (getstring "\n阁下想把它丢到哪个层？："))
   
9.   (setq p2 (cdr(assoc 8 (entget(car p2)))))
   
10. )
    
11. (command "CHANGE"  P1 "" "P" "LA" P2 "")
    
12. )
    

(defun c:tt(/ p1 p2)<br /> (prompt "\n将图元移动到指定的层")<br /> (setq P1 (ssget))<br /> (initget "L")<br /> (setq p2 (entsel "\n选择图元(L=图层) "))<br /> (if (= p2 "L")<br />   (setq P2 (getstring "\n阁下想把它丢到哪个层？："))<br />   (setq p2 (cdr(assoc 8 (entget(car p2)))))<br /> )<br /> (command "CHANGE"  P1 "" "P" "LA" P2 "")<br /> )<br />

qinleilei

ZZXXQQ 发表于 2016-1-3 19:24

刚才试了一下，不行， 最后我把关键字 L 改为了 S 就可以了，不知道是怎么回事

e2002

不是有命令直接干这个的吗？