Modify helix in block

[AChartier627]

I am trying to develop a lisp routine to modify the number of turns, turn height, and twist of a helix in a block.

I am sweeping a profile along that helix and by modifying these parameters I can change the resulting surface that represents a curved beam.

 

I have attached the drawing, but i have not been able to get anywhere with the coding because I have not been able to find out how to isolate those parameters of the helix.

SS BEND.dwg

[AChartier627]

So digging through dozens of references I have eventually found a way to modify a helix embedded in a block.

I am using the endpoint later.

 

    (if (setq ent (car (nentsel "\nSelect Helix in Block : ")))
        (if (= (cdr (assoc 0 (setq get (entget ent)))) "HELIX")
            (progn
                (setq vlent (vlax-ename->vla-object ent))
                (vlax-put-property vlent  "Turns" 0.25)        
                (vlax-put-property vlent  "Height" 100)            
                (setq EndPoint (vlax-curve-getEndPoint vlent))
                (setq x2 (rtos (car EndPoint)))
                (setq y2 (rtos (cadr EndPoint)))
                (setq z2 (rtos (caddr EndPoint)))
                (setq coord2 (strcat x2 ", " y2 ", " z2))
            );progn
            (alert "Not a Helix")
        );if    
    );if

 

Unfortunately this modifies all of the blocks with the same name as the block that has been selected and modified.

 

Is there any way to link the "Turns" and "Height" properties of a helix in a block, to dynamic attributes or custom properties.

 

Thanks in advance