Breakline lisp usine a divide in section

[CadFrank]

Is their a way to creat a lisp that would make a breakline at the division point saying like 4 space then i get 3 break

[CadFrank]

Well i kinda forgot to say Hi to everyone. really sorry for my bad manners !! but hello to all please help me if you can.

[alanjt]

That was fun...

 

(defun c:BDiv (/ *error* AT:DrawX _getint cmd seg i ss e div poc)
 ;; Break curve object(s) into Divided segments
 ;; Alan J. Thompson, 11.01.11

 (vl-load-com)

 (defun *error* (msg)
   (and cmd (setvar 'CMDECHO cmd))
   (and *AcadDoc* (vla-endundomark *AcadDoc*))
   (if (and msg (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,")))
     (princ (strcat "\nError: " msg))
   )
 )

 (defun AT:DrawX (P C)
   ;; Draw and "X" vector at specified point
   ;; P - Placement point for "X"
   ;; C - Color of "X" (must be integer b/w 1 & 255)
   ;; Alan J. Thompson, 10.31.09
   (if (vl-consp P)
     ((lambda (d)
        (grvecs (cons C
                      (mapcar (function (lambda (n) (polar P (* n pi) d)))
                              '(0.25 1.25 0.75 1.75)
                      )
                )
        )
        P
      )
       (* (getvar 'VIEWSIZE) 0.02)
     )
   )
 )

 (defun _getint (/ i)
   (cond ((not (setq i (getint "\nSpecify number of segments: "))))
         ((<= i 1) (princ "\nValue must be greater than 1!") (_getint))
         (i)
   )
 )

 (vla-startundomark
   (cond (*AcadDoc*)
         ((setq *AcadDoc* (vla-get-activedocument (vlax-get-acad-object))))
   )
 )
 (setq cmd (getvar 'CMDECHO))
 (setvar 'CMDECHO 0)
 (redraw)

 (if (and (setq seg (_getint))
          (setq i  -1
                ss (ssget "_:L" '((0 . "ARC,LINE,*POLYLINE,SPLINE")))
          )
     )
   (while (setq e (ssname ss (setq i (1+ i))))
     (setq div (/ (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e)) seg))
     (repeat (1- seg)
       (AT:DrawX (setq poc (trans (vlax-curve-getPointAtDist e div) e 1)) 1)
       (vl-cmdf "_.break" e "_F" "_non" poc "_non" poc)
       (setq e (entlast))
     )
   )
 )
 (*error* nil)
 (princ)
)

This thread may be of interest: http://www.theswamp.org/index.php?topic=39550.0

[CadFrank]

Hi and thank you for your time.

 

This routine does not exactly do what i want but its is close. If it is possible i would like it to had a breakline at each segment of the break. give this image that i posted on this message.

 

 

i hope this helps understand.

 

thanks alot again.

[alanjt]

Wow, I wish you had been a little clearer. Oh well, will still be useful.

 

Just create a block with a wipeout or hatch (color 255,255,255) and use the Divide command.

[alanjt]

These may also be of interest...

 

http://www.theswamp.org/index.php?topic=32789.0

http://www.theswamp.org/index.php?topic=34792.0

http://www.theswamp.org/index.php?topic=37531.0

[CadFrank]

I did look at those poste and they seem to be what i need. But the routine isnt there to be used. Also since i do not have my lisp course done i don't know how to create a routine.

 

soon i will take a course and understand it.

 

Thanks alot

 

Cheers !!

[CadFrank]

Hi, i know i posted a message yesterday about this request.

 

I would like to know if there's a routine to creat a breakline according to the scale of the dimension just like the breakline command in Express / draw

 

Here is a picture of what i would like

Thank alot for all the help.

 

Cheers to all !!

[mdbdesign]

http://www.google.ca/url?sa=t&rct=j&q=breaksymbols.lsp&source=web&cd=2&sqi=2&ved=0CBwQFjAB&url=http%3A%2F%2Fautoc.tistory.com%2Fattachment%2Fcfile27.uf%40192978464E5A49BF133D67.LSP&ei=x5yxTva5OKXi0QGikZHVAQ&usg=AFQjCNFDN-I1ZAua51iWaqDD-Bg1xn4yHQ&cad=rja

 

Shape 28, try.

Need to use + or - to change # of break symbols

[CadFrank]

this is close to what i want. the only thing missing would be dividing the line and at each division input a breaksymbole.

 

I do not know if such routine exist but i can't find one.

 

Cheers and thank you!

[Lee Mac]

Please don't double post.

[SLW210]

Threads have been combined. Please do not post the same question more than once (aka double post).

[CadFrank]

what should i do if i get no response?

[SLW210]

what should i do if i get no response?

 

Just ask again in the same thread, this will bring it to the top. Usually if you have no response, then your question was not clear or no one that has viewed it has a solution.

 

Seems to me you have been recieving a few responses.

[CadFrank]

I got some response but nothing that gives the resolte im looking for. I just don't want to sound rude in how I talk. English isn't my first language and I don't express myself the right way.

 

I simply don't know how to make it clearer with the picture i sent.

 

I simply want to recreate a breakline but with more then 1 break. just as if i was using the command "Breakline"

 

the only difference would be that they would ask how many breaks you want

 

if you use breakline atm you will get the question middle or something like that

 

Command: breakline

Block= BRKLINE.DWG, Size= 3, Extension= 1.5

Specify first point for breakline or [block/Size/Extension]:

Specify second point for breakline:

Specify location for break symbol :

 

i would like a command like this.

 

Command: breakline

Block= BRKLINE.DWG, Size= 3, Extension= 1.5

Specify first point for breakline or [block/Size/Extension]:

Specify second point for breakline:

Specify location for break symbol :

[CadFrank]

Hi I'm just refreshing my Post Hope some1 can find something.

 

Thx alot