at-cnc::gen-gcode

说明:

用法:

 (at-cnc::gen-gcode)

参数:

返回值:

示例:

(defun at-cnc::gen-gcode (/ *error* curves fp-cnc filename nc-dir pre-circle-r)
  (defun *error* (msg)
    (if (= 'file (type fp-cnc))(close fp-cnc))
    (@::*error* msg))
  (setq at-cnc::units (round (/ (log (/ 1.0 (@:get-config '@cnc::units)))(log 10))))
  (if (null (member (@:get-config '@cnc::layer-route)(layer:list)))
      (layer:make (@:get-config '@cnc::layer-route) 2 nil nil))
  (at-cnc::remove-route)
  (setq curves (pickset:to-list (ssget '((0 . "lwpolyline,circle")))))
  ;; 按先圆后曲排序，且圆按半径从小到大排序  (setq curves (vl-sort curves '(lambda(x y)
				  (cond
				   ((and (= "CIRCLE" (entity:getdxf x 0))
					 (= "LWPOLYLINE" (entity:getdxf y 0)))
				    t)
				   ((and (= "CIRCLE" (entity:getdxf x 0))
					 (= "CIRCLE" (entity:getdxf y 0))
					 (< (entity:getdxf x 40)
					    (entity:getdxf y 40)))
				    t)
				   ((and (= "LWPOLYLINE" (entity:getdxf x 0))
					 (= "LWPOLYLINE" (entity:getdxf y 0)))
				    t)
				   ))))
  (if (= "CIRCLE"  (entity:getdxf (car curves) 0))
      (progn
	(if (= 1 (@:get-config '@cnc::syntek))
	    (@::alert "采用调用子程序P1111的方式进刀，该方式的扩孔厚度与进刀次数有关，CAD设置中的扩孔厚度设置值无效。"))
	(setq pre-circle-r (entity:getdxf (car curves) 40))))
  (setq at-cnc::pt-base (append (car (pickset:getbox curves (+ 5 (@:get-config '@cnc::r)))) (list 0)))
  (if (member (ascii":")(vl-string->list (@:get-config '@cnc::nc-files)))
      (@::mkdir (@::path (@::get-config '@cnc::nc-files)))
    (@::mkdir (@::path (strcat (getenv "userprofile")"\\"(@:get-config '@cnc::nc-files)))))
  (setq nc-dir
	(vl-string-trim
	 "\\/"
	 (if (member (ascii":")(vl-string->list (@:get-config '@cnc::nc-files)))
	     (@:get-config '@cnc::nc-files)
	   (strcat (getenv "userprofile")"\\"(@:get-config '@cnc::nc-files)))))
  (setq filename (strcat  nc-dir "\\@cnc_"(datetime:current-time "yyyymodd-hhmmss")".nc"))
  (setq fp-cnc
	(open filename "w"))

;; 初始化  (if (= 1 (@:get-config '@cnc::init))
	 (write-line "G71G94G80G90G40G49G50G69" fp-cnc))
  
  ;; 开启主轴马达  (at-cnc::motor-on (@:get-config '@cnc::motor-speed))
  ;; (if (= 1 (@:get-config '@cnc::U-axis))  ;;     (progn  ;; 	;; U轴回位  ;; 	(write-line "G90 G00 U0.0 " fp-cnc)  ;; 	))  ;; 抬起，开冷却  (if (= 1 (@:get-config '@cnc::syntek))
      (write-line "G90 G00 Z0.0" fp-cnc)
    (write-line "G90 G00 Z30.0" fp-cnc))
  (write-line "M8" fp-cnc)
  (foreach curve curves
	   (cond
	    ((= "LWPOLYLINE" (entity:getdxf curve 0))
	     (at-cnc::lwpl2gcode curve))
	    ((= "CIRCLE" (entity:getdxf curve 0))
             (at-cnc::circle2gcode curve)
	     )
	    )
	   )
  ;; 归零  (at-cnc::motor-off)
  ;; 关冷却  (write-line "M9" fp-cnc)
  (if (= 1 (@:get-config '@cnc::to-origin))
      (if (= 1 (@:get-config '@cnc::syntek))
	  (write-line "G90 G00 X0.0 Y0.0 Z0.0" fp-cnc)
	(write-line "G90 G00 X0.0 Y0.0 Z30.0" fp-cnc)
	))
  (write-line "M30" fp-cnc)
  
  (close fp-cnc)
  (if (findfile (strcat (getenv "userprofile")"\\"(@:get-config '@cnc::nc-files)
			"\\@cnc.nc"))
      (vl-file-delete
       (strcat (getenv "userprofile")"\\"(@:get-config '@cnc::nc-files)
			"\\@cnc.nc")))
  (vl-file-copy filename
		(strcat (getenv "userprofile")"\\"(@:get-config '@cnc::nc-files)
			"\\@cnc.nc"))
  (@:prompt "生成G代码文件 @cnc.nc")
  (princ)
  )

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

at-cnc::gen-gcode

上传记录