---

Hi,

Ich steh gerade aufm Schlauch - ich will mit VBA den derzeitigen Vieport von Drahtgitter auf Soliddarstellung umschalten und umgekehrt.

Bitte kein .net oder lisp 

Geht das in VBA native oder mit sendcommand ?

LG aus Finnland
thomas

------------------
Wer es nicht versucht, hat schon verlorn 
Und bei 3 Typos gibts den vierten gratis !

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

---

Hallo Thomas,

da du nicht sagst, in welchem CAD System du das wohl machen willst gehe ich davon aus, dass du SolidWorks meinst   

Da geht das so:

Code:

---

Option Explicit

Sub main()

    Dim swApp                           As SldWorks.SldWorks
    Dim swModel                         As SldWorks.ModelDoc2

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
   

    ' Make hidden lines visible
    swModel.ViewDisplayHiddengreyed
   
    ' Display shaded
    swModel.ViewDisplayShaded
   
    ' Remove hidden lines
    swModel.ViewDisplayHiddenremoved
   
    ' Display as wireframe
    swModel.ViewDisplayWireframe
   
    ' Toggle display of surface curvature
    swModel.ViewDisplayCurvature
   
    ' Display the facets of the shaded model
    swModel.ViewDisplayFaceted

End Sub

---

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de

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

---

Hi , danke
UUps Ist ACAD *duck*

Und diese Funktionen gibt's in dem Spielzeug CAD leider nicht :/
(Wie so manches ...) *lach*

Vermutlich wieder so hidden Sysvar etc. oder man muss erst wieder nen
Hamster Zeichnen, den rotieren, usw... - wie immer *lach*
Doku = null ist auch klar.

LG aus Finnland
Thomas

------------------
Wer es nicht versucht, hat schon verlorn 
Und bei 3 Typos gibts den vierten gratis !

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

---

mei is des krank 
Tut aber 

Sub wireframe()
ThisDrawing.SEndCommand Chr(27) & Chr(27)
ThisDrawing.SEndCommand "_vscurrent" & vbLf & "_Other" & vbLf & "Wireframe" & vbCrLf
ThisDrawing.SEndCommand Chr(27) & Chr(27)

End Sub
Sub real()
ThisDrawing.SEndCommand Chr(27) & Chr(27)
ThisDrawing.SEndCommand "_vscurrent" & vbLf & "_Other" & vbLf & "X-Ray" & vbCrLf
ThisDrawing.SEndCommand Chr(27) & Chr(27)
End Sub

------------------
Wer es nicht versucht, hat schon verlorn 
Und bei 3 Typos gibts den vierten gratis !

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