CALCULAR LINDEROS Y DISTANCIAS DE UN POLÍGONO IRREGULAR

[ingoscarmora]

Buen dia  trate de realizar una rutina que calcule los linderos de un polígono irregular   con función VLax-curve el problema sucede que el program calcula los linderos ok excepto cuando debo pasa por el punto de origen en el  a continuación relaciono el error y como debe quedar el programa el programa funciona seleccionando el polígono, segundo seleccionando los bloques que identifican los puntos en este orden noroeste, noreste, sureste, suroeste.  y calcula la distancia norte, sur, oriente, occidente. el problema sucede cuando debo calcular la distancia cuando pasa por el punto de origen o termina en el punto de origen.  a continuación muestro las imagenes como se realiza el lisp y como debe quedar, adjunto el archivo y el lisp que trate de programar otra cosa si lo pudieran revisar haber si se simplifica el archivo o se utiliza un mejor método.

 

 

 

(lindero) calcular linderos de un poligono02.lsp archivo base coordendas.dwg

[mhupp]

translated to English.

 

Good morning, try to make a routine that calculates the boundaries of an irregular polygon with the VLax-curve function. The problem happens that the program calculates the boundaries. the program works by selecting the polygon, second by selecting the blocks that identify the points in this order northwest, northeast, southeast, southwest. and calculate the distance north, south, east, west. the problem happens when I need to calculate the distance when it passes the origin point or ends at the origin point. below I show the images how the lisp is made and how it should look, I attach the file and the lisp that tries to program something else if they could check it if the file is simplified or a better method is used.