光学手册（上、下册，李景镇）	近代光学系统设计概论	Zemax光学设计从入门到精通(中文版)	现代光学基础（第2版钟锡华）
讯技光电:VirtualLab Fusion独家供应商	微小光学与微透镜阵列	光学设计与光学元件	计算光学带来的成像革命

发帖回复

2974阅读
4回复

[求助]关于macro的edit:move问题 [复制链接]

上一主题下一主题

离线snowwillbe

实习生

发帖: 41

光币: 86

光券: 0

只看楼主倒序阅读楼主发表于: 2010-11-29

大家好，最近开始学习macro编程，但是手头没有相关的参考书，就照着help做一些test,下面是自己写的一个小程序，创建一个箱体，然后通过bool运算给它一个开口以出射光。但是选择文件，并在command键入
(creat_outbox 1550 2500 750 1450 2400) ，点击执行时出现
*** ERROR *** edit:move: application of non-procedure: #[entity 1 3]
的错误。而且从tracepro的窗口看，箱体是建立起来了，但是没有移动
(define creat_outbox
  (lambda (x_width y_length z_height x_out y_out)
    (define outbox (insert:block x_width y_length z_height))
    (edit:move (outbox) 0 0 130 )         ;help 中语法形式
    (define outputface (insert:block x_out y_out 10))
    (edit:move (outputface) 0 0 505)     ;help 中语法形式
    (define
      outter (bool:subtract outbox outputface))
    ))
;(creat_outbox 1550 2500 750 1450 2400)

如果我按照example中“Toroidal_Mirror.scm”的edit:move语句写程序（如下）就可以正确运行，
(define creat_outbox
  (lambda (x_width y_length z_height x_out y_out)
    (define outbox (insert:block x_width y_length z_height))
    (define outbox (edit:move outbox 0 0 130))
    (define outputface (insert:block x_out y_out 10))
    (define outputface (edit:move outputface 0 0 505))
    (define
      outter (bool:subtract outbox outputface))
    ))

想请教下其中错误的原因

help中edit:move的实例为

Syntax:

(edit:move body xdist ydist zdist [copy=#f] [rel=#t | dist])

Example:

;Create a sphere centered at the origin
(solid:sphere (position 0 0 0) 12)
;;#[entity 1 1]
;Move the sphere by 1 unit in x, y, and z.
(edit:move (entity 1) 1 1 1)

分享到

离线snowwillbe

实习生

发帖: 41

光币: 86

光券: 0

只看该作者 1楼发表于: 2010-11-29

其他问题：
1. 我发现每次通过 SchemeEdit 改变设置时，必须要在tracpro中重新加载一次（Macro-Execute-选择文件）才能运行。否则它会执行修改前的程序，而不是像matlab之类的，修改函数后，调用函数是修改后的结果

2.
我在程序中给每一个实体（entity）都会命名，但是tracepro建立的模型中，这些实体都是没有名字的，全部是用object**来代替。是tracepro本身就这样的吗，有没有一个方法让模型按自己的命名显示

3.
mannul上面在macro的“Creating Solids”部分都是用solid:cone or solid:block来建立实体的，
example中主要是define ** (insert:**) 来建立实体的，
这两个有什么区别吗？比如我建一个长宽高（xyz）为 20 30 40 的长方体
(define block1 (solid:block (position 0 0 0) (position 20 30 40)))
(define block1 (insert:block 20 30 40))
我知道其中一个区别是他们的基点不同，
solid:block是你指定两个边点；
insert的是按长宽高做实体，实体基点有一个规定，block为体心

还有其他的吗？

[ 此帖被snowwillbe在2010-11-29 21:28重新编辑 ]