刀具模拟探讨

夏天

这是一个滚刀模拟软件，是从CAD论坛上来的!请熟悉的给予帮助，看看如何实现模拟过程？特别是如何选择切割图？请版主多多指教？！

hms1001

你的档案在我PC上解压缩后出现一些像似中文的怪字(我不知这是我PC的问题还是该档案的问题)，因此无法针对该档案给你做详细说明。
至于用lisp语言在AutoCad仿真刀具切削，大致上先画出刀具线条组，然后将刀具沿着节圆直径滚动即可。说起来的确简单，做起来可能复杂，许多齿轮设计初学者多会去尝试，而每个人的绘制过程也可能有很大的差异。你所附的档案，看起来也像是初步阶段。
由于无法了解其内文的中文字真义，也就不能实际试用看看，不便再更深入评论。

顺便把该档案解压后附上，谁能帮我更正那些中文怪码。

(defun c:gc()
      (setvar "cmdecho" 0)
      (setq en (entsel "恁喘階埴:"))
      (setq dxzb(cadr en))
      (setq en1 (entsel "n恁賃芞:"))
      (setq pts(car en))
      (setq yx (osnap dxzb "cen"))
      (setq pts1(car en1))
      (setq kbjd (getpoint "n恁蕭探腔價萸:"))
      (setq fdybj (getreal "n怀喘謫煦埴圉噤:"))
      (setq zxzjd (getreal "n怀軞埴唅蛌褒僅:"))
      (setq xzjd (getreal "n怀藩珨祭埴唅蛌褒僅:"))
      (setq kbjl (* (/ (* xzjd 3.14159) 180) fdybj))
      (setq zxhcs (fix (/ zxzjd xzjd)))
     (setq xhcs 1)
   (while (<= xhcs zxhcs)
      (setq kbzd (polar kbjd 0 kbjl))
      (command "copy" pts1 "" kbjd kbzd)
      (setq pts2 (entlast))
      (command "subtract" pts "" pts1 "")
      (command "rotate" pts "" yx xzjd)
      (setq pts1 pts2)
      (setq xhcs (1+ xhcs))  
   )
    (prin1)
)
    (prompt "*************** << C:gc >> 妏蚚&#63325;參喘階埴睿絮汜傖郖奀猁煦梗恁&#63467;,汜傖絮撿睿喘階埴腔郖綴ㄛ樓婥MLGC.lsp最唗怀&#63541;韜鍔gc偌枑尨輛俴撈褫*****************")

per-shaving

改正怪码后的程序如下：
(defun c:gc()

      (setvar "cmdecho" 0)

      (setq en (entsel "请选齿顶圆:"))

      (setq dxzb(cadr en))

      (setq en1 (entsel "\n请选切割图:"))

      (setq pts(car en))

      (setq yx (osnap dxzb "cen"))

      (setq pts1(car en1))

      (setq kbjd (getpoint "\n请选拷贝的基点:"))

      (setq fdybj (getreal "\n请输入齿轮分圆半径:"))

      (setq zxzjd (getreal "\n请输入总圆旋转角度:"))

      (setq xzjd (getreal "\n请输入每一步圆旋转角度:"))
   
      (setq kbjl (* (/ (* xzjd 3.14159) 180) fdybj))

      (setq zxhcs (fix (/ zxzjd xzjd)))

     (setq xhcs 1)

   (while (<= xhcs zxhcs)

      (setq kbzd (polar kbjd 0 kbjl))

      (command "copy" pts1 "" kbjd kbzd)

      (setq pts2 (entlast))

      (command "subtract" pts "" pts1 "")

      (command "rotate" pts "" yx xzjd)

      (setq pts1 pts2)

      (setq xhcs (1+ xhcs))  
   )

    (prin1)

)

    (prompt "*************** << C:gc >> 使用前把齿顶圆和刀生成域时要分别选取,生成刀具和齿顶圆的域后，加载MLGC.lsp程序输入命令gc按提示进行即可*****************")

    (prin1)

夏天

请问：(setq kbjd (getpoint "\n请选拷贝的基点:"))

      (setq fdybj (getreal "\n请输入齿轮分圆半径:"))

      (setq zxzjd (getreal "\n请输入总圆旋转角度:"))

      (setq xzjd (getreal "\n请输入每一步圆旋转角度:"))
   
如何操作？我的结果与版主的不一致的！
这是原版：http://www.jxcad.com.cn/read.php?tid=712891请指教！

per-shaving

观察一个包络软件：
见附件

hangming

学习了！谢谢楼主

yzvm

:L第一个软件  用么这东东打开啊

djlcp2000

第二个软件是否发给我一份：DJLCP2000@SINA.COM

小李锈刀

其实第一个软件是个好东东，我以前用过，模拟精度高0。0001
用CAD 打开啊，注意面域

lfsqwer

回复 hangming 的帖子


    不错，不错，有不有修缘插齿刀的模具？