[LISP程序]：关于螺栓螺母的LISP源程序

cloct

最初由 liuxg2005 发布
[B]不错。
以前画此图时，只能一条线一条线地画，现在有了楼主的程序后不用再这么痛苦了。谢谢 [/B]

我连一条线一条线都不会啊，就要考试了，书上居然没有说怎么画的。

主要是不会命令，例题里其他都能看懂，就是最后画的时候不太明白。

alvin1983

请教楼主为什么我用这个画出来的全是2维的？？？该如何出3维纳 ？？？

gyc2001

2006不给用，

yxianfo

最初由 gyc2001 发布
[B]2006不给用， [/B]

CAD2005/2006均能用,只是经试用后发现，用TD.LSP作图后，图形径向小了，径向均少了一个b0的值，外径应是b0+d1+b0的和,而现在只有b0+d1的和，我不会lisp,不知在程序中怎样加入此b0值。

输入比例系数能默认设置为“1”；输入旋转角度能默认设置为“0”就更好。

fxgyly

楼主能否做成,半螺栓的带扣部分与光杆部分长度和直径单独输入?

ynjzlzd

zramble楼主你好,程序无法下载,麻烦你传给我好吗,邮箱是
   ynjzlzd@163.com

yxianfo

最初由 yxianfo 发布
[B]CAD2005/2006均能用,只是经试用后发现，用TD.LSP作图后，图形径向小了，径向均少了一个b0的值，外径应是b0+d1+b0的和,而现在只有b0+d1的和，我不会... [/B]

试着改了一下，改好了。改法为：

在原程序的下面4句中的字母d后面分别加上空格和字母b,其他不变。
(setq p1(list (- 0 (/ (+ b d) 2)) 0))
  (setq p2(list (/ (+ b d) 2) 0))
  (command "ucs" "o" o)
  (command "ucs" "z" ang)
  (command "line" p1 p2 "")
  (setq p3(list (- 0 (/ (+ b d) 2)) b))
  (setq p4(list (/ (+ b d) 2) b))

改后如下形式即可

(setq p1(list (- 0 (/ (+ b d b) 2)) 0))
  (setq p2(list (/ (+ b d b) 2) 0))
  (command "ucs" "o" o)
  (command "ucs" "z" ang)
  (command "line" p1 p2 "")
  (setq p3(list (- 0 (/ (+ b d b) 2)) b))
  (setq p4(list (/ (+ b d b) 2) b))

mgame168

感覺不錯的lisp 向各位先進學習中