那位高人能帮忙把这些atuolisp程序改正一下

davidaini333 · 发表于 2009-12-7 20:52:44

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

1、编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
（defun ｃ：chamfer（／ｄａ）
（setvar“cmdecho”0）
（graphscr）
（setq d（getdist“＼ｎ Enter chamfer distance:"））
(setq ａ（getangle“＼ｎ Enter chamfer angle："））
（setvar“chamfera”ｄ）
（setvar“chamferb”( d（/sin a （cos a)）））
（Command“chamfer”）
（setvar“cmdecho”ｌ）
（princ）
)

2、编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
（defun ｃ：chamfer（／ｄａ）
（setvar“cmdecho”0）
（graphscr）
（setq d（getdist“＼ｎ Enter chamfer distance:"））
(setq ａ（getangle“＼ｎ Enter chamfer angle："））
（setvar“chamfera”ｄ）
（setvar“chamferb”( d（/sin a （cos a)）））
（Command“chamfer”）
（setvar“cmdecho”ｌ）
（princ）
)

3、编写一个AUtOLISP程序，生成一个带孔的法兰盘。程序还应提示用户输入该法兰盘的圆心、直径、孔径、孔数及起始角。
（defun c：bc1（）
（graphscr）
（setvar“cmdecho"0）
（setq cr(getpoint“\n Enter center of Bolt－Circle:")）
（setq d（getdist“\n Dia of Bolt－Circle：”））
（setq n（getint“\n Number of holes In Bolt－Circle："））
（setq a（getangle“＼n Enter start angle：”））
（setq dh（getdist“＼n Enter diameter of hole：”））
（setq inc（/（* 2 pi）n））
（setq ang 0）
（set r(/ dh 2））
（While（＜ ang（* 2 pi））
（setq P1（Polar cr(＋ a inc）(d 2）））
（command“circle” p1 r）
（setq a（＋ a inc））
（setq ang（＋ ang inc））
）
（setvar“cmdecho” l）
（Princ）
）

4、圆柱螺旋弹簧（压簧）是将一个圆沿着一条三维螺旋线拉伸得到的。通过编程绘制三维螺旋线，尺寸如下：弹簧直径：10；弹簧丝径：1；弹簧节距：2；弹簧长度：20；每圈段数：32。
(defun c:spring()
  (setq bp(getpoint"\n弹簧中心点:"))(princ)
  (setq dw(getreal"\n弹簧直径:"))(princ)
  (setq d(getreal"\n弹簧丝径:"))(princ)
  (setq pitch(getreal"\n弹簧节距:"))(princ)
  (setq len(getreal"\n弹簧中长度:"))(princ)
  (setq n(getint"\n弹簧段数:"))(princ)
  (setq r(/ (- dw d) 2))
(setq m1(fix (* n 1.25)))
  (setq m0(fix (* n (/ (- len (* d 2)) pitch))))
  (setq delta(/ (* 2.0 pi) n))
  (setq j0(/ pitch n))
  (setq j1(/ d n))
  (setq bz(caddr bp))
  (setq ang 0)
  (setq jj 0)
  (command "UCS" "o" bp)
  (command "3dpoly" (list r 0 0))
  (repeat m1
  (setq jj(+ jj 1))
  (setq ang(+ delta ang))
  (setq pt1(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
  (command pt1)
)
  (setq bz(caddr pt1))
  (setq jj 0)
(repeat m0
  (setq jj (+ jj 1))
  (setq ang(+ delta ang))
  (setq pt0(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j0 jj))))
  (command pt0)
  )
(setq bz(caddr pt0))
  (setq jj 0)
  (repeat m1
  (setq jj(+ jj 1))
  (setq ang(+ delta ang))
  (setq pt2(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
  (command pt2)
  )
  (command"")
  )

SunVei · 发表于 2009-12-7 22:34:43

此处也遇上?

once more
The first one my be some thing like this

(defun c:chamfre (/ d a)
(setvar "cmdecho" 0)
(graphscr)
(setq d (getdist "\nEnter chamfer distance: "))
(setq a(getangle "\nEnter chamfer angle："))
(setvar "chamfera" d)
(setvar "chamferb" (* d (/ (sin a) (cos a))))
(setvar "cmdecho" 1)
(Command "chamfer")
(while (= (logand (getvar "CmdActive") 1) 1) (command pause))
(setvar "cmdecho" 1)
(princ)
)

;;; =============================== test

Command: CHAMFRE

Enter chamfer distance: 3

Enter chamfer angle：30
chamfer
(TRIM mode) Current chamfer Dist1 = 3.0000, Dist2 = 1.7321
Select first line or [Polyline/Distance/Angle/Trim/Method/mUltiple]:
Select second line:
Command:

davidaini333 · 发表于 2009-12-8 21:19:14

能把后面的也改一下吗？？？？？？？
谢谢~~~~~~~~~~

davidaini333 · 发表于 2009-12-8 21:24:45

高人们帮帮忙把小生不胜感激谢谢

SunVei · 发表于 2009-12-9 08:33:33

Ref grab:
绘制法兰盘lisp
http://www.google.com/search?as_ ... ts=&safe=images

圆柱螺旋弹簧
http://www.google.com/search?hl= ... r=&aq=f&oq=

		自动登录	找回密码
密码			注册

通知

[求助] 那位高人能帮忙把这些atuolisp程序改正一下

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

回复 2# SunVei 的帖子