作者sjgau (sjgau)
看板Cad_Cae
标题Re: [问题] 关於autocad绘制螺旋线（spiral）的问题
时间Thu Sep 20 12:14:39 2007
; file: spiral.lsp
(defun dtor(d1 / )
(* (/ d1 180.0) (* 4.0 (atan 1.0)))
); end of dtor()
; ---------------------------------------------------------
; plot r= a*theta
(defun c:spiral( / )
; input a= ?
(setq a (getreal "\n Input a= (ex. 1.2) "))
; input theat t1, t2, no
(setq t1 (getreal "\n input 开始的角度(by degree, ex. 90)= ")
t2 (getreal "\n input 结束的角度(by degree, ex. 1200)= ")
no (getint "\n input 等分点的数目(ex. 300)= "))
; ---------------------------------------------------------
(setq t1 (dtor t1)
t2 (dtor t2)
dt (/ (- t2 t1) no))
(setq t2 (+ t2 (* 0.1 dt)))
; ---------------------------------------------------------
; for tt= t1 to t2 step dt
(setq tt t1 ct1 0)
(while (<= tt t2)
(setq r1 (* a tt))
(setq x1 (* r1 (cos tt))
y1 (* r1 (sin tt)))
(if (= ct1 0)
(command "pline" (list x1 y1)); the 1- st
(command (list x1 y1))); end if
(setq tt (+ tt dt)
ct1 (+ ct1 1))
); end while
; ---------------------------------------------------------
(command "")
(command "zoom" "e")
(command "regen")
(princ)
); end of c:spiral
(princ)
; end of file
※ 引述《flg (废人君)》之铭言：
: 各位好，我目前想绘制一个螺线线（spiral），但是我在autocad中的说明中却找不到
: 相关的绘制方式，所以我目前只能使用helix指令将其高度设成0勉强画出，
: 可是这麽一来就有一个很大的问题，利用此种方式，autocad不把螺旋线当作线来处理，
: 所以我无法将螺旋线与其他线段聚合成一个物件，以至於我无法将图形汇出成.sat档，
: 请问有什麽方法可以解决这个问题呢？或是有其他种类的画法可以达成我想要的图形？
: 请各位懂的人帮我解惑一下，非常感谢！
: 图片连结：http://www.wretch.cc/album/show.php?i=flg0021&b=1&f=1553056140&p=0
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 211.77.241.1
1F：推 flg:非常感谢，我会去试试看 09/20 12:31
2F：推 sjgau:目前这个程式只划出 中心线，你要的 可能是 从中心线 09/20 12:36
3F：→ sjgau:往两边 offset 出来一个宽度的两条曲线 09/20 12:37
4F：→ sjgau:很容易 加强修改。保持联络 09/20 12:38