Autocad

LISP, VBA of een free script batch builder nodig?

Geïnteresseerd in LISP of VBA neem hier eens een kijkje                                 Naar menu overzicht.

De autocad tekening die we in de les hebben gemaakt schaafbank, download hieronder
mes schaaf.dwg
motor.dwg
polie1.dwg
polie2.dwg
kaprol.dwg
vlakrol.dwg

Oefeningen met LISP voor de les autocad.
deurlinks.lsp tekent een linker deur, gebruik setq funktie
ibd01.lsp tekent een deur
ibd02.lsp tekent een deur met stand. afmetingen If funktie
deurlr.lsp tekent een links/rechts opengaande deur, gebruik cond funktie. Dikte van deur moet ingegeven worden alsook moet je ze zelf op de muur plaatsen.
deurlrm.lsp idem als vorige maar hier is automatisch dikte deur gelijk aan dikte muur en deur komt exact op de muur te liggen.

TRA downloads: Menu en bibliotheek.
VISIO symbolen elektronica Elektronica.vss

Maak je veel scripts in autocad dan hebt u nood aan een script batch builder!

Indien je een script file wil aanmaken met een reeks van repeterende commando's toegepast op alle files in een directory  (vb: 50 files) ben je hier wel een tijdje zoet mee met het nodige copy/paste en type werk met het risico dat je fouten maakt.  In de tijd van R12 (dos) had ik ooit een boek gekocht waarin een CD zat en waar zo'n batch script builder op stond onder LISP weliswaar.  Bleek dit uiteindelijk niet meer te werken onder de meer recentere acad versies.  Na enige tijd te zoeken en vragen te stellen in de NG gaf iemand mij de tip om 2xExplorer. (gratis te gebruiken) te gebruiken, een aangepaste versie van explorer a la norton commander, met de eigenschap dat deze automatisch batch files kan genereren.  Er zijn genoeg batch script builders op het net te vinden maar bijna allemaal tegen betaling.  Wel de oplossing: ga naar 2xExplorer homepage.

Tekeningnamen automatisch inbrengen in je autocad tekening.

1. Zet de dwg’s in een aparte directory.
2. Start 2Xexplorer.
3. Selecteer de files (dwg’s) die je wil aanpassen.
4. Klik op “mark” en “batch file”.
5. Zet de volgende commando’s in de box:
   open,”$N”,text,0;0,2.5,0,$B,,qsave,close,

Open = tekening openen
“$N” = tekeningnaam plaatsen tussen “” (herkenning van lange tekstnamen)
text = tekst commando
0;0 = plaats van tekst, je moet hier zelf nog de juiste coordinaten ingeven, het trema moet een komma zijn maar dit wordt in 2Xexplorer aanzien als een return! Dus we gaan nadien het trema vervangen door een komma!
2.5 = de teksthoogte geef hier uw tekst hoogte in.
0 = is de rotatiehoek.
$B = plaatsen van de filenaam zonder de ext.
Qsave = tekening bewaren.
Close = tekening sluiten.
Een komma wordt aanzien als een enter.

6. Save de file als bv: test
7. Start kladblok en open de file test.
8. We gaan het trema vervangen door een komma. Klik op “Bewerken” en “vervangen” vul in vervangen ; door ,
9. Bewaar de tekst file als test.SCR
10. Je hebt nu je scriptfile die je moet starten onder autocad, zo zal elke tekening in je directory bewerkt worden na elkaar.

Bug in autocad LT 2000i en 2000i:

Wanneer je attedit gebruikt om een attribute van een symbool te editeren gebeurt er soms iets raars met de tekst wanneer je de positie wil veranderen.... In plaats dat de tekst mooi in het midden aan je kruisdraden blijft hangen zweeft hij ergens op een afstand van je kruisdraden! Het gevolg is dat je heel moeilijk de tekst juist kan plaatsen, je zet de tekst op zen plaatst en wanneer je klikt springt hij plots naar het midden van je kruisdraden!! Blijkbaar wanneer je het sub-commando "p" geeft om de positie te veranderen en enter geeft door rechts te klikken is dit de plaats waar de tekst zal komen! Het probleem stelt zich vooral wanneer je het commando attedit gebruikt in menu macro's.

Door toevallig verschillende symbolen te gebruiken zag ik dat dit bij een bepaald symbool toch goed gepositioneerd werd, zodoende begon ik  testblokken te maken met attribute's met verschillend justification point en wat bleek, wanneer je het attribute aanmaakt met justification point links is er geen probleem maar wanneer je als justification center of midden gebruikt loopt het fout! Dit is misschien en tip voor diegene die in acadLt een bibliotheek maken met attributes en via menu macro's het commando attedit gebruiken om de tekstpositie te wijzigen na het inserten van het block.

Een deurtje nodig om een keuken te bouwen, probeer deze lisp files eens uit.

Deze lisp routines zijn gemaakt naar aanleiding van de autocad les en diegene die ze graag gebruikt.....

De deurtjes en panelen hier op de foto's zijn voorzien van een hout structuur (via het toekennen van materialen) daarna is via mapping de orientatie aangepast en het geeft na rendering het onderstaant resultaat. Voor alle duidelijkheid, het lisp routine tekent enkel de figuur en je zal om het onderstaand effect te bekomen zelf nog materiaal moeten toewijzen en renderen!

Download hier Deur.lsp

Download hier Deurb.lsp

Download hier Dubdeurb.lsp

Download hier blad.lsp

Download hier bladb.lsp

Voor diegene die niet meer weten hoe je een lisp file start in autocad.

Type in de command regel onderaan:

(load "deur")

dit zal de lisp routine in het geheugen laden.

Om het lisp routine te starten type terug onderaan in de command regel: 

deur