breakinfg an polyline
breakinfg an polyline
(OP)
Hi there
I'm doing a culvert design and need to insert cross sections into the desing program. at present I use cross sections at 50m intervals. I need to break my polyline(representing my river) into 50m segments. is there a way of doing this? at present i have to measure manually and it takes time as my polyline as bends in it.
thanx
I'm doing a culvert design and need to insert cross sections into the desing program. at present I use cross sections at 50m intervals. I need to break my polyline(representing my river) into 50m segments. is there a way of doing this? at present i have to measure manually and it takes time as my polyline as bends in it.
thanx





RE: breakinfg an polyline
"Everybody is ignorant, only on different subjects." — Will Rogers
RE: breakinfg an polyline
That, and I don't recall if DIVIDE actually breaks the lines/curves or just puts the points onto the PLINE.
--------------------
How much do YOU owe?
http://www.brillig.com/debt_clock/
--------------------
RE: breakinfg an polyline
RE: breakinfg an polyline
^C^CBREAK \F nod \@;
____________________
Acad2005, Terramodel
RE: breakinfg an polyline
thanx alot
RE: breakinfg an polyline
ADT 2004
ACAD 2002
RE: breakinfg an polyline
I found a lisp, that would do that automatically.
1. _divide or _measure-> points
2. the lisp
CODE
(defun BREAK-PKT(L LISTE / LASTOBJEKT)
(setq LASTOBJEKT(entlast))
(command "_break" L (car LISTE) (car LISTE))
(if (cdr LISTE)
(progn
(Break-PKT L (cdr LISTE))
(if (entnext LASTOBJEKT)
(Break-PKT (entnext LASTOBJEKT) (cdr LISTE))
)
)
)
)
(defun BREAK-PKT0( L / PKTL LISTE INDEX)
(if (setq PKTL (ssget "_x" '((0 . "POINT"))))
(progn
(setq INDEX -1)
(repeat (sslength PKTL)
(setq LISTE (cons (cdr(assoc 10 (entget(ssname PKTL (setq INDEX (1+ INDEX)))))) LISTE))
)
(if(setq LISTE(vl-remove-if-not
'(lambda(X)
(equal
(distance
(vlax-curve-getClosestPointTo (vlax-ename->vla-object L) X)
X
)
0.0
0.001
)
)
LISTE
)
)
(Break-PKT L LISTE)
)
)
)
)
(defun c:BREAK-PKT( / L INDEX)
(setvar "cmdecho" 0)
(command "_ucs" "_w")
(if (setq L (ssget '((0 . "LINE,*POLYLINE,ARC"))))
(progn
(setq INDEX -1)
(repeat (sslength L)
(BREAK-PKT0 (ssname L (setq INDEX (1+ INDEX))))
)
)
)
(setvar "cmdecho" 1)
(princ)
)
ADT 2004
ACAD 2002
RE: breakinfg an polyline
RE: breakinfg an polyline
ADT 2004
ACAD 2002
RE: breakinfg an polyline
RE: breakinfg an polyline