{"id":3081,"date":"2022-12-16T04:41:49","date_gmt":"2022-12-15T19:41:49","guid":{"rendered":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/?p=3081"},"modified":"2023-12-20T13:21:17","modified_gmt":"2023-12-20T04:21:17","slug":"sd_6208","status":"publish","type":"post","link":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/sd_6208\/","title":{"rendered":"[SD_6208] \u30ac\u30e9\u30b9\u8a18\u53f7"},"content":{"rendered":"\n<figure class=\"wp-block-image\"><img loading=\"lazy\" decoding=\"async\" width=\"248\" height=\"117\" src=\"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/12\/2022-12-16_04h38_12.png\" alt=\"\" class=\"wp-image-3083\"\/><\/figure>\n\n\n\n<p>\u7a93\u30ac\u30e9\u30b9\u306e\u5404\u7a2e\u8a18\u53f7\u3092\u8a18\u5165\u3059\u308bAutoLISP\u30b3\u30de\u30f3\u30c9\u3067\u3059\u3002<br>\u4e0b\u8a18\u306e\u3088\u3046\u306a\uff16\u7a2e\u985e\u306e\u8a18\u53f7\u3092\u4f5c\u56f3\u3057\u307e\u3059\u3002<br>\u7a93\u30ac\u30e9\u30b9\u306e\u9818\u57df\u5185\u3092\uff11\u70b9\u30af\u30ea\u30c3\u30af\u3059\u308b\u3060\u3051\u3067\u9818\u57df\u3092\u691c\u51fa\u3057\u3066\u4f5c\u56f3\u3057\u307e\u3059\u306e\u3067\u3001\u4f5c\u56f3\u304c\u65e9\u3044\u3067\u3059\u3002<br>6\u756a\u306e\u5f15\u9055\u3044\u8a18\u53f7\u306b\u3064\u3044\u3066\u306f\u3001\u7a93\u30ac\u30e9\u30b9\u306e\u5de6\u5074\u3092\u30af\u30ea\u30c3\u30af\u3059\u308b\u3068\u5de6\u5074\u306b\u3001\u53f3\u5074\u5c3e\u30af\u30ea\u30c3\u30af\u3059\u308b\u3068\u53f3\u5074\u306b\u8a18\u53f7\u3092\u4f5c\u56f3\u3057\u307e\u3059\u3002<br>\u4f5c\u56f3\u3055\u308c\u308b\u30de\u30fc\u30af\u306e\u5927\u304d\u3055\u304c\u304a\u304b\u3057\u3044\u3068\u611f\u3058\u305f\u3089\u3001USERR1\u306e\u5024\u3092\u30c1\u30a7\u30c3\u30af\u3057\u3066\u304f\u3060\u3055\u3044\u3002\u7e2e\u5c3a1\/50\u306e\u56f3\u9762\u3067\u3057\u305f\u3089\u3001USERR1\u309250\u3068\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n\n\n\n<figure class=\"wp-block-image\"><img loading=\"lazy\" decoding=\"async\" width=\"737\" height=\"499\" src=\"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/12\/2022-12-16_04h34_12.png\" alt=\"\" class=\"wp-image-3082\" srcset=\"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/12\/2022-12-16_04h34_12.png 737w, https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/12\/2022-12-16_04h34_12-300x203.png 300w\" sizes=\"auto, (max-width: 737px) 100vw, 737px\" \/><\/figure>\n\n\n\n<h2 class=\"wp-block-heading\">AutoLISP\u30bd\u30fc\u30b9<\/h2>\n\n\n\n<pre class=\"wp-block-code\"><code>(defun c:SD_6208 ()\r\n\t(if (= SD:Lang \"E\")\r\n\t\t(princ \"\\n &#91;SD_6208 ver.20221216] Glass mark on window ellevation\")\r\n\t\t(princ \"\\n &#91;SD_6208 ver.20221216] \u30b5\u30c3\u30b7\u306e\u7acb\u9762\u306b\u30ac\u30e9\u30b9\u8a18\u53f7\u3092\u4ed8\u52a0\")\r\n\t)\r\n\t(princ \"\\n **********************************\")\r\n\t(load \"SD_U\")\r\n\t(setq *error* *myerror*)\r\n\t(OpeningRoutine)\r\n\t(setq Typ (getvar \"users1\"))\r\n\t(if (= SD:Lang \"E\")\r\n\t\t(setq Typ2 Typ)\r\n\t\t(cond \t((= Typ \"Glass\")(setq Typ2 \"\u30ac\u30e9\u30b9\u8a18\u53f7\"))\r\n\t\t\t\t((= Typ \"F\")(setq Typ2 \"FIX\u8a18\u53f7\"))\r\n\t\t\t\t((= Typ \"Mirror\")(setq Typ2 \"\u93e1\"))\r\n\t\t\t\t((= Typ \"Swing\")(setq Typ2 \"\u7247\u958b\u304d\u8a18\u53f7\"))\r\n\t\t\t\t((= Typ \"Slide\")(setq Typ2 \"\u5f15\u304d\u6238\u77e2\u5370\"))\r\n\t\t\t\t((= Typ \"Slide both\")(setq Typ2 \"\u5f15\u9055\u3044\u8a18\u53f7\"))\r\n\t\t)\r\n\t) \r\n\t(if (= SD:Lang \"E\")\r\n\t\t(princ (strcat \"\\n Door Swing Marks (\" Typ2 \")\"))\r\n\t\t(princ (strcat \"\\n \u6249\u306e\u8a18\u53f7 (\" Typ2 \")\"))\r\n\t)\r\n\t(princ \"\\n **********************************\")\r\n\t(setvar \"osmode\" 0)\r\n\r\n\t(if (= Typ \"Swing\")\r\n\t\t\t(if (= SD:Lang \"E\")\r\n\t\t\t\t(setq \tpp1 (getpoint \"\\n Click Hinge Side\"))\r\n\t\t\t\t(setq \tpp1 (getpoint \"\\n \u9818\u57df\u5185\u306e1\u70b9\u3092\u6307\u793a\uff1a\u30af\u30ea\u30c3\u30af\u3057\u305f\u5074\u304c\u30d2\u30f3\u30b8\u5074\u3068\u306a\u308a\u307e\u3059\"))\r\n\t\t\t)\r\n\t\t\t(if (= SD:Lang \"E\")\r\n\t\t\t\t(setq \tpp1 (getpoint \"\\n Select internal point: \"))\r\n\t\t\t\t(setq \tpp1 (getpoint \"\\n \u9818\u57df\u5185\u306e1\u70b9\u3092\u6307\u793a\uff1a \"))\r\n\t\t\t)\r\n\t)\r\n\t(setq TheLayer (Get_Layer \"A83\" T))\r\n\t(if (= (getvar \"clayer\")TheLayer)\r\n\t\t(setvar \"clayer\" \"0\")\r\n\t)\r\n\t(command \"-layer\" \"off\" TheLayer \"\")\r\n\t(Make_Sash pp1 Typ 0)\r\n\t(command \"-layer\" \"on\" TheLayer \"\")\r\n\t\r\n\t(ClosingRoutine)\r\n\t(setq *error* nil)\r\n\t(princ)\r\n)\r\n;;************************************************************\r\n(defun Make_Sash (pp1 Typ ofset \/ \tpp1 obj1 obj BoxPt pnt1 pnt2 TheLayer p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21)\r\n\t(command \".boundary\" \"_non\" pp1 \"\")\r\n\t(setq \tobj1 (vlax-ename->vla-object (entlast))\r\n\t      \tobj (vla-getboundingbox obj1 'MinPoint 'MaxPoint)\r\n\t     \t \tBoxPt (list (vlax-safearray->list MinPoint)(vlax-safearray->list MaxPoint))\r\n\t      \tpnt1 (nth 0 BoxPt)\r\n\t      \tpnt2 (nth 1 BoxPt)\r\n\t      \tpnt3 (list (car pnt2)(cadr pnt1))\r\n\t      \tmid1 (polar pnt1 (angle pnt1 pnt2) (\/ (distance pnt1 pnt2) 2))\r\n\t      \tTheLayer (Get_Layer \"A83\" T)\r\n\t)\r\n\t(entdel (entlast))\r\n\t(setq \tp1 (polar (polar pnt1 (* 0.25 pi) (* 0.4 (getvar \"USERR1\"))) (* 0.75 pi) (* 0.4 (getvar \"USERR1\")))\r\n\t\t\tp2 (polar p1 (* 0.25 pi) (* 2 (getvar \"USERR1\")))\r\n\t\t\tp3 (polar p1 (* 1.75 pi) (* 0.8 (getvar \"USERR1\")))\r\n\t\t\tp4 (polar p2 (* 1.75 pi) (* 0.8 (getvar \"USERR1\")))\r\n\t\t\t\r\n\t\t\tp5 (polar (polar pnt2 (* 1.25 pi) (* 0.4 (getvar \"USERR1\"))) (* 1.75 pi) (* 0.4 (getvar \"USERR1\")))\r\n\t\t\tp6 (polar p5 (* 1.25 pi) (* 2 (getvar \"USERR1\")))\r\n\t\t\tp7 (polar p5 (* 0.75 pi) (* 0.8 (getvar \"USERR1\")))\r\n\t\t\tp8 (polar p6 (* 0.75 pi) (* 0.8 (getvar \"USERR1\")))\r\n\t\t\t\r\n\t\t\tp9 (polar (polar pnt3 (* 1.0 pi) (* (getvar \"USERR1\") 2.5)) (* 0.5 pi) (* (getvar \"USERR1\") 2.5))\r\n\t\t\t\r\n\t\t\tp10 (polar pnt1 (* 0.5 pi) (\/ (distance pnt2 pnt3) 2))\r\n\t\t\t\r\n\t\t\tp11 (polar mid1 0.0 (* 1.5 (getvar \"USERR1\")))\r\n\t\t\tp12 (polar mid1 (* 1.0 pi) (* 1.5 (getvar \"USERR1\")))\r\n\t\t\tp13 (polar p12 (\/ (* 0.5 pi) 6.0) (* 2 (getvar \"USERR1\")))\r\n\t\t\t\r\n\t\t\tp15 (polar (polar (polar pnt3 (* 0.5 pi)(\/ (distance pnt3 pnt2) 2)) 0.0 ofset) 0.0 (* 3.0(getvar \"USERR1\")))\r\n\t\t\tp14 (polar p15 (+ (* 1.0 pi) (\/ (* 0.5 pi) 6.0)) (* 2.0 (getvar \"USERR1\")))\r\n\t\t\tp16 (polar p15 (* 1.0 pi) (* 6 (getvar \"USERR1\")))\r\n\t\t\tp17 (polar p16 (\/ (* 0.5 pi) 6.0) (* 2.0 (getvar \"USERR1\")))\r\n\t\t\t\r\n\t\t\tp19 (polar mid1 0.0 (* 1.5 (getvar \"USERR1\")))\r\n\t\t\tp18 (polar p19 (- (* 1.0 pi) (\/ (* 0.5 pi) 6.0)) (* 1 (getvar \"USERR1\")))\r\n\t\t\tp20 (polar p19 (* 1.0 pi) (* 3 (getvar \"USERR1\")))\r\n\t\t\tp21 (polar p20 (\/ (* 0.5 pi) 6.0) (* 1 (getvar \"USERR1\"))))\r\n\t(cond\r\n\t\t((or (= Typ \"Glass\")(= Typ \"Mirror\"))\r\n\t\t\t(SD:MakeLine p1 p2 TheLAyer)\r\n\t\t\t(SD:MakeLine p3 p4 TheLAyer)\r\n\t\t\t(SD:MakeLine p5 p6 TheLAyer)\r\n\t\t\t(SD:MakeLine p7 p8 TheLAyer)\r\n\t\t\t(if (= Typ \"Mirror\") (SD:MakeText \"\u93e1\" p9 (* (getvar \"USERR1\") 2.5) 0.0 TheLAyer))\r\n\t\t)\r\n\t\t((= Typ \"F\")\r\n\t\t\t(SD:MakeText \"F\" mid1 (* (getvar \"USERR1\") 2.5) 0.0 TheLAyer))\r\n\t\t((= Typ \"Swing\")\r\n\t\t\t(setvar \"celtype\" (Get_Ltype \"TS1\"))\r\n\t\t\t(SD:MakePline (list pnt3 p10 pnt2) nil TheLayer 0)\r\n\t\t\t(setvar \"celtype\" \"ByLayer\")\r\n\t\t\t(if (and (> (angle mid1 pp1)(* 0.5 pi))(&lt; (angle mid1 pp1)(* 1.5 pi)))\r\n\t\t\t\t()(command \"rotate\" (entlast)\"\" mid1 \"180\")\r\n\t\t\t)\r\n\t\t)\r\n\t\t((= Typ \"Slide\")\r\n\t\t\t(SD:MakePline (list p11 p12 p13) nil TheLayer 0)\r\n\t\t\t(if (and (> (angle mid1 pp1)(* 0.5 pi))(&lt; (angle mid1 pp1)(* 1.5 pi)))\r\n\t\t\t\t()(command \"mirror\" (entlast) \"\" mid1  (polar mid1 (* 0.5 pi) 10.0) \"y\")\r\n\t\t\t)\r\n\t\t)\r\n\t\t((= Typ \"Slide both\")\r\n\t\t\t(SD:MakePline (list p14 p15 p16 p17) nil TheLayer 0)\r\n\t\t\t(if (and (> (angle mid1 pp1)(* 0.5 pi))(&lt; (angle mid1 pp1)(* 1.5 pi)))\r\n\t\t\t\t(command \"move\" (entlast) \"\" pnt3 pnt1)\r\n\t\t\t)\r\n\t\t)\r\n\t\t((= Typ \"Bypass\")\r\n\t\t\t(SD:MakePline (list p18 p19 p20 p21) nil TheLayer 0)\r\n\t\t)\r\n\t)\r\n)\r\n(princ)<\/code><\/pre>\n\n\n\n<p><br><\/p>\n","protected":false},"excerpt":{"rendered":"\u7a93\u30ac\u30e9\u30b9\u306e\u5404\u7a2e\u8a18\u53f7\u3092\u8a18\u5165\u3059\u308bAutoLISP\u30b3\u30de\u30f3\u30c9\u3067\u3059\u3002\u4e0b\u8a18\u306e\u3088\u3046\u306a\uff16\u7a2e\u985e\u306e\u8a18\u53f7\u3092\u4f5c\u56f3\u3057\u307e\u3059\u3002\u7a93\u30ac\u30e9\u30b9\u306e\u9818\u57df\u5185\u3092\uff11\u70b9\u30af\u30ea\u30c3\u30af\u3059\u308b\u3060\u3051\u3067\u9818\u57df\u3092\u691c\u51fa\u3057\u3066\u4f5c\u56f3\u3057\u307e\u3059\u306e\u3067\u3001\u4f5c\u56f3\u304c\u65e9\u3044\u3067\u3059\u30026\u756a\u306e\u5f15\u9055\u3044\u8a18\u53f7\u306b\u3064\u3044\u3066\u306f\u3001\u7a93\u30ac\u30e9\u30b9\u306e [&hellip;]","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[54,5],"tags":[],"class_list":["post-3081","post","type-post","status-publish","format-standard","hentry","category-symbol-toolbar","category-toolbar-section-inerior_elevation"],"_links":{"self":[{"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/posts\/3081","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/comments?post=3081"}],"version-history":[{"count":4,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/posts\/3081\/revisions"}],"predecessor-version":[{"id":3091,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/posts\/3081\/revisions\/3091"}],"wp:attachment":[{"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/media?parent=3081"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/categories?post=3081"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/tags?post=3081"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}