想法是需要加工的东西安装在刀柄上，做一组刀具夹放在机床工作台上。
主轴旋转。工作台移动。程序用CAD直接转出去。在做程序的时候
发现，需要设定加工平面G18.这个样子，速度以及程序才能简洁快速，
又发现，立式加工中心，和车床还是有区别的。所有圆弧需要像那样的变一下。
sutai 发表于 2015-1-25 09:35 static/image/common/back.gif
先找到圆弧及圆弧两端点，沿两端点镜像圆弧，然后再全部两次镜像。
不知道理解得对不对
这个思路对头。谢谢! (Defun c:af ()
(setq cou nil
ss2 nil
ennil
psnil
penil
pmnil
p0nil
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)
)
页:
1
[2]