@Sea-Haven
THANKS!
(this post is updated per the latest comment. updated rtos 2 3 sections to be rtos 2 8 for more accurate vertex snap locations)
you set me on the right track, but i had some things to work through. I had to change some Registry settings for the .scr file to work.
i'm sure this thing could be compressed some how, but i'm pretty excited it works, so i left it as is.
here is the code...i also attached the .lsp file, and a .jpg file showing how to start the process. the end result is a "complete" polyfacemesh around the "edge" and another polyfacemesh on the top and bottom, selectable as one cohesive unit. when you move each section, you'll see the original polylines you start with. i'll probably add more to the code to delete these original polylines at a later time. that was a rough few days getting through this.
(defun c:pfacetest1 ();SPECIAL THANKS TO @SEA-HAVEN on the autodesk forums. @eharrisonTZS2M - EDH 5/6/24
;Collect vertices
(setq vertices '()) ; Initialize an empty list to store vertices
(setq vertexIndex 1) ; Initialize vertex index
(setq vertex (getpoint (strcat "\nEnter Vertex " (itoa vertexIndex) " (Collect All Vertices, starting at top then go down, up down, up down, etc. Press ENTER to finish) : "))) ; Prompt for the first vertex
(while vertex ; Loop until the user presses ENTER
(setq vertices (cons vertex vertices)) ; Add the vertex to the list
(setq vertexIndex (1+ vertexIndex)) ; Increment vertex index
(setq vertex (getpoint (strcat "\nEnter Vertex " (itoa vertexIndex) " (Press ENTER to finish) : "))) ; Prompt for the next vertex
)
;START SECTION---------------------------------------------------------------------------------------------------
; Ensure vertices are in the correct order (top-left, top-right, bottom-right, bottom-left)
(setq vertices (reverse vertices))
;END SECTION------------------------------------------------------------------------------------------------
; Determine the number of faces based on the total number of vertices
(setq numVertices (length vertices))
(setq numFaces (/ numVertices 2))
; Output the number of faces and vertices to the command prompt
(princ (strcat "\nTotal Vertices: " (itoa numVertices)))
(princ (strcat "\nTotal Faces: " (itoa numFaces)))
(princ "\n") ; Add a newline character
;START SECTION---------------------------------------------------------------------------------------------------
; Print vertices list
(princ "\nVertices List:")
(foreach vert vertices
(princ (strcat "\nVertex: " (rtos (car vert) 2 8) ", " (rtos (cadr vert) 2 8) ", " (rtos (caddr vert) 2 8))))
;END SECTION---------------------------------------------------------------------------------------------------
;(princ "\nCommand: ") ; Add a newline character
;START SECTION-------------------------------------------------------------------------------------------------
(setq fo (open "C:\\LISP FOR POLYFACE MESH\\AUTOPFACE.scr" "w"))
(if fo
(progn
(write-line "pface" fo) ; Write the pface command
; Iterate over vertices list and write each vertex coordinates to the .scr file
(foreach vert vertices
(write-line (strcat
(rtos (car vert) 2 8) ","
(rtos (cadr vert) 2 8) ","
(rtos (caddr vert) 2 8)) fo))
(write-line "" fo) ; Add an empty line
;END SECTION---------------------------------------------------------------------------------------------------
;NEW WRITE SCR FILE FACES LIST-------------------------------------------------------------------------------------------------
; Write faces to the .scr file
(setq vertexIndex 1)
(setq counter 0)
(setq lastVertexIndex (- numVertices 1)) ; Index of the last vertex
(while (<= vertexIndex numVertices)
(write-line (itoa vertexIndex) fo) ; Write current vertex index
(write-line (itoa (+ vertexIndex 1)) fo) ; Write next vertex index
(write-line (itoa (+ vertexIndex 3)) fo) ; Write the vertex index skipping one
(write-line (itoa (+ vertexIndex 2)) fo) ; Write the vertex index skipping one and two
(setq vertexIndex (+ vertexIndex 2)) ; Increment by 2 for the next face
(setq counter (1+ counter)) ; Increment counter
; Check if this is the last face
(if (= vertexIndex lastVertexIndex) ; Check if this is the last vertex
(progn
; Write the last face indices
(write-line "" fo) ; Add a newline between faces
(write-line (itoa (- numVertices 1)) fo)
(write-line (itoa numVertices) fo)
; Write '2' and '1' as the last two numbers
(write-line "2" fo)
(write-line "1" fo)
; Exit the loop as we've completed writing the faces
(setq vertexIndex (1+ numVertices)) ; Set vertexIndex greater than numVertices to exit the loop
)
(if (= counter 4) ; Check if counter reaches 4
(progn
(write-line "" fo) ; Add a newline after every 4 numbers
(setq counter 0) ; Reset counter
)
(write-line "" fo) ; Add a newline between faces
)
)
)
;START SECTION---------------------------------------------------------------------------------------------------------
(write-line "" fo)
(write-line "" fo)
;END SECTION------------------------------------------------------------------------------------------------------------
;START TOP & BOTTOM SECTION---------------------------------------------------------------------------------------------
(write-line "pface" fo) ; Write the pface command
; Iterate over vertices list and write each vertex coordinates to the .scr file
(foreach vert vertices
(write-line (strcat
(rtos (car vert) 2 8) ","
(rtos (cadr vert) 2 8) ","
(rtos (caddr vert) 2 8)) fo))
(write-line "" fo) ; Add an empty line
; Write faces for the odd-numbered vertices
(setq vertexIndex -1) ; Start with the first vertex
(while (<= vertexIndex numVertices)
(write-line (itoa vertexIndex) fo)
(setq vertexIndex (+ vertexIndex 2)) ; Move to the next odd-numbered vertex
)
(write-line "" fo) ; Add a newline between the two sets of faces
; Write faces for the even-numbered vertices
(setq vertexIndex 0) ; Start with the second vertex for the even-numbered vertices
(while (< vertexIndex numVertices) ; Change condition to stop before reaching the last vertex
(setq vertexIndex (+ vertexIndex 2)) ; Move to the next even-numbered vertex
(write-line (itoa vertexIndex) fo)
)
;END TOP & BOTTOM SECTION---------------------------------------------------------------------------------------------
;START SECTION---------------------------------------------------------------------------------------------------------
(write-line "" fo)
(write-line "" fo)
;END SECTION------------------------------------------------------------------------------------------------------------
;START SECTION---------------------------------------------------------------------------------------------------------
(close fo)
(setvar "clayer" "0")
(command "script" "C:\\LISP FOR POLYFACE MESH\\AUTOPFACE.scr")
)
(princ "\nFailed to open file for writing.")
)
;END SECTION------------------------------------------------------------------------------------------------------------
;END ALL CODE-----------------------------------------------------------------------------------------------------------
);end
