{"id":2869,"date":"2022-11-24T03:28:24","date_gmt":"2022-11-23T18:28:24","guid":{"rendered":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/?p=2869"},"modified":"2022-12-16T04:55:18","modified_gmt":"2022-12-15T19:55:18","slug":"sd_6302","status":"publish","type":"post","link":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/sd_6302\/","title":{"rendered":"[SD_6302] \u5c55\u958b\u56f3\u4f5c\u6210"},"content":{"rendered":"\n<figure class=\"wp-block-image size-full\"><img loading=\"lazy\" decoding=\"async\" width=\"172\" height=\"43\" src=\"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/11\/image-4.png\" alt=\"\" class=\"wp-image-2870\"\/><\/figure>\n\n\n\n<p>\u3053\u306e\u30b3\u30de\u30f3\u30c9\u306f\u5c55\u958b\u56f3\u7528\u306e\u4e0b\u56f3\u3092\u3001\u8fc5\u901f\u306b\u4f5c\u6210\u3059\u308b\u3068\u304d\u306b\u4f7f\u3046AutoLISP\u30b3\u30de\u30f3\u30c9\u3067\u3059\u3002<br>2\u6b21\u5143CAD\u306b\u304a\u3044\u3066\u3001\u5c55\u958b\u56f3\u306e\u4f5c\u56f3\u306f\u304b\u306a\u308a\u306e\u624b\u9593\u304c\u304b\u304b\u308b\u3046\u3048\u3001\u30b1\u30a2\u30ec\u30b9\u30df\u30b9\u3082\u591a\u304f\u767a\u751f\u3057\u304c\u3061\u3067\u3059\u3002<br>\u81ea\u52d5\u3067\u5c55\u958b\u56f3\u3092\u4f5c\u6210\u3059\u308b\u30b3\u30de\u30f3\u30c9\u306f\u8272\u3005\u8a66\u3057\u3066\u307f\u305f\u306e\u3067\u3059\u304c\u3001\u7d50\u5c40\u3001\u4ed5\u4e0a\u3052\u7dda\u3060\u3051\u3092\u901a\u308a\u82af\u4e0a\u306b\u6295\u5f71\u3059\u308b\u3060\u3051\u306e\u30b7\u30f3\u30d7\u30eb\u306a\u3082\u306e\u304c\u4f7f\u3044\u3084\u3059\u3044\u3068\u3044\u3046\u7d50\u8ad6\u306b\u81f3\u308a\u307e\u3057\u305f\u3002<br>\u3053\u308c\u304c\u30b5\u30f3\u30d7\u30eb\u306e\u5e73\u9762\u56f3\u3067\u3059\u3002<br>\u901a\u308a\u82af\u756a\u53f7\u306f\u3001<a href=\"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/sd_6301\/\">[SD_6301]<\/a>\u306b\u3066\u3001\u5404\u901a\u308a\u82af\u306b\u57cb\u3081\u8fbc\u307f\u6e08\u307f\u3067\u3059\u3002<\/p>\n\n\n\n<figure class=\"wp-block-image size-full\"><img loading=\"lazy\" decoding=\"async\" width=\"600\" height=\"532\" src=\"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/11\/image-14.png\" alt=\"\" class=\"wp-image-2892\" srcset=\"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/11\/image-14.png 600w, https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/11\/image-14-300x266.png 300w\" sizes=\"auto, (max-width: 600px) 100vw, 600px\" \/><\/figure>\n\n\n\n<p><\/p>\n\n\n\n<p><strong>\u4ed5\u4e0a\u7dda\u3092\u9078\u629e\u3082\u3057\u304f\u306f[Enter]\u3067\u8a2d\u5b9a:\u3000<\/strong>\u3068\u805e\u304b\u308c\u307e\u3059\u306e\u3067\u3001\u4e0b\u56f3\u306e\u3088\u3046\u306b\u5c55\u958b\u56f3\u306b\u8868\u73fe\u3059\u308b\u4ed5\u4e0a\u3052\u7dda\u3092\u5168\u3066\u9078\u629e\u3057\u307e\u3059\u3002<span style=\"color: initial;\"><\/span><\/p>\n\n\n\n<figure class=\"wp-block-image size-large\"><img loading=\"lazy\" decoding=\"async\" width=\"1024\" height=\"291\" src=\"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/11\/image-15-1024x291.png\" alt=\"\" class=\"wp-image-2895\" srcset=\"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/11\/image-15-1024x291.png 1024w, https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/11\/image-15-300x85.png 300w, https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/11\/image-15-768x218.png 768w, https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/11\/image-15.png 1217w\" sizes=\"auto, (max-width: 1024px) 100vw, 1024px\" \/><\/figure>\n\n\n\n<p><\/p>\n\n\n\n<p><strong>\u5c55\u958b\u56f3\u306b\u8868\u793a\u3059\u308b\u901a\u308a\u82af\u30fb\u58c1\u82af\u3092\u9078\u629e\u3082\u3057\u304f\u306f[Enter]\u3067\u8a2d\u5b9a:\u3000<\/strong>\u3068\u805e\u304b\u308c\u307e\u3059\u306e\u3067\u3001\u901a\u308a\u82af\u3092\u30af\u30ed\u30b9\u3067\u9078\u629e\u3057\u307e\u3059\u3002\u4eca\u56de\u306fA\u5c55\u958b\u3092\u4f5c\u6210\u3059\u308b\u306e\u3067\u3001\u7e26\u65b9\u5411\u306e\u901a\u308a\u5fc3\u3092\u9078\u629e\u3057\u307e\u3059\u3002<\/p>\n\n\n\n<figure class=\"wp-block-image size-full\"><img loading=\"lazy\" decoding=\"async\" width=\"475\" height=\"425\" src=\"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/11\/image-16.png\" alt=\"\" class=\"wp-image-2896\" srcset=\"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/11\/image-16.png 475w, https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/11\/image-16-300x268.png 300w\" sizes=\"auto, (max-width: 475px) 100vw, 475px\" \/><\/figure>\n\n\n\n<p>\u5c55\u958b\u65b9\u5411\u3092\u805e\u304b\u308c\u307e\u3059\u306e\u3067\u3001A\u3092\u9078\u629e\u3057\u307e\u3059\u3002<\/p>\n\n\n\n<figure class=\"wp-block-image size-full\"><img loading=\"lazy\" decoding=\"async\" width=\"201\" height=\"151\" src=\"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/11\/image-17.png\" alt=\"\" class=\"wp-image-2897\"\/><\/figure>\n\n\n\n<p>OK\u3092\u62bc\u3059\u3068\u3001\u30de\u30a6\u30b9\u30dd\u30a4\u30f3\u30bf\u306b\u751f\u6210\u3055\u308c\u305f\u5c55\u958b\u56f3\u304c\u304f\u3063\u3064\u3044\u3066\u304d\u307e\u3059\u306e\u3067\u3001\u633f\u5165\u4f4d\u7f6e\u3092\u30af\u30ea\u30c3\u30af\u3057\u3066\u304f\u3060\u3055\u3044\u3002\u3082\u3057\u56f3\u5f62\u304c\u30de\u30a6\u30b9\u30dd\u30a4\u30f3\u30bf\u306b\u304f\u3063\u3064\u3044\u3066\u3053\u306a\u3044\u5834\u5408\u306f\u3001Ctrl-V\u3092\u62bc\u3059\u3068\u56f3\u5f62\u304c\u3067\u3066\u304d\u307e\u3059\u3002<\/p>\n\n\n\n<figure class=\"wp-block-image size-full\"><img loading=\"lazy\" decoding=\"async\" width=\"609\" height=\"224\" src=\"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/11\/image-18.png\" alt=\"\" class=\"wp-image-2898\" srcset=\"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/11\/image-18.png 609w, https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/11\/image-18-300x110.png 300w\" sizes=\"auto, (max-width: 609px) 100vw, 609px\" \/><\/figure>\n\n\n\n<p>\u901a\u308a\u82af\u756a\u53f7\u306fXDATA\u306b\u57cb\u3081\u8fbc\u307e\u308c\u3066\u3044\u307e\u3059\u306e\u3067\u3001\u5c55\u958b\u56f3\u306b\u81ea\u52d5\u3067\u4f5c\u56f3\u3055\u308c\u307e\u3059\u3002<br>\u3053\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u306f\u9078\u629e\u3057\u305f\u7dda\u5206\u3042\u308b\u3044\u306f\u30dd\u30ea\u30e9\u30a4\u30f3\u306e\u7aef\u70b9\u5ea7\u6a19\u3092\u5c55\u958b\u56f3\u4e0a\u306b\u6295\u5f71\u3057\u3066\u3044\u308b\u306e\u307f\u3067\u3059\u306e\u3067\u3001\u3053\u308c\u3092\u4e0b\u56f3\u306b\u3057\u3066\u5c55\u958b\u56f3\u3092\u5b8c\u6210\u3055\u305b\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n\n\n\n<p>\u5efa\u7bc9\u306e\u5c55\u958b\u56f3\u306f\u3001\u90e8\u5c4b\u306e\u5f62\u72b6\u304c\u30a4\u30ec\u30ae\u30e5\u30e9\u30fc\u306b\u306a\u308b\u3068\u3001\u3069\u306e\u3088\u3046\u306b\u5c55\u958b\u3092\u5207\u308b\u304b\u306e\u5224\u65ad\u306b\u7d4c\u9a13\u304c\u5fc5\u8981\u306b\u306a\u3063\u3066\u304d\u307e\u3059\u3002\u79c1\u306e\u4f1a\u793e\u3067\u306f\u3001\u7d4c\u9a13\u304c\u8c4a\u5bcc\u306a\u8005\u304c\u6700\u521d\u306b\u5168\u3066\u306e\u5c55\u958b\u65b9\u5411\u3092\u3053\u306e\u30b3\u30de\u30f3\u30c9\u3092\u4f7f\u3063\u3066\u6e96\u5099\u3057\u3001\u305d\u308c\u3092\u90e8\u4e0b\u306b\u6e21\u3057\u3066\u5c55\u958b\u56f3\u3092\u5b8c\u6210\u3055\u305b\u308b\u3068\u3044\u3046\u6d41\u308c\u3067\u4f5c\u696d\u3092\u3057\u307e\u3059\u3002<\/p>\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_6302 (\/ Lay_Cen Lay_Dim str1 fil1 Path1 rc rc1 rc2 rc3 act dcl eb1 eb2 eb3 eb4 eb5 eb6 eb7 eb8 eb9 eb10 eb11 eb12 eb13 eb14 eb15 lst1 lst2 lst3 lst4 lst5 p1 p2 lay1 str1 num1 n ss1 ss2 ss3 str1)\r\n  (if (= SD:Lang \"E\")\r\n    (princ \"\\n &#91;SD_6302 ver.20220531]Interior Elevation Generator\")\r\n    (princ \"\\n &#91;SD_6302 ver.20220531]\u5c55\u958b\u56f3\u4f5c\u6210\")\r\n  )\r\n  (princ \"\\n **********************************\")\r\n  (load \"SD_U\")\r\n  (setq *error* *myerror*)\r\n  (OpeningRoutine)\r\n  (if (= SD:Lang \"E\")\r\n    (alert \"To get the most out of the program's capacities, we recommend using one previous command to embed the grid number in each lines.\")\r\n    (alert \"\\n \u4e00\u3064\u524d\u306e\u30b3\u30de\u30f3\u30c9\u3092\u4f7f\u3063\u3066\u901a\u308a\u82af\u756a\u53f7\u3092\u901a\u308a\u82af\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u57cb\u3081\u8fbc\u3080\u3053\u3068\u3088\u308a\u3001\u3088\u308a\u52b9\u7387\u7684\u306a\u4f5c\u56f3\u304c\u53ef\u80fd\u3067\u3059\"))\r\n  (setq  Lay_Cen (Get_Layer \"A11\" T)\r\n    Lay_Cen2 (Get_Layer \"A12\" T)\r\n    Lay_Dim (Get_Layer \"A62\" T)\r\n    Lay_Txt1 (Get_Layer \"A71\" T)\r\n    Lay_Txt2 (Get_Layer \"A72\" T))\r\n  (setq  Path1 \"HKEY_CURRENT_USER\\\\Software\\\\SpeedDraft\\\\SD_6302\"\r\n    str1 (strcat (getvar \"tempprefix\") \"SD_6302.dcl\"))\r\n  (mapcar '(lambda (x y)(if (null (set (read x) (vl-registry-read Path1 x)))(set (read x) y)))\r\n    (setq lst1 '(\"eb1\" \"eb2\" \"eb3\" \"eb4\" \"eb5\" \"eb6\" \"eb7\" \"eb8\" \"eb9\" \"eb10\" \"eb11\" \"eb12\" \"eb13\" \"eb14\" \"eb15\"))\r\n    (setq lst2 '(\"3000\" \"10\" \"7\" \"6\" \"8\" \"7\" \"14\" \"5\" \"24\" \"1\" \"10\" \"2.5\" \"3.0\" \"3.0\" \"3.0\")))\r\n  (if (= SD:Lang \"E\")(princ \"\\nSelect wall finish line or &#91;Enter] for Settings: \")(princ \"\\n\u4ed5\u4e0a\u7dda\u3092\u9078\u629e\u3082\u3057\u304f\u306f&#91;Enter]\u3067\u8a2d\u5b9a: \"))\r\n  (setq ss1 (ssget '((0 . \"LINE\"))))\r\n  (if (null ss1) (progn (settings_6302)(setq ss1 (ssget '((0 . \"LINE\"))))))\r\n  (if (= SD:Lang \"E\")(princ \"\\nSelect grid lineto show in Interior Elevation drawing or &#91;Enter] for Settings:: \")(princ \"\\n\u5c55\u958b\u56f3\u306b\u8868\u793a\u3059\u308b\u901a\u308a\u82af\u30fb\u58c1\u82af\u3092\u9078\u629e\u3082\u3057\u304f\u306f&#91;Enter]\u3067\u8a2d\u5b9a: \"))\r\n  (setq ss2 (ssget (list '(0 . \"LINE\")(cons 8 (strcat Lay_Cen \",\" Lay_Cen2)))))\r\n  (if (null ss2) (progn (settings_6302)(setq ss2 (ssget (list '(0 . \"LINE\")(cons 8 (strcat Lay_Cen \",\" Lay_Cen2)))))))\r\n  (if (or ss1 ss2) (progn\r\n    (setq fil1 (open str1 \"w\"))\r\n    (write-line (strcat \"SD_6302:dialog{label=\\\"\" (if (= SD:Lang \"E\") \"Select view\" \"\u5c55\u958b\u65b9\u5411\u3092\u9078\u629e\") \"\\\";\") fil1)\r\n    (write-line \":boxed_column{\" fil1)\r\n    (write-line \":radio_row{key=rc1;\" fil1)\r\n    (write-line \"spacer_1;\" fil1)\r\n    (write-line (strcat \":radio_button{label=\\\"\" (if (= SD:Lang \"E\") \"A\u2191\" \"A\u2191\") \"\\\";key=rb1;}}\") fil1)\r\n    (write-line \":radio_row{key=rc2;\" fil1)\r\n    (write-line \"spacer_1;\" fil1)\r\n    (write-line (strcat \":radio_button{label=\\\"\" (if (= SD:Lang \"E\") \"\u2190D\" \"\u2190D\") \"\\\";key=rb4;}\") fil1)\r\n    (write-line \"spacer_1;\" fil1)\r\n    (write-line (strcat \":radio_button{label=\\\"\" (if (= SD:Lang \"E\") \"B\u2192\" \"B\u2192\") \"\\\";key=rb2;}}\") fil1)\r\n    (write-line \":radio_row{key=rc3;\" fil1)\r\n    (write-line \"spacer_1;\" fil1)\r\n    (write-line (strcat \":radio_button{label=\\\"\" (if (= SD:Lang \"E\") \"C\u2193\" \"C\u2193\") \"\\\";key=rb3;}}}\") fil1)\r\n    (write-line \"ok_cancel;}\" fil1)\r\n    (close fil1)\r\n\r\n    (if (null (setq rc (vl-registry-read Path1 \"rc\")))(setq rc \"rb1\"))\r\n\r\n    (setq dcl (load_dialog str1))\r\n    (new_dialog \"SD_6302\" dcl)\r\n    (set_tile \"rc1\" rc)(set_tile \"rc2\" rc)(set_tile \"rc3\" rc)\r\n    (action_tile \"rc1\" \"(if (get_tile \\\"rc2\\\")(set_tile (get_tile \\\"rc2\\\") \\\"0\\\"))(if (get_tile \\\"rc3\\\")(set_tile (get_tile \\\"rc3\\\") \\\"0\\\"))\")\r\n    (action_tile \"rc2\" \"(if (get_tile \\\"rc1\\\")(set_tile (get_tile \\\"rc1\\\") \\\"0\\\"))(if (get_tile \\\"rc3\\\")(set_tile (get_tile \\\"rc3\\\") \\\"0\\\"))\")\r\n    (action_tile \"rc3\" \"(if (get_tile \\\"rc1\\\")(set_tile (get_tile \\\"rc1\\\") \\\"0\\\"))(if (get_tile \\\"rc2\\\")(set_tile (get_tile \\\"rc2\\\") \\\"0\\\"))\")\r\n    (action_tile \"accept\" \"(cond ((get_tile \\\"rc1\\\")(setq rc (get_tile \\\"rc1\\\"))) ((get_tile \\\"rc2\\\")(setq rc (get_tile \\\"rc2\\\"))) ((get_tile \\\"rc3\\\")(setq rc (get_tile \\\"rc3\\\"))))(done_dialog 1)\")\r\n    (action_tile \"cancel\" \"(done_dialog 0)\")\r\n    (setq act (start_dialog))\r\n    (unload_dialog dcl)\r\n    (if (= act 1)(progn (vl-registry-write Path1 \"rc\" rc)(make_6302)))))\r\n  (ClosingRoutine)\r\n  (setq *error* nil)\r\n  (princ)  \r\n)\r\n(defun settings_6302 ()\r\n  (setq fil1 (open str1 \"w\"))\r\n  (write-line (strcat \"SD_6302:dialog{label=\\\"\" (if (= SD:Lang \"E\") \"Elevation Setting\" \"\u5c55\u958b\u56f3\u306e\u8a2d\u5b9a\") \"\\\";\") fil1)\r\n  (write-line \":row{\" fil1)\r\n  \r\n  (write-line \":image{key=im1;width=120;height=30;}\" fil1)\r\n\r\n  (write-line \":column{fixed_height=true;alignment=top;\" fil1)\r\n  (write-line (strcat \":edit_box{label=\\\"\" (if (= SD:Lang \"E\") \"A FH\" \"A \u968e\u9ad8\") \"\\\";key=eb1;edit_width=5;}\") fil1)\r\n  (write-line (strcat \":edit_box{label=\\\"\" (if (= SD:Lang \"E\") \"B\" \"B \u9593\u9694\") \"\\\";key=eb2;edit_width=5;}\") fil1)\r\n  (write-line (strcat \":edit_box{label=\\\"\" (if (= SD:Lang \"E\") \"C\" \"C \u9593\u9694\") \"\\\";key=eb3;edit_width=5;}\") fil1)\r\n  (write-line (strcat \":edit_box{label=\\\"\" (if (= SD:Lang \"E\") \"D\" \"D \u9593\u9694\") \"\\\";key=eb4;edit_width=5;}\") fil1)\r\n  (write-line (strcat \":edit_box{label=\\\"\" (if (= SD:Lang \"E\") \"E Num Cir\" \"E \u76f4\u5f84\") \"\\\";key=eb5;edit_width=5;}\") fil1)\r\n  (write-line (strcat \":edit_box{label=\\\"\" (if (= SD:Lang \"E\") \"F\" \"\u82af\u306e\u5ef6\u9577\") \"\\\";key=eb6;edit_width=5;}\") fil1)\r\n  (write-line (strcat \":edit_box{label=\\\"\" (if (= SD:Lang \"E\") \"G\" \"G \u9593\u9694\") \"\\\";key=eb7;edit_width=5;}\") fil1)\r\n  (write-line (strcat \":edit_box{label=\\\"\" (if (= SD:Lang \"E\") \"H\" \"H \u9593\u9694\") \"\\\";key=eb8;edit_width=5;}\") fil1)\r\n  (write-line (strcat \":edit_box{label=\\\"\" (if (= SD:Lang \"E\") \"J\" \"J \u9593\u9694\") \"\\\";key=eb9;edit_width=5;}\") fil1)\r\n  (write-line (strcat \":edit_box{label=\\\"\" (if (= SD:Lang \"E\") \"K\" \"K \u96e2\u308c\") \"\\\";key=eb10;edit_width=5;}\") fil1)\r\n  (write-line (strcat \":edit_box{label=\\\"\" (if (= SD:Lang \"E\") \"L\" \"L \u5ef6\u9577\") \"\\\";key=eb11;edit_width=5;}}\") fil1)\r\n\r\n  (write-line \":column{fixed_height=true;alignment=top;\" fil1)\r\n  (write-line (strcat \":edit_box{label=\\\"\" (if (= SD:Lang \"E\") \"Text A\" \"A \u30ec\u30d9\u30eb\u6587\u5b57\") \"\\\";key=eb12;edit_width=5;}\") fil1)\r\n  (write-line (strcat \":edit_box{label=\\\"\" (if (= SD:Lang \"E\") \"Text B\" \"B \u90e8\u5c4b\u540d\") \"\\\";key=eb13;edit_width=5;}\") fil1)\r\n  (write-line (strcat \":edit_box{label=\\\"\" (if (= SD:Lang \"E\") \"Text C\" \"C \u901a\u308a\u82af\u8a18\u53f7\") \"\\\";key=eb14;edit_width=5;}\") fil1)\r\n  (write-line (strcat \":edit_box{label=\\\"\" (if (= SD:Lang \"E\") \"Text D\" \"D \u5c55\u958b\u65b9\u5411\u8a18\u53f7\") \"\\\";key=eb15;edit_width=5;}\") fil1)\r\n  (write-line \"spacer_1;\" fil1)\r\n  (write-line (strcat \":button{label=\\\"\" (if (= SD:Lang \"E\") \"Default\" \"\u521d\u671f\u8a2d\u5b9a\u306b\u623b\u3059\") \"\\\";key=b1;}}}\") fil1)\r\n\r\n  (write-line \"ok_cancel;}\" fil1)\r\n  (close fil1)\r\n\r\n  (setq dcl (load_dialog str1))\r\n  (new_dialog \"SD_6302\" dcl)\r\n  (mapcar '(lambda (x)(set_tile x (eval (read x)))) lst1)\r\n  (start_image \"im1\")(fill_image 0 0 (dimx_tile \"im1\")(dimy_tile \"im1\") 0)(slide_image 0 0 (dimx_tile \"im1\") (dimy_tile \"im1\") \"SD_6302.sld\")(end_image)\r\n  (action_tile \"b1\" \"(mapcar 'set_tile lst1 lst2)\")\r\n  (action_tile \"accept\" \"(mapcar '(lambda (x)(vl-registry-write Path1 x (set (read x)(get_tile x)))) lst1)(done_dialog 1)\")\r\n  (action_tile \"cancel\" \"(done_dialog 0)\")\r\n  (setq act (start_dialog))\r\n  (unload_dialog dcl)\r\n)\r\n(defun make_6302 (\/ lst2 lst3 ss3 lst4 lst5)\r\n  (mapcar '(lambda (x)(set (read x)(* (atof (eval (read x)))(getvar \"userr1\")))) (cdr lst1))\r\n  (setq n 0)\r\n  (while (setq obj1 (ssname ss1 n))\r\n    (setq  p1 (cdr (assoc 10 (entget obj1)))\r\n      p2 (cdr (assoc 11 (entget obj1)))\r\n      lay1 (cdr (assoc 8 (entget obj1)))\r\n      lst2 (append (list (list p1 lay1) (list p2 lay1)) lst2)\r\n      n (1+ n)))\r\n  (setq n 0)\r\n  (while (setq obj1 (ssname ss2 n))\r\n    (setq  p1 (cdr (assoc 10 (entget obj1)))\r\n      lay1 (cdr (assoc 8 (entget obj1)))\r\n      lst2 (append (list (list p1 lay1 (cdr (cadr (cadr (assoc -3 (entget obj1 '(\"*\")))))))) lst2)\r\n      n (1+ n)))\r\n  (cond ((= rc \"rb1\")(setq lst2 (mapcar '(lambda (x)(list (car (car x))(cadr x) (nth 2 x))) lst2)\r\n        lst2 (vl-sort lst2 '(lambda (e1 e2)(&lt; (car e1)(car e2))))))\r\n    ((= rc \"rb2\")(setq lst2 (mapcar '(lambda (x)(list (cadr (car x))(cadr x) (nth 2 x))) lst2)\r\n        lst2 (vl-sort lst2 '(lambda (e1 e2)(> (car e1)(car e2))))))\r\n    ((= rc \"rb3\")(setq lst2 (mapcar '(lambda (x)(list (car (car x))(cadr x) (nth 2 x))) lst2)\r\n        lst2 (vl-sort lst2 '(lambda (e1 e2)(> (car e1)(car e2))))))\r\n    ((= rc \"rb4\")(setq lst2 (mapcar '(lambda (x)(list (cadr (car x))(cadr x) (nth 2 x))) lst2)\r\n        lst2 (vl-sort lst2 '(lambda (e1 e2)(&lt; (car e1)(car e2)))))))\r\n\r\n  (setq  lst2 (mapcar '(lambda (x)(list (+ (abs (- (car x) (car (car lst2)))) eb9)(cadr x)(nth 2 x))) lst2)\r\n    ss3 (ssadd))\r\n  (entmake (list '(0 . \"LINE\")(cons 8 Lay_Cen)'(10 0 0 0)(list 11 (+ (car (last lst2)) eb11) 0)))(setq lst3 (cons (entlast) lst3))\r\n  (entmake (list '(0 . \"LINE\")(cons 8 Lay_Cen)(list 10 0 (atof eb1) 0)(list 11 (+ (car (last lst2)) eb11) (atof eb1))))(setq lst3 (cons (entlast) lst3))\r\n  (mapcar '(lambda (x)\r\n    (if (or (= (cadr x) Lay_Cen)(= (cadr x) Lay_Cen2))(setq num1 (- 0 eb2) num2 (+ (atof eb1) eb6) lst4 (cons (list (car x) num1 0) lst4) lst5 (cons (last x) lst5))(setq num1 0 num2 (atof eb1)))\r\n    (entmake (list '(0 . \"LINE\")(cons 8 (cadr x))(list 10 (car x) num1 0)(list 11 (car x) num2)))\r\n    (setq lst3 (cons (entlast) lst3))) lst2)\r\n  \r\n  (setq doc1 (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))\r\n\r\n  (vla-adddimrotated doc1 (vlax-3D-point '(0 0))(vlax-3D-point (list 0 (atof eb1)))(vlax-3D-point (list (- 0 eb7) 0)) (* 0.5 pi))\r\n  (entmod (subst (cons 8 Lay_Dim)(assoc 8 (entget (entlast))) (entget (entlast))))(setq lst3 (cons (entlast) lst3))\r\n\r\n  (mapcar '(lambda (x y)\r\n  (vla-adddimrotated doc1 (vlax-3D-point x)(vlax-3D-point y)(vlax-3D-point (polar x (* 1.5 pi) eb3)) 0)\r\n  (entmod (subst (cons 8 Lay_Dim)(assoc 8 (entget (entlast))) (entget (entlast))))(setq lst3 (cons (entlast) lst3))) lst4 (cdr lst4))\r\n\r\n  (mapcar '(lambda (x y)(if y (progn\r\n  (entmake (list '(0 . \"CIRCLE\")(cons 10 (polar x (* 1.5 pi)(+ eb3 eb4 (\/ eb5 2.0))))(cons 40 (\/ eb5 2.0))))\r\n  (entmod (subst (cons 8 Lay_Dim)(assoc 8 (entget (entlast))) (entget (entlast))))(setq lst3 (cons (entlast) lst3))))) lst4 lst5)\r\n\r\n  (mapcar '(lambda (x y)(if y (progn\r\n  (entmake (list '(0 . \"TEXT\")(cons 1 y)(cons 10 (polar x (* 1.5 pi)(+ eb3 eb4 (\/ eb5 2.0))))(cons 11 (polar x (* 1.5 pi)(+ eb3 eb4 (\/ eb5 2.0))))(cons 40 eb14)'(72 . 1)'(73 . 2)))\r\n  (entmod (subst (cons 8 Lay_Dim)(assoc 8 (entget (entlast))) (entget (entlast))))(setq lst3 (cons (entlast) lst3))))) lst4 lst5)\r\n\r\n  (cond ((= rc \"rb1\")(setq str1 \"A\"))((= rc \"rb2\")(setq str1 \"B\"))((= rc \"rb3\")(setq str1 \"C\"))((= rc \"rb4\")(setq str1 \"D\")))\r\n  (entmake (list '(0 . \"TEXT\")(cons 1 str1)(list 10 (\/ (+ (car (last lst2)) eb11) 2.0)(- 0 eb2 eb3 eb4 (\/ eb5 2.0)))(cons 40 eb14)))\r\n  (setq lst3 (cons (entlast) lst3))\r\n\r\n  (entmake (list '(0 . \"TEXT\")(cons 1 \"\u25bd*FL\")(cons 8 Lay_Txt2)(list 10 eb8 1)(cons 40 eb14)))\r\n  (setq lst3 (cons (entlast) lst3))\r\n\r\n  (entmake (list '(0 . \"TEXT\")(cons 1 \"\u90e8\u5c4b\u540d\")(cons 8 Lay_Txt1)(list 10 eb8 (- 0 eb2))(cons 40 eb14)))\r\n  (setq lst3 (cons (entlast) lst3))\r\n\r\n  (mapcar '(lambda (x)(ssadd x ss3)) lst3)\r\n  (command \".copybase\" \"_non\" '(0 0) ss3 \"\")\r\n  (mapcar 'entdel lst3)\r\n  (command \"pasteclip\" pause)\r\n)\r\n(princ)\r\n<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"\u3053\u306e\u30b3\u30de\u30f3\u30c9\u306f\u5c55\u958b\u56f3\u7528\u306e\u4e0b\u56f3\u3092\u3001\u8fc5\u901f\u306b\u4f5c\u6210\u3059\u308b\u3068\u304d\u306b\u4f7f\u3046AutoLISP\u30b3\u30de\u30f3\u30c9\u3067\u3059\u30022\u6b21\u5143CAD\u306b\u304a\u3044\u3066\u3001\u5c55\u958b\u56f3\u306e\u4f5c\u56f3\u306f\u304b\u306a\u308a\u306e\u624b\u9593\u304c\u304b\u304b\u308b\u3046\u3048\u3001\u30b1\u30a2\u30ec\u30b9\u30df\u30b9\u3082\u591a\u304f\u767a\u751f\u3057\u304c\u3061\u3067\u3059\u3002\u81ea\u52d5\u3067\u5c55\u958b\u56f3\u3092\u4f5c\u6210\u3059\u308b\u30b3\u30de\u30f3\u30c9\u306f\u8272\u3005\u8a66 [&hellip;]","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[85,5],"tags":[],"class_list":["post-2869","post","type-post","status-publish","format-standard","hentry","category-section-interior-elevation","category-toolbar-section-inerior_elevation"],"_links":{"self":[{"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/posts\/2869","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=2869"}],"version-history":[{"count":5,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/posts\/2869\/revisions"}],"predecessor-version":[{"id":3095,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/posts\/2869\/revisions\/3095"}],"wp:attachment":[{"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/media?parent=2869"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/categories?post=2869"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/tags?post=2869"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}