请考虑这个简单的rebol2代码来说明我的问题：
REBOL []
a: make face [
offset: 0x0
color: yellow
size: 20x20
]
b: make face [
offset: 0x0
color: red
size: 60x60
pane: reduce [
make a [offset: 0x0]
make a [offset: 10x10]
make a [offset: 10x20]
]
]
view layout [
box 200x200 white with [
pane: reduce [
make b [offset: 0x30] ;; one 'instance' of b
]
]
]
这里的要点是，布局(或面)能够在其窗格块内显示一组面，从而可以多次创建同一个面(在这种情况下为b)。显示的代码运行良好，并且b的唯一实例(让我这样称呼它)显示为它应该显示的样子
但现在假设我更改了代码，这样我就有了b:的2个实例
view layout [
box 200x200 white with [
pane: reduce [
make b [offset: 0x30]
make b [offset: 0x10]
]
]
]
在这一点上，我得到错误
** Script Error: Face object reused (in more than one pane): none
** Where: view
** Near: show scr-face
if new [do-events]
从这里的信息来看，我认为脸b不知何故被重用了，并破坏了我想要实现的目标。我对此做了很多研究，在某个时候我发现可以通过克隆(使用make)要传递给pane的人脸来绕过它；这就是我原以为我在做的事情，但没有成功。
在这种情况下，我的问题是：我该如何解决这个问题？reblo2可以提供这种"面孔实例化"吗？还是最好尝试reblo2之外的其他东西(也许是reblo3)？
任何帮助都将不胜感激。
Rebol2绝对可以做到这一点。
当你第二次做b时，你使用的是a的同一个实例。这就是问题所在。
您可以编写一个函数来创建必要的面，并将它们附加到块中并返回。别忘了每次都要创造一个(第一张脸)。
此外，请检查文档中的迭代面。
在这里我添加了一个例子：
REBOL []
make-pane: func [ofst [pair! block!] /local a b faces] [
a: make face [
offset: 0x0
color: yellow
size: 20x20
]
faces: copy []
either block? ofst [
foreach o ofst [
append faces make a [offset: o]
]
] [
append faces make a [offset: ofst]
]
b: make face [
offset: 0x0
color: red
size: 60x60
pane: faces
]
]
view layout [
box 200x200 white with [
pane: make-pane [5x30 0x10 20x5]
]
]
您可以更改函数以获得更多参数来更改颜色和其他方面。
正如已经指出的，问题是a被重用，而不是b！
布局函数使用一个名为CCD_ 9的字段来处理这样的事情。据我所知，init首先绑定到面，然后在面本身实例化(至少部分实例化)后用do调用。
在这种情况下，我将在布局中使用style命令(仍然部分使用面部对象a)
view layout [
style
bb box 60x60
with [
append init [
pane reduce [
make a [offset: 0x0]
make a [offset: 10x10]
make a [offset: 10x20]
]
]
]
panel 200x200 white [
at 30x0 bb
at 0x0 bb
]
]
另一种选择，与您的选择更相似的是：
b: make face [
offset: 0x0
color: red
size: 60x60
init: [
pane: reduce [
make a [offset: 0x0]
make a [offset: 10x10]
make a [offset: 10x20]
]
]
]
view layout [
box 200x200
with [
append init [
pane: reduce [
make b [ offset: 0x0 do init ]
make b [ offset: 0x60 do init ]
]
]
]
]
注意，在这种情况下，init是在make子句中手动调用的。我不太清楚为什么需要它。最后，一切都可以用样式优雅地解决
view layout [
style a box yellow 20x20
style b panel red 60x60 [
at 0x0 a ; we can in this style use the just defined a style
at 10x10 a
at 10x20 a
]
at 0x0 b
at 0x60 b
]
我在一条评论中说过，我会回来分享我的发现，我觉得我得到了一些有趣的东西。正如@endo64所指出的，迭代面很棘手，可能不太适合我第一次问这个问题时想要做的事情——通过面板实现实例化对象的简单/straigthforward方式。
我想出了下面的代码，它实现了一种实例化器。它的部分灵感来自@endo64的人脸生成器方法，以及对迭代人脸的一些修补。这个实例化器有一个核心限制，即不接受传递给构造函数的多种类型的对象在同一窗格中创建。
不管怎样，我发现这是一个有趣的练习，我想把它发布在这里，以防它对某人有用。
我使用了问题中的相同代码，现在解决/规避了在主布局窗格中创建多个b对象的限制。a和b现在持有一个instantiator对象，它接收一个要在其窗格内创建的对象和一个应该放置对象的位置块(对偏移)。
a: make face [
offset: 0x0
color: yellow
size: 30x20
]
b: make face [
offset: 0x0
color: red
size: 100x100
inst_b: _instantiator/new reduce a [10x10 10x70 80x80 30x30] ; instantiator here
pane: get in inst_b 'pane_function
]
实例化器代码为：
_instantiator: make object! [
_obj: copy []
_offsets: copy []
new: func [
obj [object!] "object to create inside pane"
offs [block!] "instances offsets"
][
make self [
_obj: obj
_offsets: offs
]
]
pane_function: func [face index] [
if integer? index [
if index <= length? _offsets [
_obj/offset: to-pair reduce [_offsets/:index/x _offsets/:index/y]
_obj
]
]
]
]
主布局代码为：
_inst: _instantiator/new reduce b [0x0 50x50 130x130] ;;3 b objects are created in the positions indicated in the pairs block
_lo: layout [
mybox: box 500x500 white with [
offset: 0x0
pane: get in _inst 'pane_function
]
]
view center-face _lo