CADsite forum

hoi Lyrics

een mooi staaltje van geduld en doorzettingsvermogen.
maar ik kan me vinden in de opmerkingen van Roy_043

vele programmeurs werken ook met error-catch en die komt in combinatie met uw lisp niet goed.

mvg
Olivier

PS ik kijk uit naar een nieuwe versie...

hoi thijss

in uw tekening zitten lijnstijlen waarin blocks of symbolen zitten, daartoe dienen de shx bestanden.
als je die negeert zal autocad een gewone lijn gebruiken.
vaak zie je dit bij topografische opmetingen, of elektrische schema's.

Aan deze bestanden zal het niet liggen, maar misschien aan XREF's of IMAGE's.
Ook ADT gebruikt natuurlijk wel wat data aan zijn elementen.

gebruik eens de variable EXPERT binnen autocad om de meldingen te negeren.

Vaak helpt ook een RECOVER of AUDIT met een purge.

Olivier

deze lisp werd ontworpen voor inches...
mits wat aanpassingswerk kan je deze lisp ombouwen.

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

er staat een ) te veel, helemaal op het einde bij defun transm...

het plotten via lisp is leuk, maar niet echt handig om uit te wisselen...
niet iedereen heeft dezelfde plotter, dezelfde doorloop dus van uw plot-commando.
ook voor de PDF zal het bij nogal wat mensen verschillend zijn.

Ik wens u veel plezier aan uw lisp.

ik zou voor de lisp als volgt te werk gaan:
(defun c:ppe ()
  (setq dialoog (load_dialog "exp.dcl"))
  (new_dialog "exp_mainDialog" dialoog)
  (setq ok_ T)
  (setq exp-plt 1)
  (setq exp-pdf 1)
  (setq exp-et 1)
  (set_tile "exp-plt" "1")
  (set_tile "exp-pdf" "1")
  (set_tile "exp-et" "1")
  (action_tile "exp-plt" "(setq exp-plt (atoi $value))")
  (action_tile "exp-pdf" "(setq exp-pdf (atoi $value))")
  (action_tile "exp-et" "(setq exp-et (atoi $value))")
  (action_tile "cancel" "(SETQ ok_ nil)")
  (start_dialog)
  (done_dialog)
  (unload_dialog dialoog)
  (if (/= ok_ nil)
    (progn
      (setq lo_len (length (layoutlist)))
      (setq layouts (reverse (layoutlist)))
      (setq  x lo_len)
      (while (> x 0)
   ;(princ (strcat "\n " (itoa x) ":"))
   (princ "\n ")
   (setq x (1- x))
   (princ (nth x layouts))
   (if (= exp-plt 1) (princ "\tplot-plt")(princ "\tGeen PLT"))
   (if (= exp-pdf 1) (princ "\tplot-pdf")(princ "\tGeen PDF"))
      )
      (if (= exp-et 1) (princ "\ntransm")(princ "\ngeen Etransmit"))))
(princ)
)

voor de dcl zou ik dit gebruiken:

exp_mainDialog : dialog {
label = "Export tekeningen";
: boxed_radio_column {   
label = "Soorten export";
: toggle {     
label = "&*.PLT";
key = "exp-plt";
}
: toggle {       
label = "&*.PDF";
key = "exp-pdf";
}
: toggle {       
label = "&ETRANSMIT";
key = "exp-et";
}
}
: row {          // defines the OK/Cancel button row
: spacer { width = 1; }
: button {    // defines the OK button
label = "OK";
is_default = true;
key = "accept";
width = 8;
fixed_width = true;
}
: button {    // defines the Cancel button
label = "Cancel";
is_cancel = true;
key = "cancel";
width = 8;
fixed_width = true;
}
: spacer { width = 1;}
}
}

van hieruit kan je vast verder...

geen probleem, kan je in de topic (OPGELOST) toevoegen?

al iemand \t geprobeert?

volgens mij ligt dit aan het plot commando

als je -plot intypt, en dan alle commando's overloopt dan zal er ergens een vraag zijn waarop Y geantwoord word, terwijl dit niet kan.....

probeer deze eens:


(defun c:laylckall (/ lst lay)
  (setq lst nil)
  (setq lay (tblnext "LAYER" T))
  (while (/= lay nil)
    (setq lst (append (list (cdr (assoc 2 lay))) lst))
    (setq lay (tblnext "LAYER")))
  (foreach elm lst
    (command "layer" "u" elm "t" elm "")))

al eens getracht om de commando's afzonderlijk uit te voeren in BricsCad?
   _layer
   _unlock
   "0"
   _thaw
   "0"
   ""
ik denk dat het er in BricsCad zo moet uit zien:

(command "layer" "U" layerName "T" layername "")

in ieder geval, als het een bug is --> zeker melden

her-installatie lijkt mij aangewezen.

je kan altijd herbeginnen door alle documenten van autodesk in je 'documents en settings' te verwijderen.
als je dan her-inlogd, zal autodesk de standaard instellingen herbouwen...

Dat was inderdaad het probleem.
in bijlage zit een aangepaste lisp.. veel plezier.

Pauly

hier vind je de meeste systeem variiabelen

http://www.hyperpics.com/system_variables