topic Re: I want a lisp to draw break line (polyline) in Visual LISP, AutoLISP and General Customization Forum

I want a lisp to draw break line (polyline)

kajanthangavel — Sat, 06 Jun 2020 10:16:14 GMT

Hi, i want a lisp to make polylines like this. It is help to make road marking drawings. please help me.

Re: I want a lisp to draw break line (polyline)

Kent1Cooper — Sat, 06 Jun 2020 12:30:50 GMT

A linetype with 6-unit-long dashes and 6-unit-long gaps is very easy to define. Is there some reason you can't use something like that?

Re: I want a lisp to draw break line (polyline)

devitg — Sat, 06 Jun 2020 16:48:10 GMT

@kajanthangavel thanks for uploading the sample .

Re: I want a lisp to draw break line (polyline)

Anonymous — Sat, 06 Jun 2020 19:16:29 GMT

Since you want the lines to be a certain length, a linetype may not be possible because the length will vary and the ends of the linetype will be slightly longer to make up the difference. Unless you make the linetype for each drawing scale you will be using for which I have done, the ends of the line situation still applies.

I would try using the measure command with a block and just enter your distance and then use the blocks as trimming limits and then erase the blocks. Sounds tedious I know but sometimes you gotta do what you gotta do to get the project done.

Re: I want a lisp to draw break line (polyline)

joselggalan — Sat, 06 Jun 2020 21:06:14 GMT

You can modify the length of the line and the number of road markings.

try this please:

;;============================== C:MakeRoadMarking =============================================;; ;; Create road markings ;; ;; Jose L. García G. - https://lamarmitadelcad.blogspot.com/ 6/6/20 ;; ;;==============================================================================================;; (defun C:MakeRoadMarking ( / eCurve oCurve PtInicEje PtFinEje *ColorMarks PtInicEje PtFinEje RM:Pt1 ptAux1 ptAux2 listSecctions Alert1 ;|Functions|; MRM:ObjPt2VectTan MRM:grd> MRM:grdX ) ;;----------------------- MRM:grdX --------------------------------- ;; X on screen ;;------------------------------------------------------------------ (defun MRM:grdX (p col size / h) (setq h (/ (getvar "viewsize") size)) (grdraw (list (- (car p) h) (- (cadr p) h)) (list (+ (car p) h) (+ (cadr p) h)) col 0) (grdraw (list (- (car p) h) (+ (cadr p) h)) (list (+ (car p) h) (- (cadr p) h)) col 0) t );c.defun ;;----------------------- MRM:grd> --------------------------------- ; > on screen ;;------------------------------------------------------------------ (defun MRM:grd> (oCurve p col size Invert / Aux DatTangent h p1 p2) (setq DatTangent (MRM:ObjPt2VectTan oCurve p)) (setq p (car DatTangent) Ang (apply 'angle DatTangent)) (setq Aux (if Invert 0 pi)) (setq h (/ (getvar "viewsize") size)) (setq p1 (polar p (+ (- ang Aux) (/ pi 9)) h) p2 (polar p (- (- ang Aux) (/ pi 9)) h)) (grdraw (trans p 0 1) (trans p1 0 1) col 0) (grdraw (trans p 0 1) (trans p2 0 1) col 0) );c.defun ;;------------------------ MRM:ObjPt2VectTan ------------------------- (defun MRM:ObjPt2VectTan (vobj pnt / param p1 p2 deriv1) (setq p1 (vlax-curve-getClosestPointTo vobj (trans pnt 1 0));punto en curva param (vlax-curve-getParamAtPoint vobj p1) deriv1 (vlax-curve-getFirstDeriv vobj param) ;vector de direccion No point p2 (mapcar '+ p1 deriv1)) (if (and p1 p2) (list p1 p2)) );c.defun ;;---------------------------- MAIN ---------------------------------------- (setq cmd (getvar 'cmdecho)) (setvar 'cmdecho 0) ;;Initial Values (or $NoMarks$ (setq $NoMarks$ 6)) (or $LenMarks$ (setq $LenMarks$ 6.0)) (setq *ColorMarks 2) (setq select T) (setq eCurve (entsel "\nSelect curve axis: ")) (cond ((not eCurve) (prompt "\nNada seleccionado.") ) ((and (setq eCurve (car eCurve)) (wcmatch (cdr (assoc 0 (entget eCurve))) "SPLINE,ELLIPSE,LINE,ARC,CIRCLE,*POLYLINE")) (setq oCurve (vlax-ename->vla-object eCurve)) ) (T (prompt "\nInvalid Selection, select polyline, line, spline, Ellipse or Arc)")) ) (cond (oCurve (setq PtInicEje (vlax-curve-getStartPoint oCurve) PtFinEje (vlax-curve-getEndPoint oCurve)) (cond ((and (setq RM:Pt1 (vl-catch-all-apply (function getpoint) (list "\nStarting point of road marking: "))) (not (vl-catch-all-error-p pick_pt)) ) (vl-cmdf "_.undo" "_BE") (setq RM:Pt1 (vlax-curve-getClosestPointTo oCurve (trans RM:Pt1 1 0))) (MRM:grdX (trans RM:Pt1 0 1) 211 120) (MRM:grd> oCurve (trans RM:Pt1 0 1) 1 25 nil) (initget 6) (if (setq Tmp (getint (strcat "\nNumber of road markings;<" (itoa $NoMarks$) ">: "))) (setq $NoMarks$ Tmp) ) (initget 38) (if (setq Tmp (getdist (trans RM:Pt1 0 1) (strcat "\nRoad marking length;<" (rtos $LenMarks$ 2) ">: "))) (setq $LenMarks$ Tmp) ) (setq ptAux1 RM:Pt1) (repeat $NoMarks$ (cond ((and ptAux1 (setq ptAux2 (vlax-curve-getPointAtDist oCurve (+ (vlax-curve-getDistAtPoint oCurve ptAux1) $LenMarks$))) ) (cond ((setq oCopy (vla-Copy oCurve)) (setq eCopy (vlax-vla-object->ename oCopy)) (vl-cmdf "_.BREAK" (list eCopy (trans PtInicEje 0 1)) (trans ptAux1 0 1)) (vl-cmdf "_.BREAK" (list eCopy (trans ptAux2 0 1)) (trans PtFinEje 0 1)) (vla-put-color oCopy *ColorMarks) (setq listSecctions (cons (list ptAux1 ptAux2) listSecctions)) (setq ptAux1 (vlax-curve-getPointAtDist oCurve (+ (vlax-curve-getDistAtPoint oCurve ptAux2) $LenMarks$))) ) );c.cond ) (t (setq Alert1 T)) );c.cond );c.pepeat (vl-cmdf "_.REGEN") ;optional (vl-cmdf "_.undo" "_E") (if listSecctions (mapcar (function (lambda (x) (MRM:grdX (trans (car x) 0 1) 211 120) (MRM:grdX (trans (cadr x) 0 1) 211 120) ) ) listSecctions ) );c.if (if Alert1 (alert (strcat "The length of the stretch of road markings \n" "exceeds the end of the curve axis.")) );c.if );RM:Pt1 );c.cond );oCurve );c.cond (setvar 'cmdecho cmd) (princ) );c.defun (princ)

Re: I want a lisp to draw break line (polyline)

john.uhden — Sat, 06 Jun 2020 23:03:17 GMT

Here's an attempt I might use myself.

Read my embedded remarks.

(defun C:Stripe ( / *error* vars vals e plen len gap nstripes p1 p2) ;; John F. Uhden, Sea Girt, NJ, USA ;; Program breaks a polyline into user-specified stripe and gap lengths. ;; v1.0 (6-06-2020) ;; dedicated to @kajanthangavel ;; NOTE: ;; It creates perfect stripes and gaps at the beginning of the polyline, ;; but there is likely to be a lengthy leftover stripe at the end. ;; This version does not allow for picking the starting and ending points, ;; and always works from the beginning toward the end as drawn. ;; dft-len and dft-gap are global (defaults for subsequent runs in same session) (gc) (vl-load-com) (princ "\nStripe (c)2020, John F. Uhden") (defun *error* (error) (mapcar 'setvar vars vals) (vla-endundomark *doc*) (cond ((not error)) ((wcmatch (strcase error) "*QUIT*,*CANCEL*")) (1 (princ (strcat "\nERROR: " error))) ) (princ) ) (setq vars '(cmdecho)) (setq vals (mapcar 'getvar vars)) (or *acad* (setq *acad* (vlax-get-acad-object))) (or *doc* (setq *doc* (vla-get-ActiveDocument *acad*))) (vla-endundomark *doc*) (vla-startundomark *doc*) (mapcar 'setvar vars '(0)) (command "_.expert" (getvar "expert")) ;; dummy command (and (setq e (car (entsel "\nSelect polyline: "))) (setq obj (vlax-ename->vla-object e)) (or (= (vlax-get Obj 'ObjectName) "AcDbPolyline") (prompt "\nObject selected is not a LWpolyline.") ) (or (= (type dft-len) 'REAL)(setq dft-len 6.0)) (not (initget 6)) (if (setq len (getdist (strcat "\nLength of stripe <" (rtos dft-len (getvar "lunits") 2) ">: "))) (setq dft-len len) (setq len dft-len) ) (or (= (type dft-gap) 'REAL)(setq dft-gap 6.0)) (not (initget 6)) (if (setq gap (getdist (strcat "\nLength of gap between stripes <" (rtos dft-gap (getvar "lunits") 2) ">: "))) (setq dft-gap gap) (setq gap dft-gap) ) (setq plen (vlax-curve-getdistatparam e (vlax-curve-getendparam e))) (setq nstripes (fix (/ plen (+ len gap)))) (repeat nstripes (setq p1 (vlax-curve-getpointatdist e len) p2 (vlax-curve-getpointatdist e (+ len gap)) ) (vl-cmdf "_.break" e "_non" p1 "_non" p2) (setq e (entlast)) ) ) (*error* nil) )

Re: I want a lisp to draw break line (polyline)

Sea-Haven — Sun, 07 Jun 2020 00:40:09 GMT

I don't understand why line types are no good I have about 6 for road marking one being equal so a 6 x 6 is just lt scale 6, pick start point then trim out section for length required. It can have some smarts added to the trim to make sure works correct a dashed line is not always in a road a perfect length rather the repeating pattern is required.

Agree with John a factor to make linetype look good, equal end gap or start point, end point linetype auto adjusts can use group to make into a sort of 1 object.

Re: I want a lisp to draw break line (polyline)

kajanthangavel — Sun, 07 Jun 2020 04:13:28 GMT

A line type measurements are wrong start, end and vertex points

Re: I want a lisp to draw break line (polyline)

kajanthangavel — Sun, 07 Jun 2020 04:45:53 GMT

Thanks to @joselggalan. it is working well. I saved lots of time.

Re: I want a lisp to draw break line (polyline)

kajanthangavel — Sun, 07 Jun 2020 04:48:16 GMT

It is something different. it break full line and existing line too. i not need this. but anyway thanks to @john.uhden for respond me..

Re: I want a lisp to draw break line (polyline)

john.uhden — Sun, 07 Jun 2020 15:07:32 GMT

What do you mean by two lines?
The program lets you pick only one.
But maybe you want to retain the original.
I can fix that by making a copy and breaking the copy.

Re: I want a lisp to draw break line (polyline)

Kent1Cooper — Mon, 08 Jun 2020 13:05:44 GMT

@kajanthangavel wrote:

A line type measurements are wrong start, end and vertex points

Not if the overall length is correct. In your example, the overall extent from beginning to end is 66 units. For any 66-unit-long path object, this simple definition:

*TEST
A,6,-6

gives this kind of result, exactly what you're looking for as far as I can tell:

Those are two single-object Polylines with width -- in this case 1 unit, but of course, use whatever width you need.

As long at the total length is a multiple of 6 x any odd number, i.e. the number of dashes + the number of gaps, you'll get 6-unit dashes and 6-unit gaps.

Wouldn't it be simpler to [make a copy if you want the original retained, and] Break the path to one resultant 66-unit-long piece, than all those little separate pieces?

Re: I want a lisp to draw break line (polyline)

Kent1Cooper — Mon, 08 Jun 2020 14:48:18 GMT

@Kent1Cooper wrote:....
Wouldn't it be simpler to [make a copy if you want the original retained, and] Break the path to one resultant 66-unit-long piece, than all those little separate pieces?

For example:

;| Dash6x6x6.lsp [command name the same] To draw a dashed portion of 6-unit dashes & 6-unit gaps, quantity 6 dashes, over a portion of an existing path object of any finite type with linearity. Requires that this linetype is loaded: *Dash6x6, Dashed with 6-unit dashes & 6-unit gaps A,6,-6 Kent Cooper, 8 June 2020 |; (vl-load-com) (defun C:Dash6x6x6 (/ path pt1 pt2 drawndir) (if (and (setq path (car (entsel "\nPath object: "))) (wcmatch (cdr (assoc 0 (entget path))) "LINE,*POLYLINE,ARC,CIRCLE,ELLIPSE,SPLINE") (setq pt1 (vlax-curve-getClosestPointTo path (getpoint "\nStart of 6-dash group: "))) (setq pt2 (vlax-curve-getClosestPointTo path (getpoint "\nAny point in desired direction: "))) ); and (progn ; then (setq drawndir (< (vlax-curve-getDistAtPoint path pt1) (vlax-curve-getDistAtPoint path pt2))) ; T if direction from pt1 to pt2 is drawn direction of path, nil otherwise (if (or ; is there a point on path 66 units along? (and drawndir (vlax-curve-getPointAtDist path (+ (vlax-curve-getDistAtPoint path pt1) 66))) (and (not drawndir) (vlax-curve-getPointAtDist path (- (vlax-curve-getDistAtPoint path pt1) 66))) ); or (progn ; then -- proceed (command "_.copy" path "" "0,0" "0,0") (setq ; replacing original variable contents: path (entlast); the copy pt2 (vlax-curve-getPointAtDist path (apply (if drawndir '+ '-) (list (vlax-curve-getDistAtPoint path pt1) 66)) ); ...getPoint... & pt2 ); setq (command "_.break" path "_none" (vlax-curve-getStartPoint path) "_none" (if drawndir pt1 pt2) "_.break" path "_none" (if drawndir pt2 pt1) "_none" (vlax-curve-getEndPoint path) "_.chprop" path "" "_ltype" "Dash6x6" "" ); command ); progn (prompt "\nPath not long enough in that direction."); else ); if [long enough in desired direction] ); progn (prompt "\nInappropriate object type or incomplete information."); else ); if [appropriate selection & complete inputs] (princ) ); defun

It has an advantage over other suggestions [so far], in that it asks you which direction you want to go from your starting point, rather than always proceeding in the drawn direction of the path object, since you won't always know that drawn direction when you select a path object.

I find in quickie testing that for a closed object such as a Circle, it can go in the wrong direction, depending on the relationships of the picked points to the start/end of the closed object, which again, you won't always know. It could be enhanced to account for that, if needed, or to prevent use on closed objects if not needed. It could also put the result on a different Layer, or give it a different color, or whatever other distinction from the original you prefer, and/or to turn it into a Polyline if it isn't already, in order to give it width.

On another note, I notice in your sample drawing that some of the resultant short Polylines follow the shape of the original path, and some do not [single-line-segment ones making chords along arc segments in the original]. I assumed that is not really what you want, and my suggestion follows the original's shape exactly throughout.

Re: I want a lisp to draw break line (polyline)

joselggalan — Mon, 08 Jun 2020 16:10:40 GMT

One of the problems that can occur if line types are used is that they must be loaded from file, although the problem can be solved by code:

;;------------------------------ MakeTLinHidden ---------------------------------------------;; ;; Create line type hidden parametric ;; ;; Example: (MakeTLinHidden "Dash6x6" 1.0 0.5 nil) ;; ;; Jose L. García G. - https://lamarmitadelcad.blogspot.com/ 6/6/14 ;; ;;-------------------------------------------------------------------------------------------;; (defun MakeTLinHidden ( NameLt solid hide comment) (cond ((not (tblsearch "ltype" NameLt)) (entmake (list '(0 . "LTYPE")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbLinetypeTableRecord") (cons 2 NameLt) '(70 . 0) (if comment (cons 3 comment) (cons 3 (strcat "Line type " NameLt " - - - - - - ")) ) '(72 . 65)'(73 . 2) (cons 40 (+ solid hide)) ;;total length (cons 49 solid) '(74 . 0) (cons 49 (- hide))'(74 . 0) ) );c. entmake NameLt ) (T (prompt (strcat "\nThe line type: [" NameLt "]. Already exists in the document")) nil ) );c.cond );c.defun

using for this specific case:

(MakeTLinHidden "Dash6x6" 6.0 6.0 "Dashed with 6-unit dashes & 6-unit gaps")

Another problem is the use of "ltscale" and "psltescale", these variables are not always set to "1" by all users when drawing or printing.

best regards

Re: I want a lisp to draw break line (polyline)

Sea-Haven — Tue, 09 Jun 2020 00:48:18 GMT

Having worked on road designs for most of my life its very rare that you can have a road marking line segment exactly matching the required distance like 66. It is normally to match existing road patterns, so as I said earlier often you may have 63 then what ?

Certainly road turn tapers you can set lengths, there are just to many statutory rules about linework on roads like breaks at vehicle entrances or if continued across you can not enter from the other side of the road. Bike lanes so much stuff comes to mind. Stop lines are broken pattern depends on width of intersection not a fixed length.

Re: I want a lisp to draw break line (polyline)

john.uhden — Tue, 09 Jun 2020 13:30:32 GMT

You know, I don't think that stripes are laid out the same as we would curb
lines. In the field the paint truck sets the paint and gap distances and
just drives down the road. wherever they stop for a break they just start
again where they left off. Approaching an intersection there is always a
long solid stripe of no exact length, so it all works out.
The problem we have is that we have become to think the way that AutoCAD
works... to 16 places of precision. IMHO, plus or minus a few feet (a
meter) of a stripe doesn't mean boo.
I think the linetype approach is the best. Just terminate the dashes where
it looks good, not mathematically.

Re: I want a lisp to draw break line (polyline)

kajanthangavel — Tue, 09 Jun 2020 13:53:35 GMT

Nice work @Kent1Cooper . some advantage. thanks @Kent1Cooper

Re: I want a lisp to draw break line (polyline)

kajanthangavel — Tue, 09 Jun 2020 13:56:42 GMT

ok. thank you.

Re: I want a lisp to draw break line (polyline)

Sea-Haven — Wed, 10 Jun 2020 00:04:20 GMT

Your right the line painter guys have been doing it for years, so when the plans don't make sense they will make it work shorten or lengthen to suit.