在AutoCAD中怎样画“阿基米德螺旋线”? 赏分400分
发布网友
发布时间：2022-04-25 03:43
共4个回答
热心网友
时间：2023-10-23 21:25
热心网友
时间：2023-10-23 21:26
打开VBA窗口，把下面的程序全粘进去， 参数自己设
在AUTOCAD里运行宏，或在VBA窗口里点那个运行的三角号
Const pi As Double = 3.1415926
Const AngStart As Double = 0 '起始角度
Const AngEnd As Double = 720 '终止角度
Const nPoints As Long = 4000 '总计点数
Const a As Double = 1
'极坐标转换函数
Function CoordConv(ByRef x As Double, ByRef y As Double, ByVal r As Double, ByVal angle As Double)
x = r * Sin(angle * pi / 180)
y = r * Cos(angle * pi / 180)
End Function
'主程序
Sub Main()
Dim points(nPoints * 3 + 2) As Double
Dim n As Long
Dim b As Boolean
Dim x As Double
Dim y As Double
Dim r As Double
Dim ang As Double
n = 0
For ang = AngStart To AngEnd Step (AngEnd - AngStart) / nPoints
'曲线的极坐标公式 r=a*θ
r = a * (ang / 2 / pi)
b = CoordConv(x, y, r, ang)
points(n) = x
points(n + 1) = y
points(n + 2) = 0
n = n + 3
Next ang
'画多线段
ThisDrawing.ModelSpace.AddPolyline (points)
End Sub
热心网友
时间：2023-10-23 21:26
; 3DSPIRAL.LSP
(defun myerror (s)
(if (/= s "function cancelled")
(princ (strcat "\nError: " s))
)
(setvar "cmdecho" ocmd)
(setvar "blipmode" oblp)
(setq *error* olderr)
(princ)
)
(defun cspiral (ntimes bpoint hfac lppass strad vfac
/ ang dist tp ainc dhinc dvinc circle dv)
(setvar "blipmode" 0)
(setvar "cmdecho" 0)
(setq circle (* 3.141596235 2))
(setq ainc (/ circle lppass))
(setq dhinc (/ hfac lppass))
(if vfac (setq dvinc (/ vfac lppass)))
(setq ang 0.0)
(if vfac
(setq dist strad dv 0.0)
(setq dist 0.0)
)
(if vfac
(command "3dpoly")
(command "mline" bpoint)
)
(repeat ntimes
(repeat lppass
(setq tp (polar bpoint (setq ang (+ ang ainc))
(setq dist (+ dist dhinc))
)
)
(if vfac
(setq tp (list (car tp) (cadr tp) (+ dv (caddr tp)))
dv (+ dv dvinc)
)
)
(command tp)
)
)
(command "")
(princ)
)
(defun C:SPIRAL (/ olderr ocmd oblp nt bp cf lp)
;;;;(setq olderr *error*
;;;; *error* myerror)
(setq ocmd (getvar "cmdecho"))
(setq oblp (getvar "blipmode"))
(setvar "cmdecho" 0)
(initget 1) ; bp must not be null
(setq bp (getpoint "\nCenter point: "))
(initget 7) ; nt must not be zero, neg, or null
(setq nt (getint "\nNumber of rotations: "))
(initget 3) ; cf must not be zero, or null
(setq cf (getdist "\nGrowth per rotation: "))
(initget 6) ; lp must not be zero or neg
(setq lp (getint "\nPoints per rotation <30>: "))
(cond ((null lp) (setq lp 30)))
(cspiral nt bp cf lp nil nil)
(setvar "cmdecho" ocmd)
(setvar "blipmode" oblp)
(setq *error* olderr) ; Restore old *error* handler
(princ)
)
;;;
;;; Interactive spiral generation
;;;
(defun C:3DSPIRAL (/ olderr ocmd oblp nt bp hg vg sr lp)
;;;;(setq olderr *error*
;;;; *error* myerror)
(setq ocmd (getvar "cmdecho"))
(setq oblp (getvar "blipmode"))
(setvar "cmdecho" 0)
(initget 1) ; bp must not be null
(setq bp (getpoint "\nCenter point: "))
(initget 7) ; nt must not be zero, neg, or null
(setq nt (getint "\nNumber of rotations: "))
(initget 7) ; sr must not be zero, neg, or null
(setq sr (getdist bp "\nStarting radius: "))
(initget 1) ; cf must not be zero, or null
(setq hg (getdist "\nHorizontal growth per rotation: "))
(initget 3) ; cf must not be zero, or null
(setq vg (getdist "\nVertical growth per rotation: "))
(initget 6) ; lp must not be zero or neg
(setq lp (getint "\nPoints per rotation <30>: "))
(cond ((null lp) (setq lp 30)))
(cspiral nt bp hg lp sr vg)
(setvar "cmdecho" ocmd)
(setvar "blipmode" oblp)
(setq *error* olderr) ; Restore old *error* handler
(princ)
)
(princ "\n\tC:SPIRAL and C:3DSPIRAL loaded. ")
(princ)
在CAD 下用命令 load 加载你保存的文件 后
使用命令 3dspiral
OK
热心网友
时间：2023-10-23 21:27
