{"id":1763,"date":"2022-09-05T08:54:21","date_gmt":"2022-09-04T23:54:21","guid":{"rendered":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/?p=1763"},"modified":"2022-12-07T03:52:33","modified_gmt":"2022-12-06T18:52:33","slug":"sd_2301","status":"publish","type":"post","link":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/sd_2301\/","title":{"rendered":"[SD_2301] \u901a\u308a\u82af\u3001\u901a\u308a\u82af\u8a18\u53f7\u3001\u5bf8\u6cd5\u3092\u4f5c\u6210"},"content":{"rendered":"\n
\"\"<\/figure>\n\n\n\n

\u901a\u308a\u82af\u3068\u901a\u308a\u82af\u8a18\u53f7\u3068\u5bf8\u6cd5\u3092\u540c\u6642\u306b\u4f5c\u6210\u3059\u308bAutoLISP\u30b3\u30de\u30f3\u30c9\u3067\u3059\u3002<\/p>\n\n\n\n

A<\/td>\u901a\u308a\u82af\u8a18\u53f7\u306e\u30bf\u30a4\u30d7\u3092\u9078\u3073\u307e\u3059\u3002<\/td><\/tr>
B<\/td>\u901a\u308a\u82af\u306e\u9593\u9694\u306f\u3001\u6570\u5b57\u3092\u30ab\u30f3\u30de\u3067\u533a\u5207\u3063\u3066\u5165\u529b\u3057\u307e\u3059\u3002\u7e70\u308a\u8fd4\u3057\u306e\u5834\u5408\u306f5000*3\u306e\u3088\u3046\u306b\u5165\u529b\u3057\u307e\u3059\u3002<\/td><\/tr>
C<\/td>\u6700\u521d\u306e\u901a\u308a\u82af\u306b\u3082\u8a18\u53f7\u3092\u632f\u308b\u304b\u3069\u3046\u304b\u3092\u9078\u3073\u307e\u3059\u3002<\/td><\/tr>
D<\/td>\u5bf8\u6cd5\u3092\u4ed8\u3051\u308b\u4f4d\u7f6e\u3092\u9078\u629e\u3057\u307e\u3059\u3002<\/td><\/tr><\/tbody><\/table><\/figure>\n\n\n\n
\"\"<\/figure>\n\n\n\n

\u3053\u306e\u3088\u3046\u306a\u901a\u308a\u82af\u3068\u5bf8\u6cd5\u304c\u540c\u6642\u306b\u4f5c\u6210\u3055\u308c\u307e\u3059\u3002<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

\u4f7f\u7528\u3055\u308c\u308b\u5bf8\u6cd5\u30b9\u30bf\u30a4\u30eb\u306f\u73fe\u5728\u306e\u5bf8\u6cd5\u30b9\u30bf\u30a4\u30eb\u304c\u4f7f\u7528\u3055\u308c\u307e\u3059\u3002
\u901a\u308a\u82af\u8a18\u53f7\u306e\u5927\u304d\u3055\u306f\u7e2e\u5c3a\uff08USERR1\uff09\u306b\u3088\u3063\u3066\u6c7a\u5b9a\u3055\u308c\u307e\u3059\u3002
\u306a\u304a\u3001\u3053\u306e\u30b3\u30de\u30f3\u30c9\u3067\u4f5c\u6210\u3055\u308c\u305f\u5404\u901a\u308a\u82af\u306b\u306f\u3001XDATA\u304c\u57cb\u3081\u8fbc\u307e\u308c\u3001\u5c55\u958b\u56f3\u30fb\u65ad\u9762\u56f3\u30c4\u30fc\u30eb\u3067\u5c55\u958b\u30fb\u65ad\u9762\u3092\u4f5c\u6210\u3059\u308b\u6642\u306b\u3001\u30d7\u30ed\u30b0\u30e9\u30e0\u304c\u901a\u308a\u82af\u756a\u53f7\u3092\u8a8d\u8b58\u51fa\u6765\u308b\u3088\u3046\u306b\u306a\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n
(defun c:SD_2301 ( \/ PtL1A PtL1B PtLA PtL2B Off_X Off_Y m LastVal \n                    RegVal OffText NewOff ReptOff TLen TotalOffset \n                    x_Axis_option y_Axis_option txt_X txt_Y x_Dim_option y_Dim_option\n                    TextXL TextYL LastObj ObjL GLayer GLayer1 GLayer2 GLayer3)\n\n    (if (= SD:Lang \"E\")\n        (princ \"\\n [SD_2301 ver.20211210] Griline, Grid Number, Dimensions\")\n        (princ \"\\n [SD_2301 ver.20211210] \u901a\u308a\u82af\u30fb\u8a18\u53f7\u30fb\u5bf8\u6cd5\u3092\u4f5c\u308b\")\n    )\n    (princ \"\\n **********************************\")\n\n    (load \"SD_U\")\n    (setq *error* *myerror*)   \n    (OpeningRoutine)\n    \n    (setq GLayer (Get_Layer \"A11\" T))\n    (setq GLayer1 (Get_Layer \"A12\" T))\n    (setq GLayer2 (Get_Layer \"A61\" T))\n    (setq GLayer3 (Get_Layer \"A03S\" T))\n    (setq LastObj (entlast))\n    (show_SD_2301)\n    (setq Off_X (TotalOffset_2301 txt_X))       ;TotalOffset\n    (setq Off_Y (TotalOffset_2301 txt_Y))       ;TotalOffset\n    (PointList_2301)    \n    (Make_Grid_2301 PtL1A PtL1B GLayer nil)\n    (Make_Grid_2301 PtL2A PtL2B GLayer T)\n    (BubblePoint_2301)\n    (PrepareTextL_2301)\n    (setvar \"OSMODE\" 0)\n    (setvar \"CLAYER\" GLayer2)\n    (princ \"\\n x_Dim_option :  \")\n    (princ x_Dim_option)\n    (cond   ((= x_Dim_option \"Top\")\n            (Make_Dims_2301 PtL1B 90.0)\n            (Make_Guide_2301 PtL1B (* 0.5 pi))\n            (Make_Guide_2301 (reverse PtL1B) (* 0.5 pi))\n            (MakeBubble_2301 PtL1B_B (* 0.5 pi) TextXL)\n            )\n            ((= x_Dim_option \"Bottom\")\n            (Make_Dims_2301 PtL1A -90.0)\n            (Make_Guide_2301 PtL1A (* -0.5 pi))\n            (Make_Guide_2301 (reverse PtL1A) (* -0.5 pi))\n            (MakeBubble_2301 PtL1A_B (* -0.5 pi) TextXL)\n            )\n            (T\n            (Make_Dims_2301 PtL1B 90.0)\n            (Make_Dims_2301 PtL1A -90.0)\n            (Make_Guide_2301 PtL1B (* 0.5 pi))\n            (Make_Guide_2301 (reverse PtL1B) (* 0.5 pi))\n            (Make_Guide_2301 PtL1A (* -0.5 pi))\n            (Make_Guide_2301 (reverse PtL1A) (* -0.5 pi))\n            (MakeBubble_2301 PtL1B_B (* 0.5 pi) TextXL)\n            (MakeBubble_2301 PtL1A_B (* -0.5 pi) TextXL)\n            )\n    )\n    (cond   ((= y_Dim_option \"Left\")\n            (Make_Dims_2301 PtL2A 180.0)\n            (Make_Guide_2301 PtL2A (* -1.0 pi))\n            (Make_Guide_2301 (reverse PtL2A) (* -1.0 pi))\n            (MakeBubble_2301 PtL2A_B (* -1.0 pi) TextYL)\n            )\n            ((= y_Dim_option \"Right\")\n            (Make_Dims_2301 PtL2B 0.0)\n            (Make_Guide_2301 PtL2B 0.0)\n            (Make_Guide_2301 (reverse PtL2B) 0.0)\n            (MakeBubble_2301 PtL2B_B 0.0 TextYL)\n            )\n            (T\n            (Make_Dims_2301 PtL2A 180.0)\n            (Make_Dims_2301 PtL2B 0.0)\n            (Make_Guide_2301 PtL2A (* -1.0 pi))\n            (Make_Guide_2301 (reverse PtL2A) (* -1.0 pi))\n            (Make_Guide_2301 PtL2B 0.0)\n            (Make_Guide_2301 (reverse PtL2B) 0.0)\n            (MakeBubble_2301 PtL2A_B (* -1.0 pi) TextYL)\n            (MakeBubble_2301 PtL2B_B 0.0 TextYL)\n            )\n    )\n    (MakeBlock_2301)\n    (write_Reg_SD_2301) \n    (ClosingRoutine)\n    (setq *error* nil)\n    (princ)\n)\n    \n\n;*********MakeBlock_2301\n(defun MakeBlock_2301()\n    (if LastObj \n        (setq ObjL (list (setq ObjName(entnext LastObj))))\n        (setq ObjL (list (setq ObjName(entnext))))\n    )\n    (while ObjName\n        (if (setq ObjName (entnext ObjName))\n            (setq ObjL (cons ObjName ObjL))\n        )\n    )\n        \n        \n    (setq ObjL (reverse ObjL))\n    (setvar \"expert\" 5)\n    (setvar \"OSMODE\" 183)\n    (command \".Block\" \"SDTemp\" \"0,0\")\n    (mapcar 'command ObjL)\n    (command \"\")\n    (command \".insert\" \"SDTemp\" \"S\" 1.0 pause 0.0)\n    (command \"._explode\" \"L\" )\n    \n)\n;*********PrepareTextL\n(defun PrepareTextL_2301()\n    (cond   ((= x_Axis_option \"opt_Txt_X\")\n                (setq m 1)\n                (repeat (length PtL1A_B)\n                    (setq TextXL (cons (strcat \"X\" (itoa m)) TextXL))\n                    (setq m (1+ m))\n                )\n            )\n            ((= x_Axis_option \"opt_Num_X\")\n                (setq m 1)\n                (repeat (length PtL1A_B)\n                    (setq TextXL (cons (itoa m) TextXL))\n                    (setq m (1+ m))\n                )\n            )\n    )\n    (setq TextXL (reverse TextXL))\n    (cond   ((= y_Axis_option \"opt_Txt_Y\")\n                (setq m 1)\n                (repeat (length PtL2A_B)\n                    (setq TextYL (cons (strcat \"Y\" (itoa m)) TextYL))\n                    (setq m (1+ m))\n                )\n            )\n            ((= y_Axis_option \"F\")\n                (setq m 1)\n                (repeat (length PtL2A_B)\n                    (setq TextYL (cons (strcat (itoa m) \"F\") TextYL))\n                    (setq m (1+ m))\n                )\n            )\n            ((= y_Axis_option \"FL\")\n                (setq m 1)\n                (repeat (length PtL2A_B)\n                    (setq TextYL (cons (strcat (itoa m) \"FL\") TextYL))\n                    (setq m (1+ m))\n                )\n            )\n            ((= y_Axis_option \"opt_Num_Y\")\n                (setq m 65)\n                (repeat (length PtL2A_B)\n                    (setq TextYL (cons (chr m) TextYL))\n                    (setq m (1+ m))\n                )\n            )\n    )\n    (setq TextYL (reverse TextYL))\n)\n;*********Text\n(defun MakeText_2301(WordList  PointList )\n    (mapcar '(lambda(x y)(SD:MakeText x y (* 3.0 (getvar \"userr1\")) 0.0 GLayer2))\n            WordList PointList\n    )\n)\n;*********BubblePoint\n(defun BubblePoint_2301()\n    (setq   PtL1A_B PtL1A\n            PtL1B_B PtL1B\n            PtL2A_B PtL2A\n            PtL2B_B PtL2B\n    )\n    (if (= 1stX \"0\")(setq PtL1A_B (cdr PtL1A)))\n    (if (= LastX \"0\")(setq PtL1A_B (reverse (cdr (reverse PtL1A_B)))))\n    (if (= 1stX \"0\")(setq PtL1B_B (cdr PtL1B)))\n    (if (= LastX \"0\")(setq PtL1B_B (reverse (cdr (reverse PtL1B_B)))))\n\n    (if (= 1stY \"0\")(setq PtL2A_B (cdr PtL2A)))\n    (if (= LastY \"0\")(setq PtL2A_B (reverse (cdr (reverse PtL2A_B)))))\n    (if (= 1stY \"0\")(setq PtL2B_B (cdr PtL2B)))\n    (if (= LastY \"0\")(setq PtL2B_B (reverse (cdr (reverse PtL2B_B)))))\n    \n)\n;*********Make Bubble&Text\n(defun MakeBubble_2301(PointList Ang4 WordList)\n    (setq CenL (mapcar '(lambda(x)(polar x Ang4 (* (getvar \"userr1\") 32.0))) PointList))\n    (mapcar '(lambda(x)(SD:MakeCircle x (* (getvar \"userr1\") 4.0) GLayer2)) CenL)\n    (mapcar '(lambda(x y)(SD:MakeText x y (* 3.0 (getvar \"userr1\")) 0.0 GLayer2))\n            WordList CenL\n    )\n)\n\n\n;*********Draw Guide Line\n(defun Make_Guide_2301 ( PointList Ang2)\n    (SD:MakeLine \n        (setq p1 (car PointList))\n        (polar  (car PointList) (setq Ang3 (+ pi (angle (car PointList)(car (reverse PointList)))))(* (getvar \"userr1\") 20.0)) \n        GLayer3\n    )\n    (repeat 3\n        (SD:MakeLine \n            (setq p1 (polar p1 Ang2 (* (getvar \"userr1\") 7.0)))\n            (polar  p1 Ang3 (* (getvar \"userr1\") 20.0)) \n            GLayer3\n        )\n    )\n)\n;*********Draw Dims\n(defun Make_Dims_2301(PointList Ang1)\n    (mapcar '(lambda (x y)\n\t(if (< (atoi (getvar \"acadver\")) 20)\n        \t\t(command \"dimrotated\" (- Ang1 90.0) x y (polar (car PointList) (* pi (\/ Ang1 180.0)) (*  (getvar \"userr1\") 14.0)))\n\t\t(command-s \"dimrotated\" (- Ang1 90.0) x y (polar (car PointList) (* pi (\/ Ang1 180.0)) (*  (getvar \"userr1\") 14.0)))))\n        PointList (cdr PointList)\n    )\n    (command \"dimrotated\" \n        (- Ang1 90.0) (car PointList) (car(reverse PointList))(polar (car PointList) (* pi (\/ Ang1 180.0)) (*  (getvar \"userr1\") 21.0))\n    )\n)\n\n;*********Point List\n(defun PointList_2301()\n    ;X\n    (setq PtL1A (list (list  0 (* -40.0 (getvar \"userr1\")))))\n    (setq    m 0\n            LastVal 0.0\n    )\n    (repeat (length (nth 0 Off_X))\n        (setq PtL1A (cons (list (setq LastVal (+ LastVal (nth m (nth 0 Off_X))))(* -40.0 (getvar \"userr1\"))) PtL1A))\n        (setq m (1+ m))\n    )\n    \n    (setq PtL1A (reverse PtL1A))\n    (setq theY (+ (nth 2 Off_Y)(* 40.0 (getvar \"userr1\"))))\n    (setq PtL1B (mapcar '(lambda(x)(list (car x) theY)) PtL1A))\n    ;Y\n    (setq PtL2A (list (list  (* -40.0 (getvar \"userr1\")) 0)))\n    (setq    m 0\n            LastVal 0.0\n    )\n    (repeat (length (nth 0 Off_Y))\n        (setq PtL2A (cons (list (* -40.0 (getvar \"userr1\")) (setq LastVal (+ LastVal (nth m (nth 0 Off_Y))))) PtL2A))\n        (setq m (1+ m))\n    )\n    (setq PtL2A (reverse PtL2A))\n    (setq theX (+ (nth 2 Off_X)(* 40.0 (getvar \"userr1\"))))\n    (setq PtL2B (mapcar '(lambda(x)(list theX (cadr x) )) PtL2A))\n    \n)\n;*********Draw Grids\n(defun Make_Grid_2301( PointListA PointListB theLayer flag \/ namlst m)\n    (setq namlst (mapcar '(lambda(x y)(SD:MakeLine x y theLayer)) PointListA PointListB))\n    (if flag\n        (progn\n            (if (= 1stY \"0\")(command \"chprop\" (car namlst) \"\" \"la\" GLayer1 \"\"))\n            (if (= LastY \"0\")(command \"chprop\" (last namlst) \"\" \"la\" GLayer1 \"\"))\n        )\n        (progn\n            (if (= 1stX \"0\")(command \"chprop\" (car namlst) \"\" \"la\" GLayer1 \"\"))\n            (if (= LastX \"0\")(command \"chprop\" (last namlst) \"\" \"la\" GLayer1 \"\"))\n        )\n    )\n\t(if (null (tblsearch \"APPID\" \"Grid\"))(regapp \"Grid\"))\n\t(if flag (setq str1 \"Y\")(setq str1 \"X\"))\n\t(setq m 0)\n\t;(princ \"\\nnamlst: \")(princ namlst)\n\t(mapcar '(lambda (x)(entmod (append (entget x)(list (list -3 (list \"Grid\" (cons 1000 (strcat str1 (itoa (setq m (1+ m))))))))))) namlst)\n)\n;*********\n(defun TotalOffset_2301( OffText \/ NewOff RegVal)\n    (setq RegVal \"\")\n    (setq OffText (SD4958 OffText))\n    (setq OffText (y_str_separate \",\" OffText))\n    (foreach item OffText\n        (if (vl-string-position (ascii \"*\") item)\n            (progn\n                (setq ReptOff (y_str_separate \"*\" Item))\n                (repeat (atoi (cadr ReptOff))\n                    (setq NewOff (cons (distof (car ReptOff)2) NewOff))\n                )\n                (setq RegVal (strcat RegVal \",\" item))\n            )\n            (progn\n                (setq NewOff (cons (if (distof item 2) (distof item 2) 0.0) NewOff))\n                (if (distof item 2)(setq RegVal (strcat RegVal \",\" item)))\n            )\n        )\n    )\n    (setq NewOff (reverse NewOff))\n    (setq RegVal (vl-string-left-trim \",\" RegVal))\n    (setq TLen 0.0)\n    (foreach Item NewOff\n        (setq TLen (+ TLen item ))\n    )\n    (setq TotalOffset (list NewOff RegVal TLen))\n    TotalOffset\n)\n\n;;;;*********;Save Registry\n(defun write_Reg_SD_2301 ()\n  (vl-registry-write Path_2301 \"x_Axis_option\" x_Axis_option)\n  (vl-registry-write Path_2301 \"txt_X\" (nth 1 Off_X))\n  (vl-registry-write Path_2301 \"x_Dim_option\" x_Dim_option)\n  (vl-registry-write Path_2301 \"y_Axis_option\" y_Axis_option)\n  (vl-registry-write Path_2301 \"txt_Y\" (nth 1 Off_Y))\n  (vl-registry-write Path_2301 \"y_Dim_option\" y_Dim_option)\n  (vl-registry-write Path_2301 \"1stX\" 1stX)\n  (vl-registry-write Path_2301 \"LastX\" LastX)\n  (vl-registry-write Path_2301 \"1stY\" 1stY)\n  (vl-registry-write Path_2301 \"LastY\" LastY)\n)\n\n;;;;*****************;Read Registry\n(defun read_Reg_SD_2301 ()\n  (setq Path_2301\n         \"HKEY_CURRENT_USER\\\\Software\\\\SpeedDraft\\\\SD_2301\")\n  (if (vl-registry-read Path_2301 \"x_Axis_option\")\n    (setq x_Axis_option (vl-registry-read Path_2301 \"x_Axis_option\"))\n    (setq x_Axis_option \"opt_Txt_X\")\n  )\n  (if (vl-registry-read Path_2301 \"txt_X\")\n    (setq txt_X (vl-registry-read Path_2301 \"txt_X\"))\n    (setq txt_X \"400,6300,5500*3,400\")\n  )\n\n  (if (vl-registry-read Path_2301 \"x_Dim_option\")\n    (setq x_Dim_option (vl-registry-read Path_2301 \"x_Dim_option\"))\n    (setq x_Dim_option \"Top\")\n  )\n\n  (if (vl-registry-read Path_2301 \"y_Axis_option\")\n    (setq y_Axis_option (vl-registry-read Path_2301 \"y_Axis_option\"))\n    (setq y_Axis_option \"opt_Txt_Y\")\n  )\n\n  (if (vl-registry-read Path_2301 \"txt_Y\")\n    (setq txt_Y (vl-registry-read Path_2301 \"txt_Y\"))\n    (setq txt_Y \"300,5000*4,500\")\n  )\n\n  (if (vl-registry-read Path_2301 \"y_Dim_option\")\n    (setq y_Dim_option (vl-registry-read Path_2301 \"y_Dim_option\"))\n    (setq y_Dim_option \"Left\")\n  )\n  \n  (if (vl-registry-read Path_2301 \"1stX\")\n    (setq 1stX (vl-registry-read Path_2301 \"1stX\"))\n    (setq 1stX \"0\")\n  )\n  (if (vl-registry-read Path_2301 \"LastX\")\n    (setq LastX (vl-registry-read Path_2301 \"LastX\"))\n    (setq LastX \"\")\n  )\n  (if (vl-registry-read Path_2301 \"1stY\")\n    (setq 1stY (vl-registry-read Path_2301 \"1stY\"))\n    (setq 1stY \"0\")\n  )\n  (if (vl-registry-read Path_2301 \"LastY\")\n    (setq LastY (vl-registry-read Path_2301 \"LastY\"))\n    (setq LastY \"0\")\n  )\n)\n\n ;*******;Show Dialogue\n(defun show_SD_2301 ()\n    (setq dcl_id (load_dialog \"SD_2301.dcl\"))\n    (if (= SD:Lang \"E\")\n        (new_dialog \"SD_2301\" dcl_id)\n        (new_dialog \"SD_2301_J\" dcl_id)\n    )\n\n    (read_Reg_SD_2301)\n\n    (set_tile \"x_Axis_option\" x_Axis_option)\n    (set_tile \"y_Axis_option\" y_Axis_option)\n    (set_tile \"txt_X\" txt_X)\n    (set_tile \"txt_Y\" txt_Y)\n    (set_tile x_Dim_option \"1\")\n    (set_tile y_Dim_option \"1\")\n    (set_tile \"1stX\" 1stX)\n    (set_tile \"LastX\" LastX)\n    (set_tile \"1stY\" 1stY)\n    (set_tile \"LastY\" LastY)    \n\n    (action_tile \"accept\" \"(get_data_2301)(done_dialog 1)\")\n    (action_tile \"cancel\" \"(done_dialog 0)\")\n    (setq Act (start_dialog))\n    (unload_dialog dcl_id)\n    (if (= Act 0)(exit))\n)\n ;*****************\n(defun get_data_2301 ()\n  (setq x_Axis_option (get_tile \"x_Axis_option\")\n        y_Axis_option (get_tile \"y_Axis_option\")\n        txt_X         (get_tile \"txt_X\")\n        txt_Y         (get_tile \"txt_Y\")\n        x_Dim_option  (get_tile \"x_Dim_option\")\n        y_Dim_option  (get_tile \"y_Dim_option\")\n        1stX        (get_tile  \"1stX\")\n        LastX       (get_tile  \"LastX\")\n        1stY        (get_tile  \"1stY\")\n        LastY       (get_tile  \"LastY\")     \n  )\n)\n(princ )\n<\/code><\/pre>\n\n\n\n
SD_2301:dialog{initial_focus=\"txt_X\";label = \"Create Plan Gridlines\";\r\n  :column{\r\n     :row{\r\n           :column{label = \"X- Axis\";\r\n              :spacer {}\r\n              width = 40;\r\n              : radio_row {label = \"Mark\";alignment = centered ;fixed_width = true;width = 38; key = \"x_Axis_option\";\r\n              : radio_button {label = \"X\"; key = \"opt_Txt_X\";} \r\n              : radio_button { label = \"1\"; key = \"opt_Num_X\";}\r\n              }\r\n              :spacer {}\r\n              :column{label = \"Offset Values\";fixed_width = true;width = 38;alignment = centered ;: text { value = \"e.g.400,6300,5500*3,400\";}\r\n              :edit_box{allow_accept=true;key=\"txt_X\";allow_accept=true;edit_width=34;fixed_width=true;}\r\n              :toggle{key=\"1stX\";label=\"Add Bubble on 1st Gridline\";}\r\n              :toggle{key=\"LastX\";label=\"Add Bubble on Last Gridline\";}\r\n              :spacer {}\r\n              }\r\n              :spacer {}\r\n              : radio_row {key = \"x_Dim_option\";label = \"Location of Dimension\";fixed_width = true;width = 38;alignment = centered ;\r\n              : radio_button {label = \"Top\"; key = \"Top\";} \r\n              : radio_button { label = \"Bottom\"; key = \"Bottom\";}\r\n              : radio_button { label = \"Both\"; key = \"X_Both\";}\r\n              }\r\n              :spacer {}\r\n           }\r\n        :spacer {}\r\n              :column{\r\n              label = \"Y- Axis\";\r\n              :spacer {}\r\n              width = 40;\r\n              : radio_row {key = \"y_Axis_option\";label = \"Mark\";alignment = centered ;fixed_width = true;width = 38;\r\n              : radio_button {label = \"Y\"; key = \"opt_Txt_Y\";} \r\n              : radio_button { label = \"A\"; key = \"opt_Num_Y\";}\r\n              }\r\n              :spacer {}\r\n              :column{label = \"Offset Values\";fixed_width = true;width = 38;alignment = centered ;\r\n              : text { value = \"e.g.300,5000*4,500\";}\r\n              :edit_box{key=\"txt_Y\";allow_accept=true;edit_width=34;fixed_width=true;}\r\n              :toggle{key=\"1stY\";label=\"Add Bubble on 1st Gridline\";}\r\n              :toggle{key=\"LastY\";label=\"Add Bubble on Last Gridline\";}\r\n              :spacer {}\r\n              }\r\n              :spacer {}\r\n              : radio_row {label = \"Location of Dimension\";fixed_width = true;width = 38;alignment = centered ; key = \"y_Dim_option\";\r\n              : radio_button {label = \"Left\"; key = \"Left\";} \r\n              : radio_button { label = \"Right\"; key = \"Right\";}\r\n              : radio_button { label = \"Both\"; key = \"Y_Both\";}\r\n              }\r\n              :spacer {}\r\n              }\r\n        }\r\n      ok_cancel;\r\n  }\r\n}\r\n\r\n\r\nSD_2301_J:dialog{initial_focus=\"txt_X\";label = \"\u901a\u308a\u82af\u4f5c\u6210\";\r\n  :column{\r\n     :row{\r\n           :column{label = \"X- Axis\";\r\n              :spacer {}\r\n              width = 40;\r\n              : radio_row {label = \"\u901a\u308a\u82af\u8a18\u53f7\";alignment = centered ;fixed_width = true;width = 38; key = \"x_Axis_option\";\r\n              : radio_button {label = \"X\"; key = \"opt_Txt_X\";} \r\n              : radio_button { label = \"1\"; key = \"opt_Num_X\";}\r\n              }\r\n              :spacer {}\r\n              :column{label = \"\u901a\u308a\u82af\u9593\u9694\";fixed_width = true;width = 38;alignment = centered ;\r\n              : text { value = \"\u4f8b\uff1a400,6300,5500*3,400\";}\r\n              :edit_box{allow_accept=true;key=\"txt_X\";allow_accept=true;edit_width=34;fixed_width=true;}\r\n              :toggle{key=\"1stX\";label=\"\u6700\u521d\u306e\u901a\u308a\u82af\u306b\u3082\u8a18\u53f7\u3092\u4ed8\u3051\u308b\";}\r\n              :toggle{key=\"LastX\";label=\"\u6700\u5f8c\u306e\u901a\u308a\u82af\u306b\u3082\u8a18\u53f7\u3092\u4ed8\u3051\u308b\";}\r\n              :spacer {}\r\n              }\r\n              :spacer {}\r\n              : radio_row {key = \"x_Dim_option\";label = \"\u5bf8\u6cd5\u3092\u3064\u3051\u308b\u4f4d\u7f6e\";fixed_width = true;width = 38;alignment = centered ;\r\n              : radio_button {label = \"\u4e0a\"; key = \"Top\";} \r\n              : radio_button { label = \"\u4e0b\"; key = \"Bottom\";}\r\n              : radio_button { label = \"\u4e21\u65b9\"; key = \"X_Both\";}\r\n              }\r\n              :spacer {}\r\n           }\r\n        :spacer {}\r\n              :column{\r\n              label = \"Y- Axis\";\r\n              :spacer {}\r\n              width = 40;\r\n              : radio_row {key = \"y_Axis_option\";label = \"\u7b26\u53f7\";alignment = centered ;fixed_width = true;width = 38;\r\n              : radio_button {label = \"Y\"; key = \"opt_Txt_Y\";} \r\n              : radio_button { label = \"A\"; key = \"opt_Num_Y\";}\r\n              }\r\n              :spacer {}\r\n              :column{label = \"\u901a\u308a\u82af\u9593\u9694\";fixed_width = true;width = 38;alignment = centered ;\r\n              : text { value = \"\u4f8b\uff1a300,5000*4,500\";}\r\n              :edit_box{key=\"txt_Y\";allow_accept=true;edit_width=34;fixed_width=true;}\r\n              :toggle{key=\"1stY\";label=\"\u6700\u521d\u306e\u901a\u308a\u82af\u306b\u3082\u8a18\u53f7\u3092\u4ed8\u3051\u308b\";}\r\n              :toggle{key=\"LastY\";label=\"\u6700\u5f8c\u306e\u901a\u308a\u82af\u306b\u3082\u8a18\u53f7\u3092\u4ed8\u3051\u308b\";}\r\n              :spacer {}\r\n              }\r\n              :spacer {}\r\n              : radio_row {label = \"\u5bf8\u6cd5\u3092\u3064\u3051\u308b\u4f4d\u7f6e\";fixed_width = true;width = 38;alignment = centered ; key = \"y_Dim_option\";\r\n              : radio_button {label = \"\u5de6\"; key = \"Left\";} \r\n              : radio_button { label = \"\u53f3\"; key = \"Right\";}\r\n              : radio_button { label = \"\u4e21\u65b9\"; key = \"Y_Both\";}\r\n              }\r\n              :spacer {}\r\n              }\r\n        }\r\n      ok_cancel;\r\n  }\r\n}\r\n<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"\u901a\u308a\u82af\u3068\u901a\u308a\u82af\u8a18\u53f7\u3068\u5bf8\u6cd5\u3092\u540c\u6642\u306b\u4f5c\u6210\u3059\u308bAutoLISP\u30b3\u30de\u30f3\u30c9\u3067\u3059\u3002 A \u901a\u308a\u82af\u8a18\u53f7\u306e\u30bf\u30a4\u30d7\u3092\u9078\u3073\u307e\u3059\u3002 B \u901a\u308a\u82af\u306e\u9593\u9694\u306f\u3001\u6570\u5b57\u3092\u30ab\u30f3\u30de\u3067\u533a\u5207\u3063\u3066\u5165\u529b\u3057\u307e\u3059\u3002\u7e70\u308a\u8fd4\u3057\u306e\u5834\u5408\u306f5000*3\u306e\u3088\u3046\u306b\u5165\u529b\u3057\u307e\u3059\u3002 C \u6700\u521d […]","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3,38],"tags":[],"class_list":["post-1763","post","type-post","status-publish","format-standard","hentry","category-toolbar-floor-plan","category-grid-line-toolbar"],"_links":{"self":[{"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/posts\/1763","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=1763"}],"version-history":[{"count":5,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/posts\/1763\/revisions"}],"predecessor-version":[{"id":2997,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/posts\/1763\/revisions\/2997"}],"wp:attachment":[{"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/media?parent=1763"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/categories?post=1763"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/tags?post=1763"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}