Topic: increase number of attribute block along a polyline

[pedroantonio]

Hi,Is it possible to increase number of attribute block along a polyline allways in clockwise direction. Look the attach test2.dwg

Thanks

[reltro]

Hey...
its possible for sure...

Start with PseudoCode:
1. Select Polyline
2. Pick the Point
3. Get the Vertices of the Polyline
4. Sort them, so that the vertices nearest to the Point in 2. is the first.
5. reverse or not the list from step 4. to be clockwise
6. insert BlockReference on each vertex
7. change Attribute value

An approach...

Code: [Select]

(defun From1to4 ( / vertices entselOut PickPoint dist StartIndex)
   (vl-load-com)
   (setq   entselOut   (entsel "Pick a polyline near to the startpoint")
         PickPoint   (cadr entselOut)
         vertices   (mapcar
                     'cdr
                     (vl-remove-if-not
                        '(lambda (a / )
                           (= (car a) 10)
                        )
                        (entget (car entselOut))
                     )
                  )
         StartIndex   (vl-position
                     (apply
                        'min
                        (setq dist
                           (mapcar
                              '(lambda (a / )
                                 (distance PickPoint a)
                              )
                              vertices
                           )
                        )
                     )
                     dist
                  )
   )
   
   (repeat StartIndex (setq vertices (reverse (cons (car vertices) (reverse (cdr vertices))))))
)

Greets reltro

[pedroantonio]

Hi reltro

1. Select Polyline
2. Pick the Point
3. Get the Vertices of the Polyline
4. Sort them, so that the vertices nearest to the Point in 2. is the first.
5. reverse or not the list from step 4. to be clockwise
6. insert BlockReference on each vertex
7. change Attribute value

this is exactly what i am looking for , but this code after select the polyline stops ....

Thanks

[reltro]

sure it stops, all has to have an end

look at his name! its called: "From1to4"
its just a Part...

Try coding yourself!

[pedroantonio]

Thanks you for your time reltro

[pedroantonio]

Can anyone help

Thanks

[CAB]

Use the search feature.

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

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

[ChrisCarlson]

Where have you left off? What part are you stuck on?

[pedroantonio]

The polyline have allready attribiute blocks on it .The only thing i want to do is to increase the value of attribute block along a polyline clockwise all the times like this

1,2,3,4,5,6,7,8,...............
Or
Giving a letter first like
K1,K2,K3,K4,..........................
T1,T2,T3,.............................

1) first select the polyline .(The polyline have allready attribiuts on it)
2) Give or not a letter
3)Pick the first point (the point that will have the number 1 or K1 etc...)
4) increase the value of attribute block along a polyline clockwise 

[ChrisCarlson]

I'm not sure how to gather the coordinates in a clockwise fashion but if it's not many attributes you can just manually select them one at a time?

Code: [Select]

(setq num_seq
    (getint
      (strcat "\nStarting number <"
         (itoa num_seq)">: ")))
(car (nentsel "\n--- SELECT ATTRIBUTE ---- ")))
(if (and curText ;
                 (setq curData (entget curText))
                 (= (cdr (assoc 0 curData)) "ATTRIB")
)
         (progn
            (vla-put-TextString
(vlax-ename->vla-object curText)curStr)
(setq num_seq(1+ num_seq))
         )
        (princ "\n--- THIS IS NOT AN ATTRIBUTE ---- ")


[pedroantonio]

Thank you ChrisCarlson but i want to  increase the value of attribute block along a polyline clockwise  automaticaly all. Select only the first ,because i have a lot of points to rename...

[pedroantonio]

is it possible to  increase the value of attribute block along a polyline clockwise  automaticaly. and how?

[ronjonp]

is it possible to  increase the value of attribute block along a polyline clockwise  automaticaly. and how?

Perhaps a bit of searching will lead you in the right direction
http://goo.gl/M9O64C
http://goo.gl/GhIaYY

[pedroantonio]

can anyone help with the code ?

[ronjonp]

is it possible to  increase the value of attribute block along a polyline clockwise  automaticaly. and how?

Perhaps a bit of searching will lead you in the right direction
http://goo.gl/M9O64C
http://goo.gl/GhIaYY