移动复制拉伸固定距离……

清水白粥

移动固定距离（根据自己需求设置方向，也可以做延伸 改为拉伸固定距离……  修改了一些小细节
M3 移动到y轴正方向300
M-3 移动到y轴负方向300
Z1移动到固定点

zmzk

没啥技术含量，还收费，这个类似的功能，论坛里早就 有

2. (defun c:ry () ; 选择对象，平移0,-10000
   
3. (setq ss (ssget ))
   
4. (command "move" ss "" (list 0 0) (list 0 -10000))
   
5. )
   
6. 
   
7. (defun c:ryy () ; 选择对象，平移0,10000
   
8. (setq ss (ssget  ))
   
9. (command "move" ss "" (list 0 0) (list 0 10000))

(defun c:ry () ; 选择对象，平移0,-10000<br /> (setq ss (ssget ))<br /> (command "move" ss "" (list 0 0) (list 0 -10000))<br /> )<br /> <br /> (defun c:ryy () ; 选择对象，平移0,10000<br /> (setq ss (ssget  ))<br /> (command "move" ss "" (list 0 0) (list 0 10000))

czb203

用ai写的吧，~

清水白粥

czb203 发表于 2024-5-28 08:45
用ai写的吧，~

用AI写的，代码不会那么简洁的……

清水白粥