CADsite forum

Hallo,

Ik ben met een lisp script bezig en nu wil ik dmv invoeren van maten een radiator tekenen incl maatvoering.
Dit is allemaal geen probleem.
Bij deze radiator wil ik ook als text de maat van de radiator en de radiator code.
Ik heb dit geprobeerd om dit dmv een .cat bestand te doen.
Je laat de lisp dan zoeken in een database (hier het .cat bestand)
De zoekfunctie werkt prima met getallen die verschijnen keurig in autocad. alleen als ik deze getallen wijzig in letters werkt het niet meer.
Is het mogelijk om via lisp texten cq letters op te roepen uit een cat bestand?

Hieronder zie je de code.

(defun T_PROF_W ()
   (cond
      ((equal prof_type "TGW")
         (setq cat (open (findfile "TGW.cat") "r"))
         (setq prt (getstring "Geef profiel, bijv. 100*11: "))
      )
      ((equal prof_type "TOW")
         (setq cat (open (findfile "TOW.cat") "r"))
         (setq prt (getstring "Geef profiel, bijv. 100*50*8.5: "))
      )
      (T til)
   )
   (cat_data)
   (command "_mtext" "0,0" "1000,1000" lnb "")
)

de laatste lnb defenitie verwijst naar de 3e regel uit de database.

Is er een manier om text te verwijzen vanuit een database in autocad?

Misschien kan je beter een versie met een access database posten zodat er meer mensen zijn die kunnen testen en de kans dat iemand er al ervaring mee heeft groter is.

Dnereb heeft zeker aandelen bij Microsoft access???

Mogen wij een zien hoe die *.cat files er uit zien?
Denk dat dit eenvoudig op te lossen is...

Hier dan de lisp en .cat bestand
Je kan em openen in exel als je de waardes wilt veranderen.

Wat ik dus wil is text uit de cellen halen en plaatsten in autocad.
Met getallen werkt het prima probeer bij de 2e type vraag 10 en 22 maar eens.
Als je 33 intyp bij de 3e blijven Mtext regel leeg.

Hier kun je de zip vinden:

//www.lyrix.net/veha.zip

Succes! (ik blijf uiteraard ook door puzzelen.)

Citaat van: WebRacerDnereb heeft zeker aandelen bij Microsoft access???

Mogen wij eens zien hoe die *.cat files er uit zien?
Denk dat dit eenvoudig op te lossen is...

Nope, nooit met .cat gewerkt

Is een koppeling met text vanuit acces wel mogelijk dan Dnereb?
Zo ja heb je daar een voorbeeld van?

wat bedoel je precies met 'koppeling met tekst'

moet er een tekst geselecteerd worden uit een database en in een Mtext worden gezet o.i.d.?

Ja precies dat is de bedoeling.

VEHA
@
10
200
300
400
1000
@
20
200
300
400
1000
@
22
200
300
400
1000
@
33
1000-300-33
1000
1000
1000


de inhoud van het bovengenoemde cat bestand geopend in een textpad

Ben er mee aan het stoeien om een voorbeeld je te maken...

Julien,

is er een mogelijkheid om dat te attachen/te up loaden?
Ik denk dat er wel meer mensen geintresseerd zijn in het uitlezen van een access database vanuit Acad.

In dit forum nog niet...
Je hebt 3 mogelijkheden, ofwel mail je het naar mij, dan plaats ik de file online, je plaatst deze op je webruimte van je internet providor en plaatst hier een link ofwel maak je gebruik van een online upload service.

Het volgende forum zal een upload functie hebben.

Lyrix,


ik ben er mee bezig maar ik had beloofd om te helpen schilderen bij een vriendin die verhuist. Ik zal zo spoedig mogelijk een database en dwg naar julien op sturen.
Ik ben van plan om er vrij veel commentaar in te zetten en er ook redelijke error handling en optie's in te bakken.
daarom verwacht ik het niet af te hebben voor maandag
(ook in het weekend heb ik verplichtingen....zucht)

Dnereb, ik ben al heel blij dat je me wil helpen!
Dit is namelijk mijn eerste lisp poject en ik en me collega zijn aardig op weg. Als we een voorbeeld hebben van een database en acad dan zijn de mogelijkheden volgens mij onbeperkt.
We hebben alle type radiatoren incl maatvoering in de lisp verwerkt.
De optie aansluitingen links of rechts werkt ook.

Nu alleen de koppeling nog voor de text bestanden en bestelnummers.

Ik wacht af. Schilder ze!  

Oei misverstandje.

Het is in VBA niet in Lisp.
En hoewel ik nu heel veel commentaar ga krijgen.....
Als je je gaat verdiepen in automatisering in acad dan is VBA in mijn opinie een betere keuze.
Waarom:
je kan daarmee ook uit de voeten in:
Excel, Access, Word, Outlook, Powerpoint.
en het is een kleine stap naar VB.
Formulieren zijn makkelijker te gebruiken waardoor je gebruiksvriendelijker kan werken.
De code is beter leesbaar (Duck)
Het is meer object georienteerd/gebaseerd , een ontwikkeling die je steeds meet ziet in de ontwikkeling van Prog. talen

Duck....Duck.....Duck...Auch!!!...Too late

Nog heel even geduld en het nieuwe forum komt er.
http://www.cadsite.be/smf/
Hier zal je zelf attachments aan kunnen hangen.