Thank you in advance and sorry for the bad english!
Code: Select all
# -*- coding: utf-8 -*-
#how to? (Check geometry-->macro-->makeText)
import FreeCAD
import Part
import DraftTools
import Draft
def myTxtOut(P5x,P5y,P5z,myStr):
p5 = FreeCAD.Vector(P5x,P5y,P5z)
myText = Draft.makeText(myStr,p5)
myText.Label = myStr
App.ActiveDocument.addObject("Part::Sphere","Sphere")
App.ActiveDocument.ActiveObject.Label = "Sphere"
#example-text????????????????????????????????????????????????????????????????????
myTxtOut(0,0,5,"Check Geometry Shape Content"+"Unnamed.Sphere.Face1:" + " VERTEX : 2 " + "WIRE: 1......")
App.ActiveDocument.recompute()