CADsite forum

Puntenwolken ofte Point Clouds, de data die komt uit de 3D laser techniek...

De komst van 3D laserscanning hoeft niet meer aangekondigd te worden, het bestaat al een tijdje.
Alleen is de opkomst van verschillende soorten scanners en de mogelijkheden ervan enorm gestegen.
Momenteel is de softwaremarkt een beetje aan het inhalen, een tijdlang was iedereen verplicht om te werken met de software van de fabrikant van de scanner waarmee men werkte.
Nadien kwamen er meer spelers op de markt en verliep het steeds vlotter.
Nog steeds is er geen totaalpakket die alle wensen van alle mogelijke gebruikers aan kan bieden.
Maar elke keer komt er iemand een stapje dichter...

AutoDesk en MicroStation zijn ook tot deze conclusie gekomen, en gingen op zoek naar de mogelijkheden om dit binnen hun pakketten te kunnen implementeren.
MicroStation werkte samen met Pointools Ltd en kon dit heel snel aanbieden in de meeste van hun pakketten.
Pointools Ltd had immers al jaren ervaring met RhinoCeros (software van de bekende Bob McNeel - DosLib)
AutoDesk verkoos zijn eigen weg te gaan, en komt nu uit met de eerste mogelijkheden binnen de autocad pakketten.
De Point Clouds, ofte puntenwolken kunnen reeds geïndexeerd worden en gebruikt om te modelleren.
Reverse engineering, architectuur plannen, piping wereld... het ziet er allemaal plots anders uit.
Al zijn er momenteel nog maar weinig mogelijkheden om de puntenwolken te bewerken binnen een autocadomgeving, het is een start. Trouwens er zijn tal van andere softwarepakketten die al geruime tijd veel meer kunnen, waarom zou Autodesk dan achter blijven?

Statisch <> Mobile

Er zijn natuurlijk verschillende soorten scanners, zoals reeds vermeld.
Voorbeeld statische en mobiele scanners...
Een statische scanner stel je op en die scant de omgeving in vanuit 1 punt, dan ga je naar het volgende en zo bouw je een puntenwolk op.
Dit kan zowel voor de topografie als voor de mechanica, waarbij voor de topografie er eerder gebouwen ingescand worden (bv. voor verbouwingswerken, aanpassingen, gevelmetingen, gaming...) en voor de mechanica er eerder kleinere scanners ingezet worden...
De statische scanners exporteren meestal een ascii-vormig bestand met daarin vooral XYZ coördinaat, intensiteitswaarde en RGB kleur.

Mobiele scanners is de nieuw opgekomen trend, en echt wel meer voor topografie dan voor de mechanische sektor. Mobiel scannen kan gezien worden als scanners die op een auto geplaatst worden en die scannen terwijl je rijdt, je kan je dus al gaan inbeelden dat er heel wat komt bij kijken.
Bedenk maar dat je in een wagen zit, die draait.. stopt, versnelt, vertraagt, kantelt,...
Inderdaad, dat zijn allemaal gegevens die gebruikt worden om de scanning vanuit een rijdende wagen te kunnen uitvoeren. Het resultaat is hetzelfde, een puntenwolk, maar dan een hele grote...
Deze bestanden worden opgeslagen in een LAS-formaat, waarbij een groot aantal attributen opgeslagen worden. Deze attributen kunnen dan gebruikt worden om tools te maken in softwarepaketten die het makkelijker maken de data te gebruiken.
Bv. intensiteitswaarde van een punt, de RGB kleur, XYZ coordinaat...enz.

Ik hoop dat hiermee enkele mensen toch meer inzicht kregen in wat een puntenwolk nu eigenlijk is.
Voor de mechanische sektor kan ik niet veel spreken, ik zit zelf voornameijk in de topografische wereld. Indien u meer informatie wil, dan verwijs ik u graag naar onze site www.teccon.be
(ga naar diensten... 3D laserscanning of http://www.mobile-mapping.be).

Om echt te weten wat u met zo een puntenwolk wil doen dan verzoek ik u dit filmpje eens te bekijken en uw fantasie verder te laten gaan...
http://www.youtube.com/watch?v=htvmp788RqU
http://www.youtube.com/watch?v=Mja1d443poY

probeer dit eens:

Open taakbeheer en ga naar Processen (sorteer op geheugenverbruik)
Open vervolgens een grote autocad tekening, 2009 of 2010 (neem gerust een gecompliceerde)
Eens deze open is...minimaliseer de volledige autocad sessie (niet alleen de tekening)
Je zal zien dat het geheugenverbruik zeer sterk verminderd.... tot 90%
Maximaliseer terug de autocad sessie en je geheugenverbruik zal terug op een werkbaar niveau zitten....
Deze techniek reset blijkbaar het geheugen van autocad zonder opnieuw op te starten.
Waarom doen ze hier eigenlijk niets aan bij Autodesk  ?

Hallo,
ik zag dat er reeds over deze materie gesproken werd in: http://www.cadsite.be/smf/index.php/topic,3195.0.html
ik had deze lisp reeds een tijdje, maar ze werkt niet echt zoals het hoort.
als ik deze lisp gebruik, dan voegt deze het path toe, en kan je ze ook zien bij de options.
Als "test.txt" een bestand is dat in die nieuwe map staat,
en met mijn lisp komt die nieuwe map bovenaan de lijst te staan van de zoek-paden.
waarom krijg ik dan de nil-melding bij dit commando : (findfile "test.txt")  ???
Het lijkt er op dat mijn map gewoon toegevoegd werd, maar niet geladen of geaktiveerd.
Misschien weet er hier iemand een antwoord op.... ik kijk er alvast naar uit.

;|---------------------------------------------------------------------------------------------|;
;| een nieuwe map toevoegen tot het Support File Search Path                             |;
;|---------------------------------------------------------------------------------------------|;
(defun voeg-supmap-toe (/ bestanden SupPath NewSupPath)
  (setq bestanden (vla-get-files (vla-get-preferences (vlax-get-acad-object)))
           SupPath (str2lst (vla-get-SupportPath bestanden ) ";")
           NewSupPath (cons "C:\\New Folder" SupPath))
  (vla-put-SupportPath files (lst2str NewSupPath ";"))  (vlax-release-object bestanden ) 
  (princ "\nDe nieuwe map werd toegevoed tot het Support File Search Path.")(princ))
;|---------------------------------------------------------------------------------------------|;
(defun str2lst (str sep / pos)
  (if (setq pos (vl-string-search sep str))
    (cons (substr str 1 pos)
     (str2lst (substr str (+ (strlen sep) pos 1)) sep))
    (list str)))
;|---------------------------------------------------------------------------------------------|;
(defun lst2str (lst sep)
  (if (cadr lst)
    (strcat (vl-princ-to-string (car lst))
       sep
       (lst2str (cdr lst) sep))
    (vl-princ-to-string (car lst))))
;|---------------------------------------------------------------------------------------------|;

THX.

Op zoek naar een job?
Teccon bvba is momenteel op zoek naar CAD-tekenaars.

Teccon bvba is in hoofdzaak een landmeetkundig bureau, die als bijkomende dienst oa. aan CAD-ondersteuning doet.
Het bedrijf kent momenteel ook een enorme groei met diverse mogelijkheden.
In het kader hiervan zijn we op zoek naar verschillende tekenaars voor de regio Antwerpen/ Oost-Vlaanderen.

Stuur uw CV en sollicitatie-mail naar vacature@teccon.be
Met als onderwerp "CAD-tekenaar"
Een sollicitatie vbij Teccon bestaat steeds uit een gesprek en een teken-test, het neemt ongeveer 1,5uur in beslag.

Op zoek naar een job?
Teccon bvba is momenteel op zoek naar CAD-tekenaars.

Teccon bvba is in hoofdzaak een landmeetkundig bureau, die als bijkomende dienst oa. aan CAD-ondersteuning doet.
Het bedrijf kent momenteel ook een enorme groei met diverse mogelijkheden.
In het kader hiervan zijn we op zoek naar 2 tekenaars voor de regio Antwerpen/ Oost-Vlaanderen.

Stuur uw CV en sollicitatie-mail naar vacature@teccon.be
Met als onderwerp "CAD-tekenaar"
Een sollicitatie vbij Teccon bestaat steeds uit een gesprek en een teken-test en duurd ongeveer 1,5uur.

Voor wie er zich al aan ergerde:
Je kan nu ook je layout's exporteren naar apparte DWG-files..

http://myfeedback.autodesk.com/exlayout/Files/English/ExportLayout-EN.exe
http://myfeedback.autodesk.com/exlayout/Files/English/exportlayout.readme_0420-EN.html

heeft er iemand dit ooit een poging gewaagd om een dll-file aan te roepen binnen lisp?
Weet er iemand of dit mogelijk is....
VBa'er of NET'ters.... hoe kan je eventueel een dll-file aanroepen of gebruiken in een macro...?

heeft er iemand dit ooit een poging gewaagd om een dll-file aan te roepen binnen lisp?
Weet er iemand of dit mogelijk is....

Kan er mij iemand helpen?

ik zoek liefst voorbeelden van uitvoeringsplannen van appartementsbouw,
of een inhoudslijst van uitvoeringsplannen van appartementsbouw.

bij voorbaat : ZEER VEEL DANK

prog: Autocad Civil 3D 2007
bug?: Al mijn instellingen van de units staan op 'Meter', maar toch: telkens ik een tekening open van een ander persoon komen mijn units op 'Feet' te staan.

Kent er iemand na INSUNITS, INSUNITSDEFSOURCE, INSUNITSDEFTARGET en de klassieke UNITS nog instellingen voor units bij openen van tekeningen.???

thx

Beste Forum-lezers, beste Forum-leden,

Graag had ik eens geinformeerd bij jullie aangaande avond-opleidingen van : VBA  --  VB.NET --  Autocad inventor

Waar volgden jullie deze opleiding, ben je er tevreden over, viel de kostprijs mee, enz enz.

Alvast bedankt voor uw reactie.

firmavoorstelling en vacaturevoorstelling op  -> www.teccon.be

Ik ga hier proberen voor de autocad R2006 gebruikers enkele tips te geven die handig kunnen zijn om te weten:

* scalelistedit    hier kan je bv. je schalenlijst aanpassen aan de gebruikelijke schalen, en de amerikaanse verwijderen,
                       dit maakt toch een beter indruk en is overzichtelijker in gebruik bij het plotten.

* field  Soms wil je de datum, of de filename of andere gegevens uit de tekening ergens in de tekening
           te plaatsen, in een titelhoek of gewoon in de plotkader, experimenteren met dit commando helpt u een hele stap vooruit..

* intelligentupdate  Dit is een systeemvariabele die er voor zorgt dat uw Lisproutines en Script files net iets
                            vlotter 'verversen' en dus werken. Je moet je ingave vergelijken met x-aantal schermverversingen per seconde.

* isavepercent  Dit is een systeemvariabele die reeds werkt vanaf R2000 dacht ik en deze variabele regelt
                       eigenlijk in hoever autocad de 'loze' ruimte mee opslaat in uw tekening.
                       Voor de invoer: 0 heeft kleinere bestanden, maar slaat langzamer op.

* dispsilh  Dit is een systeemvariabele die weinig gekend is en toch de 3D-gebruikers nuttig kunnen zijn:.
               1 = toont het silouet van een ronde 3Dsolid, dus ZONDER 'driehoeklijnen';
               0 = toont de 'driehoeklijnen' van een ronde 3Dsolid (om te laten zien dat het rond is).

* osnapnodelegacy  Dit is een systeemvariabele die er voor zorgt dat als in je osnap-settings 'node' aangevinkt is
                             je kan snappen naar de box rondom je Mtext , je moet dit uitproberen door eens een mtext te plaatsen, de variabele eens op '1' te plaatsen,
                             vervolgens een lijn te tekenen en dan rondom je Mtext gaan, je zal zien dat je naar de uit-hoeken van je mtext kan 'snappen'.

* hpgaptol  Dit is een systeemvariabele die er voor zorgt dat als je wil arseren, er een gep-tollerantie word toegestaan
                 en waarvan de grootte afhankelijk is van de door u ingegeven waarde.

* ren  Dit is een commando die je razendsnel de mogelijkheid heeft om blocks, layers, linetype's enz. te hernoemen binnen je tekening,
          dit moet je proberen om het te geloven.

* peditaccept  Dit is een systeemvariabele die er voor zorgt dat de vervelende "Do you want to turn it into one? <Y>" bij Pedit
                     niet meer gevraagd word.

* taskbar Dit is een systeemvariabele die er voor zorgt dat de verschillende openstaande tekeningen in je autocad,
              appart verschijnen in je werkbalk onderaan je windows, kan handig zijn.
              0  plaatst alles in 1 balkje,   1 splits ze op in verschillende balken.

* Multiple in volgende commando's is een multiple-mogelijkheid ingebouwd: Pedit, Fillet, Chamfer.

* Break Line In de express tools zit nu een handige tool voor iedereen die details tekent en hierbij gebruik maakt van het snijlijntje,
                   het symbooltje dat aanduid dat er in die lijn geknipt is om op een plan te kunnen, proberen op 2 lijnen zal duidelijker zijn dan dit te lezen...

Ik heb even het genoegen genomen om dit, voor mij toch wel onwennige pakket te instaleren, en eveneens dus ook uit te proberen.

Aangezien dit hier nog niet echt een 'hot'- topic is... eerst even de vraag,
Waar ken ik een eventuele nederlandstalige help of ev. hulp vinden hiervoor.

hoi, in topic http://www.cadsite.be/forum/viewtopic.php?t=194 waarin Joop een schijnbaar schitterende lisp routine van David Stein laat zien, worden er vooral veel mogelijkheden meegegeven, waarmee je dus vanuit autocad excel zou moeten kunnen manipuleren.

De laatste 2 uur heb ik mij daar eens zitten in verdiepen en het een en ander uitspitten, maar ik word er helaas niet echt wijzer van, is er iemand die dit ook gedaan heeft (uitspitten en verdiepen) en die mij enige uitleg hieromtrend kan meegeven, vooral dan van hoe je al die subroutines moet gebruiken, of je ze allemaal moet doorlopen ja dan nee, en natuurlijk, hoe je ze gebruikt.

Ik ken wel een en ander van autocad, en helaas veel te weinig van excel, maar toch zie ik enkele leuke en interresante mogelijkheden om deze 2 aangenaam te koppellen...

Alvast bedankt op voorhand.

bij het menu 'Cursus' 'Links' staat er een link naar 3dcafe...
http://www.3dcafe.com/asp/tutacad.asp

die werkt niemeer!!

Gewoon voor de fun en voor de verveling tegen te gaan was ik op zoek naar iets speciaals...
een deuntje kunnen spelen in autocad met de numerieke toetsen, het is echt te idioot om te doen denk je.
Inderdaad dat is het ook, maar is het niet echt fantastisch dat het mogelijk is?
Na paar uurtjes tobben en kauwen kwam dit uit mijn kleine brein:

Aan diegenen die het eens willen uitproberen kopieer de blauwe tekst naar een txt-file en verander de extentie naar .lsp, laden in autocad doe je door 'AP' te typen en de file op te halen...
EEN belangrijk feit: je moet de doslib.arx ook laden!!!


;Tune - laat u muziek maken door PC speaker met numerieke toetsen
;Geschreven door Olivier Hautekeete
------------------
| Hoofdprogramma |
--------------------------------------------------------------
(defun c:tune ()
(while
 (setq inp (chr (nth 0 (cdr (grread)))))
 (cond
      ((= inp "0") (dos_speaker 650 300))
      ((= inp "1") (dos_speaker 700 300))
      ((= inp "2") (dos_speaker 750 300))
      ((= inp "3") (dos_speaker 800 300))
      ((= inp "4") (dos_speaker 850 300))
      ((= inp "5") (dos_speaker 800 300))
      ((= inp "6") (dos_speaker 850 300))
      ((= inp "7") (dos_speaker 900 300))
       ((= inp "8") (dos_speaker 950 300))
       ((= inp "9") (dos_speaker 1000 300))
      (t nil)
    )
)
 (princ "\n\t Tune werd beïndigd...")(princ)
)
--------------------------------------------------------------
| Lisp-melding
--------------------------------------------------------------
(princ "\nCopyright (C) Hautekeete Olivier - augustus 2005.")(princ)
(princ "\nStart het commando met 'TUNE'.")(princ)
--------------------------------------------------------------

Goed e Kenny, na even denken kwam ik er toch...

Hoi,

ik vond toevallig de site... www.CADjobs.be

Daar kan je je CV en beschrijving geven en u laten vinden,
aan de andere kant kan je daar dan dus ook tekenaars ed. vinden
als bedrijf....

mss is een link naar die site nog zo geen slecht idee?

vriendelijke groeten, WebRacer

Beste AutoCad-sporters,
ik hoor net van HofCAD dat ik met dit jullie een groot plezier kan doen,
dan doe ik dat dus ook maar...
Het is een secret in autocad maar als je in AutoLisp wil afronden gebruiken velen onder u de systeemvariabelen Luprec ea. nu dat is goed je mag die perfect gebruiken!
Alleen als je een mooi eindresultaat wil laten verschijnen, erger je je dood aan het weglaten van een 0

klein vb:  (setq x 120.560) en (setq y (rtos x 2 3))
als je de y gaat gebruiken zal hij niet 120.560 maar  120.56 weergeven.

De Oplossing:
De Systeemvariabele DIMZIM
(setq dmzn (getvar "DIMZIN")) - aan het begin van uw lisp plaatsen
(setvar "DIMZIN" 3) - waar je de afronden wil toepassen
(setq y (rtos x 2 3))
(setvar "DIMZIN" dmzn) - aan het einde van je programma

je zal zien dat de 0 in x nl. 120.560 er netjes staat...
veel fustratie gespaard en zelfmoorden vermeden...

Vraag niet om meer uitleg, gebruik wat je ziet, het is een onverklaarbaar gegeven waarom autodesk deze DIMsysteemvariabele hiervoor   forceerde

Groeten van WebRacer

hoi, ik heb hier een probleem, even kijken of er mensen zijn die dit weten....
ik wil vanuit visual lisp een email sturen maar dit schijnt niet goed te lukken weet er iemand hoe dit op te lossen,
ik had dit geschreven maar dit lukt echt niet...

;met wat hulp van David M. Stein
;probeerde ik dit
;CdLspOlivier = de tekst die ik wil verzenden
(defun sendmail (/ cdoMail)
(cond
   (
    (setq cdoMail (vlax-create-object "CONDTS.NewMail"))
    (vlax-put-property cdoMail 'From "xxx")
    (vlax-put-property cdoMail 'To "Olivier.Hautekeete@telenet.be")
    (vlax-put-property cdoMail 'Subject "Registratie Code Lisp")
    (vlax-put-property cdoMail 'Body CdLspOlivier)
    (vlax-put-property cdoMail 'Importance 1)
    (vlax-invoke-method cdoMail 'Send)
    (vlax-release-object cdoMail)
    (setq cdoMail nil)
   )
 )
 (princ)
)