[分享]：大家看看原码啊 我不懂

玩世伤心

你会编程吗?

我这有个是LISP的程序原码你看一下吧

我也不会编
看不懂

如果你会编应该看的懂(是螺纹的)说是明一下用记事本保存为LSP文件就可以用了
挂上后输入 luowen
(呵  我就看懂这个)原理很简单是模拟切削加工的

(defun c:luowen()
  (setq d(getreal "螺纹外径="))
  (setq r(/ d 2))                               ;螺纹半径
  (setq tt(getreal "螺距="))                    ;螺距
  (setq l(getreal "长度="))                     ;螺纹度
  (setq p0(getpoint "指定基点"))
  (setq p01(list (nth 0 p0) (nth 1 p0) (- l (/ tt 1.155))))
  (setq p02(list (nth 0 p0) (nth 1 p0) l))
  (command "layer" "m" "l1" "c" 1 "" "")
  (command "layer" "m" "l2" "c" 2 "" "")
  (command "layer" "m" "l3" "c" 252 "" "")
  (command "layer" "s" "l1" "")
  (command "cylinder" p0 r l)                   ;创建圆柱
  (command "ucs" "o" p0)
  (setq e0(entlast))
  (setq r0(- 0 r))
  (setq t0(/ tt 2))
  (setq pr(* pi r))
  (setq pr0(- 0 (* pi r)))
  (setq pt1(list pr r0 (+ l t0)))
  (command "ucs" "o" pt1)
  (command "ucs" "y" -90)
  (setq p1(list 0 0))
  (setq p2(list tt 0))
  (setq p3(list (- 0 tt) 0 (* pi d)))
  (command "layer" "s" "l3" "")
  (command "line" p1 p3 "")
  (setq e2(entlast))
  (command "polygon" 3 "e" p1 p2)             ;绘制正三边形
  (setq e1(entlast))
  (command "ucs" "w")
  (command "extrude" e1 "" "P" e2 "")         ;拉伸三棱柱
  (setq e3(entlast))
  (command "erase" e2 "")
  (setq n 30)
  (setq i 0)
  (setq zl(/ tt n))
  (setq zj(/ 360 n))
  (setq yd 0)
  (while (< yd l)                            ;循环切制螺纹
    (setq i(+ i 1))
    (setq yd(* i zl))
    (setq p1(list 0 0 l))
    (setq p2(list 0 0 (- l yd)))
    (command "copy" e3 "" p1 p2)             ;复制三棱柱（轴向移动）
    (setq e4(entlast))
    (command "change" e4 "" "p" "la" "l2" "")
    (command "subtract" e0 "" e4 "")         ;求差，切割圆柱
    (command "rotate" e0 "" p0 zj)           ;旋转圆柱
  )
  (command "erase" e3 "")
  (command "cylinder" p01 r r)               ;切割倒角
  (setq e1(entlast))
  (command "cone" p01 r r)
  (setq e2(entlast))
  (command "subtract" e1 "" e2 "")
  (command "subtract" e0 "" e1 "")
  (command "line" p0 p02 "")
)

yjig

1楼的，此贴应在LISP专栏里，才有解答。一两句也说不明白，有专门的LISP程序书籍。