48 lines
1.8 KiB
Plaintext
48 lines
1.8 KiB
Plaintext
<%@language = "javascript" %>
|
|
<% /*
|
|
$Revision$
|
|
$Id$
|
|
|
|
File: CAD/mySymbol.asp
|
|
Description: Maak een (legenda) symbool om te draggen
|
|
(bestaande symbolen draggen gebeurt bia mykeyToSymbol.asp)
|
|
Parameters: srtdeel: ins_srtdeel_key
|
|
(en paperColor, sizeX en sizeY worden opgepikt door SlnkGenerateIMG)
|
|
Context: - In de symbolen legenda
|
|
- Vanuit 'objecten toevoegen' menu zijn we begonnen met draggen
|
|
Note: Altijd transparant. Zorg voor goede paperColor voor zwartwit toggle!
|
|
*/
|
|
var DOCTYPE_Disable = 1;
|
|
var FCLTEXPIRES = 8*60; // 8 uur kan al flink schelen
|
|
%>
|
|
<!-- #include file="../Shared/common.inc" -->
|
|
<!-- #include file="../SlnkDWF/Slnk2Img.inc" -->
|
|
<!-- #include file='../CAD/symbols.inc'-->
|
|
<!-- #include file="../CAD/FGII.inc" -->
|
|
<%
|
|
var srtdeel_key = getQParamInt("srtdeel");
|
|
|
|
var sql = "SELECT ins_srtdeel_acadsymbol"
|
|
+ " FROM ins_srtdeel isd"
|
|
+ " WHERE ins_srtdeel_key = " + srtdeel_key
|
|
var oRs = Oracle.Execute(sql);
|
|
var symbolName = oRs("ins_srtdeel_acadsymbol").value;
|
|
oRs.Close();
|
|
|
|
function myContourProcessor(cHandle)
|
|
{
|
|
symbolName = DefineSymbol(cHandle, symbolName, { orgx: 0, orgy: 0 });
|
|
var mySymbol = cHandle.AddSymbol(2000000, 2000000, symbolName)
|
|
}
|
|
|
|
var mySLNKDWF = new SLNKDWF({ dwfFile : Server.MapPath("../slnkdwf/empty.w2d"), // Start with empty drawing
|
|
maximize : true,
|
|
dwfProcessor : myContourProcessor,
|
|
tempFolder : shared.tempFolder(),
|
|
asGIF : true,
|
|
forceGray : true
|
|
});
|
|
mySLNKDWF.Process();
|
|
%>
|
|
<% ASPPAGE_END(); %>
|