Cad-Forum

Re: Printen automatiseren

Wed, 27 Jul 2011 08:30:15 +0100

Weet niet of het nog actueel is?

ben ook niet bekend met het programma, maar je kan bv alle layout's selecteren en publishen. naar de printer geselecteerd in de layout. wat je ook kan doen is met dospromt het document rechtstreeks je printer insturen je moet dan 1st naar een file plotten vanuit het programma daarna kun je dit bestand de printer insturen.
laat maar ff weten of je er nog mee bezig bent en of je hier iets mee kan.
mvrgr A.D.

Printen automatiseren

Tue, 15 Mar 2011 08:13:22 +0100

Ik ben een stagair bij het bedrijf Jac Kooij & Zn. B.V. in Aalsmeer.

Ik zit hier nu al zo�n 2 maanden en zit nu in een periode dat ik veel moet uitprinten en materiaallijsten moet maken.

Aangezien ik dit al een paar keer heb gedaan en het allemaal werk is dat iedereen kan dacht ik, kan dit misschien niet makkelijker?

Ik ben nu dus aan het rondkijken hoe we dit kunnen oplossen. We maken namelijk van alles maar werken vooral met plaatmateriaal en kokers.

Nu is dus mijn vraag aan jullie, als ik een product heb dat wel 50 verschillende werktekeningen heeft dan moet ik elke keer apart het bestand openen en printen.

Is er niet iets dat kan zorgen dat ik met 1 druk op de knop de werktekeningen uitprint en dat er dan dus ook de goede keuze wordt gemaakt voor A3 of A4.

Mijn begeleider zei namelijk dat dit een jaar geleden nog niet aan de orde was. En als dit nog steeds niet aan de orde is dan wilde ik graag iets proberen met programmeren.

Dan is dus de vraag of de HiCad programeertaal algemeen is of heel ingewikkeld?

Met die materiaallijsten denk ik niet dat jullie mij kunnen helpen aangezien er meestal pas in de werktekening wordt gezet wat voor materiaal het is.

Maar misschien dat jullie tips hebben? Want nu hebben we dan bijvoorbeeld een plaatwerk, berekenen wij hoeveel kg het is en dan voeren wij het in een programma (de Ridder).

Dus misschien moet ik bij hun zijn?

Hopelijk kunnen jullie mij helpen.

Met vriendelijke groet,

Casimir Koelman

Re: Re: Grenzen aan grootte van een real

Mon, 13 Dec 2010 10:44:59 +0100

Re: Re: Grenzen aan grootte van een real

Mon, 13 Dec 2010 10:43:39 +0100

> HofCAD schreef:
> > Peter Poeliejoe schreef:
> > Als ik dit ingeef:
> > (+ 10000.8 2.4), volgt er correct 10003.2
> >
> > Bij het volgende echter: (+ 100000.8 2.4), volgt er
> > 100003.0.
> >
> > Die 100000 lijkt de grens te zijn.
> > Is er een bovengrens voor een real aan de lengte voor de punt?
>
> Er is wel een bovengrens 9.999999999999999e99 maar belangrijker
> is de weergave nauekerigheid op de commandoregel LUPREC (0 T/m 8)
> en de print weergave maximaal 18.
> Test eens:
>
> (defun C:test()
> (setq x1 (+ 100000.8 2.4))
> (princ "
(setq x1 (+ 100000.8 2.4)) geeft met (rtos x1 2 4):")
> (princ (strcat "
x1= " (rtos x1 2 4)))
> (setq x2 (+ 12345788.123456788 1.000000001))
> (princ "
(setq x2 (+ 12345788.123456788 1.000000001)) geeft met (rtos x2 2 18):")
> (princ (strcat "
x2= " (rtos x2 2 18)))
> (setq x3 (+ 123457889.1234567899 1.000000000111))
> (princ "
(setq x3 (+ 123457889.1234567899 1.000000000111)) geeft met (rtos x3 2 22):")
> (princ (strcat "
x3= " (rtos x3 2 22)))
> (textscr)
> (princ)
> )
>
> Metvriendelijke groet, HofCAD CSI.

Dag HofCAD,

bedankt voor je reactie.
De output is:

: test
(setq x1 (+ 100000.8 2.4)) geeft met (rtos x1 2 4):
x1= 100003.2000
(setq x2 (+ 12345788.123456788 1.000000001)) geeft met (rtos x2 2 18):
x2= 12345789.12345679000000
(setq x3 (+ 123457889.1234567899 1.000000000111)) geeft met (rtos x3 2 22):
x3= 123457890.12345679000000

Dat lijkt dus wel te werken.
Luprec stond hier trouwens op 4. Deze variabele beinvloedt toch alleen de presentatie, niet de achterliggende rekennauwkeurigheid?

Wat je met die "print weergave maximaal 18" bedoelt, begrijp ik niet. Wil je dat uitleggen?

Vriendelijke groet,
Peter

Re: Re: Grenzen aan grootte van een real

Sun, 12 Dec 2010 09:43:15 +0100

Re: Grenzen aan grootte van een real

Thu, 09 Dec 2010 18:06:18 +0100

> Peter Poeliejoe schreef:
> Als ik dit ingeef:
> (+ 10000.8 2.4), volgt er correct 10003.2
>
> Bij het volgende echter: (+ 100000.8 2.4), volgt er
> 100003.0.
>
> Die 100000 lijkt de grens te zijn.
> Is er een bovengrens voor een real aan de lengte voor de punt?

Er is wel een bovengrens 9.999999999999999e99 maar belangrijker
is de weergave nauekerigheid op de commandoregel LUPREC (0 T/m 8)
en de print weergave maximaal 18.
Test eens:

(defun C:test()
(setq x1 (+ 100000.8 2.4))
(princ "
(setq x1 (+ 100000.8 2.4)) geeft met (rtos x1 2 4):")
(princ (strcat "
x1= " (rtos x1 2 4)))
(setq x2 (+ 12345788.123456788 1.000000001))
(princ "
(setq x2 (+ 12345788.123456788 1.000000001)) geeft met (rtos x2 2 18):")
(princ (strcat "
x2= " (rtos x2 2 18)))
(setq x3 (+ 123457889.1234567899 1.000000000111))
(princ "
(setq x3 (+ 123457889.1234567899 1.000000000111)) geeft met (rtos x3 2 22):")
(princ (strcat "
x3= " (rtos x3 2 22)))
(textscr)
(princ)
)

Metvriendelijke groet, HofCAD CSI.

Grenzen aan grootte van een real

Sat, 04 Dec 2010 17:21:56 +0100

Als ik dit ingeef:
(+ 10000.8 2.4), volgt er correct 10003.2

Bij het volgende echter: (+ 100000.8 2.4), volgt er
100003.0.

Die 100000 lijkt de grens te zijn.
Is er een bovengrens voor een real aan de lengte voor de punt?

Re: eFileAccesErr

Wed, 24 Nov 2010 16:06:24 +0100

Het ligt aan Windows7.
Je kan niet direct op de c schijf wegschrijven.

eFileAccesErr

Tue, 23 Nov 2010 13:14:35 +0100

Deze error geeft hij vanaf deze lijn: "bron.Database.SaveAs("C: est.dwg", DwgVersion.Current)"

Zou iemand mij hiermee kunnen helpen?

Dit is om een WBlock in een schone tekening op te slaan zodat je ze in andere tekeningen kan redefinen na een revisie.

Dank je,

Maarten

Dim bron As Document

Private Sub cmdTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTest.Click
Me.OpenFileDialog1.Filter = "DWG files (*.dwg)|*.dwg"
Me.OpenFileDialog1.ShowDialog()
Dim TekeningNaam = Me.OpenFileDialog1.FileName
BlokNaam = Me.OpenFileDialog1.SafeFileName
BlokNaam = BlokNaam.Remove(BlokNaam.Length - 4, 4)
bron = Application.DocumentManager.Add("")
bron.Database.SaveAs("C: est.dwg", DwgVersion.Current)
bron.LockDocument()
bron.SendStringToExecute("-Insert" & vbCr & TekeningNaam & vbCr & "s 1 r 0 0,0 z all ", True, False, False)

End Sub

eKeyNotFound

Tue, 23 Nov 2010 13:10:07 +0100

Ik bedacht deze subroutine met een teatcher.

Dit is om WBlocks in andere tekeningen te veranderen.
Maar deze week werkt het niet.

Ik kan niet vinden waarom.

De boodschap begint bij:
"Dim XBlokId = XBlokken(NaamBlok)"

Dank je

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.Windows
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.ApplicationServices
Module Subroutines

Sub VervangBlok(ByVal doc As Document, ByVal NaamDwg As String, ByVal NaamBlok As String)
Try
Dim Xdwg = New Database
Xdwg.ReadDwgFile(NaamDwg, IO.FileShare.Read, True, "")

Using XTransactie = Xdwg.TransactionManager.StartTransaction()

Dim XBlokken As BlockTable

XBlokken = XTransactie.GetObject(Xdwg.BlockTableId, OpenMode.ForRead)
Dim XBlokId = XBlokken(NaamBlok)

Dim XBlok As BlockTableRecord
XBlok = XTransactie.GetObject(XBlokId, OpenMode.ForRead)

�Het blok in de externe tekening is bekend

�Dim doc = Application.DocumentManager.MdiActiveDocument
Dim dwg = doc.Database

Using doc.LockDocument()
Using transactie = doc.TransactionManager.StartTransaction()

Dim Blokken As BlockTable
Blokken = transactie.GetObject(dwg.BlockTableId, OpenMode.ForWrite)

�voeg de id�s toe
Dim Objecten As New ObjectIdCollection

Objecten.Add(XBlok.ObjectId)

�Clone de id�s van een tekening met de andere
Dim objMap As New IdMapping
dwg.WblockCloneObjects(Objecten, Blokken.ObjectId, objMap, DuplicateRecordCloning.Replace, False)

transactie.Commit()

End Using
End Using

End Using
Catch ex As Exception
MsgBox("Er ging iets fout: " & vbCrLf & ex.Message)

End Try

End Sub
End Module