{"id":859,"date":"2023-06-29T02:57:54","date_gmt":"2023-06-29T02:57:54","guid":{"rendered":"https:\/\/designden.design\/?page_id=859"},"modified":"2024-05-12T18:15:50","modified_gmt":"2024-05-12T18:15:50","slug":"autodesk-autolisp","status":"publish","type":"page","link":"https:\/\/designden.design\/index.php\/autodesk-autolisp\/","title":{"rendered":"Autodesk &#8211; Autolisp"},"content":{"rendered":"\t\t<div data-elementor-type=\"wp-page\" data-elementor-id=\"859\" class=\"elementor elementor-859\">\n\t\t\t\t\t\t\t\t\t<section class=\"elementor-section elementor-top-section elementor-element elementor-element-132e662c elementor-section-content-middle elementor-section-full_width elementor-reverse-mobile elementor-reverse-tablet elementor-section-height-default elementor-section-height-default\" data-id=\"132e662c\" data-element_type=\"section\" data-settings=\"{&quot;background_background&quot;:&quot;classic&quot;}\">\n\t\t\t\t\t\t\t<div class=\"elementor-background-overlay\"><\/div>\n\t\t\t\t\t\t\t<div class=\"elementor-container elementor-column-gap-no\">\n\t\t\t\t\t<div class=\"elementor-column elementor-col-50 elementor-top-column elementor-element elementor-element-474ccf82\" data-id=\"474ccf82\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t\t\t<div class=\"elementor-element elementor-element-5e57f0e7 elementor-widget elementor-widget-image\" data-id=\"5e57f0e7\" data-element_type=\"widget\" data-widget_type=\"image.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t<style>\/*! elementor - v3.10.2 - 29-01-2023 *\/\n.elementor-widget-image{text-align:center}.elementor-widget-image a{display:inline-block}.elementor-widget-image a img[src$=\".svg\"]{width:48px}.elementor-widget-image img{vertical-align:middle;display:inline-block}<\/style>\t\t\t\t\t\t\t\t\t\t\t\t<img decoding=\"async\" width=\"307\" height=\"118\" src=\"https:\/\/designden.design\/wp-content\/uploads\/2023\/06\/title_with_background-removebg-preview.png\" class=\"attachment-large size-large wp-image-862\" alt=\"\" loading=\"lazy\" srcset=\"https:\/\/designden.design\/wp-content\/uploads\/2023\/06\/title_with_background-removebg-preview.png 307w, https:\/\/designden.design\/wp-content\/uploads\/2023\/06\/title_with_background-removebg-preview-300x115.png 300w\" sizes=\"(max-width: 307px) 100vw, 307px\" \/>\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t<div class=\"elementor-column elementor-col-50 elementor-top-column elementor-element elementor-element-7888fe4\" data-id=\"7888fe4\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t\t\t<div class=\"elementor-element elementor-element-547a5ae7 elementor-widget elementor-widget-heading\" data-id=\"547a5ae7\" data-element_type=\"widget\" data-widget_type=\"heading.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t<style>\/*! elementor - v3.10.2 - 29-01-2023 *\/\n.elementor-heading-title{padding:0;margin:0;line-height:1}.elementor-widget-heading .elementor-heading-title[class*=elementor-size-]>a{color:inherit;font-size:inherit;line-height:inherit}.elementor-widget-heading .elementor-heading-title.elementor-size-small{font-size:15px}.elementor-widget-heading .elementor-heading-title.elementor-size-medium{font-size:19px}.elementor-widget-heading .elementor-heading-title.elementor-size-large{font-size:29px}.elementor-widget-heading .elementor-heading-title.elementor-size-xl{font-size:39px}.elementor-widget-heading .elementor-heading-title.elementor-size-xxl{font-size:59px}<\/style><h1 class=\"elementor-heading-title elementor-size-default\">Autodesk:<br>AutoLISP<\/h1>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t<section class=\"elementor-section elementor-top-section elementor-element elementor-element-1bfff77 elementor-section-boxed elementor-section-height-default elementor-section-height-default\" data-id=\"1bfff77\" data-element_type=\"section\">\n\t\t\t\t\t\t<div class=\"elementor-container elementor-column-gap-default\">\n\t\t\t\t\t<div class=\"elementor-column elementor-col-100 elementor-top-column elementor-element elementor-element-bd4901f\" data-id=\"bd4901f\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t\t\t<div class=\"elementor-element elementor-element-b149df0 elementor-widget elementor-widget-spacer\" data-id=\"b149df0\" data-element_type=\"widget\" data-widget_type=\"spacer.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t<style>\/*! elementor - v3.10.2 - 29-01-2023 *\/\n.elementor-column .elementor-spacer-inner{height:var(--spacer-size)}.e-con{--container-widget-width:100%}.e-con-inner>.elementor-widget-spacer,.e-con>.elementor-widget-spacer{width:var(--container-widget-width,var(--spacer-size));--align-self:var(--container-widget-align-self,initial);--flex-shrink:0}.e-con-inner>.elementor-widget-spacer>.elementor-widget-container,.e-con-inner>.elementor-widget-spacer>.elementor-widget-container>.elementor-spacer,.e-con>.elementor-widget-spacer>.elementor-widget-container,.e-con>.elementor-widget-spacer>.elementor-widget-container>.elementor-spacer{height:100%}.e-con-inner>.elementor-widget-spacer>.elementor-widget-container>.elementor-spacer>.elementor-spacer-inner,.e-con>.elementor-widget-spacer>.elementor-widget-container>.elementor-spacer>.elementor-spacer-inner{height:var(--container-widget-height,var(--spacer-size))}<\/style>\t\t<div class=\"elementor-spacer\">\n\t\t\t<div class=\"elementor-spacer-inner\"><\/div>\n\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-5d51690 elementor-align-center elementor-widget elementor-widget-button\" data-id=\"5d51690\" data-element_type=\"widget\" data-widget_type=\"button.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-button-wrapper\">\n\t\t\t<a href=\"http:\/\/designden.design\/wp-content\/uploads\/2024\/05\/Autolisp.zip\" class=\"elementor-button-link elementor-button elementor-size-xl\" role=\"button\">\n\t\t\t\t\t\t<span class=\"elementor-button-content-wrapper\">\n\t\t\t\t\t\t<span class=\"elementor-button-text\">Download Scipts Here<\/span>\n\t\t<\/span>\n\t\t\t\t\t<\/a>\n\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-cdce951 elementor-widget elementor-widget-spacer\" data-id=\"cdce951\" data-element_type=\"widget\" data-widget_type=\"spacer.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-spacer\">\n\t\t\t<div class=\"elementor-spacer-inner\"><\/div>\n\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t<section class=\"elementor-section elementor-top-section elementor-element elementor-element-299106d elementor-section-boxed elementor-section-height-default elementor-section-height-default\" data-id=\"299106d\" data-element_type=\"section\">\n\t\t\t\t\t\t<div class=\"elementor-container elementor-column-gap-default\">\n\t\t\t\t\t<div class=\"elementor-column elementor-col-100 elementor-top-column elementor-element elementor-element-375ee2a\" data-id=\"375ee2a\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t\t\t<div class=\"elementor-element elementor-element-254da1c elementor-widget elementor-widget-spacer\" data-id=\"254da1c\" data-element_type=\"widget\" data-widget_type=\"spacer.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-spacer\">\n\t\t\t<div class=\"elementor-spacer-inner\"><\/div>\n\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-77fa2f4 elementor-invisible elementor-widget elementor-widget-heading\" data-id=\"77fa2f4\" data-element_type=\"widget\" data-settings=\"{&quot;_animation&quot;:&quot;zoomIn&quot;}\" data-widget_type=\"heading.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t<h2 class=\"elementor-heading-title elementor-size-xl\">Vertical Pipe Deflection <\/h2>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-c56ad72 elementor-widget-divider--view-line elementor-widget elementor-widget-divider\" data-id=\"c56ad72\" data-element_type=\"widget\" data-widget_type=\"divider.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t<style>\/*! elementor - v3.10.2 - 29-01-2023 *\/\n.elementor-widget-divider{--divider-border-style:none;--divider-border-width:1px;--divider-color:#2c2c2c;--divider-icon-size:20px;--divider-element-spacing:10px;--divider-pattern-height:24px;--divider-pattern-size:20px;--divider-pattern-url:none;--divider-pattern-repeat:repeat-x}.elementor-widget-divider .elementor-divider{display:flex}.elementor-widget-divider .elementor-divider__text{font-size:15px;line-height:1;max-width:95%}.elementor-widget-divider .elementor-divider__element{margin:0 var(--divider-element-spacing);flex-shrink:0}.elementor-widget-divider .elementor-icon{font-size:var(--divider-icon-size)}.elementor-widget-divider .elementor-divider-separator{display:flex;margin:0;direction:ltr}.elementor-widget-divider--view-line_icon .elementor-divider-separator,.elementor-widget-divider--view-line_text .elementor-divider-separator{align-items:center}.elementor-widget-divider--view-line_icon .elementor-divider-separator:after,.elementor-widget-divider--view-line_icon .elementor-divider-separator:before,.elementor-widget-divider--view-line_text .elementor-divider-separator:after,.elementor-widget-divider--view-line_text .elementor-divider-separator:before{display:block;content:\"\";border-bottom:0;flex-grow:1;border-top:var(--divider-border-width) var(--divider-border-style) var(--divider-color)}.elementor-widget-divider--element-align-left .elementor-divider .elementor-divider-separator>.elementor-divider__svg:first-of-type{flex-grow:0;flex-shrink:100}.elementor-widget-divider--element-align-left .elementor-divider-separator:before{content:none}.elementor-widget-divider--element-align-left .elementor-divider__element{margin-left:0}.elementor-widget-divider--element-align-right .elementor-divider .elementor-divider-separator>.elementor-divider__svg:last-of-type{flex-grow:0;flex-shrink:100}.elementor-widget-divider--element-align-right .elementor-divider-separator:after{content:none}.elementor-widget-divider--element-align-right .elementor-divider__element{margin-right:0}.elementor-widget-divider:not(.elementor-widget-divider--view-line_text):not(.elementor-widget-divider--view-line_icon) .elementor-divider-separator{border-top:var(--divider-border-width) var(--divider-border-style) var(--divider-color)}.elementor-widget-divider--separator-type-pattern{--divider-border-style:none}.elementor-widget-divider--separator-type-pattern.elementor-widget-divider--view-line .elementor-divider-separator,.elementor-widget-divider--separator-type-pattern:not(.elementor-widget-divider--view-line) .elementor-divider-separator:after,.elementor-widget-divider--separator-type-pattern:not(.elementor-widget-divider--view-line) .elementor-divider-separator:before,.elementor-widget-divider--separator-type-pattern:not([class*=elementor-widget-divider--view]) .elementor-divider-separator{width:100%;min-height:var(--divider-pattern-height);-webkit-mask-size:var(--divider-pattern-size) 100%;mask-size:var(--divider-pattern-size) 100%;-webkit-mask-repeat:var(--divider-pattern-repeat);mask-repeat:var(--divider-pattern-repeat);background-color:var(--divider-color);-webkit-mask-image:var(--divider-pattern-url);mask-image:var(--divider-pattern-url)}.elementor-widget-divider--no-spacing{--divider-pattern-size:auto}.elementor-widget-divider--bg-round{--divider-pattern-repeat:round}.rtl .elementor-widget-divider .elementor-divider__text{direction:rtl}.e-con-inner>.elementor-widget-divider,.e-con>.elementor-widget-divider{width:var(--container-widget-width);--flex-grow:var(--container-widget-flex-grow)}<\/style>\t\t<div class=\"elementor-divider\">\n\t\t\t<span class=\"elementor-divider-separator\">\n\t\t\t\t\t\t<\/span>\n\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-bfb9221 elementor-widget elementor-widget-text-editor\" data-id=\"bfb9221\" data-element_type=\"widget\" data-widget_type=\"text-editor.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t<style>\/*! elementor - v3.10.2 - 29-01-2023 *\/\n.elementor-widget-text-editor.elementor-drop-cap-view-stacked .elementor-drop-cap{background-color:#818a91;color:#fff}.elementor-widget-text-editor.elementor-drop-cap-view-framed .elementor-drop-cap{color:#818a91;border:3px solid;background-color:transparent}.elementor-widget-text-editor:not(.elementor-drop-cap-view-default) .elementor-drop-cap{margin-top:8px}.elementor-widget-text-editor:not(.elementor-drop-cap-view-default) .elementor-drop-cap-letter{width:1em;height:1em}.elementor-widget-text-editor .elementor-drop-cap{float:left;text-align:center;line-height:1;font-size:50px}.elementor-widget-text-editor .elementor-drop-cap-letter{display:inline-block}<\/style>\t\t\t\t<p>(defun C:VERTICALPIPEDEFLECTION (\/)<\/p><p>(defun rtd (x)<br \/>(* 180.0 (\/ x pi))) ;equation that switches degree to radians<\/p><p>(setq a (getreal &#8220;\\nSlope of pipe 1: &#8220;))<br \/>(setq b (getreal &#8220;\\nSlope of pipe 2: &#8220;))<\/p><p>(setq c ( &#8211; a b ))<br \/>(setq d (abs c))<br \/>(setq e (\/ d 100))<br \/>(setq f (atan e))<br \/>(setq g (rtd f))<\/p><p>(setq aa (getreal &#8220;\\nEnter bend: &#8220;))<\/p><p>(set def (abs (- aa g)))<br \/><br \/>(alert (rtos def))<\/p><p>(princ)<\/p><p>)<br \/>(princ)<\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t<section class=\"elementor-section elementor-top-section elementor-element elementor-element-62b6632 elementor-section-boxed elementor-section-height-default elementor-section-height-default\" data-id=\"62b6632\" data-element_type=\"section\">\n\t\t\t\t\t\t<div class=\"elementor-container elementor-column-gap-default\">\n\t\t\t\t\t<div class=\"elementor-column elementor-col-100 elementor-top-column elementor-element elementor-element-e782cf2\" data-id=\"e782cf2\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t\t\t<div class=\"elementor-element elementor-element-7b6c67f elementor-widget elementor-widget-spacer\" data-id=\"7b6c67f\" data-element_type=\"widget\" data-widget_type=\"spacer.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-spacer\">\n\t\t\t<div class=\"elementor-spacer-inner\"><\/div>\n\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-2e9c476 elementor-invisible elementor-widget elementor-widget-heading\" data-id=\"2e9c476\" data-element_type=\"widget\" data-settings=\"{&quot;_animation&quot;:&quot;zoomIn&quot;}\" data-widget_type=\"heading.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t<h2 class=\"elementor-heading-title elementor-size-xl\">Line Segements from Arc Given Offset Distance<\/h2>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-2b0870f elementor-widget-divider--view-line elementor-widget elementor-widget-divider\" data-id=\"2b0870f\" data-element_type=\"widget\" data-widget_type=\"divider.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-divider\">\n\t\t\t<span class=\"elementor-divider-separator\">\n\t\t\t\t\t\t<\/span>\n\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-3ca8367 elementor-widget elementor-widget-text-editor\" data-id=\"3ca8367\" data-element_type=\"widget\" data-widget_type=\"text-editor.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t\t\t<p>(defun C:UTARC (\/)<\/p><p>(setq ent (ssget))<br \/>(setq arc (entlast)) ;object entith<br \/>(setq Object (vlax-Ename-&gt;Vla-Object arc))<\/p><p>(setq B1 (vla-get-radius object))<br \/>(setq B3 (vla-get-arclength object))<br \/><br \/>(setq B2 (getreal &#8220;\\nMax Distance from Curve : &#8220;))<\/p><p>(setq M1 (- B1 B2))<\/p><p>(setq M2 (* M1 M1))<br \/><br \/>(setq J1 (* B1 B1))<\/p><p>(setq J4 (- J1 M2))<\/p><p>(setq J5 (sqrt J4 ))<\/p><p>(setq J6 (* J5 2))<\/p><p>(setq J7 (\/ B3 J6))<\/p><p>(setq J8 (1+ (fix J7)))<\/p><p><br \/>(alert (strcat &#8220;Number of segments: &#8221; (rtos j8 2 0)))<\/p><p>(vl-load-com)<br \/>(setq oldsnap (getvar &#8220;osmode&#8221;))<br \/>(setvar &#8220;osmode&#8221; 0)<br \/>(setq oldecho (getvar &#8220;cmdecho&#8221;))<br \/>(setvar &#8220;cmdecho&#8221; 0)<\/p><p>(while (setq ent (entsel &#8220;\\nPick arc: &#8220;))<br \/>(setq obj (vlax-ename-&gt;vla-object (car ent)))<br \/>(if (= div nil) (setq div (getint &#8220;\\nEnter number of chords: &#8220;)))<br \/><br \/>(setq endpt (vlax-curve-getEndPoint obj)<br \/>totlen (vlax-curve-getDistAtPoint obj endpt)<br \/>arclen (\/ totlen div)<br \/>chrdpt (vlax-curve-getStartPoint obj)<br \/>num 1 <br \/>)<br \/>(setq lst &#8216;())<br \/>(setq lst (list chrdpt))<br \/>(repeat div<br \/>(setq newpt (vlax-curve-getPointatDist obj (* arclen num)))<br \/>(setq lst (cons newpt lst))<br \/>(setq num (+ num 1))<br \/>) ;repeat<\/p><p>(entmakex (append (list (cons 0 &#8220;LWPOLYLINE&#8221;)<br \/>(cons 100 &#8220;AcDbEntity&#8221;)<br \/>(cons 100 &#8220;AcDbPolyline&#8221;)<br \/>(cons 90 (length lst))<br \/>(cons 70 0))<br \/>(mapcar (function (lambda (p) (cons 10 p))) lst))<br \/>)<\/p><p>) ; end while<\/p><p>(setvar &#8220;cmdecho&#8221; oldecho)<br \/>(setvar &#8220;osmode&#8221; oldsnap)<br \/><br \/>(princ)<\/p><p>)<br \/>(princ)<\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t\t\t\t<\/div>\n\t\t","protected":false},"excerpt":{"rendered":"<p>Autodesk:AutoLISP Download Scipts Here Vertical Pipe Deflection (defun C:VERTICALPIPEDEFLECTION (\/) (defun rtd (x)(* 180.0 (\/ x pi))) ;equation that switches degree to radians (setq a (getreal &#8220;nSlope of pipe 1: &#8220;))(setq b (getreal &#8220;nSlope of pipe 2: &#8220;)) (setq c ( &#8211; a b ))(setq d (abs c))(setq e (\/ d 100))(setq f (atan e))(setq [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":[],"_links":{"self":[{"href":"https:\/\/designden.design\/index.php\/wp-json\/wp\/v2\/pages\/859"}],"collection":[{"href":"https:\/\/designden.design\/index.php\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/designden.design\/index.php\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/designden.design\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/designden.design\/index.php\/wp-json\/wp\/v2\/comments?post=859"}],"version-history":[{"count":13,"href":"https:\/\/designden.design\/index.php\/wp-json\/wp\/v2\/pages\/859\/revisions"}],"predecessor-version":[{"id":1137,"href":"https:\/\/designden.design\/index.php\/wp-json\/wp\/v2\/pages\/859\/revisions\/1137"}],"wp:attachment":[{"href":"https:\/\/designden.design\/index.php\/wp-json\/wp\/v2\/media?parent=859"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}