Using Arraypath function via scripting, duplicating lines are created in opposite direction of curve path

[harshil]

(defun c:AUTOHPA ( / objLayer pathLayer objSS pathSS objToArray pathCurve pathLength )
  (setvar "CMDECHO" 0)

  ;; Define your custom layer names here
  (setq objLayer  "V1")  ; <-- Replace with your object layer name
  (setq pathLayer "P1")    ; <-- Replace with your path layer name
  
   ;; Number of items
  (setq items 10)

  ;; Automatically select everything on the object layer
  (setq objSS (ssget "_X" (list '(0 . "*") (cons 8 objLayer))))
  
  ;; Automatically select the first/only object on the path layer
  (setq pathSS (ssget "_X" (list '(0 . "*") (cons 8 pathLayer))))

  (princ "working01")
  ;; Check if both selections actually found objects
  (if (and objSS pathSS)
    (progn
      ;; Get the first entity name from the path selection set
      (setq pathCurve (ssname pathSS 0))
      
       ;; 3. Calculate the exact length of the path object automatically
      (setq pathLength (vlax-curve-getDistAtParam pathCurve (vlax-curve-getEndParam pathCurve)))
      (princ pathLength)
      
      (princ "working02")
      ;; Execute the array using the full object selection set
      (command "._ARRAYPATH" objSS "" pathCurve "M" "M" "I" items pathLength "" "X")

      (princ "\nArray completed successfully using layers.")

    )
    (princ "\nError: Objects or Path curve not found on the specified layers.")
  )

  (setvar "CMDECHO" 1)
  (princ)
)

 

Edited 19 hours ago by SLW210
Added Code Tags!!

[harshil]

 

[SLW210]

Please use Code Tags when posting code. (use <> in the Editor)

 

Do you have a drawing with a before and after?

[harshil]

Green line should follow white curve path instead the duplicating lines are offsetting in opposite direction of curve

[SLW210]

That's an Image, not a drawing.

 

But since you want guesses only, my WAG is the direction of whatever object you are using for the 'curve path".

[harshil]

manually arraypath is working fine but only while script running it is not working. At some location of layout it is working and at other location same script is not working.

test_01.dwg

[harshil]

curve direction reverse using pedit I have tried but not working. I think script is not working because of default base point selection.