CADsite forum

Vooreerst proficiat met de coole site.
Mijn probleem: Ik beschik over een kaartlaag met honderden gesloten polylines (percelenkaart). Ik wil alle complexe gevallen (met bijvoorbeeld meer dan 50 knooppunten) selecteren om te bewerken.
Wat ik wil doen is iets in de trant van : "Select all polylines with number of vertices > 50". Met QuickSelect is dat mogelijk.
Iemand een suggestie of routine?
Bbase.  

Sorry gasten,
Ik bedoelde natuurlijk met QuickSelect in dat ONmogelijk!
Bbase

Citaat van: BbaseSorry gasten,
Ik bedoelde natuurlijk met QuickSelect in dat ONmogelijk!
Bbase

stel dat je alle polylijnen met meer dan 50 punten hebt geselecteerd wat wil je er dan mee doen >

Citaat van: BbaseVooreerst proficiat met de coole site.
Mijn probleem: Ik beschik over een kaartlaag met honderden gesloten polylines (percelenkaart). Ik wil alle complexe gevallen (met bijvoorbeeld meer dan 50 knooppunten) selecteren om te bewerken.
Wat ik wil doen is iets in de trant van : "Select all polylines with number of vertices > 50". Met QuickSelect is dat mogelijk.
Iemand een suggestie of routine?
Bbase.  

Beste Bbase,

In mijn onmetelijke goedheid en blondheid heb ik snel iets geprobeerd
klaar te stomen.
Mijn LISProutine VERTSEL kan waarschijnlijk veel netter en veel korter, maar
volgens mij werkt hij.
De selectieset die overblijft kun je oproepen met !sset of met wat
je in AutoCAD gewend bent met Previous.
Bijvoorbeeld:
VERTSEL 50 <Enter>
ERASE !sset <Enter>
of
VERTSEL 50 <Enter>
ERASE P <Enter>

Deze LISP-routine kun je vinden op:
http://www.autocadforum.nl/autocadforum/viewtopic.php?p=2017#2017

Groetjes HofCAD CSI.

PS Graag reactie of dit je bedoeling was.

Citaat van: HofCAD
In mijn onmetelijke goedheid en blondheid

goed ben je wel
maar of je ook blond bent
(aan je avatar te zien zit er niet veel haar meer op )

Citaat van: bartstel dat je alle polylijnen met meer dan 50 punten hebt geselecteerd wat wil je er dan mee doen >

Bedoeling is om bogen die door conversie omgezet zijn honderden of duizenden opeenvolgende vertices te isoleren en op te kuisen met de cleanup-tools van AutoCad Map!
De routine van HofCAD werkt! Thank you, guys.
Bbase

Citaat van: HofCADIn mijn onmetelijke goedheid en blondheid heb ik snel iets geprobeerd
klaar te stomen. etc...

Beste HofCAD,
De routine zoals je hem geprepareerd hebt, werkt zeer goed! Dank je daarvoor. Een klein detail zou ik nog willen veranderen: hoe kun je het resultaat van de query kopiëren naar een -door de gebruiker zelf op te geven- layer? Zelf ben ik jammer genoeg een Lisp-analfabeet , al ben ik van plan om daar verandering in te brengen, te beginnen met de cursussen op deze fantastische site.
Thanks,
Bbase.

Citaat van: Bbase

Citaat van: HofCADIn mijn onmetelijke goedheid en blondheid heb ik snel iets geprobeerd
klaar te stomen. etc...

Beste HofCAD,
De routine zoals je hem geprepareerd hebt, werkt zeer goed! Dank je daarvoor. Een klein detail zou ik nog willen veranderen: hoe kun je het resultaat van de query kopiëren naar een -door de gebruiker zelf op te geven- layer?
Bbase.

Beste Bbase,

Bedoel je dit soms:
CHANGE P <Enter> P LA mijnlaag <Enter>
of CHANGE !sset <Enter> P LA mijnlaag <Enter>
of CHPROP P <Enter> LA mijnlaag <Enter>
of CHPROP !sset <Enter> LA mijnlaag <Enter>
of Dialoogbox PROPERTIES en men klikt op de knop van .PSELECT
(dit is de middelste knop rechtsboven met select objects) en men
geeft op de commando regel de P van Previous en extra <Enter>
om uit de selectie te komen, om daarna kan in de dialoogbox de laag
wijzigen.

Of bedoel je dat dit automatisch in de LISP-routine moet
gebeuren?
Dan zou ik de naam en de eigenschappen van die laag moeten kennen,
want dan zou ik zoiets er in kunnen zetten:
(command "_LAYER" "T" "mijnlaag" "ON" "mijnlaag" "")
(command "_LAYER" "M" "mijnlaag" "C" "RED" "")
(command "CHPROP" "P" "" "LA" "mijnlaag" "")

Groetjes HOFCAD CSI

PS Vind je m'n Zetten.vlx ook wel geinig?

Citaat van: HofCADBedoel je dit soms:
CHANGE P <Enter> P LA mijnlaag <Enter>
of CHANGE !sset <Enter> P LA mijnlaag <Enter>etc....

Het zou tof zijn als de routine -nà het doorlopen van de query, dus na 'x found'- komt vragen naar welke laag de selectionset moet gekopieerd worden. Dan moet de gebruiker de naam van een bestaande laag intikken. Waarschijnlijk a piece of cake in Lisp?
PS: Zetten.vlx is de max! Heb je die animatie volledig in AutoCad gemaakt?
Greetz,
Bbase.

Citaat van: BbaseHet zou tof zijn als de routine -nà het doorlopen van de query, dus na 'x found'- komt vragen naar welke laag de selectionset moet gekopieerd worden. Dan moet de gebruiker de naam van een bestaande laag intikken. Waarschijnlijk a piece of cake in Lisp?
PS: Zetten.vlx is de max! Heb je die animatie volledig in AutoCad gemaakt?
Greetz,
Bbase.

Beste Bbase,

1) Bedankt voor je compliment.

2) Zetten.vlx maakt eigenlijk gewoon een normale tekening aan, en is
vooral naast een leuk geintje een uitprobeersel voor o.a. drawingproperties en hyperlinks enz.
In Zetten.vlx wordt de animatie verzorgt door 3d solids die verplaatst
worden, of door 3d solids die een block zitten en vervangen worden door
een ander block.

3) Volgens mij is het programma VERTSEL nu naar je wens, dus moet je
het maar opnieuw ophalen en uitproberen.

http://www.autocadforum.nl/autocadforum/viewtopic.php?p=2017#2017

De laagnaam is bij default "Verander", maar daar kun je bij een
vraagstelling steeds iets anders voor kiezen.
De kleur van die laag is echter altijd MAGENTA, maar daar kun jij
zelf altijd nog een andere kleur of kleurnummer voor in de plaatszetten.

Mocht het programma nog niet volledig naar wens zijn, dan hoor ik dat graag.

Groetjes HofCAD CSI

Citaat van: HofCADVolgens mij is het programma VERTSEL nu naar je wens, dus moet je
het maar opnieuw ophalen en uitproberen.

http://www.autocadforum.nl/autocadforum/viewtopic.php?p=2017#2017

Beste HofCAD,
Ik heb zelf nog een aanpassing gedaan, namelijk de selectionset gekopieerd vooraleer ze te verplaatsen naar lay, vervolgens alle plines een kleur bylayer opgelegd:
(command "_COPY" "P" "" "0,0" "0,0")
(command "_CHPROP" "P" "" "LA" lay "")
(command "_CHPROP" "P" "" "c" "bylayer" "")
Van harte bedankt, uw routine heeft mij dagen handwerk uitgespaard.
Bbase.

Citaat van: BbaseVan harte bedankt, uw routine heeft mij dagen handwerk uitgespaard.
Bbase.

Beste Bbase,

Graag gedaan.

Groetjes HofCAD CSI