created perpendicular palettes for a polyline

[gi416384]

Hello.
Does anyone have any idea whether there is a system or a way to create perpendicular palettes to a polyline at the top of the polyline itself, as to indicate that each in each node there is a corresponding section?

Thank you.

 

[MassiVonWeizen]

Define straight.

 

[Utente cancellato 70856]

Hello.
Does anyone have any idea whether there is a system or a way to create perpendicular palettes to a polyline at the top of the polyline itself, as to indicate that each in each node there is a corresponding section?

Thank you.

isometric design??? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

 

[gi416384]

Define straight.

In the annex that I have entered there is a polyline on which the hand-built palettes are inserted... Is there a way to make them automatically and possibly with a progressive numbering from 1 up?

 

[MassiVonWeizen]

create a block with an attribute. insert it with insertion point the end of the polyline. if the polyline is tilted rough the block with reference.

if you want a progressive numbering in the forum there should be a lisp that does

 

[gi416384]

It's not that simple. if the polylinea has 50 vertices I become mad to do an operation so for each summit.... I was looking for something more automatic, if possible

 

[MassiVonWeizen]

but we went from a

create perpendicular palettes to a polyline at the top of the polylinea itself,

to an automatism that for every knot of polylinea must put a shovel (what prefers automatism? a find on the street? a conson to your standards?) gradually nuerandola and place it perpendicular (perpendicular to what if it finds a knot in a stretch that polylinea creates a corner? the straight or inclined tract? )

In my opinion if you have 50 knots you put a dozen minutes open/lock must already exist otherwise add 5 minutes)
But if you have to do tens a day, it's different. but all the shack is very different from your first question

 

[Cristallo]

it becomes complicated also because they must be arranged according to the angle bisector to give the effect you want.

 

[GP.]

creates a block named "basket" oriented upwards and with an attribute inside, then try this lisp.
fast and dirty, therefore without management errors and sophisticated things, contented.

 

[Cristallo]

since I believe it is a useful code, even for other uses, I have inserted the choice of the block name to be inserted (which is repeated in case of use on more than one line) and a minimum of error control on the existence of the indicated block (a simple alert that does not crash the list brutally).
View attachment palette V2.lsp

 

[GP.]

a clarification, when I wrote "creates a block named "basket" oriented upward..." I mean towards the corner 0.00, which for me is to the north (towards) by topographic convention, but in autocad by default is to the east;

for those concerning the crystal code:
- I took this line off. (map '(lambda (a b) (setq la (cons (angle a b) la)) lv1 lv2) that returned the corners of insertion of the blocks, as it had remained in the code, but I then used another method;
- I've got it. "_non" in this line:(command "_-insert" blockname "_non" (car lv1) "1" "1" "_non" (car lv2) (rtos (setq n (1+ n)) 2 0)for not having to redefine The by those who do not use osnapcoord = 1
- I entered a control to give the correct sequence to the block entry command in case it is without attribute for the numbering. of course in the presence of more than one attribute should be further revised.


p.s. a thanks to the in. ♪ for giving us the opportunity to think about something to relieve the boredom of work.