0

drawmycoil.lsp以下に、ファイルからコードを貼り付けました。

(defun drwcoil ()
  (setq helices_center '(0 0)) ; this is the center of the helices
  (setq inner_radius 1e3)      ; 1000 microns
  (setq outer_radius 2.4e3)    ; 2400 microns
  (setq coil_thickness 35)     ; 35 microns
  (setq turns (\ (- outer_radius inner_radius)
                 (* coil_thickness 2))) ; coil_thickness is multiplied by 2 to
                                        ; account for coil spacing
  (while (< inner_radius outer_radius)
    (command "HELIX"
             helices_center
             inner_radius
             (+ inner_radius (* coil_thickness 2))
             "t"
             "1"
             "0") ;draws one helix per iteration
    (setq inner_radius 
          (+ inner_radius (* coil_thickness 2))))) ; increments the inner radius
                                                   ; for the next iteration

(defun c:drawmycoil ()
  (drwcoil)
  (princ))

ロードして実行した後のlispファイルの出力は次のとおりです。

Command: _appload coil35um_intricate.lsp successfully loaded. 

Command: 

Command:  

Command: drawmycoil  ; 
error: no function definition: \\\\

関数を明確に定義したにもかかわらず、AutoCAD/AutoLISP にそれらを認識させることができません。Autodesk Education Master Suite 2011 を使用しています。かなりの数のチュートリアル サイトを見ましたが、それらのほとんどは機能の LISP 部分に焦点を当てています。私は、AutoCAD が LISP を介して自分の図面をプロットすることにもっと集中しています。

4

1 に答える 1

3

あなたの投稿からこのコードを見てください：

(setq turns (\ (-

/の代わりに使用するつもりだったのではないかと思います\。

于 2013-06-09T23:08:35.913 に答える