知識社群登入
位置: AutoCAD開放式教學 > 文件區 > 未分類
叫 AUTOCAD 自動畫 SIN 函數圖形的 AUTOLISP 程式
by 高顯忠, 2010-11-29 17:15, 人氣(3488)
; FILE: PLOT-SIN.LSP

; PLOT Y= SIN(X), X= X1 TO X2 STEP DX

(SETQ NO 16)

(SETQ X1 0.0
      X2 (* 4.0 (ATAN 1.0))
      DX (/ (- X2 X1) NO))

(SETQ X2 (+ X2 (/ DX 10.0)))

; FOR X= X1 TO X2 STEP DX
(SETQ X X1)
(COMMAND "SPLINE")

(WHILE (<= X X2)
  (SETQ Y (SIN X))
  (SETQ P1 (LIST X Y))

  (COMMAND P1)

  (SETQ X (+ X DX))
  ); END OF WHILE()
(COMMAND "" "" "")

(PRINC)
; END OF FILE