CADsite forum

Citaat van: WebRacer op za 09 05 2009, 08:23:28
wel Thomas,
Daar zou je nog eens gelijk kunnen in hebben.
Vandaar heb ik u deze VLX gemaild.
Excuses voor dit ongemak, volgende keer plaats ik hem op een ftp.

Popup: "lege tekening, doe niet gek!" haha geweldig!

Hij doet het dus! hardstikke bedankt voor het mailen!

Dus voor de mede-forummers: een vlx uploaden als txt bestand gaat niet...

WebRacer nogmaals hardstikke bedankt, ik ga het nu testen!


Thomas

Citaat van: WebRacer op vr 08 05 2009, 19:06:21
ik denk dat je iets verkeerd doet...
ik heb het zelf geschreven en dit zijn de eerste lijnen:
defun c:splits500 wat wil zeggen dat splits500 het commando is.

je moet het wel eerst inladen !

ik denk dat het komt door het omzetten van vlx naar txt weer terug naar vlx. (Den dat de website hem tijdens het uploaden omzet naar gewoon ASCII formaat, terwijl die vlx gecodeerd is:
"VRTLIB-1Ä  g   ØLOAD((:protected . T) (:active-x . T) (:separate-namespace) (:load-file-list (:fas "splitsen"))) O  2SPLITSEN" etc...

uiteraard heb ik hem netjes geladen via 'appload' (ook via 'contets' geprobeerd) maar het commando splits500 blijft een 'unknown command'  geven.

zou je hem (de originele .vlx) wellicht in een zipfile willen uploaden? of mailen naar niet-meer-nodig  (zonder spaties met @)

Thomas

Citaat van: WebRacer op ma 27 04 2009, 14:25:40
Hallo

Ik weet niet of dit ondertussen opgelost werd, maar deze vlx voldoet aan uw vraag.
Je kan deze downloaden en testen, indien nog vragen kan je mij gerust contacteren.

dit forum kan blijkbaar geen vlx uploaden en downloaden, hernoem het bestand splits.txt naar Splits.vlx
via tools -- load application    inladen

MVG

Weet je hoe ik hem kan opstarten?

Citaat van: WebRacer op vr 01 05 2009, 19:47:08
splits500 dacht ik

Hmmm... splits500 werkt niet, splits, splitsen ook niet. kan iemand dit vlx bestand lezen en eruit halen wat het opstart commando is?

hmmpfff... gaat iets te ver voor mij, ik krijg dit niet voor elkaar...

iemand?

Thomas

Hi!

Weet iemand of het mogelijk is om de Visibility state van een Dynamic Block afhankelijk te maken van de waarde welke is ingevuld in een attribute?

Andersom lukt me wel: de visibility state waarde kun je wel weergeven in een Attribute, maar daar heb ik niets aan, omdat de blocks vanuit excel gevuld gaan worden...


Thomas

Citaat van: Joop op zo 22 03 2009, 21:14:55
Beste Thomas,

Probeer deze routine uit en laat even weten of het werkt, en waarom niet.
De resulterende tekeningen moeten nog opgeschoond worden
(...)

Joop

Joop, we zijn geweldig op weg! Ik heb de raster lisp van HofCAD eerst even gedraaid, om goed te zien wat hij pakt, maar dat ziet er heel netjes uit!
Nu moet het ge-exporteerde bestand nog ge-extrimmed worden (en let op: extrim is niet voldoende, omdat naar blijkt er ook lijnen buiten het kwadrant kunnen vallen, dus alle moet ook in 4 delen ge-erased worden met een windo (geen corssing)

dus het volgende lijk mij noodzakelijk, in of na de routine van het maken van wblocks:
- open het wblock bestand
- EXTRIM hem op het raster kwadrant (zie bijlage)
- wis alles binnen 'LinksOnder' x-500,y+1000 t/m @1500,-500 (het gebied boven het kwadrant: Window)
- wis alles binnen 'LinksOnder' x+500,y+1000 t/m @500,-1500 (het gebied rechts van het kwadrant: Window)
- wis alles binnen 'LinksOnder' x-500 t/m @1500,-500 (het gebied onder het kwadrant: Window)
- wis alles binnen 'LinksOnder' x-500,y+1000 t/m @500,-1500 (het gebied links van het kwadrant: Window)

Maar het lukt mij niet eens om nogmaals alle gamaakte wblocks te openen. Wellicht is het ook beter om dat meteen na het maken van dat block te doen. iemand een idee?

Thomas

Citaat van: Joop op vr 20 03 2009, 07:27:47
Opmerking:

' is een afkorting voor list zoals in

Code Selecteer Uitklappen

(setq Lijst '(a b c))
lisp denkt dus dat dit een programmaregel is

Voor commentaar gebruik ; Voor meer informatier zie  http://www.cadsite.be/lisp/lisp.php

Goeie tip! ik heb het aangepast en weer wat geleerd... 

Thomas

Citaat van: HofCAD op do 19 03 2009, 20:07:26

Beste Thomas,

Maakt het veel uit waar het linker onderhoek ligt van het raster,
test daarom onderstaande Lisp uit.

(...)

Als dit goed is, moet er o.a. nog zoiets als het express tool commando EXTRIM
geschreven worden en nog iets voor de export naar DWG's.

Met vriendelijke groet, HofCAD CSI.

HofCAD,

het is inderdaad belangrijk dat de kwadranten op het 500x500 raster vallen. Ik heb daarom vanavond geprobeerd je lisp te begrijpen en dat is behoorlijk gelukt (mbv Google, want ik had geen idee wat car, cadr, fix etc. betekend)! M'n eerste scriptje is dus gebaseerd op die van jou, maar wel helemaal herschreven (ik moet dus iedere functie opzoeken met Google of in dit forum, maar ik leer veel ):


(defun c:GBKN()
;Raster van 500 units tekenen over een bestaande tekening

;ff OSNAP herinneren en uitzetten
(setq oldsnap (getvar "osmode"))
(setvar "osmode" 0)

(command "_ZOOM" "E")
(command "_LAYER" "M" "RASTER" "C" "RED" "RASTER" "")

;set uitersten van de tekening
(setq extmin (getvar "EXTMIN") extmax (getvar "EXTMAX"))

;afronden
(setq xmin (* (fix (/ (car extmin) 500)) 500))
(setq ymin (* (fix (/ (cadr extmin) 500)) 500))
(setq xmax (* (fix (/ (+ (car extmax) 500) 500)) 500))
(setq ymax (* (fix (/ (+ (cadr extmax) 500) 500)) 500))

;set linksonder, rechtsonder, rechtsboven en linksboven
(setq lo (list xmin ymin))
(setq ro (list xmax ymin))
(setq rb (list xmax ymax))
(setq lb (list xmin ymax))

;test omranding
;(command "_PLINE" lo ro rb lb "C")

;r = aantal rijen, k= aantal kolommen
(setq r (/ (- ymax ymin) 500))
(setq k (/ (- xmax xmin) 500))

;kwadranten tekenen, vanaf hier gejat van HofCAD!
(command "_PLINE" lo "@500,0" "@0,500" "@-500,0" "C")
(setq e (entlast))
(command "_ARRAY" e "" "R" r k 500 500)

;OSNAP weer terugzetten
(setvar "osmode" oldsnap)
)


Hij is zeker niet zo compact opgezet als die van jou, maar het werkt en belangrijker: ik begrijp hem!

Nu komt het zwaarste probleem:
- ieder kwadrant van 500x500m kopieren naar een leeg bestand (Acadiso.dwt)
- alles om het vierkant (in de nieuwe tekening) extrimmen (mijn ervaring is dat dat niet altijd netjes gaat)
- opslaan met als bestandsnaam x,y.dwg (linksonder, x en y zijn deelbaar door 500) + afsluiten
- doorgaan met het volgende kwadrant...

Kun je me nog verder op weg helpen? Dan ga ik morgenavond weer zitten puzzelen...

PS, de originele tekeningen kunnen nogal zwaar zijn (van 0,5 tot 30Mb) dus het lijkt me niet verstandig om steeds 'alles'  om één kwadrant weg te snijden en dan opslaan, dat wordt veel te traag. beter lijkt het me ieder kwadrant te kopiëren naar een lege tekening...

Thomas

Citaat van: Joop op do 19 03 2009, 09:19:11
Leuk probleem 

Zou je eens een tekening kunnen plaatsen?

Joop

Ik 'mag' geen echte GBKN uploaden, maar heb je hier iets aan? 

Thomas

Heren,

wie o wie kan mij helepn aan een lisp routine waarmee ik bij GBKN (NL) Topo-tekeningen kan laten 'uitsnijden' in vierkanten van 500x500m, netjes gesneden, evt + kadertje, opgeslagen met x,y (linksonder) variabelen als bestandsnaam (x-y.dwg).

Het gaat ook nog eens om honderden tekeningen, dus als dat gebatched zou kunnen worden (alle tekeningen uit één map) zou het helemaal mooi zijn! 

Thomas

Beste HofCAD,

Je bent echt geweldig! Die laatste oplossing was zo goed als alles wat ik zocht met als enige nadeel dat hij van meerder polylines die elkaar op het einde raken, één lange polyline maakt. Dat wordt wat lastig met enkele tientalle tekeningen waar zo'n 100 polylines in zitten. In principe zou dit hiermee wel moeten lukken.

Nu vond ik ondertussen (ik heb ook niet stilgezeten) op http://www.4d-technologies.com/geotools/manual/conversion_tools.htm#PLARC2PL een tool voor $11,95 welke ook dat laatste probleempje oplost! Ik ga niet moeilijk doen over twaalf dollar wanneer mij dat de komende weken tientalle uren werk scheelt. (ik heb de tool al getest omdat deze ook in de volledige geotools demo zit welke 30 dagen werkt)

In ieder geval enorm bedankt voor je hulp en toeweiding, je kan in ieder geval wel zien dat je écht weet waarover je praat, zover moet ik nog maar (ooit) zien te komen betreft lisp...

Thomas

om maar op het onderwerp terug te komen: www.pdfprinter.at (eDocprintPro virtuele PDF printer)

- gratis
- géén popups
- nix nada reclame in de PDF
- kleine PDF bestanden (MB)
- haarscherp (zoom maar eens in!)
- PDF-jes tot grote papierformaten (A0 en hoger, zelf grote formaten aanmaken!)

Let wel op: bij plotten vanaf Autocad naar deze PDF printer moet je de printer standaard NIET zetten op 'Use application paper settings' (er moet een rood kruisje staan!!!) anders krijg je problemen met de draairichting van je virtuele papier.
Let op 2: NEGEER het papier formaat welke in Autocad staat ingesteld! nadat je de 'properties' van de printer hebt aangepast. Deze schiet meestal op 'Letter' maar de mm's in je voorbeeld kloppen wel. Weizig die 'Letter' formaat dus niet! Het papierformaat van eDocprintpro moet leidend zijn.

Thomas

Citaat van: HofCAD op di 03 03 2009, 21:26:14
Beste T. Freriks,
Van de site www.4d-technologies.com heb je naast PL_ArcPl2LinearPl ook nodig
PL_plist, LI_item, LI_mitem en PL_GetBulgeLst.
Dan pas kun je met bijv. onderstaand programma gaan testen.

Code Selecteer Uitklappen


(defun c:test( / SegLen ent i)
(vl-load-com)
(setq SegLen 1.0)   ;Wijzig De Lineaire Segment Lengte
(setq ent (car (entsel)))
(setq PlineLst (PL_ArcPl2LinearPl ent SegLen))
(setq i 0)
(command "_PLINE" (nth i PlineLst))
(repeat (- (length PlineLst) 1)
(setq i (1+ i))
(command (nth i PlineLst))
)
(command "")
(command "_ERASE" ent "")
)


Met vriendelijke groet, HofCAD CSI.

So, als jij iets tegenkomt bijt jij je er ook onmiddelijk helemaal in vast he? Much respect!

Ik heb het dankzij je tip aan de gang gekregen met alle lisps aan elkaar!
Helaas is het resultaat zo 'buggy' dat ik het niet aandurf om mijn tekeningen eraan te wagen en dit definitief te maken. Er komen, zo op het oog compleet willekeurige vertexen in de polyline te staan dat ik het op die kilometers tracé niet vertrouw dat er geen zig-zag stukken tussen zitten, waardoor ik nog verder van huis ben.

Toch enorm bedankt voor je hulp HofCAD! Je tip scheelt me uren kopzorgen, blijkbaar zonder resultaat.

Ik denk dat ik m'n geluk ga proberen met het andere script uit m'n 2e post: "Lisp: veel & lange polylines 'ont-arcen' (->uitsluitend rechte lijnsegmenten)" (http://www.cadsite.be/smf/index.php/topic,3242.0.html)

Deze lijkt veel stabieler en doet 'bijna' wat ik zoek... kijken of ik deze eerst kan 'begrijpen'  en later wellicht verbouwen...

Stanx!

Thomas

Citeer
Beste T. Freriks,

Je kan proberen met

Code Selecteer Uitklappen

(PL_ArcPl2LinearPl (car (entsel)) 0.01)
Ik kan het programma niet uitproberen omdat ik in de listing de functie
definitie van PL_PLIST mis.

Met vriendelijke groet, HofCAD CSI.

Dank je! ik ga het onmiddelijk proberen!

Wie ow wie kan me helpen bijgaand script uit te kleden en te verbouwen, zodat hij doet wat ik nodig heb?

Probleem:
Ik heb een tekening met zeer veel (109) en zeer lange (tientalle kilometers) polylines, echter de meeste daarvan bevatten naast rechte lijnsegmenten ook vele arc-segmenten. Deze arc segmenten moet ik, t.b.v. een systeem van 'derden' vervangen door rechte lijn segmenten, omdat hun systeem, welke is gebaseerd op MapInfo daar niet mee om kan gaan. (zie bijlage CAD bestand: http://www.cadsite.be/smf/index.php?action=dlattach;topic=3242.0;attach=810)

Wat ik wil bereiken, is het volgende:
- in één keer alle polylines selecteren om alles in één keer te bewerken (alle te wijzigen polylines zitten in één layer)
- De polylines moeten uiteindelijk dezelfde route volgen, m.u.v. de arc segmenten, deze mogen ietwat vereenvoudigd worden, met als instelling: rechte lijnstukken van 0,2 units (of variabel n.a.v. invoer gebruiker)
- De polylines moeten weer in hun oorspronkelijke layer worden teruggezet.

Nu heb ik een script gevonden (zie bijlage: http://www.cadsite.be/smf/index.php?action=dlattach;topic=3242.0;attach=809)wat al voor 90% doet wat ik vraag, alleen hij doet teveel. Dit script verdeelt ook de rechte lijnstukken, waardoor alle polylines tezamen veel te veel punten gaan bevatten.
Wie kan me helpen dit script te verbouwen, zodat:
- Het script niet meer vraagt om de polylines te verdelen in X delen, deze optie is voor mij overbodig en mag verwijderd worden. Uitsluitend de optie om segmenten met een lengte van X-units te maken moet blijven bestaan.
- Het script zou alleen de arc segmenten moeten bewerken, en de rechte lijnstukken uit de oorspronkelijke polylines ongemoeid laten (deze hoeven niet in stukken verdeeld te worden)
- Het oorspronkelijke script zet het resultaat in Layer '0', maar dit zou teruggezet moeten worden in de oorspronkelijke layer (ook al selecteer ik in het begin polylines van verschillende layers.

Kan iemand dit script zo gemakkelijk doorgronden om dit probleem op te lossen? Mijn kennis van Lisp is te mager om dit in één keer te kunnen lezen...

Thomas