光电工程师社区

标题: [分享]变焦曲线绘图的宏 [打印本页]

作者: redflag 时间: 2003-9-8 21:36
标题: [分享]变焦曲线绘图的宏
[300]! purpose: This macro to plot zoom curv.
!    The max zoom position is 6, if more ,it will not work correctly
! author: Doffery 8-sep-2003

lcl num ^i ^efl(200) ^t(6,200)
lcl str ^command ^th(6)
ver y
out no
! Active all zoom positions
pos

^numZ == (num z)
^command == ’LIN ’
for ^i 1 ^numZ
^tempstr == num_to_str(^i)
^tempstr == concat(concat(’(’, concat(’EFL Z’,^tempstr)),’) ’)
^command == concat(^command,^tempstr)
end for

BUF DEL B0
BUF
OUT y
cam; ncs 200       ! number of cam steps
$command          !LIN (EFL z1) (EFL z2) (EFL z3) ! make linear in EFL
LLA ’EFL’
go
OUT YES
BUF NO  ! CAM data is now in B0 buffer for later use

! Move to start of buffer and find column-head row
BUF MOV I1
^count == 0 ! num of positions
BUF FND THI
lbl FIND
if (buf.fnd)
^count == ^count +1
BUF FND
got FIND
end if

BUF MOV I1
BUF FND AND EFL THI

for ^i 1 ^count
buf mov ic jc+1
if (buf.type ic jc) = STR
  if (buf.str ic jc) = THI
buf mov ic jc+1
  end if
  ^th(^i) == (buf.str ic jc)
  !^count == ^count +1
  if lenstr(^th(^i))  3
  ^th(^i) == substr(^th(^i),4,lenstr(^th(^i)))
end if
end if
end for

BUF MOV Ic+1 J1    ! skip blank line

write Getting zoom data from CAM table in BUF B0 -- please wait...
OUT n

for ^i 1 200 ! saving into arrays first will speed update
BUF MOV Ic+1 J1
if not ((buf.type Ic Jc+1) =NUM)
BUF MOV Ic+1 J1
end if
^efl(^i) == (BUF.NUM Ic Jc+1)
if ((buf.type ic Jc+2) =NUM)
^t(1,^i) == (BUF.NUM Ic Jc+2)
end if
if ((buf.type ic Jc+3) =NUM)
^t(2,^i) == (BUF.NUM Ic Jc+3)
end if
if ((buf.type ic Jc+4) =NUM)
^t(3,^i) == (BUF.NUM Ic Jc+4)
end if
if ((buf.type ic Jc+5) =NUM)
^t(4,^i) == (BUF.NUM Ic Jc+5)
end if
if ((buf.type ic Jc+6) =NUM)
^t(5,^i) == (BUF.NUM Ic Jc+6)
end if
if ((buf.type ic Jc+7) =NUM)
^t(6,^i) == (BUF.NUM Ic Jc+7)
end if
end for

OUT n
BUF DEL B0

ugr
xla FOCAL LENGTH(mm)
xde 1
yla ZOOM POSITION
yde 2
tit ’ZOOM position vs. EFL’

for ^i 1 ^count

dpo concat(’THI ’,^th(^i))
spl pnt ^i
for ^J 1 200
^efl(^J) ^t(^i,^J)
end for
end
end for
go

作者: redflag 时间: 2003-9-8 21:37
标题: [分享]变焦曲线绘图的宏
相关屏幕图形

作者: zfw0080 时间: 2003-9-8 23:50
标题: [分享]变焦曲线绘图的宏

非常感谢！虽然我还看不懂。

作者: redflag 时间: 2003-9-9 00:27
标题: [分享]变焦曲线绘图的宏
是图形看不懂吗?

作者: zfw0080 时间: 2003-9-9 01:14
标题: [分享]变焦曲线绘图的宏

因为我还没有接触过这个软件，所以对这些东西都算是文盲！不过，能有机会向你们这些高手学习，真的很高兴！

作者: redflag 时间: 2003-9-9 02:31
标题: [分享]变焦曲线绘图的宏

高手还算不上，只是用的稍多一点而已

作者: zfw0080 时间: 2003-9-9 04:16
标题: [分享]变焦曲线绘图的宏

请问CV可以直接转化为ZEMAX文件吗？

作者: huanglin 时间: 2003-9-9 04:34
标题: [分享]变焦曲线绘图的宏

可以的，ZEMAX带了一个程序seq2zmx，可以将*.SEQ转换成*.ZMX。

作者: zfw0080 时间: 2003-9-9 06:28
标题: [分享]变焦曲线绘图的宏

huanglin可以说一下具体怎么操作吗？非常感谢！

作者: huanglin 时间: 2003-9-9 15:28
标题: [分享]变焦曲线绘图的宏
seq2zmx.exe *.seq *.zmx 就行了。
如果在DOS下操作麻烦的话，写个批处理就行。

作者: zfw0080 时间: 2003-9-9 16:49
标题: [分享]变焦曲线绘图的宏
[fly]谢谢huanglin！[/fly]

作者: 江湖人 时间: 2003-9-9 17:24
标题: [分享]变焦曲线绘图的宏
我用的是ZEMAX软件，买了你的程序后，怎么用呢？你能说的明白点吗？

作者: huanglin 时间: 2003-9-9 17:38
标题: [分享]变焦曲线绘图的宏
你搞错了，那是CODE V的宏，老大。

作者: 羊羊 时间: 2003-9-9 19:52
标题: [分享]变焦曲线绘图的宏
便宜点嘛！100元如何？

作者: huanglin 时间: 2003-9-9 19:57
标题: [分享]变焦曲线绘图的宏
“羊羊”留下你的EMAIL，我送你一个。

作者: 江湖人 时间: 2003-9-10 00:52
标题: [分享]变焦曲线绘图的宏
你不是说ZEMAX也可以用的吗

作者: ncrioe 时间: 2003-9-10 01:13
标题: [分享]变焦曲线绘图的宏
感谢朋友对code v版快的支持！

作者: 江湖人 时间: 2003-9-10 01:14
标题: [分享]变焦曲线绘图的宏
既然说可以用，怎么不说的明白点呢

作者: redflag 时间: 2003-9-10 16:02
标题: [分享]变焦曲线绘图的宏
江湖人：你可能误会了，前面他们讨论的是将CODE V的镜头文档转成ZMX文档，虽然同样是SEQ文件，但是功能是不一样的。绘图的宏只能在CODE V中使用。需要CODE V环境支持。

作者: 江湖人 时间: 2003-9-10 16:28
标题: [分享]变焦曲线绘图的宏
看来是我误会了！不好意思！损失300了

作者: redflag 时间: 2003-9-11 02:58
标题: [分享]变焦曲线绘图的宏
不好意思，如果你想要回三百块的话，我可以转到你的帐号里。

作者: 羊羊 时间: 2003-9-11 21:23
标题: [分享]变焦曲线绘图的宏
谢谢huangli兄，本人刚出差回来，看到你的回复，不胜感激！ :em25:
My Email:yang_8930@163.com

作者: lens 时间: 2003-9-12 06:44
标题: [分享]变焦曲线绘图的宏
前一段我被别人骗了1000光电币，现在没钱了，你能email给我吗？非常感谢！！

作者: redflag 时间: 2003-9-12 15:59
标题: [分享]变焦曲线绘图的宏
你的MAIL？

作者: zhouch66 时间: 2003-9-13 05:59
标题: [分享]变焦曲线绘图的宏
请问各路高手，哪有CODE V中文使用手册？
zhouch66@163.com

作者: ariston0088 时间: 2003-9-15 21:35
标题: [分享]变焦曲线绘图的宏
thanks

作者: huanglin 时间: 2003-9-16 01:10
标题: [分享]变焦曲线绘图的宏
CODE V没有中文手册。

作者: lens 时间: 2003-9-30 03:56
标题: [分享]变焦曲线绘图的宏
请dfjss给我email这个变焦曲线绘图的宏，非常感谢！lens_yang@163.com

作者: redflag 时间: 2003-9-30 04:01
标题: [分享]变焦曲线绘图的宏
想要的话就买吧，如果你有什么问题可以问的，但是宏是要买的。呵呵。

作者: 球球 时间: 2003-9-30 04:49
标题: [分享]变焦曲线绘图的宏
女士是不是可以便宜一点点？？？：）

作者: redflag 时间: 2003-9-30 15:46
标题: [分享]变焦曲线绘图的宏
真正需要的人是不计较这一点付出的，况不是正的货币。
这个宏是物有所值的。也花了我不少时间，这点付出，理应有一点“回报”！
我并不是一定要收钱不可的，只是想知道有多少人是需要的。
因为最近搞变焦镜头的设计的人越来越多了，所以我才有兴趣写这个宏。
目前该宏是采用插值方法计算的，所以你要有足够的采样点，才能够精确。
作这个宏，只是让你在设计的过程中对你的变焦曲线的情况有个比较直观的感觉。
有助于你调整各个位置的距离。
若想得到真正的变焦曲线（对应了每个真实焦点的位置）只需在此宏上修改即可完成，当然你必需会用CV的CAM DESIGN（凸轮设计）。它提供了两种方法来设计变焦曲线，我用的是其中的一种。
如果你真的是一个学习者，这个宏应该是很适合你的！

作者: lens 时间: 2003-10-1 04:39
标题: [分享]变焦曲线绘图的宏
我刚挣够了300，现在全部给你。谢谢！

作者: poon 时间: 2003-10-12 16:59
标题: [分享]变焦曲线绘图的宏
我在日本过来的镜头里看过，可以看懂，但是我没有这个软件，那就是白说了。我当时以为日本人是用excel 作出来的。现在听你们一说我就知道是这么一回事，感谢各位大虾。

作者: lendesign 时间: 2003-10-14 17:20
标题: [分享]变焦曲线绘图的宏
我现在有个变焦结构,请具体讲讲该怎么用这个宏??

作者: redflag 时间: 2003-10-14 17:49
标题: [分享]变焦曲线绘图的宏
直接运行这个宏即可. in 路径:\你保存的宏的文件名(后缀为SEQ)

作者: zengshenbo 时间: 2003-10-18 00:39
标题: [分享]变焦曲线绘图的宏
不错,就是觉得有点儿贵

作者: lendesign 时间: 2003-10-21 23:51
标题: [分享]变焦曲线绘图的宏
运行错误,请你直接把这个宏文件贴出来吧

作者: redflag 时间: 2003-10-22 03:12
标题: [分享]变焦曲线绘图的宏
。SEQ文件贴不出，我不想压缩，请检查你的镜头文件是不是正确。还要注意我的宏的第一句话。我试过是可以的，没有错误。如果有错误请贴出你的运行结果，TXT页里的内容贴出来就可以了。

作者: 孙万新 时间: 2003-11-5 16:54
标题: [分享]变焦曲线绘图的宏
请问dfjss兄：在codev中如何产生非线性焦距的凸轮曲线？比如由幂系数控制焦距的变化曲线？

作者: lendesign 时间: 2003-11-13 00:37
标题: [分享]变焦曲线绘图的宏
用你的变焦曲线是不是比较准确了，不需要再用CODE V里面带的凸轮设计了

作者: alphabet 时间: 2003-12-1 00:20
标题: [分享]变焦曲线绘图的宏
兄台，太贵了！

作者: poon 时间: 2003-12-7 03:56
标题: [分享]变焦曲线绘图的宏
我卖啦，但是我不知道如何做呢，我存的是TXT文件。不知道能否直接更改成seq 文件？？？？？

作者: redflag 时间: 2003-12-8 21:13
标题: [分享]变焦曲线绘图的宏
当然可以？

作者: weisnet 时间: 2003-12-15 09:17
标题: [分享]变焦曲线绘图的宏
我买了，先用用看

作者: weisnet 时间: 2003-12-15 09:35
标题: [分享]变焦曲线绘图的宏
这个宏可以使用，感谢dfjss。
有机会向你请教宏的编写，望不吝赐教！

作者: luaim 时间: 2003-12-20 07:41
标题: [分享]变焦曲线绘图的宏
我很想要，却没钱。
能否送我一份：lu_am@sohu.com
谢谢！

作者: seagullze 时间: 2003-12-20 18:56
提示: 作者被禁止或删除内容自动屏蔽

作者: lendesign 时间: 2003-12-29 18:29
标题: [分享]变焦曲线绘图的宏
你的宏不能解决相面漂移问题啊,我试了相面有一定的漂移

作者: 华山老妖 时间: 2004-5-19 19:34
还是乱码,偶是菜手,斑竹兄弟就不要见怪了,麻烦将宏重新贴上吧.不胜感激!

作者: 光年 时间: 2004-5-20 07:47

兄台，我设计的变焦系统有20多个点，你的宏应怎么改？我不懂宏语言，请告知！

作者: cheering 时间: 2007-10-16 17:02

作者: ggll 时间: 2007-10-23 12:56
怎么给你币
我也要

欢迎光临光电工程师社区 (http://bbs.oecr.com/)