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

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

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

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

(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:22

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)) ...

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

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

本帖最后由 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:16

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

多谢分享{:1_1:}简单好用

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

这个功能不错，感谢

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


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

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

谢谢！，解决我的需求

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

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


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

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

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

感谢分享，很实用
页: [1] 2
查看完整版本: 移动居中于两点之间，移动命令和m2p命令怎么组合起一个lisp命令?