初学各位大佬赐教，动态拉伸命令改良

ycpyxl

各位大佬，用LISP改良了LENGTHEN 命令，代码如下：


(defun c:Y()
  (setq aa(ssget) )
  (command "LENGTHEN" "DY" aa "")
  (prin1)
  )


加载后，输入命令Y，回车一下，选取对象，再回车一下才能拉伸对象


想减少一个步骤：就是输入命令Y后，回车一下，选取对象就可以直接拉伸对象，这个代码怎么写

ssyfeng

(defun c:Y()
  (command "LENGTHEN" "DY")
  (princ)
)

ycpyxl

ssyfeng 发表于 2024-7-3 08:58
(defun c:Y()
  (command "LENGTHEN" "DY")
  (princ)

谢谢大佬