如何实现：x、y 方 向 拉 伸（支持先选择后执行命令）

fengyu6913

如何实现：x、y  方 向  拉 伸 （支持先选择后执行命令）


样图请见附件

（小白一枚，搞半天没达到效果）

hubeiwdlue

2. ;x方向拉伸
   
3. (defun c:tt()
   
4.         (setq ss (ssget))
   
5.         (setq pt (getpoint "\n选择基点"))
   
6.         (setq p1 (getpoint "\n选择终点"))
   
7.         (setq p2 (list (car p1) (cadr pt)))
   
8.         (command ".STRETCH" ss "" "non" pt "non" p2)
   
9. )
   
10. ;y方向拉伸
    
11. (defun c:ee()
    
12.         (setq ss (ssget))
    
13.         (setq pt (getpoint "\n选择基点"))
    
14.         (setq p1 (getpoint "\n选择终点"))
    
15.         (setq p2 (list (car pt) (cadr p1)))
    
16.         (command ".STRETCH" ss "" "non" pt "non" p2)
    
17. )

;x方向拉伸<br /> (defun c:tt()<br />         (setq ss (ssget))<br />         (setq pt (getpoint "\n选择基点"))<br />         (setq p1 (getpoint "\n选择终点"))<br />         (setq p2 (list (car p1) (cadr pt)))<br />         (command ".STRETCH" ss "" "non" pt "non" p2)<br /> )<br /> ;y方向拉伸<br /> (defun c:ee()<br />         (setq ss (ssget))<br />         (setq pt (getpoint "\n选择基点"))<br />         (setq p1 (getpoint "\n选择终点"))<br />         (setq p2 (list (car pt) (cadr p1)))<br />         (command ".STRETCH" ss "" "non" pt "non" p2)<br /> )

ssyfeng

就用CAD命令就可以，stretch命令

fengyu6913

ssyfeng 发表于 2024-6-28 08:28
就用CAD命令就可以，stretch命令

使用频率高，想省去.x .y 后面的步骤

fengyu6913

hubeiwdlue 发表于 2024-6-27 17:11

完美，谢谢大佬帮助解决