Para adicionarmos um vidro à medida porta (como na imagem seguinte), devemos seguir os seguintes passos:

Primeiro devemos criar um novo componente (no Gestor de Componentes), na pasta "Porta" com o nome "VP" e a descrição fica ao vosso critério.

Depois, criamos um novo material do tipo "Diversos" com a espessura pretendida.

Após a criação do novo material,  devo associar o material vidro ao componente previamente criado.

Feitas as configurações de materiais desejadas, devo criar um novo estilo de frente com o nome "Frente Composta" (este nome poderá ser diferente, terá que ser igual no UCS) e atribuir as configurações de materiais desejadas a este estilo de frente.

Por fim, devemos criar um novo UCS e colar o seguinte código. Na variável pública, devemos por o nome do estilo frente.

;Adiciona Vidro à frente da Porta (à medida) 
For Each DOR|DWR Assembly

Public EstiloFrente = Frente Composta
 
If _StyleID = DoorStyleID('{EstiloFrente}') Then

If Name = 'DOR' Then
 
Dim PV as New Part
 
PV.Visible = True
PV.DX := DOR.DX
PV.DY := DOR.DY
PV.DZ = _M:DZ
PV.X := DOR.X
PV.Y := DOR.Y
PV.Z := DOR.Z + DOR.DZ
PV.AX = 0
PV.AY = 0
PV.AZ = 0
PV.OWNER = OWNER
 
End If
 
If Name = 'DWR' Then
 
Dim PV as New Part
 
PV.Visible = True
PV.DX := DWR.DX
PV.DY := DWR.DY
PV.DZ = _M:DZ
PV.X := DWR.X
PV.Y := DWR.Y
PV.Z := DWR.Z + DWR.DZ
PV.AX = 0
PV.AY = 0
PV.AZ = 0
PV.OWNER = OWNER
 
End If
End If