डेल्फी जीएलएससीन निर्यात दृश्य एसटी

Question

मेरे पास GLScene प्रोजेक्ट है। SceneViewer में मैं कुछ stl फ़ाइलों को फ्रीफॉर्म के रूप में आयात करता हूं। उपयोगकर्ता इस ऑब्जेक्ट्स के साथ बातचीत कर सकता है (उन्हें माउस के साथ ले जाएं और घुमाएं)।

अब मैं इस पूरे Scene एक को STL फ़ाइल निर्यात करने के लिए है, तो स्थिति और freeforms के रोटेशन Scene इस निर्यात के बाद में की तरह होना चाहिए ("मर्ज")।

मुझे यह थ्रेड एक ही समस्या के बारे में मिला: Export "Scene" to STL File लेकिन यह एक टूटी हुई एसटीएल फ़ाइल बनाता है (मेशलाब के साथ खोलने की कोशिश की)।

मुझे आशा है कि समाधान बनाने के लिए कुछ विचार है। अगर कोई अन्य 3 डी-फ़ाइल प्रारूप के लिए समाधान जानता है, तो यह भी बहुत अच्छा होगा।

Answer 1

मैं पाया है समाधान :-)

जवाब में लिंक लगभग सही है, लेकिन मैं एक अन्य तरीके से हेडर सूचना (faceletts की गिनती) की गणना करने के लिए है। अब मैं एक लूप का उपयोग करता हूं जो लिखने से पहले हेडर की गणना करता है। कभी-कभी समाधान बहुत करीब है।

var j :integer ; 
var i:integer; 
var header: TSTLHeader; 
var dataFace: TSTLFace; 
var list: TaffineVectorlist; 

//objects = list of steFreeform objects 
//astream = created stream 
for j := 0 to objects.count - 1 do 
begin 
    list := TGLFREEForm(objects[j].MeshObjects.ExtractTriangles; 
    header.nbfaces :0 header.nbFaces + list.count div 3 ; 
end; 
aStream.write(header.SizeOf(header)); 
//rest see above link in the question