本帖最后由 ZZXXQQ 于 2018-3-8 13:14 编辑
又改了，再试试。
;;;功能: 铣斜槽
;;;编程: ZZXXQQ
;;;时间: 2008-07-01,2008-07-18
(defun c:xxc ()
(setq ppl (list) txtl (list) k 1)
(while (and
(setq tools (getint (strcat "\n刀具号 <" (if (numberp tool) (itoa tool) "1") "> :"))
tool (if tools tools tool)
tool (if tool tool 1))
(setq d1 (getdist (strcat "\n刀具直径 <" (if (numberp d) (rtos d 2 3) "6") "> :"))
d (if d1 d1 d)
d (if d d 6))
(setq pt2 (getpoint "\n选取进刀点 :"))
(setq pt3 (getpoint "\n选取出刀点 :")))
(setq ppl (cons (strcat "M06 T" (itoa tool) "(D=" (rtos d 2 3) ");\n") ppl)
txtl (cons (strcat "N" (itoa k) "=T" (itoa tool) "(D=%%c" (rtos d 2 2) ")") txtl)
ppl (cons "M08;\n" ppl)
ppl (cons "G80 G90 G54 F80;\n" ppl)
ppl (cons (strcat "G00 X0.0 Y0.0 MO3 S" (rtos (/ 10800 d) 2 3) ";\n") ppl)
ppl (cons "G43 H52 Z5.0;\n" ppl)
ppl (cons "G01 F1500 Z5.0;\n" ppl)
ppl (cons (strcat "N" (itoa k) ";\n") ppl)
ppl (cons (strcat "G00 X" (rtos (car pt2) 2 3) " Y" (rtos (cadr pt2) 2 3) ";\n") ppl)
ppl (cons "G01 Z0.0 F1000;\n" ppl)
ppl (cons (strcat "X" (rtos (car pt2) 2 3) " Y" (rtos (cadr pt2) 2 3) " F200;\n") ppl)
ppl (cons (strcat "X" (rtos (car pt3) 2 3) " Y" (rtos (cadr pt3) 2 3) " Z-15.0;\n") ppl)
ppl (cons "G00 Z5.0;\n" ppl)
ppl (cons "M01;\n" ppl)
k (1+ k))
(if (> (cdr(assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE")))) 0)
(command ".text" pt3 "" "" (strcat "N" (itoa (1- k))))
(command ".text" pt3 "" "" (strcat "N" (itoa (1- k))))
)
)
(setq ppl (reverse ppl) txtl (reverse txtl))
(setq nm (if nm nm ""))
(if (setq nm (getfiled "Select File Name 选择文件名" nm "nc" 9)) (progn
(setq i (strlen nm))
(while (/= (setq tmptx (substr nm i 1)) "\\") (setq i (1- i)))
(setq txtl (cons (strcat "斜边加工程式文件名：" (substr nm (1+ i))) txtl))
(setq fp (open nm "w"))
(princ "%;\n" fp)
(princ (strcat "(" (substr nm (1+ i)) ");\n") fp)
(setq i 0)
(repeat (length ppl)
(princ (nth i ppl) fp)
(setq i (1+ i))
)
(princ "G49 Z5.0;\n" fp)
(princ "G28 X0.0 Y0.0;\n" fp)
(princ "M30;\n" fp)
(princ "%;\n" fp)
(close fp)
(setq i 1)
(if (setq pt (getpoint "\nText Insert Point 文字插入点:")) (progn
(if (> (cdr(assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE")))) 0)
(command ".text" pt "" (car txtl))
(command ".text" pt "" "" (car txtl))
)
(repeat (1- (length txtl))
(command ".text" "" (nth i txtl))
(setq i (1+ i))
)
))
(startapp "notepad" nm)
))
(princ)
)
<p>我用的也是2004,英文版的.还是不行啊,我执行命令成下面这样的,程式是可以转了出来,但图上还是没有N1、N2....说明文字也没有“斜边加工程式文件名：1.NC"</p><p>Command: XXC<br/>刀具号 <3> :1<br/>刀具直径 <10> :6<br/>选取进刀点 :end of<br/>选取出刀点 :end of .text<br/>Current text style: "Standard" Text height: 2.5000<br/>Specify start point of text or :<br/>Specify rotation angle of text <0>:<br/>Enter text:<br/>Command: XXC Unknown command "XXC". Press F1 for help.</p><p>Command: N2 Unknown command "N2". Press F1 for help.</p><p>Command:<br/>刀具号 <1> :2<br/>刀具直径 <6> :8<br/>选取进刀点 :end of<br/>选取出刀点 :end of .text<br/>Current text style: "Standard" Text height: 2.5000<br/>Specify start point of text or :<br/>Specify rotation angle of text <0>:<br/>Enter text:<br/>Command: XXC Unknown command "XXC". Press F1 for help.</p><p>Command: N3 Unknown command "N3". Press F1 for help.</p><p>Command:<br/>刀具号 <2> :<br/>刀具直径 <8> :<br/>选取进刀点 :<br/>Text Insert Point 文字插入点:.text<br/>Current text style: "Standard" Text height: 2.5000<br/>Specify start point of text or :<br/>Specify rotation angle of text <0>:<br/>Enter text:<br/>Command: 斜边加工程式文件名：1.nc Unknown command "斜边加工程式文件名：1.NC". <br/>Press F1 for help.</p>
原来是设置了文字高度。21楼已改，再试试。
为什么在图上标示是由N2开始的呢? 程式N1、N2。。的在图上标示是N2、N3。。。
21楼又改了，再试试。
谢谢ZZXXQQ.OK了
谢谢