CADsite forum

Citaat van: pieter op wo 12 07 2006, 14:44:00
Deze lisp geeft bij mij het aantal vierkante millimeters (ik neem aan dat ie de units aanhoud), maar is het ook mogelijk om hem het getal bijvoorbeeld te laten delen door 1000 zodat hij in mijn geval het aantal vierkante meters opgeeft ?

Ik heb hier wel iets voor je, alleen is dit geen lisp routine, maar een macro

_texteval 1;_area O;\text;\250;0;(strcat "opp:" (rtos (/ (getvar "AREA") 100000)) "m2");

Deze macro laat je een polyline selecteren en plaatst daarna een tekst.
Ik hoop dat je hier iets aan hebt.

Richard.

Hier heb ik denk ik wel iets aan maar ik heb totaal geen verstand van macro's 
Hoe krijg ik dit werkend ?

Met welke AutoCAD versie werk je?

2002 

Zal ik je dan mijn toolbar sturen waar hij al in zit?

Als dat ervoor zorgt dat het te gebruiken is graag
Is de inhoud van t bestand tekst die je hier kan posten of wil je mn mailadres ff hebben ? (weet niet of ik die hier mag posten  )

Tuurlijk mag je je e-mail adres posten, waarom niet?
Maar dit forum heeft een upload mogelijkheid. Er kunnen dus bijlages geplaatst worden bij een bericht.

Je mail adres staat in je profiel, gaat dus helemaal goed komen!

Vandaag of morgen krijg je van mij een mooi toolbartje.

P.s. en zoals de admin al zegt, je mag hier posten en uploaden.

okee  alvast bedankt

Hier komen de spullen!
Lees eerst de installatie instructie.

Succes!

Richard

Het werkt hoor dankjewel !! 

Daar doen we het voor!

Er moet alleen nog een nul bij :mrgreen:  ik krijg tien keer te veel m2 haha. 

Dat hangt waarschijnlijk af, van de units die je hebt ingesteld in je options menu --> tabblad User Preferences.

Oplossing is simpel, pas de macro aan, naar eigen wens!

Richard

Citaat van: HofCAD op di 06 06 2006, 19:38:38
Beste CADliefhebbers,

Een geweldige code van Tim Wiley, alleen snap ik niet waarom hij het programma AreaReact
zo gemaakt heeft dat het alleen LWpolylijnen accepteert.
Met bijna hetzelfde gemak, is het programma ook geschikt voor alle objecten met
een oppervlakte(area) zoals o.a. ook gewone polylines en circles.
Dit is leuk omdat het commando PEDIT  bij de optie Fit en Spline van LWpolyline een polyline
maakt.

Ik snap daarom niet goed, waarom hij onderstaande code uit de top van het programma:

Code Selecteer Uitklappen

(if
      (and
       (setq Sel (entsel "\n Select polyline to get area of: "))
       (setq EntData (entget (car Sel)))
        (= (cdr (assoc 0 EntData)) "LWPOLYLINE")
        (setq PolyObj (vlax-ename->vla-object (car Sel)))
       (setq Sel (nentsel "\n Select text of hold area value: "))
       (setq EntData (entget (car Sel)))

niet  bijv. als volgt heeft geschreven

Code Selecteer Uitklappen

(if
       (and
       (setq Sel (entsel "\n Select entity to get area of: "))
        (setq PolyObj (vlax-ename->vla-object (car Sel)))
        (vlax-property-available-p PolyObj 'area)
       (setq Sel (nentsel "\n Select text of hold area value: "))
      (setq EntData (entget (car Sel)))

Groetjes HofCAD CSI

PS Ik ben blond.

Dit werkt erg goed. Werkt fantastisch. Alleen zou ik het prettig vinden als het mogelijk is om niet eerst een tekst te moeten maken. Is het mogelijk deze applicatie zelf de tekst op b.v. middle center, op een eigen layer te zetten.

Met vriendelijke groet,
Alexander