at-cnc::lwpl2gcode

说明:

用法:

 (at-cnc::lwpl2gcode ent)

参数:ent

返回值:

示例:

(defun at-cnc::lwpl2gcode (ent / pts bulges route cnc-f i times rub)
  (setq times (@:get-config '@cnc::k-times))
  (setq rub nil)
  (if (= 1 (@:get-config '@cnc::chopping))
      (progn
	(write-line "M100" fp-cnc)
	(write-line (strcat "G04X"(at-cnc::n2s (@:get-config '@cnc::chopping-pause)))fp-cnc)
	))
  (while (>= times 0)
    (if (= 3 (entity:getdxf ent 62))
	(vla-offset (e2o ent)
		    (* -0.5 (+ (@:get-config '@cnc::r)
			       (* times
				  (/ (@:get-config '@cnc::k-thickness)
				     (@:get-config '@cnc::k-times))))
		       (if (curve:clockwisep ent) 1 -1)
		       )
		    )
      (vla-offset (e2o ent)
		  (* 0.5 (+ (@:get-config '@cnc::r)
			    (* times
			       (/ (@:get-config '@cnc::k-thickness)
				  (@:get-config '@cnc::k-times))))
		     (if (curve:clockwisep ent) 1 -1)
		     )
		  ))
    (setq route (entlast))
    (entity:putdxf route 8 (@:get-config '@cnc::layer-route))
    (entity:putdxf route 62 256)
    (repeat (if (> times 0) 1 (1+ (@:get-config '@cnc::rub-times)))
	    (if (= times 0)
		(if rub
		    (setq cnc-f (@:get-config '@cnc::rub-f))
		  (progn
		    (setq rub t)
		    (setq cnc-f (@:get-config '@cnc::f))))
	      (setq cnc-f (@:get-config '@cnc::f)))
	    (setq bulges(curve:pline-convexity route))
	    (setq pts (curve:get-points route))
	    ;; 马达	    ;;进刀	    (setq pt0 (mapcar '- (car pts) at-cnc::pt-base))
	    (write-line
	     (strcat "G90 G00 "
		     "X" (at-cnc::n2s (car pt0)) " "
		     "Y" (at-cnc::n2s (cadr pt0)) " ")
	     fp-cnc)
            ;; 如果原来是用U 轴铣圆的，现在换主刀	    (if pre-circle-r
		(progn
		  (write-line "M00 (pause for z spindle)" fp-cnc)
		  (setq pre-circle-r nil)))
	    (write-line (strcat "G90 G01 Z-"
				(if (and (entity:getdxf route 39)
					 (/= (entity:getdxf route 39) 0))
				    (at-cnc::n2s (abs (entity:getdxf route 39)))
				  (at-cnc::n2s (@:get-config '@cnc::thickness)))
				" F" (itoa cnc-f)" "
				)
			fp-cnc)
	    (setq pre-pt pt0)
	    (foreach pt% (cdr pts)
		     (setq pt (mapcar '- pt% at-cnc::pt-base))
		     (if (= 0 (car bulges))
			 (write-line
			  (strcat "G90 G01 "
				  "X" (at-cnc::n2s (car pt)) " "
				  "Y" (at-cnc::n2s (cadr pt)) " "
				  "Z-"           (if (and (entity:getdxf route 39)
							  (/= (entity:getdxf route 39) 0))
						     (at-cnc::n2s (abs (entity:getdxf route 39)))
						   (at-cnc::n2s (@:get-config '@cnc::thickness)))
				  "F" (itoa cnc-f)" "
				  )
			  fp-cnc)
		       (progn
			 (setq co (curve:bulge2o pre-pt pt (car bulges)))
			 (setq ij (mapcar '- co pre-pt))
			 (write-line
			  (strcat "G17 G90 G0"
				  (if (< (car bulges) 0) "2 " "3 ")
				  "X" (at-cnc::n2s (car pt)) " "
				  "Y" (at-cnc::n2s (cadr pt)) " "
				  "R" (if (> (abs (car bulges)) 1)"-" "")
				  (at-cnc::n2s (distance pre-pt co))" "
				  "Z-"				
				  (if (and (entity:getdxf route 39)
					   (/= (entity:getdxf route 39) 0))
				      (at-cnc::n2s (abs (entity:getdxf route 39)))
				    (at-cnc::n2s (@:get-config '@cnc::thickness)))
				  ;; "I" (at-cnc::n2s (car ij))" "				  ;; "J" (at-cnc::n2s (cadr ij))" "				  "F" (itoa cnc-f)" "
				  )
			  fp-cnc))
		       )
		     (setq pre-pt pt)
		     (setq bulges (cdr bulges))
		     )
	    (if (= 1 (entity:getdxf route 70))
		(if (= 0 (car bulges))
		    (write-line
		     (strcat "G90 G01 "
			     "X" (at-cnc::n2s (car pt0)) " "
			     "Y" (at-cnc::n2s (cadr pt0)) " "
			     "Z-"
			     (if (and (entity:getdxf route 39)
				      (/= (entity:getdxf route 39) 0))
				 (at-cnc::n2s (abs (entity:getdxf route 39)))
			       (at-cnc::n2s (@:get-config '@cnc::thickness)))           
			     "F" (itoa cnc-f)" "
			     )
		     fp-cnc)
		  (progn
		    (setq co (curve:bulge2o pre-pt pt0 (car bulges)))
		    (setq ij (mapcar '- co pre-pt))
		    (write-line
		     (strcat "G17 G90 G0"
			     (if (< (car bulges) 0) "2 " "3 ")
			     "X" (at-cnc::n2s (car pt0)) " "
			     "Y" (at-cnc::n2s (cadr pt0)) " "
			     "R" (if (> (abs (car bulges)) 1)"-" "")
			     (at-cnc::n2s (distance pre-pt co))" "
			     "Z-"
			     (if (and (entity:getdxf route 39)
				      (/= (entity:getdxf route 39) 0))
				 (at-cnc::n2s (abs (entity:getdxf route 39)))
			       (at-cnc::n2s (@:get-config '@cnc::thickness)))
			     ;; "I" (at-cnc::n2s (car ij))" "			     ;; "J" (at-cnc::n2s (cadr ij))" "			     "F" (itoa cnc-f)" "
			     )
		     fp-cnc))
		  )
	      
	      ;; 不闭合的曲线，需要抬起后回到起点	      (if (= 1 (@:get-config '@cnc::syntek))
		  (write-line "G90 G00 Z0.0" fp-cnc)
		(write-line "G90 G00 Z10.0" fp-cnc))
	      )
	    )
    (setq times (1- times)))
  (if (= 1 (@:get-config '@cnc::chopping))
      (write-line "M101" fp-cnc))
  ;;出刀  (if (= 1 (@:get-config '@cnc::syntek))
      (write-line "G90 G00 Z0.0" fp-cnc)
    (write-line "G90 G00 Z10.0" fp-cnc))
  )

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

at-cnc::lwpl2gcode

上传记录