CAD Forum discussion (EN) : Polygcode.lsp https://www.cadforum.cz/forum_en/ Sun, 31 May 2026 23:00:26 +0000 Mon, 10 Oct 2022 21:43:34 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum_en/RSS_post_feed.asp?TID=13765 <![CDATA[CAD Forum discussion (EN)]]> https://www.cadforum.cz/forum_en/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum_en/ <![CDATA[Polygcode.lsp : Thanks for the help.I am not a...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13765&PID=38417&title=polygcodelsp#38417 Author: r.b.hughes
Subject: 13765
Posted: 10.Oct.2022 at 21:43

Thanks for the help.

I am not a LISP user. My mistake was not putting "cadr PT1" in brackets.
]]> Mon, 10 Oct 2022 21:43:34 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13765&PID=38417&title=polygcodelsp#38417 <![CDATA[Polygcode.lsp : Very basic AutoLisp multiplication:....(princ...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13765&PID=38416&title=polygcodelsp#38416 Author: Kent Cooper
Subject: 13765
Posted: 10.Oct.2022 at 14:23

Very basic AutoLisp multiplication:
....
(princ (strcat "\n" "X" (rtos (* (cadr PT1) 2) 2 __PV_DP) __PV_Delimiter
....
]]> Mon, 10 Oct 2022 14:23:29 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13765&PID=38416&title=polygcodelsp#38416 <![CDATA[Polygcode.lsp : I have been using this .lsp file...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13765&PID=38415&title=polygcodelsp#38415 Author: r.b.hughes
Subject: 13765
Posted: 07.Oct.2022 at 17:59

I have been using this .lsp file (downloaded from this site) for students to extract XYZ coordinates to be used in a CNC.program. I am trying to adapt the program to extract XZ coordinates for programs for a CNC lathe. The problem I am having is that the X values I get are radius, and I need diameter. I have not been able to find out how to multiply the polyline point value by 2.

Here is a clip of the section of the script

   (foreach PT1 listCOORDINATES ;all vertices
    (princ (strcat "\n" "X" (rtos (cadr PT1) 2 __PV_DP) __PV_Delimiter
                        "Z" (rtos (car PT1) 2 __PV_DP) )) ; display XY

For simplicity, the Y coordinate (cadr) is the X axis, and the X coordinate (car) is the Z axis.

I need the value of the Y coordinate to be multiplied by 2. Can anyone suggest how to do this?

Many thanks.
]]> Fri, 07 Oct 2022 17:59:13 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13765&PID=38415&title=polygcodelsp#38415