一个在CAD中实现G代码生成的二次开发.

前生

一个在CAD中实现G代码生成的二次开发.


借鉴高飞大侠的像素功能,界面丰富了很多.

前生

将白色过滤掉
(defun putb(ff  /       *error* dch     dcl     des     i       images
               j       x       y       R       G       B       W
               H       wStr    hStr    rStr    key     ColorObj
               DCLHead DCLList DCLTail ImageHead       IndexColor
               Version
              )  ;;读取文本文件
  (defun RGB->Index (ColorObj r g b / i)
;;;    (if (or (and (equal 0 r 10) (equal 0 g 10) (equal 0 b 10))
;;;      (and (equal 255 r 10) (equal 255 g 10) (equal 255 b 10))
;;;            )
    (if (and (equal 0 r 10) (equal 0 g 10) (equal 0 b 10))
      -15                                                        ;It should be 0,but if you have set the CAD background color,then it looks strange.
    (progn
      (vla-setRGB ColorObj r g b)
      (setq i (vla-get-ColorIndex ColorObj))
      (if (= i 7)                                             ;A little confused!
        255
        i
      )
      )
      )
    )
  (setq images (load(strcat "c:\\ourscad\\pic\\" ff ".lsp")))
  (setq ffff (open (strcat "c:\\ourscad\\pic\\" ff ".lsp") "r"))
  (setq file (open (strcat "c:\\ourscad\\pic\\" ff "12.lsp") "w"))
;;;  (setq file (open "c:/OURSCAD/hanzi.wmf" "w"))
;  (setq str (read-line f))
  (write-line (read-line ffff) file)
  (and (null Images) (exit))
;;获取CAD颜色对象，为颜色转化做准备
  (setq Version (substr (getvar 'acadver) 1 2))
  (setq Version (strcat "AutoCAD.AcCmColor." version))
  (setq ColorObj (vlax-create-object version))
  (setq i 0)
  (foreach image Images
    (foreach pt        (cdr Image)
      (setq x (car pt))
      (setq y (cadr pt))
      (setq r (nth 2 pt))
      (setq g (nth 3 pt))
      (setq b (nth 4 pt))
      (setq IndexColor (RGB->Index ColorObj r g b))
      (write-line (vl-prin1-to-string (list x y IndexColor)) file)
    )
    (end_image)
    (setq i (1+ i))
  )
  (write-line "))" file)
  (Close file)(close ffff)
  (and ColorObj (vlax-release-object ColorObj))
  (setq ffff (open (strcat "c:\\ourscad\\pic\\" ff ".lsp") "r"))
  (setq file (open (strcat "c:\\ourscad\\pic\\" ff "bak.lsp") "w"))
  (setq str (read-line ffff))
  (write-line str file)
  (while (setq str (read-line ffff))
   (write-line str file)
    )
  (close ffff)(Close file)
  
  (setq ffff (open (strcat "c:\\ourscad\\pic\\" ff ".lsp") "w"))
  (setq file (open (strcat "c:\\ourscad\\pic\\" ff "12.lsp") "r"))
  (setq str (read-line file))
  (write-line str ffff)
  (while (setq str (read-line file))
    (setq lll (strlen str))
    (cond
      ((< lll 4) (write-line str ffff))
      ((and (>= lll 4)(/= "255)" (substr str (- lll 3))))
;       ((and (>= lll 4)(/= "5)" (substr str (- lll 1))))
       (write-line str ffff))
    )
;    (write-line str ffff)
    )
  (close ffff)(Close file)
  (princ)
)










FF为文件名.xs为倍数
(defun put(ff xs /       *error* dch     dcl     des     i       images
               j       x       y       R       G       B       W
               H       wStr    hStr    rStr    key     ColorObj
               DCLHead DCLList DCLTail ImageHead       IndexColor
               IC
              )  ;;读取文本文件,xs为正整数
  (setq images (load(strcat "c:\\ourscad\\pic\\" ff ".lsp")))
  (and (null Images) (exit))
   ;;填充图像控件
  (setq i 0)
  (foreach image Images
    (foreach pt        (cdr Image)
      (setq x (car pt))
      (setq y (cadr pt))
      (setq ic (nth 2 pt))
;       (fill_image x y 1 1 ic)
;;;      (if (/= 255 ic)
      (fill_image (* xs x)(* xs y) xs xs ic)
;;;        (fill_image (* xs x)(* xs y) xs xs ic)
;;;        )
    )
    (end_image)
    (setq i (1+ i))
  )
  ;;开始对话框演示
;;;  (and (< 0 dch) (unload_dialog dch))
  (and ColorObj (vlax-release-object ColorObj))
  (princ)
)

宁静港湾

前生 发表于 2017-10-16 11:15
乱七八糟的有60M,有需要的朋友,发邮件给我.我发邮件给大家.谢谢!
这个主要是针对冲压模具CNC加工的备料程 ...

钱先生，您好，能否发一下您的CAD中二次开发做刀路生成G代码的程序，在此万分感谢，我是从事CNC锣床加工的，平时机器主要切割些木板、PVC塑胶板，比较简单，但是量非常大。
我的邮件464190200@qq.com, 我发信息到您的邮件

前生

最终界面确定。

点击。右边的键，呈绿色，中间显示相关的工作内容。







这几天，琢磨下来。CAD中自己带的slide_image
估计就是优化的vector_image以及fill_image
像带线宽的线做成的SLD文件，显示的很怪，也许
就是可以按比例放大以及缩小SLD文件所至。

【KAIXIN】

效果不错，我还是觉得幻灯片好

maxli

东西不错。。源码在哪？工具在哪啊？？？

liwen888888

没有东西呀

前生

maxli 发表于 2017-10-15 08:56
东西不错。。源码在哪？工具在哪啊？？？

你是要写图片的工具还是编程的工具?

前生

【KAIXIN】 发表于 2017-10-15 08:54
效果不错，我还是觉得幻灯片好

其实,都差不多吧.
也是这几天实在是没有事干,弄弄看看效果,以及看看显示的速度怎么样?
其实速度还好.

lifuq1979

没经币了----

前生

演示,
这个GIF的录制软件,不咋的啊/
哪位有好一点常用的.谢谢!

仲文玉

看着眼花，习惯后应该没影响

前生

仲文玉 发表于 2017-10-15 16:54
看着眼花，习惯后应该没影响

CNC加工决定了其复杂