at-cnc::circle2gcode

说明:

用法:

 (at-cnc::circle2gcode ent)

参数:ent

返回值:

示例:

(defun at-cnc::circle2gcode (ent / pts bulges route cnc-f i times rub kthickness u)
  (setq kthickness (@:get-config '@cnc::k-thickness))
  (if (> kthickness 2.0)(setq kthickness 2.0))
  (setq times (@:get-config '@cnc::k-times))
  (setq rub nil)
  (setq pt (mapcar '- (entity:getdxf ent 10)  at-cnc::pt-base))
  ;; 定位  (write-line
   (strcat "G90 G00 "
	   "X" (at-cnc::n2s (car pt)) " "
	   "Y" (at-cnc::n2s (cadr pt)) " ")
   fp-cnc)
  ;; 开启U轴马达  ;; (if (= 1 (@:get-config '@cnc::U-axis))  ;;     (at-cnc::umotor-on (@:get-config '@cnc::umotor-speed)))  
  ;; 需重新定刀  (if (and (= 1 (@:get-config '@cnc::syntek)))
      (if (> (- (entity:getdxf ent 40)
		pre-circle-r)
	     (- 2.0 (@:get-config '@cnc::k-thickness)))
	  (progn
	    (write-line "M00 (pause for align U spindle)" fp-cnc)
	    (setq pre-circle-r (entity:getdxf ent 40)))
	))
  ;; 半径修正因子  (setq r-n (- (entity:getdxf ent 40)
	       pre-circle-r))

;; 工作面  (write-line
   (strcat "G90 G00" " Z0.0"
	   " F" (itoa (@:get-config '@cnc::rub-f))" "
	   )
   fp-cnc)
    (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)
	))
  (if (/= 1 (@:get-config '@cnc::syntek))
      (write-line (strcat "G90 G01"
			  " Z-"
			  (if (and (entity:getdxf ent 39)
				   (/= (entity:getdxf ent 39) 0))
			      (at-cnc::n2s (abs(entity:getdxf ent 39)))
			    (at-cnc::n2s (@:get-config '@cnc::thickness)))
			  " F" (itoa (@:get-config '@cnc::rub-f))" "
			  )
		  fp-cnc))
  (if (= 1 (@:get-config '@cnc::syntek))
      (progn
	(at-cnc::umotor-on (@:get-config '@cnc::umotor-speed))
	(write-line (strcat "M98P1111L"
			    (itoa (@:get-config '@cnc::k-times)))
		    fp-cnc)
	(at-cnc::umotor-off)
	)
    (while (>= times 0)
      (if(< (- (entity:getdxf ent 40) (* 0.5 (@:get-config '@cnc::r)) kthickness)
    	  0)
	(progn
    	  (@::alert "刀具直径太大。无法蹚孔。")
	  (sssetfirst nil (ssadd ent))
	  (exit)))
    (if (= 3 (entity:getdxf ent 62))
	(vla-offset (e2o ent)
		    (* -0.5 (+ (@:get-config '@cnc::r)
			       (* times
				  (/ kthickness
				     (@:get-config '@cnc::k-times))))
		       (if (curve:clockwisep ent) 1 -1)
		       )
		    )
      (progn
	;; 内径分析，刀具是否可执行	(vla-offset (e2o ent)
		    (* 0.5 (+ (@:get-config '@cnc::r)
			      (* times
				 (/ kthickness
				    (@: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)
    (setq g41 (fix(@:get-config '@cnc::cutter-compensation-left)))
    ;; U 轴    ;; 开启U轴马达    (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
			  (if (= 1 (@:get-config '@cnc::U-axis))
			      (@:get-config '@cnc::f-u)
			    (@:get-config '@cnc::f)
			    ))))
	      (setq cnc-f (@:get-config '@cnc::f)))
	    (if (= 1 (@:get-config '@cnc::U-axis))
		(progn
		  ;; R平面,U定位		  (write-line
		   (strcat "G90 G01 U"
			   (if (= 1 (@:get-config '@cnc::syntek))
			       (strcat "-" (at-cnc::n2s
					    (+ r-n
					       (* (-  (@:get-config '@cnc::k-times) times)
						  (/ kthickness (@:get-config '@cnc::k-times))))
					    ))
			     (at-cnc::n2s (entity:getdxf route 40)))
			   " F"(itoa cnc-f)
			   )
		   fp-cnc)
		  )
	      (progn ;; 无U轴		(setq pt (mapcar '- (entity:getdxf route 10)  at-cnc::pt-base))
		(setq pt-arc0 (polar pt 0 (entity:getdxf route 40)))
		(setq pt-arc1 (polar pt pi (entity:getdxf route 40)))
		(write-line (strcat "G41 D"(itoa G41)) fp-cnc)
		;;进刀		(write-line
		 (strcat "G90 G00 "
			 "X" (at-cnc::n2s (car pt-arc0)) " "
			 "Y" (at-cnc::n2s (cadr pt-arc0)) " ")
		 fp-cnc)
		(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)
		(write-line
		 (strcat "G90 G02 "
			 "X" (at-cnc::n2s (car pt-arc1)) " "
			 "Y" (at-cnc::n2s (cadr pt-arc1)) " "
			 "I-"(at-cnc::n2s (entity:getdxf route 40))
			 "F" (itoa cnc-f)" "
			 )
		 fp-cnc)
		(write-line
		 (strcat "G90 G02 "
			 "X" (at-cnc::n2s (car pt-arc0)) " "
			 "Y" (at-cnc::n2s (cadr pt-arc0)) " "
			 "I"(at-cnc::n2s (entity:getdxf route 40))
			 "F" (itoa cnc-f)" "
			 )
		 fp-cnc)
		))
	    )
    (setq times (1- times))))
  (if (= 1 (@:get-config '@cnc::syntek))
      (write-line "G90 G00 Z0.0" fp-cnc)
    (write-line "G90 G00 Z10.0" fp-cnc))
  (if (= 1 (@:get-config '@cnc::chopping))
      (write-line "M101" fp-cnc))
  (if (= 1 (@:get-config '@cnc::U-axis))
      (progn
	;; U轴回位,关电机	(write-line "G90 G00 U0.0 " fp-cnc)
	(at-cnc::umotor-off)))
  ;; 出刀  ;; (write-line "G90 G28 U0.0" fp-cnc)  )

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

at-cnc::circle2gcode

上传记录