![\"\"](\"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/12\/2022-12-14_03h41_40.png\")
<\/p>\n<\/p>\n
\u6249\u306e\u7acb\u9762\u56f3\u3092\u66f8\u304fAutoLISP\u30b3\u30de\u30f3\u30c9\u3067\u3059\u3002<\/p>\n
![\"\"](\"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/12\/2022-12-14_03h43_23.png\")
<\/p>\n
\u3053\u306e\u30b3\u30de\u30f3\u30c9\u3067\u4f5c\u56f3\u3067\u304d\u308b\u6249\u306e\u7acb\u9762\u56f3\u306f\u4e0b\u56f3\u306e\u901a\u308a\u3067\u3059\u3002<\/p>\n
\u00a0<\/p>\n
![\"\"](\"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/12\/2022-12-14_03h52_26.png\")
<\/p>\n\n\n
(defun c:SD_6200 (\/ door t1 t2 lst6 w h fp1 fp2 fp3 fp4 fp5 fp6 lst6 Width1 Width2 Heigth1 ListofSpecs TheLayer1 TheLayer2 flag Frame num0)\r\n\t(if (= SD:Lang \"E\")\r\n\t\t(princ \"\\n [SD_6200 ver.20221214] Door Elevation\")\r\n\t\t(princ \"\\n [SD_6200 ver.20221214] \u30c9\u30a2\u306e\u7acb\u9762\u56f3\")\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(setvar \"expert\" 5)\r\n\t(setq \tTheLayer1 (Get_Layer \"AS1\" T)\r\n\t\t\tTheLayer2 (Get_Layer \"A83\" T)\r\n\t\t\tTheLayer3 (Get_Layer \"A03\" T))\r\n\t(read_Registry_6200)\r\n\t(show_dialogue_6200)\r\n\t(write_Registry_6200)\r\n\t(setq num0 (getvar \"osmode\"))\r\n\t(setvar \"osmode\" 0)\r\n\t(if (and (= t1 \"1\")(= t2 \"1\"))\r\n\t\t(progn \t(setq \tflag T t1 \"0\")\r\n\t\t\t\t(create_door_glass_6200)\r\n\t\t\t\t(create_door_vent_6200)\r\n\t\t\t\t(create_door_side_vent_6200)\r\n\t\t\t\t(create_door_swing_6200)\r\n\t\t\t\t(command \"move\" door \"\" fp1 (polar fp1 0.0 (atof Width1)))\r\n\t\t\t\t(setq \tt1 \"1\" t2 \"0\")\r\n\t\t\t\t(create_door_glass_6200)\r\n\t\t\t\t(create_door_vent_6200)\r\n\t\t\t\t(create_door_side_vent_6200)\r\n\t\t\t\t(create_door_swing_6200)\r\n\t\t\t\t(setq lst6 (list fp4 (polar fp3 (* 0.5 pi) f)))\r\n\t\t\t\t(SD:MakePLine lst6 nil TheLayer1 0)\r\n\t\t\t\t(setq door (ssadd (entlast) door))\r\n\t\t\t\t(setq \tw (+ (atof Width1)(atof Width2))\r\n\t\t\t\t\t\tfp3 (polar fp2 0.0 w)\r\n\t\t\t\t\t\tfp4 (polar fp1 0.0 w)\r\n\t\t\t\t)\r\n\t\t\t\t(create_frame_6200)\t\r\n\t\t)\r\n\t\t(progn\r\n\t\t\t(create_door_glass_6200)\r\n\t\t\t(create_door_vent_6200)\r\n\t\t\t(create_door_side_vent_6200)\r\n\t\t\t(create_door_swing_6200)\r\n\t\t\t(create_frame_6200)\r\n\t\t)\r\n\t)\r\n\t(paste_door_6200)\r\n\t(ClosingRoutine)\r\n\t(setq *error* nil)\r\n\t(princ)\r\n)\r\n;**********************************************************\r\n(defun set_var ()\r\n\t(setq \tHeight1 (get_tile \"Height1\")\r\n\t\t\tFrame1 (get_tile \"Frame1\")\r\n\t\t\tWidth1 (get_tile \"Width1\")\r\n\t\t\tWidth2 (get_tile \"Width2\")\r\n\t\t\tInsertion (get_tile \"Insertion\")\r\n\t\t\tt1 (get_tile \"t1\")\r\n\t\t\tt2 (get_tile \"t2\")\r\n\t\t\tglass (get_tile \"glass\")\r\n\t\t\tlouver (get_tile \"louver\")\r\n\t\t\tListofSpecs (list \t(atof (get_tile \"A\"))\r\n\t\t\t\t\t\t\t(atof (get_tile \"B\"))\r\n\t\t\t\t\t\t\t(atof (get_tile \"C\"))\r\n\t\t\t\t\t\t\t(atof (get_tile \"D\"))\r\n\t\t\t\t\t\t\t(atof (get_tile \"E\"))\r\n\t\t\t\t\t\t\t(atof (get_tile \"F\"))\r\n\t\t\t\t\t\t\t(atof (get_tile \"G\"))\r\n\t\t\t\t\t\t\t(atof (get_tile \"H\"))\r\n\t\t\t\t\t\t\t(atof (get_tile \"J\"))\r\n\t\t\t\t\t\t)\r\n\t\t\tdoor (ssadd)\t\t\t\r\n\t)\t\r\n)\r\n;**********************************************************\r\n(defun create_door_glass_6200 (\/ pl1 pl2 pl3 pl4 pl5 p1 p2 p3 p4 p5 p6 p7 p8 pl2 pl3 pl4 pl5 lst1 blk1)\r\n\t(if (= t1 \"0\")\r\n\t\t(setq\t Width Width2)\r\n\t\t(setq\t Width Width1)\r\n\t)\r\n\t(setq \tw (atof Width)\r\n\t\t\th (atof Height1)\r\n\t\t\tf (atof Frame1)\r\n\t\t\tfp2 (polar '(0.0 0.0 0.0) (* 0.5 pi) h)\r\n\t\t\tp1 (polar (polar fp2 0.0 (nth 0 ListofSpecs)) (* 1.5 pi) (nth 1 ListofSpecs))\r\n\t\t\tp2 (polar p1 0.0 (- w (* 2 (nth 0 ListofSpecs)))))\r\n\r\n\t(if (= glass \"1\")\r\n\t\t(setq\tp3 (polar p2 (* 1.5 pi) (- (- h (nth 2 ListofSpecs)) (nth 1 ListofSpecs)))\r\n\t\t\t\tp4 (polar p1 (* 1.5 pi) (- (- h (nth 2 ListofSpecs)) (nth 1 ListofSpecs))))\r\n\t\t(setq\tp3 (polar p2 (* 1.5 pi) (nth 4 ListofSpecs))\r\n\t\t\t\tp4 (polar p1 (* 1.5 pi) (nth 4 ListofSpecs)))\r\n\t)\r\n\t\r\n\t(setq lst1 (list p1 p2 p3 p4))\r\n\t(if (and (\/= glass \"0\")(\/= glass \"3\"))\r\n\t\t(progn\r\n\t\t\t(SD:MakePLine lst1 nil TheLayer1 1)\r\n\t\t\t(setq \tpl1 (entlast)\r\n\t\r\n\t\t\t\t\tp5 (polar p2 (* 1.0 pi) 57)\r\n\t\t\t\t\tp6 (polar p5 (* 1.25 pi) 200)\r\n\t\t\t\r\n\t\t\t\t\tp7 (polar p2 (* 1.5 pi) 57)\r\n\t\t\t\t\tp8 (polar p7 (* 1.25 pi) 200)\r\n\t\t\t)\r\n\t\r\n\t\t\t(SD:MakeLine p5 p6 TheLayer2)\r\n\t\t\t(setq pl2 (entlast))\r\n\t\r\n\t\t\t(SD:MakeLine p7 p8 TheLayer2)\r\n\t\t\t(setq pl3 (entlast))\r\n\t\t\r\n\t\t\t(command \"copy\" pl2 \"\" p2 p4)\r\n\t\t\t(command \"rotate\" (entlast) \"\" p4 \"180\")\r\n\t\t\t(setq pl4 (entlast))\r\n\t\r\n\t\t\t(command \"copy\" pl3 \"\" p2 p4)\r\n\t\t\t(command \"rotate\" (entlast) \"\" p4 \"180\")\r\n\t\t\t(setq \tpl5 (entlast)\r\n\t\r\n\t\t\t\t\tblk1 (block_name \"SD_6200_1_\")\r\n\t\t\t)\r\n\t\t\t(command \"-block\" blk1 p4 pl1 pl2 pl3 pl4 pl5 \"\")\r\n\t\t\t(command \"-insert\" blk1 p4 \"\" \"\" \"\")\r\n\t\t\t(ssadd (entlast) door)\r\n\t\t)\r\n\t)\r\n)\r\n;**********************************************************\r\n(defun create_door_vent_6200 (\/ p5 p6 p7 p8 lst2 pl1 pl2 blk1 nofj nofjfixed Insertion)\r\n\t(setq \tfp1 '(0.0 0.0 0.0)\r\n\t\t\tp5 (polar (polar fp1 0.0 (nth 3 ListofSpecs)) (* 0.5 pi) (nth 2 ListofSpecs))\r\n\t\t\tp6 (polar p5 0.0 (- w (* 2 (nth 3 ListofSpecs))))\r\n\t\t\tp7 (polar p6 (* 0.5 pi) (nth 5 ListofSpecs))\r\n\t\t\tp8 (polar p5 (* 0.5 pi) (nth 5 ListofSpecs))\r\n\t\t\tlst2 (list p5 p6 p7 p8)\r\n\t\t\tdoor_vent (ssadd)\r\n\t)\r\n\t(if (and (\/= louver \"00\")(\/= louver \"02\"))\r\n\t\t(progn\r\n\t\t\t(SD:MakePLine lst2 nil TheLayer1 1)\r\n\t\t\t(setq pl1 (entlast))\r\n\t\r\n\t\t\t(SD:MakeLine p7 p8 TheLayer1)\r\n\t\t\t(setq pl2 (entlast))\r\n\t\t\t(ssadd pl2 door_vent)\r\n\t\t\r\n\t\t\t(setq \tnofj (\/ (nth 5 ListofSpecs)(nth 8 ListofSpecs))\r\n\t\t\t\t\tnofj (- nofj 1)\r\n\t\t\t\t\tnofjfixed (fix nofj)\r\n\t\t\t)\r\n\t\t\t\t(if (\/= nofj nofjfixed)\r\n\t\t\t\t(progn \r\n\t\t\t\t\t(command \"move\" pl2 \"\" p8 (polar p8 (* 1.5 pi) (\/ (* (- nofj nofjfixed)(nth 8 ListofSpecs)) 2)))\r\n\t\t\t\t\t(command \"offset\" (nth 8 ListofSpecs) (entlast) fp1 \"\")\r\n\t\t\t\t\t(ssadd (entlast) door_vent)\r\n\t\t\t\t)\r\n\t\t\t\t(command \"move\" pl2 \"\" p8 (polar p8 (* 1.5 pi) (nth 8 ListofSpecs)))\r\n\t\t\t)\t\r\n\t\t\t(repeat nofjfixed\r\n\t\t\t\t(command \"offset\" (nth 8 ListofSpecs) (entlast) fp1 \"\")\r\n\t\t\t\t(ssadd (entlast) door_vent)\r\n\t\t\t)\r\n\t\t\t(setq blk1 (block_name \"SD_6200_2_\"))\r\n\t\t\t(command \"-block\" blk1 p5 pl1 door_vent \"\")\r\n\t\t\t(command \"-insert\" blk1 p5 \"\" \"\" \"\")\r\n\t\t\t(ssadd (entlast) door)\r\n\t\t)\r\n\t)\r\n \r\n)\t\r\n;**********************************************************\r\n(defun create_door_side_vent_6200 (\/ p5 p6 p7 p8 lst2 pl1 pl2 pl3 blk1 nofj nofjfixed mp1 mp2)\r\n\t(setq \tfp4 (polar fp1 0.0 w)\r\n\t\t\tfp3 (polar fp4 (* 0.5 pi) h)\r\n\t\t\tp5 (polar (polar fp4 (* 1.0 pi) (nth 0 ListofSpecs)) (* 0.5 pi) (nth 2 ListofSpecs))\r\n\t\t\tp6 (polar p5 (* 1.0 pi) (nth 6 ListofSpecs))\r\n\t\t\tp7 (polar p6 (* 0.5 pi) (\/ (- (- (- h (nth 1 ListofSpecs))(nth 2 ListofSpecs))(nth 7 ListofSpecs)) 2))\r\n\t\t\tp8 (polar p7 0.0 (nth 6 ListofSpecs))\r\n\t\t\tlst2 (list p5 p6 p7 p8)\r\n\t\t\tdoor_side_vent (ssadd)\r\n\t)\r\n\t(SD:MakePLine lst2 nil TheLayer1 1)\r\n\t(setq pl1 (entlast))\r\n\t\r\n\t(setq \tfp5 (polar fp1 (* 0.5 pi) (\/ h 2))\r\n\t\t\tfp6 (polar fp5 0.0 w)\r\n\t\t\tmp1 (polar p8 (* 0.5 pi) (\/ (nth 7 ListofSpecs) 2))\r\n\t\t\tmp2 (polar mp1 0.0 (nth 6 ListofSpecs))\r\n\t)\r\n\t(command \"mirror\" pl1 \"\" mp1 mp2 \"\")\r\n\t(setq pl2 (entlast))\r\n\t(ssadd pl2 door)\r\n\t\r\n\t(SD:MakeLine p7 p8 TheLayer1)\r\n\t(setq pl3 (entlast))\r\n\t(ssadd pl3 door_side_vent)\r\n\t\t(setq \tnofj (\/ (distance p6 p7) (nth 8 ListofSpecs))\r\n\t\t\tnofj (- nofj 1)\r\n\t\t\tnofjfixed (fix nofj)\r\n\t)\r\n\t(if (\/= nofj nofjfixed)\r\n\t\t(progn \r\n\t\t\t(command \"move\" pl3 \"\" p8 (polar p8 (* 1.5 pi) (\/ (* (- nofj nofjfixed)(nth 8 ListofSpecs)) 2)))\r\n\t\t\t(command \"offset\" (nth 8 ListofSpecs) (entlast) fp1 \"\")\r\n\t\t\t(ssadd (entlast) door_side_vent)\r\n\t\t)\r\n\t\t(command \"move\" pl3 \"\" p8 (polar p8 (* 1.5 pi) (nth 8 ListofSpecs)))\r\n\t)\t\r\n\t(repeat nofjfixed\r\n\t\t(command \"offset\" (nth 8 ListofSpecs) (entlast) fp1 \"\")\r\n\t\t(ssadd (entlast) door_side_vent)\r\n\t)\r\n\t(setq blk1 (block_name \"SD_6200_3_\"))\r\n\t(command \"-block\" blk1 p6 pl1 door_side_vent \"\")\r\n\t(if (= t1 \"0\")\r\n\t\t(progn\r\n\t\t\t(command \"-insert\" blk1 (polar (polar fp1 0.0 (nth 0 ListofSpecs)) (* 0.5 pi) (nth 2 ListofSpecs)) \"\" \"\" \"\")\r\n\t\t\t(command \"move\" pl2 \"\" p6 (polar (polar fp1 0.0 (nth 0 ListofSpecs)) (* 0.5 pi) (nth 2 ListofSpecs)))\r\n\t\t)\r\n\t\t(command \"-insert\" blk1 p6 \"\" \"\" \"\")\r\n\t)\r\n\t(ssadd (entlast) door)\r\n\t(if (\/= glass \"3\")(entdel pl2))\r\n\t(if (\/= louver \"02\")(entdel (entlast)))\r\n)\r\n;**********************************************************\r\n(defun create_door_swing_6200 (\/ lst3 newfp1 newfp2 newfp3 newfp4 newfp5 newfp6)\r\n\t(if flag\r\n\t\t(setq \tnewfp1 fp1\r\n\t\t\t\tnewfp2 (polar fp2 (* 0.5 pi) f)\r\n\t\t\t\tnewfp3 (polar fp3 (* 0.5 pi) f)\r\n\t\t\t\tnewfp4 fp4\r\n\t\t)\r\n\t\t(setq \tnewfp1(polar fp1(* 1.0 pi) f)\r\n\t\t\t\tnewfp2 (polar (polar fp2 (* 1.0 pi) f) (* 0.5 pi) f)\r\n\t\t\t\tnewfp3 (polar (polar fp3 0.0 f) (* 0.5 pi) f)\r\n\t\t\t\tnewfp4(polar fp4 0.0 f)\r\n\t\t)\r\n\t)\r\n\t(setq\tnewfp5 (polar fp5 (* 1.0 pi) f)\r\n\t\t\tnewfp6 (polar fp6 0.0 f))\r\n\t(if (= t1 \"0\")\r\n\t\t(progn\r\n\t\t\t(setq lst3 (list newfp1 newfp6 newfp2))\r\n\t\t\t(SD:MakePLine lst3 nil TheLayer2 0)\r\n\t\t\t(ssadd (entlast) door)\r\n\t\t)\r\n\t\t(progn\r\n\t\t\t(setq lst3 (list newfp4 newfp5 newfp3))\r\n\t\t\t(SD:MakePLine lst3 nil TheLayer2 0)\r\n\t\t\t(ssadd (entlast) door)\r\n\t\t)\r\n\t)\r\n)\t\t\r\n;**********************************************************\r\n(defun create_frame_6200 (\/ lst4 pl1)\r\n\t(setq \tlst4 (list fp1 fp2 fp3 fp4))\r\n\t(SD:MakePLine lst4 nil TheLayer1 0)\r\n\t(setq \tpl1(entlast))\r\n\t(ssadd pl1 door)\r\n\t(command \"offset\" f pl1 '(-100.0 0) \"\")\r\n\t(ssadd (entlast) door)\r\n\t(command \"offset\" (+ f 25.0) pl1 '(-100.0 0) \"\")\r\n\t(command \"pedit\" (entlast) \"c\" \"\")\r\n\t(ssadd (entlast) door)\r\n\t(command \"chprop\" pl1 \"\" \"la\" TheLayer3 \"\")\r\n)\r\n;**********************************************************\r\n(defun paste_door_6200 ()\r\n\t(if (= Insertion \"SD_6200_1\")\r\n\t\t(command \"-block\" \"SD_6200\" \"0,0\" door \"\" )\r\n\t\t(command \"-block\" \"SD_6200\" (polar (list 0.0 0.0 0.0) 0.0 w) door \"\")\r\n\t)\r\n\t(setvar \"osmode\" num0)\r\n\t(command \"-insert\" \"SD_6200\" pause \"\" \"\" \"\")\r\n\t(command \"explode\" (entlast))\r\n\t(command \"purge\" \"b\" \"SD_6200\" \"\" \"y\")\r\n)\r\n;**********************************************************\r\n(defun show_dialogue_6200 ()\r\n\t(setq dcl_id (load_dialog \"SD_6200.DCL\"))\r\n\t(if (= SD:Lang \"E\")\r\n\t\t(new_dialog \"SD_6200\" dcl_id)\r\n\t\t(new_dialog \"SD_6200_J\" dcl_id)\r\n\t)\r\n\t(set_tile \"Height1\" Height1)\r\n\t(set_tile \"Frame1\" Frame1)\r\n\t(set_tile \"Width1\" Width1)\r\n\t(set_tile \"Width2\" Width2)\r\n\t(set_tile \"Insertion\" Insertion)\r\n\t(set_tile \"t1\" t1)\r\n\t(set_tile \"t2\" t2)\r\n\t(set_tile \"glass\" glass)\r\n\t(set_tile \"louver\" louver)\r\n\t(set_tile \"A\" A)\r\n\t(set_tile \"B\" B)\r\n\t(set_tile \"C\" C)\r\n\t(set_tile \"D\" D)\r\n\t(set_tile \"E\" E)\r\n\t(set_tile \"F\" F)\r\n\t(set_tile \"G\" G)\r\n\t(set_tile \"H\" H)\r\n\t(set_tile \"J\" J)\r\n\t(mode_tile \"Width1\" (- 1 (atoi t1)))\r\n\t(mode_tile \"Width2\" (- 1 (atoi t2)))\r\n\t(mode_tile \"Height1\" 2)\r\n\t(start_image \"image1\")\r\n\t\t\t(slide_image 0 0 (dimx_tile \"image1\")(dimy_tile \"image1\") Insertion)\r\n\t(end_image)\r\n\t(action_tile \"Standard\" (strcat\t\"(set_tile \\\"A\\\" \\\"110\\\")\"\r\n\t\t\t\t\t\t\t\t\"(set_tile \\\"B\\\" \\\"110\\\")\"\r\n\t\t\t\t\t\t\t\t\"(set_tile \\\"C\\\" \\\"110\\\")\"\r\n\t\t\t\t\t\t\t\t\"(set_tile \\\"D\\\" \\\"110\\\")\"\r\n\t\t\t\t\t\t\t\t\"(set_tile \\\"E\\\" \\\"800\\\")\"\r\n\t\t\t\t\t\t\t\t\"(set_tile \\\"F\\\" \\\"300\\\")\"\r\n\t\t\t\t\t\t\t\t\"(set_tile \\\"G\\\" \\\"180\\\")\"\r\n\t\t\t\t\t\t\t\t\"(set_tile \\\"H\\\" \\\"150\\\")\"\r\n\t\t\t\t\t\t\t\t\"(set_tile \\\"J\\\" \\\"30\\\")\"\r\n\t\t\t\t\t\t\t)\r\n\t)\r\n\t(action_tile \"t1\" \"(mode_tile \\\"Width1\\\" (- 1 (atoi $value)))\")\r\n\t(action_tile \"t2\" \"(mode_tile \\\"Width2\\\" (- 1 (atoi $value)))\")\r\n\t(action_tile \"Insertion\" (strcat \t\"(setq Insertion $value)\"\r\n\t\t\t\t\t\t\t\t\"(start_image \\\"image1\\\")\"\r\n\t\t\t\t\t\t\t\t\"(fill_image 0 0 (dimx_tile \\\"image1\\\")(dimy_tile \\\"image1\\\") 0)\"\r\n\t\t\t\t\t\t\t\t\"(slide_image 0 0 (dimx_tile \\\"image1\\\")(dimy_tile \\\"image1\\\") Insertion)\"\r\n\t\t\t\t\t\t\t\t\"(end_image)\"\r\n\t\t\t\t\t\t )\r\n\t)\r\n \t(action_tile \"accept\" \"(setq Act 1)(set_var)(done_dialog)\")\r\n \t(action_tile \"cancel\" \"(setq Act 0)(done_dialog)\")\r\n \t(start_dialog)\r\n \t(unload_dialog dcl_id)\r\n \t(if (= Act 0)\r\n\t\t(exit)\r\n \t)\r\n)\r\n\r\n;;************************\r\n(defun read_Registry_6200 ()\r\n\r\n\t(setq Path6200 \"HKEY_CURRENT_USER\\\\Software\\\\SpeedDraft\\\\SD_6200\")\r\n\t(setq Height1 (vl-registry-read Path6200 \"Height1\"))\r\n\t(if \t(null Height1)\r\n\t\t(setq Height1 \"1225\")\r\n\t)\r\n\t(setq Frame1 (vl-registry-read Path6200 \"Frame1\"))\r\n\t(if \t(null Frame1)\r\n\t\t(setq Frame1 \"10\")\r\n\t)\r\n\t(setq t1 (vl-registry-read Path6200 \"t1\"))\r\n\t(if \t(null t1)\r\n\t\t(setq t1 \"1\")\r\n\t)\r\n\t(setq t2 (vl-registry-read Path6200 \"t2\"))\r\n\t(if \t(null t2)\r\n\t\t(setq t2 \"0\")\r\n\t)\r\n\t(setq glass (vl-registry-read Path6200 \"glass\"))\r\n\t(if \t(null glass)\r\n\t\t(setq glass \"0\")\r\n\t)\r\n\t(setq louver (vl-registry-read Path6200 \"louver\"))\r\n\t(if \t(null louver)\r\n\t\t(setq louver \"00\")\r\n\t)\r\n\t(setq Width1 (vl-registry-read Path6200 \"Width1\"))\r\n\t(if \t(null Width1)\r\n\t\t(setq Width1 \"900\")\r\n\t)\r\n\t(setq Width2 (vl-registry-read Path6200 \"Width2\"))\r\n\t(if \t(null Width2)\r\n\t\t(setq Width2 \"900\")\r\n\t)\r\n\t(setq Insertion (vl-registry-read Path6200 \"Insertion\"))\r\n\t(if \t(null Insertion)\r\n\t\t(setq Insertion \"SD_6200_1\")\r\n\t)\r\n\t(setq A (vl-registry-read Path6200 \"A\"))\r\n\t(if \t(null A)\r\n\t\t(setq A \"110\")\r\n\t)\r\n\t(setq B (vl-registry-read Path6200 \"B\"))\r\n\t(if \t(null B)\r\n\t\t(setq B \"110\")\r\n\t)\r\n\t(setq C (vl-registry-read Path6200 \"C\"))\r\n\t(if \t(null C)\r\n\t\t(setq C \"110\")\r\n\t)\r\n\t(setq D (vl-registry-read Path6200 \"D\"))\r\n\t(if \t(null D)\r\n\t\t(setq D \"110\")\r\n\t)\r\n\t(setq E (vl-registry-read Path6200 \"E\"))\r\n\t(if \t(null E)\r\n\t\t(setq E \"800\")\r\n\t)\r\n\t(setq F (vl-registry-read Path6200 \"F\"))\r\n\t(if \t(null F)\r\n\t\t(setq F \"300\")\r\n\t)\r\n\t(setq G (vl-registry-read Path6200 \"G\"))\r\n\t(if \t(null G)\r\n\t\t(setq G \"180\")\r\n\t)\r\n\t(setq H (vl-registry-read Path6200 \"H\"))\r\n\t(if \t(null H)\r\n\t\t(setq H \"150\")\r\n\t)\r\n\t(setq J (vl-registry-read Path6200 \"J\"))\r\n\t(if \t(null J)\r\n\t\t(setq J \"30\")\r\n\t)\r\n)\r\n\r\n;;************************\r\n(defun write_Registry_6200 ()\r\n(setq Path6200 \"HKEY_CURRENT_USER\\\\Software\\\\SpeedDraft\\\\SD_6200\")\r\n(vl-registry-write Path6200 \"Height1\" Height1)\r\n(vl-registry-write Path6200 \"Frame1\" Frame1)\r\n(vl-registry-write Path6200 \"t1\" t1)\r\n(vl-registry-write Path6200 \"t2\" t2)\r\n(vl-registry-write Path6200 \"glass\" glass)\r\n(vl-registry-write Path6200 \"louver\" louver)\r\n(vl-registry-write Path6200 \"Width1\" Width1)\r\n(vl-registry-write Path6200 \"Width2\" Width2)\r\n(vl-registry-write Path6200 \"Insertion\" Insertion)\r\n(vl-registry-write Path6200 \"A\" (rtos (nth 0 ListofSpecs)))\r\n(vl-registry-write Path6200 \"B\" (rtos (nth 1 ListofSpecs)))\r\n(vl-registry-write Path6200 \"C\" (rtos (nth 2 ListofSpecs)))\r\n(vl-registry-write Path6200 \"D\" (rtos (nth 3 ListofSpecs)))\r\n(vl-registry-write Path6200 \"E\" (rtos (nth 4 ListofSpecs)))\r\n(vl-registry-write Path6200 \"F\" (rtos (nth 5 ListofSpecs)))\r\n(vl-registry-write Path6200 \"G\" (rtos (nth 6 ListofSpecs)))\r\n(vl-registry-write Path6200 \"H\" (rtos (nth 7 ListofSpecs)))\r\n(vl-registry-write Path6200 \"I\" (rtos (nth 8 ListofSpecs)))\r\n)\r\n;********Compute Name of Block\r\n(defun block_name (blk1 \/ x1 )\r\n\t(setq x1 1)\r\n\t(while x1\r\n\t\t(setq \tblkname (strcat blk1 (itoa x1)))\r\n\t\t(if (\/= (tblsearch \"BLOCK\" blkname) nil)(setq x1 (+ x1 1))(setq x1 nil))\r\n\t)\r\n\tblkname\r\n)\r\n(princ)<\/code><\/pre>\n\n\n\nDCL\u30bd\u30fc\u30b9<\/h2>\n\n\n\nSD_6200:dialog{label=\"DoorElevation\";\r\n:row{\r\n\t\t:column{alignment=\"center\";\r\n\t\t\t:icon_image{key=\"image1\";width=50;height=20;aspect_ratio=1.0;}\r\n\t\t}\r\n\t\t:column{children_alignment=right;\r\n\t\t\t:edit_box{edit_width=12;fixed_width=true;label=\"A:\";key=\"A\";}\r\n\t\t\t:edit_box{edit_width=12;fixed_width=true;label=\"B:\";key=\"B\";}\r\n\t\t\t:edit_box{edit_width=12;fixed_width=true;label=\"C:\";key=\"C\";}\r\n\t\t\t:edit_box{edit_width=12;fixed_width=true;label=\"D:\";key=\"D\";}\r\n\t\t\t:edit_box{edit_width=12;fixed_width=true;label=\"E:\";key=\"E\";}\r\n\t\t\t:edit_box{edit_width=12;fixed_width=true;label=\"F:\";key=\"F\";}\r\n\t\t\t:edit_box{edit_width=12;fixed_width=true;label=\"G:\";key=\"G\";}\r\n\t\t\t:edit_box{edit_width=12;fixed_width=true;label=\"H:\";key=\"H\";}\r\n\t\t\t:edit_box{edit_width=12;fixed_width=true;label=\"J:\";key=\"J\";}\r\n\t\t\t:button{label=\"Standard\";key=\"Standard\";}\r\n\t\t}\r\n}\r\n:column{\r\n\t:row{\r\n\t\t:boxed_column{label=LEFT;\r\n\t\t\t:toggle{label=\"Draw\";key=\"t1\";}\r\n\t\t\t:edit_box{label=\"Width1:\";key=\"Width1\";}\r\n\t\t}\r\n\t\t\t:boxed_column{label=RIGHT;\r\n\t\t\t:toggle{label=\"Draw\";key=\"t2\";}\r\n\t\t\t:edit_box{label=\"Width2:\";key=\"Width2\";}\r\n\t\t\t}\r\n\t}\r\n}\r\n:row{\r\n:column{\r\n\t:row{\r\n\t:edit_box{label=\"Height1:\";key=\"Height1\";edit_width=10;}\r\n\t:edit_box{label=\"Frame1:\";key=\"Frame1\";edit_width=5;}\r\n\t}\r\n\t:radio_row{label=\"Insertion\";key=\"Insertion\";value=\"SD_6200_1\";\r\n\t:radio_button{label=\"Left\";key=\"SD_6200_1\";}\r\n\t:radio_button{label=\"Right\";key=\"SD_6200_2\";}\r\n\t}\r\n\tok_cancel;\r\n\t:text{label=\"\";}\r\n\t:text{label=\"\";}\r\n}\r\n:column{\r\n:radio_column{label=\"Glass\";key=\"glass\";value=\"1\";\r\n\t\t:radio_button{label=\"Nothing\";key=\"0\";}\r\n\t\t:radio_button{label=\"Big\";key=\"1\";}\r\n\t\t:radio_button{label=\"Top\";key=\"2\";}\r\n\t\t:radio_button{label=\"Slit\";key=\"3\";}\r\n\t}\r\n\t:radio_column{label=\"Louver\";key=\"louver\";value=\"00\";\r\n\t\t:radio_button{label=\"Nothing\";key=\"00\";}\r\n\t\t:radio_button{label=\"Bottom\";key=\"01\";}\r\n\t\t:radio_button{label=\"Slit\";key=\"02\";}\r\n\t}\r\n}\r\n}\r\n}\r\n\r\nSD_6200_J:dialog{label=\"\u30c9\u30a2\u306e\u7acb\u9762\u56f3\";\r\n:row{\r\n\t\t:column{alignment=\"center\";\r\n\t\t\t:icon_image{key=\"image1\";width=50;height=20;aspect_ratio=1.0;}\r\n\t\t}\r\n\t\t:column{children_alignment=\"left\";\r\n\t\t\t:edit_box{edit_width=12;fixed_width=true;label=\"A:\";key=\"A\";}\r\n\t\t\t:edit_box{edit_width=12;fixed_width=true;label=\"B:\";key=\"B\";}\r\n\t\t\t:edit_box{edit_width=12;fixed_width=true;label=\"C:\";key=\"C\";}\r\n\t\t\t:edit_box{edit_width=12;fixed_width=true;label=\"D:\";key=\"D\";}\r\n\t\t\t:edit_box{edit_width=12;fixed_width=true;label=\"E:\";key=\"E\";}\r\n\t\t\t:edit_box{edit_width=12;fixed_width=true;label=\"F:\";key=\"F\";}\r\n\t\t\t:edit_box{edit_width=12;fixed_width=true;label=\"G:\";key=\"G\";}\r\n\t\t\t:edit_box{edit_width=12;fixed_width=true;label=\"H:\";key=\"H\";}\r\n\t\t\t:edit_box{edit_width=12;fixed_width=true;label=\"J:\";key=\"J\";}\r\n\t\t\t:button{label=\"Standard\";key=\"Standard\";}\r\n\t\t}\r\n}\r\n:column{\r\n\t:row{\r\n\t\t:boxed_column{label=\"\u5de6\";\r\n\t\t\t:toggle{label=\"\u6709\u308a\";key=\"t1\";}\r\n\t\t\t:edit_box{label=\"\u30c9\u30a2\u5e45\";key=\"Width1\";}\r\n\t\t}\r\n\t\t\t:boxed_column{label=\"\u53f3\";\r\n\t\t\t:toggle{label=\"\u6709\u308a\";key=\"t2\";}\r\n\t\t\t:edit_box{label=\"\u30c9\u30a2\u5e45\";key=\"Width2\";}\r\n\t\t\t}\r\n\t}\r\n}\r\n:row{\r\n:column{\r\n\t:row{\r\n\t:edit_box{label=\"\u30c9\u30a2\u9ad8\u3055\";key=\"Height1\";edit_width=10;}\r\n\t:edit_box{label=\"\u3072\u3070\u305f\";key=\"Frame1\";edit_width=5;}\r\n\t}\r\n\t:radio_row{label=\"\u633f\u5165\u57fa\u70b9\";key=\"Insertion\";value=\"SD_6200_1\";\r\n\t:radio_button{label=\"\u5de6\";key=\"SD_6200_1\";}\r\n\t:radio_button{label=\"\u53f3\";key=\"SD_6200_2\";}\r\n\t}\r\n\tok_cancel;\r\n\t:text{label=\"\";}\r\n\t:text{label=\"\";}\r\n}\r\n:column{\r\n:radio_column{label=\"\u30ac\u30e9\u30b9\";key=\"glass\";value=\"1\";\r\n\t\t:radio_button{label=\"\u7121\u3057\";key=\"0\";}\r\n\t\t:radio_button{label=\"\u5168\u30ac\u30e9\u30b9\";key=\"1\";}\r\n\t\t:radio_button{label=\"\u4e0a\u306b\u30ac\u30e9\u30b9\";key=\"2\";}\r\n\t\t:radio_button{label=\"\u30b9\u30ea\u30c3\u30c8\u30ac\u30e9\u30b9\";key=\"3\";}\r\n\t}\r\n\t:radio_column{label=\"\u30ac\u30e9\u30ea\";key=\"louver\";value=\"00\";\r\n\t\t:radio_button{label=\"\u7121\u3057\";key=\"00\";}\r\n\t\t:radio_button{label=\"\u4e0b\u306b\u30ac\u30e9\u30ea\";key=\"01\";}\r\n\t\t:radio_button{label=\"\u30b9\u30ea\u30c3\u30c8\u30ac\u30e9\u30ea\";key=\"02\";}\r\n\t}\r\n}\r\n}\r\n}\r\n\r<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"\u6249\u306e\u7acb\u9762\u56f3\u3092\u66f8\u304fAutoLISP\u30b3\u30de\u30f3\u30c9\u3067\u3059\u3002 \u7d30\u304b\u3044\u30d1\u30e9\u30e1\u30fc\u30bf\u306e\u8a2d\u5b9a \u4e21\u958b\u304d\u3067\u3042\u308c\u3070\u4e21\u65b9\u306b\u30c1\u30a7\u30c3\u30af\u3001\u7247\u958b\u304d\u3067\u3042\u308c\u3070\u7247\u65b9\u306b\u30c1\u30a7\u30c3\u30af\u3002\u66f8\u304f\u6249\u306e\u6709\u52b9W\u3092\u6307\u5b9a \u6249\u6709\u52b9\u9ad8\u3055\u3092\u6307\u5b9a \u3053\u3053\u306f\u30d2\u30d0\u30bf\u306e10mm\u3092\u8003\u616e\u3059\u308b\u306e\u3067\u3042\u308c\u307010\u3001 […]","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[86,5],"tags":[],"class_list":["post-3060","post","type-post","status-publish","format-standard","hentry","category-door-elevation","category-toolbar-section-inerior_elevation"],"_links":{"self":[{"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/posts\/3060","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=3060"}],"version-history":[{"count":2,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/posts\/3060\/revisions"}],"predecessor-version":[{"id":3093,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/posts\/3060\/revisions\/3093"}],"wp:attachment":[{"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/media?parent=3060"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/categories?post=3060"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/tags?post=3060"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}