尺寸延伸线对齐

alexmai · 发表于 2022-3-27 02:37:52

一直想找类似功能，自编了一个，效果不佳

;;;尺寸X轴拉伸
(defun c:s1 ( / p1 p2)
  (setq ss (ssget (list '(0 . "DIMENSION"))))
  (setq p1 (getpoint"\n基点:"))
  (setq p2 (getpoint"\n拉伸点:"))
  (setq p2 (list (car p2) (cadr p1) (caddr p2)))
  (command "STRETCH" ss "" p1 p2)
  (princ)
)

;;;尺寸Y轴拉伸
(defun c:s2 ( / p1 p2)
  (setq ss (ssget (list '(0 . "DIMENSION"))))
  (setq p1 (getpoint"\n基点:"))
  (setq p2 (getpoint"\n拉伸点:"))
  (setq p2 (list (car p1) (cadr p2) (car p1)))
  (command "STRETCH" ss "" p1 p2)
  (princ)
)

目的
1. 点选 / 窗选尺寸延伸线（能自动识别尺寸延伸线的方向）
2. 点选PT3后 (自动对齐选中的延伸线- 与PT3 "X" 或者 “Y” 轴同一线上)

xyp1964 · 发表于 2022-3-27 14:57:20

本帖最后由 xyp1964 于 2022-3-27 14:59 编辑

需要e派工具箱的支持

alexmai · 发表于 2022-3-28 12:52:04

xyp1964 发表于 2022-3-27 14:57
需要e派工具箱的支持

谢谢版主帮忙，距离我想要还有些差距，两排尺寸基线是会同时移动的

账号		自动登录	找回密码
密码			注册

[源码] 尺寸延伸线对齐

本帖子中包含更多资源