[已解决]ASAP中如何添加多个LED灯珠

棒棒糖666

如题，在ASAP中想将多个LED灯珠整合到一起，以便后续移动，该怎么做呢？
望各位大神不吝赐教。
万分感谢。

最佳答案

月排行榜 / 总排行榜

zzl0223

2020-8-10 18:22

使用$DO & Macros命令，相当于阵列。
下面程序阵列的不是LED，而是透镜，可以参考下面程序做更改。
SYSTEM NEW
RESET
MEDIA
  1.5 'GLASS'
COATING PROPERTIES
  0 1 'TRANS'
ARRAY {   
  $DO 1 5
    $ROW ?
}
ROW {   
  $DO 1 8
    $LENSLET ? #1
}
LENSLET {
SURFACE
  OPTICAL Z 0 1 ELLIPSE 0.4
  OBJECT 'LENS_SURF_FRONT_X#1_Y#2'
    INTERFACE COATING +TRANS AIR GLASS
SURFACE
  PLANE Z 0.25 1 ELLIPSE 0.4
  OBJECT 'LENS_SURF_BACK_X#1_Y#2'
    INTERFACE COATING +TRANS AIR GLASS
  GROUP -2
    SHIFT X #1
    SHIFT Y #2
}
$ARRAY
WINDOW Y Z
OBLIQUE
PLOT FACETS 3 3
RETURN

跳转到最佳答案楼层

棒棒糖666

zzl0223 发表于 2020-8-10 18:22
使用$DO & Macros命令，相当于阵列。
下面程序阵列的不是LED，而是透镜，可以参考下面程序做更改。
SYSTE ...

你好，我在更改的过程中遇到了问题，如下，显示新的 object跟第一个object一模一样，可是并没有定义object啊。请问这是为什么呢？或者是哪里设置有问题？
代码如下：ARRAY {     
$DO 1 3   
$ROW ?
}
ROW {   
$DO 1 3  
$SOURCELET ? #1
}
SOURCELET {
$IO LIBRARY "C:\ProgramData\Breault Research Organization\ASAP16.0.4\LightSource\SST_50_4500K.LIB"
SST_50_4500K_GEOM 0 230 0 +Y +Z 1 0
GROUP SST_50_4500K.?  SOURCES -1   
SHIFT X #1   
SHIFT Y #2
}
$ARRAY


warnings
-   $SOURCELET 2 1
-3- $IO LIBRARY "C:\ProgramData\Breault Research Organization\ASAP16.0.4\LightSource\SST_50_4500K.LIB"
Opening    24 C:\ProgramData\Breault Research Organization\ASAP16.0.4\LightSource\sst_50_4500k.lib
-3- SST_50_4500K_GEOM 0 230 0 +Y +Z 1 0
Warning *** New object name identical to existing object 1        
*** Please verify geometry.        
*** Please verify geometry.      
*** Please verify geometry.

棒棒糖666

zzl0223 发表于 2020-8-12 10:11
我运行时没有出现object的报警，只是没有你的光源程序，运行不了

我现在问题解决啦，更换了一个新的光源程序，就好啦，再次感谢。

棒棒糖666

我还找到了另外一种方式，与大家分享：

SYSTEM NEW
RESET

XMEMORY MIN


ROW {
$DO 1 3;
EMITTING;
  1 DATA b3057_major_10k.dis;
SHIFT X (?*30);
SHIFT Y #1
}
$DO 1 3 { !! Makes multiple rows of emitters - each row counts as 1 source
  $ROW  (?*30)
}
PIXELS 21
WINDOW Y X
SPOTS POSITION
$VIEW
RETURN