Beste didier,
optie 1: alles exploderen. Daarna alles selecteren en bij properties de z-waarde op 0 zetten.
optie 2: gebruik onderstaande lisp (zweg.lsp) om alle objecten een z-waarde 0 te geven. (! Mijn ervaring is dat niet altijd alle objecten op 0 terecht komen.)
Ik heb ook nog een lisp routine toegevoegd om een 3D-polyline om te zetten naar een 2D-polyline.
Voor de oppervlakte van de wanden zul je denk ik met je UCS moeten gaan spelen.
Groeten,
Reimer.
---------------------------
(Defun C:ZWEG ()
(Setvar "Cmdecho" 0)
(Setq ss (Ssget "X"))
(Setq ae (Sslength ss))
(Princ ae)
(Princ " elements selected, please wait.....")
(Setq et 0)
(Setq pn 10)
(Setq nz 0)
(While (< et ae)
(While (< pn 12)
(Setq ne (Ssname ss et))
(Setq ge (Entget ne))
(Setq zb (Caddr (Cdr (Assoc pn ge))))
(Setq nb (Cons pn (Subst nz zb (Cdr (Assoc pn ge)))))
(Setq ge (Subst nb (Assoc pn ge) ge))
(Entmod ge)
(Setq pn (+ pn 1))
)
(Setq pn 10)
(Setq et (+ et 1))
)
(Princ "\nReady")
(Princ)
)
---------------------------
;;CADALYST 09/03 AutoLISP Solutions
;;; PLINE-3D-2D.LSP - a program to convert
;;; 3D polylines to 2D
;;; Program by Tony Hotchkiss
(defun pline-3d-2d ()
(vl-load-com)
(setq *thisdrawing* (vla-get-activedocument
(vlax-get-acad-object)
) ;_ end of vla-get-activedocument
*modelspace* (vla-get-ModelSpace *thisdrawing*)
) ;_ end of setq
(setq 3d-pl-list
(get-3D-pline)
) ;_ end of setq
(if 3d-pl-list
(progn
(setq vert-array-list (make-list 3d-pl-list))
(setq n (- 1))
(repeat (length vert-array-list)
(setq vert-array (nth (setq n (1+ n)) vert-array-list))
(setq lyr (vlax-get-property (nth n 3d-pl-list) 'Layer))
(setq obj (vla-AddPolyline *modelspace* vert-array))
(vlax-put-property obj 'Layer lyr)
) ;_ end of repeat
(foreach obj 3d-pl-list (vla-delete obj))
) ;_ end of progn
) ;_ end of if
) ;_ end of pline-3d-2d
(defun get-3D-pline ()
(setq pl3dobj-list nil
obj nil
3d "AcDb3dPolyline"
) ;_ end of setq
(setq selsets (vla-get-selectionsets *thisdrawing*))
(setq ss1 (vlax-make-variant "ss1"))
(if (= (vla-get-count selsets) 0)
(setq ssobj (vla-add selsets ss1))
) ;_ end of if
(vla-clear ssobj)
(setq Filterdata (vlax-make-variant "POLYLINE"))
(setq no-ent 1)
(while no-ent
(vla-Selectonscreen ssobj)
(if (> (vla-get-count ssobj) 0)
(progn
(setq no-ent nil)
(setq i (- 1))
(repeat (vla-get-count ssobj)
(setq
obj (vla-item ssobj
(vlax-make-variant (setq i (1+ i)))
) ;_ end of vla-item
) ;_ end of setq
(cond
((= (vlax-get-property obj "ObjectName") 3d)
(setq pl3dobj-list
(append pl3dobj-list (list obj))
) ;_ end of setq
)
) ;_ end-of cond
) ;_ end of repeat
) ;_ end of progn
(prompt "\nNo entities selected, try again.")
) ;_ end of if
(if (and (= nil no-ent) (= nil pl3dobj-list))
(progn
(setq no-ent 1)
(prompt "\nNo 3D-polylines selected.")
(quit)
) ;_ end of progn
) ;_ end of if
) ;_ end of while
(vla-delete (vla-item selsets 0))
pl3dobj-list
) ;_ end of get-3D-pline
(defun get-3D-pline-old ()
(setq no-ent 1)
(setq filter '((-4 . "<AND")
(0 . "POLYLINE")
(70 . 8 )
(-4 . "AND>")
)
) ;_ end of setq
(while no-ent
(setq ss (ssget filter)
k (- 1)
pl3dobj-list nil
obj nil
3d "AcDb3dPolyline"
) ;_ end-of setq
(if ss
(progn
(setq no-ent nil)
(repeat (sslength ss)
(setq ent (ssname ss (setq k (1+ k)))
obj (vlax-ename->vla-object ent)
) ;_ end-of setq
(cond
((= (vlax-get-property obj "ObjectName") 3d)
(setq pl3dobj-list
(append pl3dobj-list (list obj))
) ;_ end of setq
)
) ;_ end-of cond
) ;_ end-of repeat
) ;_ end-of progn
(prompt "\nNo 3D-polylines selected, try again.")
) ;_ end-of if
) ;_ end-of while
pl3dobj-list
) ;_ end of get-3D-pline-old
(defun make-list (p-list)
(setq i (- 1)
vlist nil
calist nil
) ;_ end of setq
(repeat (length p-list)
(setq obj (nth (setq i (1+ i)) p-list)
coords (vlax-get-property obj "coordinates")
ca (vlax-variant-value coords)
) ;_ end-of setq
(setq calist (append calist (list ca)))
) ;_ end-of repeat
) ;_ end-of make-list
(defun c:pl32 ()
(pline-3d-2d)
(princ)
) ;_ end of pl32
(prompt "Enter PL32 to start: ")
Inderdaad. :D Ik vergeet deze steeds omdat ik de andere lisproutines gewend ben.
Reimer
Hallo,
Kun je niet standaard een aantal layouts met de vieuwports voor,achter etc. aanmaken
Dan kun je volgens mij via een tooltje van die layouts weer een model maken.
(ik weet zo niet hoe dat moet) maar dat weet iemand anders denk ik wel!?
groet,
Albert
Citaat van: didier op zo 20 01 2008, 17:54:10
Hallo,
dank voor de antwoorden maar helaas slaag ik er niet in..
In bijlage heb ik een vb gegeven.
1ste tekening is hoe het binnekomt van mijn totaalstation, weliswaar in bovenaanzicht maar ik heb de vieuw SW isometric gedaan.
Rode lijnen zijn de volgorde van meting..
Tekening 2 is hoe de vijver eruitziet en ik heb de rode lijnen gedeleted en zelf de punten verbonden.maar nu zou ik al de zijden die de hoogte ingaan plat willen krijgen en dat lukt mij niet... Ik wil dus een grondoppp en daarnaast 4 rechthoeken die mij de zijwanden geven..wan taar zou ik dan de maten moeten bijzetten alsook de opp meten
Groetjes
Didier
Om eerlijk te zijn ois da allemaal wa moeilijk..
Ik ben niet al te vertrouwd met 3d.
Ben er al in geslaagd een stuk plat te krijgen maar de is gewoon een weerspiegeling van het bovenaanzicht... Hij zou mij moeten het juiste oppervlakte geven en dat doet het niet...
in bijlage een 2e tekening van een opgemeten vijver.
Dit moet als een puzzle plat komen te staan zodat ik dan al die vormen kan namaken in rubber en aan elkaar kleven zodat ik terug dezelfde vorm als de vijver bekom..
Citaat van: didier op wo 30 01 2008, 13:54:02
Om eerlijk te zijn ois da allemaal wa moeilijk..
Ik ben niet al te vertrouwd met 3d.
Ben er al in geslaagd een stuk plat te krijgen maar de is gewoon een weerspiegeling van het bovenaanzicht... Hij zou mij moeten het juiste oppervlakte geven en dat doet het niet...
in bijlage een 2e tekening van een opgemeten vijver.
Dit moet als een puzzle plat komen te staan zodat ik dan al die vormen kan namaken in rubber en aan elkaar kleven zodat ik terug dezelfde vorm als de vijver bekom..
Is het niet gewoon mogelijk om je gegevens uit de tachymeter in 2d te meten (bv bij standplaats geen Z-coord te geven).
Bij de toestellen waar ik mee gewerkt heb (Leica TC-1100, 1800 enz.) kan dat.
Meestal zit er ook wel een programma bij waar je de gegevens mee kan inlezen en dan exporteren naar DWG.
ja dat is mogelijk maar hoe moet het dan... dan kan ik helemaal niet meer uittekenen.als ik bvb een grondopp heb van 1m2 met de 4 zijden ook 1m2 omhoog en ik meet da op en zet dan bij import in cad alle z waarden op 0 . Dan krijg ik gewoen een vierkant van 1m2... want hij heeft mijn zijden gewoon loodrecht naar beneden gebracht. en ik zou moeten een kruis bekomen met 1 grondvlak en aan de 4 zijden nog eens een vierkant van 1m2
Citaat van: didier op wo 30 01 2008, 16:13:30
ja dat is mogelijk maar hoe moet het dan... dan kan ik helemaal niet meer uittekenen.als ik bvb een grondopp heb van 1m2 met de 4 zijden ook 1m2 omhoog en ik meet da op en zet dan bij import in cad alle z waarden op 0 . Dan krijg ik gewoen een vierkant van 1m2... want hij heeft mijn zijden gewoon loodrecht naar beneden gebracht. en ik zou moeten een kruis bekomen met 1 grondvlak en aan de 4 zijden nog eens een vierkant van 1m2
Dus je wilt de wanden in zijaanzicht weergeven??
Dit kun je misschien wel doen met 3drotate.