镜像的M2P命令怎么写

277283904 · 发表于 2024-1-3 13:48:29

(defun c:QQ ()(command"MIRROR""M2P"))

貌似这段代码不对！

xyp1964 · 发表于 2024-1-4 01:09:20

(defun c:tt ()
(if (and (setq ss (ssget))
(setq s1 (car (entsel "\n选择竖线1: ")))
(setq s2 (car (entsel "\n选择竖线2: ")))
)
(progn
(setq p1 (vlax-curve-getStartPoint s1)
p2 (vlax-curve-getStartPoint s2)
p3 (mapcar '(lambda (x y) (* (+ x y) 0.5)) p1 p2)
p4 (polar p3 (* pi 0.5) 10)
)
(command "_mirror" ss "" p3 p4 "")
)
)
(princ)
)

zxp2007 · 发表于 2024-1-3 17:01:04

(defun c:f1 ( / a b line1 line2 ps1 ps2 pt1 pt2 ss)
(vl-load-com)
(princ "\n 选取两直线定中点")
(setq ss (ssget '((0 . "*line"))))
;“,” 逻辑或，对象类型可多选，名称用 “,” 分
  ;隔。例如，创建直线和文本的选择集,框选对象后，将只有文本被选中（亮显）并加入选择集。
  (setq line1  (ssname ss 0));获取直线1的图元信息
  (setq line2  (ssname ss 1))

      (setq PS1  (HH:PtLists line1))
      (setq PS2  (HH:PtLists line2))
      (if (AND (= (CAR (car PS1)) (CAR(caDr PS1))) (= (CAR (car PS2)) (CAR(caDr PS2)))  )
      (progn (setq Pt1 (car (vl-sort PS1 '(lambda(a b) (< (cadr a) (cadr b))))))
      (setq Pt2 (car (vl-sort PS2 '(lambda(a b) (< (cadr a) (cadr b))))))
      (setq Pt3 (MAPCAR '(lambda (X Y) (* (+ X Y) 0.5)) pt1 pt2))
   (print)
(princ "\n 选取要镜像的图元")
(setq ss (ssget ))
      (command "mirror" ss "" pt3 (polar pt3 (* 0.5 pi)  10) "n"))
(alert "选取的两直线不是平行线！")

)
      (print)
      )
(defun HH:PtLists (en)
      (list
      (vlax-curve-getstartpoint (vlax-ename->vla-object en))
      (vlax-curve-getendpoint (vlax-ename->vla-object en))
  )
)
(print)

有个差不多论坛上的源码    感谢源作者吧！

liuhe · 发表于 2024-1-3 14:06:23

你都编程了，为啥还要用它的中心点
(defun LH:MID (po1 po2)
(MAPCAR '(lambda (X Y) (* (+ X Y) 0.5)) po1 po2)
)

自贡黄明儒 · 发表于 2024-1-3 14:58:03

(command-s "_mirror" (ssget "_+.:E:S") "" "M2P" pause)

277283904 · 发表于 2024-1-3 15:29:45

自贡黄明儒发表于 2024-1-3 14:58
(command-s "_mirror" (ssget "_+.:E:S") "" "M2P" pause)

(defun c:QQ()(command-s "_mirror" (ssget "_+.:E:S") "" "M2P" pause))
是这样运行吗老大，但是运行不了
我是想直接点两根竖线得出中线镜像，就是免除了要输入M2P的意思

你有种再说一遍 · 发表于 2024-1-3 15:30:53

你是不是不知道论坛可以搜索

277283904 · 发表于 2024-1-3 15:46:36

你有种再说一遍发表于 2024-1-3 15:30
你是不是不知道论坛可以搜索

我搜了，没有我想要的代码

自贡黄明儒 · 发表于 2024-1-3 16:14:30

277283904 发表于 2024-1-3 15:29
(defun c:QQ()(command-s "_mirror" (ssget "_+.:E:S") "" "M2P" pause))
是这样运行吗老大，但是运行不 ...

1 你首先要选择两根线，计算出中线，取上两个点p1 p2。2 选择镜向物SS 3最后一步执行 (command "mirror" ss "" p1 p2 pause)

277283904 · 发表于 2024-1-3 16:20:42

自贡黄明儒发表于 2024-1-3 16:14
1 你首先要选择两根线，计算出中线，取上两个点p1 p2。2 选择镜向物SS 3最后一步执行 (command "mirror" ...

怎么感觉比输入M2P还要麻烦呢

277283904 · 发表于 2024-1-3 17:18:21

我是想按1个键直达M2P的命令，不想又按镜像命令后，还要按M2P命令，各位大佬有办法吗？

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

[基础] 镜像的M2P命令怎么写

本帖子中包含更多资源

点评

本帖子中包含更多资源