请看贴图以及附件。

前生

这个东西，是想在立式加工中心上，完成数控车床的加工。
想法是需要加工的东西安装在刀柄上，做一组刀具夹放在机床工作台上。
主轴旋转。工作台移动。程序用CAD直接转出去。在做程序的时候
发现，需要设定加工平面G18.这个样子，速度以及程序才能简洁快速，
又发现，立式加工中心，和车床还是有区别的。所有圆弧需要像那样的变一下。

前生

sutai 发表于 2015-1-25 09:35
先找到圆弧及圆弧两端点，沿两端点镜像圆弧，然后再全部两次镜像。
不知道理解得对不对

这个思路对头。谢谢!

前生

(Defun c:af ()
  (setq        cou nil
        ss2 nil
        en  nil
        ps  nil
        pe  nil
        pm  nil
        p0  nil
        p01 nil
  )
  (setvar
    "MODEMACRO"
    "....圆弧镜像功能....< 奥 沃 精 模 工 具...OursCAD@21cn.com..-前生作品....>"
  )
  (SETQ COU 0)
  (setq ss2 (ssget (list (cons 0 "ARC"))))
  (IF SS2
    (PROGN
      (while (< cou (sslength ss2))
        (setq EN  (ssname ss2 COU)
              COU (+ 1 COU)
        )
        (SETQ PS (vlax-curve-getstartpoint (VLAX-Ename->VLA-Object EN)))
        (SETQ PE (vlax-curve-getendpoint (VLAX-Ename->VLA-Object en)))
        (SETQ PM (LIST (* 0.5 (+ (NTH 0 PS) (NTH 0 PE)))
                       (* 0.5 (+ (NTH 1 PS) (NTH 1 PE)))
                       0
                 )
        )
        (SETQ P0 (CDR (ASSOC 10 (ENTGET EN))))
        (setq p01 (polar pm (angle p0 pm) (distance p0 pm)))
        (ENTMAKE (list
                   (Cons 0 "ARC")
                   (Cons 8 "W")
                   (CONS 10 P01)
                   (assoc 40 (entget en))
                   (cONS 50 (angle p01 pe))
                   (cONS 51 (angle p01 ps))
                   (cons 62 1)
                 )
        )

      )
    )
  )
  (princ
    " ..**< 奥 沃 精 模 工 具...OursCAD@21cn.com..-前生作品**....>"
  )
  (prompt " cnc-drill-mill   ^^")
  (princ)
)