CADsite forum

Ook met opslaan als nieuwe dwg via bsaveas gaat mis.

Owh.. ik doe ze de zelfde naam als de dwgnaam van de wblock.
Maar nu gaat het fout als ik meer dan 2 lijnen move, dan doet hij alsnog niet goed.

Is dit ook een betere manier om blocks op te slaan met de visibility parameter erin?

Citaat van: hulpje op wo 06 04 2011, 23:46:53
Block openen in BlockEdotor, daarvandaan kan je dan een BlockSaveAs doen.
Zelf doe ik dat via de Ribbon, het commando zit dan net verstopt onder het BlockSave icoontje.

Zit nu thuis, zal morgen even een printscreen plaatsen.

Bedoel je _BSAVEAS ? Want deze doet iig wat ik wil ^^ thnx.

Is het mogelijk om een block in te voegen en deze meteen te redefinen?
Dus door middel van -insert "blockname" en vervolgens redefine last of iets dergelijks.

Bij voorbaat dank.

Citaat van: hulpje op vr 01 04 2011, 15:02:05
Publiceer het block even op de site, dan kunnen we ernaar kijken.

Richard

Dit is helaas geen optie, mischien dat ik wel even een voorbeeld block in laag 0 kan maken straks.

Hallo,

Ik heb een probleem met een dynamic block.
Het betreft een cilinder waarvan de voet en de kop bestaan uit een block, en de cilinderstang lijnen zijn met een coincident constrain.
Het werkt allemaal machtig mooi, uitschuiven en roteren, totdat ik het block nogmaals insert.
Dan wordt hij opnieuw ingevoegt onder 0 graden, zoals de bedoeling is.
Maar nu het probleem, de cilinderkop is uitgeschoven, maar de parameter zit nog op de originele plaats.
Hoe zorg ik dat de parameter op de goede plaats blijft in het block, of dat hij het block ingeschoven insert?

Bij voorbaat dank.

Ooh nou dan ga ik dat eens proberen.
Waarschijnlijk gaat het alsnog fout omdat ik de blocks op dit moment insert via SendstringToExecute.
En gaat hij al terug naar de CurrentLayer terwijl ik in de "pause" zit van de stringtoexecute.

EDIT: Dit bovenstaande werkte niet. Weer een Unhandled Exception.

Ik ben aan het kijken naar de volgende code:
http://forums.autodesk.com/t5/NET/Insert-block-from-disk/m-p/1932281

Na het wegwerken van een aantal errors, bijvoorbeeld Imports AcDb = Autodesk.AutoCAD.DatabaseServices pakt hij niet. Maar wel Imports ADb = Autodesk.AutoCAD.DatabaseServices omdat anders Imports alias 'AcGe' conflicts with 'Structure AcGe' declared in the root namespace.
Is dit zo goed opgelost ?

En ik houdt uiteindelijk 3 errors over, 2 maal BlockNameToID(blockname) en 1 maal tbl.Item(BlockName)
En deze hebben dan de volgende 2 errors:
Value of type '1-dimensional array of Autodesk.AutoCAD.DatabaseServices.ObjectId' cannot be converted to 'Autodesk.AutoCAD.DatabaseServices.ObjectId'.
en
Value of type 'Autodesk.AutoCAD.DatabaseServices.ObjectId' cannot be converted to '1-dimensional array of Autodesk.AutoCAD.DatabaseServices.ObjectId'.   

Ik hoop hier nog een oplossing voor te vinden.
Ook heb ik geen idee hoe ik dit aan een userinterface te koppelen.

Wow.. hoe kom ik erbij om hier een Dim enz. voor te zetten.
Application.SetSystemVariable("CLAYER", 0) moet het gewoon zijn  

EDIT:
Met de volgende code krijg ik in AutoCAD zelf een foutmelding, Unhandled exception.
Dim CurrentLayer = Application.GetSystemVariable("CLAYER")
Application.SetSystemVariable("CLAYER", 0)

"Applicatie"

Application.SetSystemVariable("CLAYER", CurrentLayer)

Wat gaat er mis ?

Ik heb een probleem met mijn code, de regel met SetLayer geeft een fout.
Application.SetSystemVariable("CLAYER", 0) geeft de error: Expression does not produce a value.

Wat ik wil bereiken is dat als de knop "Invoegen" wordt ingedrukt dat de applicatie de huidige layer (CurrentLayer) ophaalt uit AutoCAD. Dit doet hij ook, gechecked via een MessageBox.
Vervolgens moet de huidige laat naar 0 worden gezet, nu doe ik dit nog met een SendstringToExecute.
En aan het eind moet ik de laag weer terugzetten op de oorspronkelijke laag.

Dim CurrentLayer = Application.GetSystemVariable("CLAYER")
Dim SetLayer = Application.SetSystemVariable("CLAYER", 0)

"Applicatie"

Dim SetLayer = Application.SetSystemVariable("CLAYER", CurrentLayer)

Maar door de foutmelding loop ik een beetje vast.

Bij 2011 is het kruisje en de minimaliseer optie alleen te zien als je met je muis over de titelbalk van de palette heen gaat als deze gedocked is.

Heren,

Ik probeer een textbox te togglen, deze moet zichtbaarzijn als ComboBox2.SelectedItem = "Bovenaanzicht" en anders niet.

Nu heb ik deze code:
   Private Sub ComboBox2_Change()

       If ComboBox2.SelectedItem = "Bovenaanzicht" Then
           TextBox1.Visible = True
       Else
           TextBox1.Visible = False
       End If

   End Sub

Wat gaat er mis ?

EDIT: Opgelost dmv volgende code:
    Private Sub ComboBox2_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedValueChanged
        If ComboBox2.SelectedItem = "Bovenaanzicht" Then
            TextBox1.Visible = True
        Else
            TextBox1.Visible = False
        End If
    End Sub

Citaat van: sschevers op vr 18 03 2011, 14:26:02
Als je een standaard kruisje hebt, dan heb je toch geen eigen button nodig toch? Of zie ik het verkeerd?

Ik laat het nu wel zo, maar dat was in eerste instantie niet de bedoeling. Aangezien als de palette gedocked is dat het kruisje en het mininmaliseren wordt gehide.

Citaat van: sschevers op vr 18 03 2011, 14:05:44
PaletteSetStyles.ShowCloseButton

met deze instelling sluit je de hele paletteset

stephan

Klopt, maar dat is het standaard kruisje. Deze kan je niet achter een CommandButton hangen.

Ik wil ook geen palette sluiten maar de hele set, dus de hele app.. maar het maakt niet zoveel uit.. ik laat het wel zoals het is.