tracepro宏语言建模出现错误

飞翔的小鸡

模仿苏轴平老师在TP scheme editor中编程建模，以下是代码：
(define Macro1
  (lambda( )
    (define Macro1_ID_1
      (insert:thin-sheet "ThinSheet0" (list (position 0 0 0) (position 5 0 0) (position 5 5 0)))
      (property:apply-name MACRO_ID_1 "ThinSheet0")
      (edit:surface-sweep (list (tools:face-in-body 0 (entity 1))) 5 0 #t #(0 0 0)))
    (property:apply-name (entity 1) "prism")
    (property:apply-material (entity 1) "SHOTT" "BK7" (position 5 5 0))
    (view:set-display-objects)
    (view:zoom-all)
    (view:profiles "iso2")
    (edit:select (entity 1))
    (edit:copy)
    (edit:paste)
    (property:apply-name (entity 3) "prism1")
    (view:profiles "yx")
    (edit:move (entity 3) 0 -20 0 #f #f )
    (edit:rotate (entity 3) 0 -20 0 0 0 1 180 #t)
    )
  )
)
DDE通讯在Tracepro建模时出现如下错误，请问是什么原因？
Scheme Nest Level = 1
Scheme Nest Level = 2
Scheme Nest Level = 3
Scheme Nest Level = 3
Scheme Nest Level = 3
Scheme Nest Level = 2
Scheme Nest Level = 2
Scheme Nest Level = 2
Scheme Nest Level = 2
Scheme Nest Level = 2
Scheme Nest Level = 2
Scheme Nest Level = 2
Scheme Nest Level = 2
Scheme Nest Level = 2
Scheme Nest Level = 2
Scheme Nest Level = 2
Scheme Nest Level = 2
Scheme Nest Level = 2
Scheme Nest Level = 1
Macro1
*** ERROR *** top-level: unbound variable: \243\250Macro1\243\251