移动居中于两点之间，移动命令和m2p命令怎么组合起一个lisp命令?

277283904 · 发表于 2024-1-22 14:24

xj6019 · 发表于 2024-1-22 14:38

(defun C:NM (/ midpt p1 p2 pt ss)
(defun midpt (pt1 pt2) (mapcar '(lambda (x y) (* (+ x y) 0.5)) pt1 pt2))
(setq ss(ssget))
(setq pt (getpoint "\n指定移动基点:"))
(setq p1 (getpoint "\n计算中点的第一点:")
p2 (getpoint "\n计算中点的第二点:" p1))
(command "MOVE" ss "" "non" pt "non" (midpt p1 p2));
(princ)
)

277283904 · 发表于 2024-1-22 14:41

xj6019 发表于 2024-1-22 14:38
(defun C:NM (/ midpt p1 p2 pt ss)
(defun midpt (pt1 pt2) (mapcar '(lambda (x y) (* (+ x y) 0.5)) ...

谢谢！这么复杂吗

之前有个坛友写的两点镜像比较简单
(defun c:QQ ()
   (setq ss (ssget))
   (command "osmode" 951)
   (command "mirror" ss "" "m2p" pause)
)
(princ)
能不能在这基础上修改呢

xj6019 · 发表于 2024-1-22 14:56

本帖最后由 xj6019 于 2024-1-22 14:57 编辑

(defun c:QQ (/ ss)
      (setq ss (ssget))
      (command "move" ss "" pause "m2p" pause)
      (princ)
)

mojianxing · 发表于 2024-1-22 15:49

xj6019 发表于 2024-1-22 14:56
(defun c:QQ (/ ss)
(setq ss (ssget) ...

多谢分享

简单好用

rhww · 发表于 2024-1-22 18:55

这个功能不错，感谢

xyp1964 · 发表于 2024-1-22 19:04

277283904 · 发表于 2024-1-22 21:31

xj6019 发表于 2024-1-22 14:56
(defun c:QQ (/ ss)
(setq ss (ssget) ...

谢谢！，解决我的需求

277283904 · 发表于 2024-1-22 21:35

xyp1964 发表于 2024-1-22 19:04

看上去更好用，方便提供代码吗

菜鸟初来乍到 · 发表于 2024-1-25 07:59

xj6019 发表于 2024-1-22 14:56
(defun c:QQ (/ ss)
(setq ss (ssget) ...

感谢分享，很实用

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

[基础] 移动居中于两点之间，移动命令和m2p命令怎么组合起一个lisp命令?

本帖子中包含更多资源

本帖子中包含更多资源

浏览过的版块