如何改为 选择参考图元或者手动输入 来获取图层名称
各位朋友帮忙看下下面的代码如何优化，把变量p2那一行改为（选择参考图元或者手动输入图层名称）双重模式
大致意思就是说 可以让用户选择参考图元提取图层名字或者直接手动输入图层名称， 应该怎么写？
;将图元移动到指定的层
(defun c:tt(/ p1 p2)
(prompt "\n将图元移动到指定的层")
(setq P1 (ssget ))
(setq P2 (getstring "\n阁下想把它丢到哪个层？："))
(command "CHANGE"P1 "" "P" "LA" P2 "")
)
本帖最后由 ZZXXQQ 于 2016-1-3 19:25 编辑
(defun c:tt(/ p1 p2)
(prompt "\n将图元移动到指定的层")
(setq P1 (ssget))
(initget "L")
(setq p2 (entsel "\n选择图元(L=图层) "))
(if (= p2 "L")
(setq P2 (getstring "\n阁下想把它丢到哪个层？："))
(setq p2 (cdr(assoc 8 (entget(car p2)))))
)
(command "CHANGE"P1 "" "P" "LA" P2 "")
)
ZZXXQQ 发表于 2016-1-3 19:24 static/image/common/back.gif
刚才试了一下，不行， 最后我把关键字 L 改为了 S 就可以了，不知道是怎么回事 不是有命令直接干这个的吗？
页:
[1]