社区 › AutoLISP/Visual LISP 编程技术 › 初学各位大佬赐教，动态拉伸命令改良

ycpyxl 发表于 2024-7-3 08:34:26

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

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


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


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


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

ssyfeng 发表于 2024-7-3 08:58:07

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

ycpyxl 发表于 2024-7-3 10:23:57

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


谢谢大佬:lol

查看完整版本: 初学各位大佬赐教，动态拉伸命令改良