autolisp：绘制一个简单的刨面图

最新推荐文章于 2023-08-30 23:43:42 发布

张黎君

最新推荐文章于 2023-08-30 23:43:42 发布

阅读量966

点赞数 1

分类专栏： autolisp

autolisp 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

(defun c:xunhuan();绘制刨面图
  (setvar "cmdecho"0)
  (setq cta(getreal"\n指定倾角:"))
  (setq cta(/ (* PI cta) 180))
  (setq n(getint"\n input the number of while:"))
  (setq po(getpoint"\n the left point:"))
  (setq h(getreal"\n the highlight:"))
  (setq pt(polar po (* 0.5 PI) h))
  (command "pline"po pt)
  (repeat n
   (command
     (setq pt (polar pt 0 a))
     (setq pt (polar pt (- cta (* 0.5 PI)) b))
     (setq pt (polar pt 0 c))
     (setq pt (polar pt (- (* 0.5 PI) cta) b))
    ) 
   )
(command
  (setq pt (polar pt 0 a))
  (setq pt (polar pt (* -0.5 PI) h))
  "c"
  )
 (setq p1 (polar po (* 0.5 PI) h))
  (command "hatch" "ansi31" 3 ""PI"")
)

最近学习，机械工业出版的《AutoCAD二次开发实用教程》，其中涉及lisp循环的代码，可以学习借鉴。