---

Please ,help me!?

Dim objApp As SolidEdgeFramework.Application
Dim objDoc As SolidEdgePart.PartDocument
Dim objModel As SolidEdgePart.Model
Dim objThreads As SolidEdgePart.Threads
Dim objThread As SolidEdgePart.Thread
Dim objHoleColl As SolidEdgePart.HoleDataCollection
Dim objHoleData As SolidEdgePart.HoleData

Dim objVars As SolidEdgeFramework.Variables
Dim objVar1 As SolidEdgeFramework.Variable
Const TESTFILE = "D:\2.par"
' Report errors
Const PI = 3.14159265358979
' Create/get the application with specific settings
On Error Resume Next
Set objApp = GetObject(, "SolidEdge.Application")
'If Err Then
'Err.Clear
'Set objApp = CreateObject("SolidEdge.Application")
'Set objDoc = objApp.Documents.Open(TESTFILE)
Set objDoc = objApp.Documents.Open(Filename:=TESTFILE)
' Get the model object in the test case
Set objModel = objDoc.Models(1)
'Get the Threads Object for the Model
Set objThreads = objModel.Threads
Set objThread = objThreads.Item(1)
Set objVars = objDoc.Variables
Set objHoleData = objThread.HoleData
Dim m As Long
Dim l As Long

m = 20
l = 60
objHoleData.ThreadDescription = "sdfasd"
objHoleData.ThreadExternalDiameter = m / 2000
objHoleData.ThreadNominalDiameter = m / 1000

objDoc.HoleDataCollection.Item(1).ThreadDescription = "sdf"
objDoc.HoleDataCollection.Item(1).ThreadMinorDiameter = m / 1000
objDoc.HoleDataCollection.Item(1).ThreadNominalDiameter = m * 1.2 / 1000
objDoc.HoleDataCollection.Item(1).ThreadExternalDiameter = m / 1000
objDoc.Recompute
Call objVars.Edit("M", m)
Call objVars.Edit("l", l)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Kannst Du nicht mal beschreiben, was Du erwartest von Deinem Quellcode? das wäre bestimmt für die Programmier im Forum besser, wenn die wissen, was Du willst.

Grüße
Lars

P.S.: Trotzdem willkommen im Forum.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

.. that's right, the command: GPI = guess programmer's intention is
missing, and furtheron what should be changed to what in other words
what's there ...

Klaus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ChangeHole.txt

Sorry, but I have no problems with your code. It works.
I used it as sub main() with a Part c:\Temp\Part1.par"
I add the module. Change the Extension to .bas.

Kind regards

------------------
APeters@BSS-Online.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

... das war ja die Frage: WAS aendert sich denn nicht? Aber lass mal
seine letztes Posting http://ww3.cad.de/foren/ubb/Forum3/HTML/001982.shtml
war genauso und geantwortet hat er scheint's auch nicht

Klaus

[Diese Nachricht wurde von modeng am 02. Jul. 2004 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

I am sorry.
The cold is incorrect up,This cold is right.
ThreadNominalDiameter modified,but ThreadNominalDiameter don't
modifide. Why?

Dim objApp As SolidEdgeFramework.Application
Dim objDoc As SolidEdgePart.PartDocument
Dim objModel As SolidEdgePart.Model
Dim objThreads As SolidEdgePart.Threads
Dim objThread As SolidEdgePart.Thread
Dim objHoleColl As SolidEdgePart.HoleDataCollection
Dim objHoleData As SolidEdgePart.HoleData
Dim objVars As SolidEdgeFramework.Variables
Dim objVar1 As SolidEdgeFramework.Variable
Const TESTFILE = "D:\2.par"
' Report errors
Const PI = 3.14159265358979
' Create/get the application with specific settings
On Error Resume Next
Set objApp = GetObject(, "SolidEdge.Application")
'If Err Then
'Err.Clear
'Set objApp = CreateObject("SolidEdge.Application")
'Set objDoc = objApp.Documents.Open(TESTFILE)
Set objDoc = objApp.Documents.Open(Filename:=TESTFILE)
' Get the model object in the test case
Set objModel = objDoc.Models(1)
'Get the Threads Object for the Model
Set objThreads = objModel.Threads
Set objThread = objThreads.Item(1)
Set objVars = objDoc.Variables
Set objHoleData = objThread.HoleData
Dim m As Long
Dim l As Long
m = 20
l = 60
objHoleData.ThreadDescription = "sdfasd"
objHoleData.ThreadNominalDiameter = m / 1000
objHoleData.ThreadExternalDiameter = m / 2000  'Don't modified,
'Please to *.dft see it.
objDoc.Recompute
Call objVars.Edit("M", m)
Call objVars.Edit("l", l)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP