[求助]LSP能不能实现选物改层名（已解决）

QUAN2518

()问题一

          LSP能不能实现选物改层名

问题二:

           DCL能不能想系统安装那样实现一个框输入4~6个字符自动换到下个框内.....就是写个注册的对话框

问题三: 你们都用什么程序做的幻灯片 我用CAD自带的MSLIDE命令照出来好难调.

感谢以下2为给出的回答

AMTONNY

看看是不是你想要的

;对象到图层

(defun c:ccc(/ a)
    (setq a (ssget))
    (command "copy" a "" "0,0" "0,0")
    (command "change" a "" "p" "la" "DM" "")
    (command "copy" a "" "0,0" "0,0")
    (command "change" a "" "p" "la" "DX" "")
    (command "copy" a "" "0,0" "0,0")
    (command "change" a "" "p" "la" "UU" "")
    (command "copy" a "" "0,0" "0,0")
    (command "change" a "" "p" "la" "Uz" "")
    (command "copy" a "" "0,0" "0,0")
    (command "change" a "" "p" "la" "US" "")
    (prompt "\n复制对象到 DM DX UU UZ US图层:") (princ))

(DEFUN c:CYY()
      (setq a (ssget))
      (setq b (getstring "\n 请输入层名:"))
      (command "chprop" a "" "la" b"")
    (prompt "\n移动对象到指定图层:") (princ))
(DEFUN c:CCY()
      (setq a (ssget))
      (setq b (getstring "\n 请输入层名:"))
      (command "_copy" a "" "@" "@")
      (command "chprop" a "" "la" b"")
    (prompt "\n复制对象到指定图层:") (princ))
;;;********----------------------***********

brainstorm

(defun c:test (/ old_name en new_name endata)
  (setq old_name (cdr (assoc 8 (entget (car (entsel "\n请选择:"))))))
  (setq new_name (getstring "\n输入新的图层名称:"))
  (setq endata (entget (tblobjname "layer" old_name)))
  (setq endata (subst (cons 2 new_name) (assoc 2 endata) endata))
  (entmod endata)
  (princ (strcat "\n图名改为" new_name))
  (princ)
)