各位大哥帮帮忙看看啊

yuncai11

各位来看的大哥我在做3D螺纹时，出现三角形沿螺旋线拉伸之后不理想的现象圆圆同样也存在这样的问题；问题我以图片的形式给大家看，螺旋线我是下载的别人的我看着还是挺有道理的我就下载下来了。这是螺旋线的原码： (defun myerror (s) ; 如果出错 (如按 CTRL-C)
; 将激活该命令...
(if (/= s "Function cancelled")
(princ (strcat "\n出错: " s))
)
(setvar "cmdecho" ocmd) ; 恢复保存的模式
(setvar "blipmode" oblp)
(setq *error* olderr) ; 恢复旧的 *error* 处理
(princ)
) (defun cspiral (ntimes bpoint hfac lppass strad vfac
/ ang dist tp ainc dhinc dvinc circle dv ct) (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 "_pline" 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)
) ;;;
;;; 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 必须为非空值
(setq bp (getpoint "\n中心点: "))
(initget 7) ; nt 必须为非零正数或非空值
(setq nt (getint "\n螺旋圈数: "))
(initget 7) ; sr 必须为非零正数或非空值
(setq sr (getdist bp "\n起点半径: "))
(initget 1) ; hg 必须为非空值
(setq hg (getdist "\n水平每圈增加距离: "))
(initget 3) ; vg 必须为非零或非空值
(setq vg (getdist "\n垂直每圈上升距离: "))
(initget 6) ; lp 必须为非零正数
(setq lp (getint "\n每圈的点数 <36>: "))
(cond ((null lp) (setq lp 36)))
(cspiral nt bp hg lp sr vg)
(setvar "cmdecho" ocmd)
(setvar "blipmode" oblp)
(setq *error* olderr) ; 恢复旧的 *error* 处理
(princ) ) 各位大哥如果有好的螺纹的原码希望能给我一份，急需啊多谢了！ 如果那位大哥能给遍一个螺纹程序我就再次感谢了！！！！

yuncai11

你可能有点晚了哦不过我好象看不太懂你说的


呵呵

yuncai11

这是我画螺纹用圆作为被拉伸实体，可以看到明显的缺陷，请大哥指点怎么改写好呢？？

yuncai11

哪个大哥做的好的能不能给点建议啊