fengyu6913 发表于 2024-6-27 17:11:24

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

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


样图请见附件

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

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

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

ssyfeng 发表于 2024-6-28 08:28:18

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

fengyu6913 发表于 2024-6-28 09:00:05

ssyfeng 发表于 2024-6-28 08:28
就用CAD命令就可以，stretch命令
使用频率高，想省去.x .y 后面的步骤

fengyu6913 发表于 2024-6-28 11:05:42

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


完美，谢谢大佬帮助解决
页: [1]
查看完整版本: 如何实现：x、y 方 向 拉 伸（支持先选择后执行命令）