Inserting block on every polyline vertex and write in block attribute distance to polyline's start
That is certainly possible. I assume the Block's insertion point is what is at the vertex.
It looks like the completed Attribute in your image is a vertex number, not a distance. Would you be looking for the distance along the Polyline at that vertex in addition to that "KOORDINATE" value, presumably in the "KM" Attribute?
If KM stands for Kilometers, what is your drawing unit? AutoLisp can easily find the distance along the Polyline to a given vertex, but if you're dealing with Kilometers but your drawing unit is a Meter, that should be divided by 1000 to put in the Attribute. You could have the value shown to as many decimal places as you like -- is there a standard?
Bonjour @Angelswing91
starting hypothesis: the "pkblock" block exists in the drawing and has three attributes, the first is the vertex number, the second is the PK and the third is "type" by default.
Try this code, I think it will be ok :
(setq ent (car (entsel "\nPolyligne de référence ?\n")))
(setq vlapol (vlax-ename->vla-object ent))
(repeat (setq par (fix (vlax-curve-getEndParam vlapol)))
(command "_insert" "pkblock"
(vlax-curve-getpointatparam vlapol par)
"" "" ""
(itoa par)
(rtos (/ (vlax-curve-getDistatParam vlapol par) 1000) 2 3)
"type"
)
(setq par (1- par))
)Amicalement
A little suggestion:
Filling in the Attribute values as part of the INSERT command means you need to know their order in the Block definition, and you need to supply values for all Attributes that will be requested, whether or not you have values ready. But this can be done without those burdens, by using the (setpropertyvalue) approach, with which you can assign values without regard to their order, and to only those Attributes that you want to work with. This is because in (getpropertyvalue)/(setpropertyvalue) functions, an Attribute tag is a "property" of the Block insertion, and you can set its value as you can any other property.
Turn off Attribute requesting, Insert the Block without supplying Attribute values, and then:
(setpropertyvalue (entlast) "KOORDINATE" {supply the vertex number})
(setpropertyvalue (entlast) "KM" {supply the calculated distance from the start})
You can ignore the "TYPE" Attribute if you don't have anything to put in it yet.
Bonjour @Kent1Cooper
I fully understand those comments, they are constructive.
I proposed a written solution quickly with hypotheses for the block as I say in the preamble.
Indeed, to make the proposal more robust, your solution is perfect (hypothesis: we know the tags of the block).
I am flattered that you make comments about my code. As a little French, I often read the questions without answering them by shyness.
Amicalement
This image is using a chainage.lsp you can see that it does increments, the add chainage at vertex could be added, I am sure other versions do it, the reason I mention it is that it rotates the text to be 90 off the pline.
