CAD中螺旋钢梯建立线模

yank25

于 2024-03-06 10:48:21 发布

阅读量133

点赞数 2

文章标签： lisp

本文链接：https://blog.csdn.net/yank25/article/details/136499414

版权

该文章介绍了如何利用Autolisp编程语言中的函数如DEFUNC:TT和fun1来创建楼梯模型，通过计算内外径、角度和踏步高度生成空间几何向量的线段。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

空间几何向量

autolisp

(DEFUN C:TT ()
  (SETQ
    HEIGHT_BUILDING
		    4200		;层高
    HEIGHT_STEP
		    135			;踏步高度
    RADIUS_OUT
		    4200		;外径
    RADIUS_IN
		    600			;内径
    ANGLE_STEP
		    30			;角度
    NUM_STEP
		    30			;踏步数量
    i
		    0
  )
  (fun1)
  (defun fun1()
    (while (<= i NUM_STEP)
      (SETQ X1 (* RADIUS_OUT (cos (* i PI (/ ANGLE_STEP 360.0)))))
      (SETQ Y1 (* RADIUS_OUT (SIN (* i PI (/ ANGLE_STEP 360.0)))))
      (SETQ X2 (* RADIUS_in (cos (* i PI (/ ANGLE_STEP 360.0)))))
      (SETQ Y2 (* RADIUS_in (SIN (* i PI (/ ANGLE_STEP 360.0)))))
      (SETQ Z (* i HEIGHT_STEP))
 (entmake (list (cons 0 "LINE") (cons 10 (LIST X1 Y1 Z)) (cons 11 (LIST X2 Y2 Z))))
      (setq i (+ i 1))
    )
    )
  

  (PRINC)
)