{"id":2872,"date":"2022-11-24T03:29:01","date_gmt":"2022-11-23T18:29:01","guid":{"rendered":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/?p=2872"},"modified":"2022-12-16T04:54:10","modified_gmt":"2022-12-15T19:54:10","slug":"sd_6303","status":"publish","type":"post","link":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/sd_6303\/","title":{"rendered":"[SD_6303] \u65ad\u9762\u56f3\u81ea\u52d5\u4f5c\u6210"},"content":{"rendered":"\n
\"\"<\/figure>\n\n\n\n

\u4e26\u3093\u3060\u5e73\u9762\u56f3\u304b\u3089\u65ad\u9762\u306e\u4e0b\u66f8\u304d\u7dda\u3092\u4f5c\u6210\u3059\u308bAutoLISP\u30b3\u30de\u30f3\u30c9\u3067\u3059\u3002<\/p>\n\n\n\n

\u3053\u306e\u3088\u3046\u306b\u5e73\u9762\u56f3\u30921\u968e\u304b\u30894\u968e\u307e\u3067\u4e26\u3079\u307e\u3059\u3002\u5e73\u9762\u56f3\u306f\u3001\u7e26\u306b\u4e26\u3093\u3067\u3044\u3066\u3082\u3001\u6a2a\u306b\u4e26\u3093\u3067\u3044\u3066\u3082\u69cb\u3044\u307e\u305b\u3093\u3002
\u30b3\u30de\u30f3\u30c9\u8d77\u52d5\u5f8c\u3001\u57fa\u70b9\u3092\u805e\u304b\u308c\u307e\u3059\u306e\u3067\u3001\u5404\u5e73\u9762\u56f3\u306e\u57fa\u70b9\u3092\u9806\u306b\u30af\u30ea\u30c3\u30af\u3057\u3066\u304f\u3060\u3055\u3044\u3002\u57fa\u70b9\u306f\u3069\u3053\u3067\u3082\u69cb\u3044\u307e\u305b\u3093\u304c\u3001\u5404\u56f3\u9762\u3067\u540c\u3058\u57fa\u6e96\u70b9\u306b\u306a\u308b\u3088\u3046\u306b\u3057\u3066\u304f\u3060\u3055\u3044\u3002\u4f8b\u3048\u30701\u968e\u3067X1\u901a\u308a\u3068Y1\u901a\u308a\u306e\u4ea4\u70b9\u3092\u30af\u30ea\u30c3\u30af\u3057\u305f\u306e\u3067\u3042\u308c\u3070\u3001\u4ed6\u306e\u5168\u3066\u306e\u968e\u3067\u540c\u3058\u3088\u3046\u306bX1\u901a\u308a\u3068Y1\u901a\u308a\u306e\u4ea4\u70b9\u3092\u30af\u30ea\u30c3\u30af\u3057\u3066\u304f\u3060\u3055\u3044\u3002\u305d\u306e\u57fa\u70b9\u3092\u5143\u306b\u3001\u65ad\u9762\u56f3\u3092\u4f5c\u6210\u3057\u307e\u3059\u3002<\/p>\n\n\n\n

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

\u305d\u306e\u5f8c\u3001\u5207\u65ad\u7dda\u3092\u805e\u304b\u308c\u307e\u3059\u306e\u3067\u30011\u968e\u5e73\u9762\u56f3\u306b\u66f8\u304b\u308c\u305f\u5207\u65ad\u7dda\uff08\u30dd\u30ea\u30e9\u30a4\u30f3\u306b\u9650\u308a\u307e\u3059\uff09\u3092\u30af\u30ea\u30c3\u30af\u3057\u3066\u304f\u3060\u3055\u3044\u3002\u5207\u65ad\u7dda\u306f\u3001\u9014\u4e2d\u3067\u96c1\u884c\u3057\u3066\u3082\u69cb\u3044\u307e\u305b\u3093\u3002\u5207\u65ad\u7dda\u306f1\u968e\u3060\u3051\u306b\u66f8\u3044\u3066\u3042\u308c\u3070OK\u3067\u3059\u3002\u4ed6\u306e\u968e\u306f\u30011\u968e\u3068\u540c\u3058\u4f4d\u7f6e\u3067\u5207\u65ad\u3057\u307e\u3059\u3002<\/p>\n\n\n\n

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

\u5207\u65ad\u65b9\u5411\u3092\u805e\u304b\u308c\u307e\u3059\u306e\u3067\u9078\u629e<\/p>\n\n\n\n

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

\u5207\u65ad\u3059\u308b\u30ec\u30a4\u30e4\u30fc\u3092\u805e\u304b\u308c\u307e\u3059\u306e\u3067\u3001\u5165\u529b\u3057\u3066\u304f\u3060\u3055\u3044\u3002\u901a\u308a\u82af\u30fb\u58c1\u82af\u3068\u3057\u3066\uff13\u30ec\u30a4\u30e4\u30fc\u3001\u5207\u65ad\u3059\u308b\u58c1\u306e\u7dda\u3068\u3057\u3066\uff13\u30ec\u30a4\u30e4\u30fc\u307e\u3067\u6307\u5b9a\u53ef\u80fd\u3067\u3059\u3002<\/p>\n\n\n\n

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

\u3053\u306e\u3088\u3046\u306a\u65ad\u9762\u56f3\u304c\u30de\u30a6\u30b9\u30dd\u30a4\u30f3\u30bf\u306b\u304f\u3063\u3064\u3044\u3066\u304f\u308b\u306e\u3067\u3001\u633f\u5165\u70b9\u3092\u30af\u30ea\u30c3\u30af\u3057\u3066\u304f\u3060\u3055\u3044\u3002
\u3082\u3057\u56f3\u5f62\u304c\u73fe\u308c\u306a\u3051\u308c\u3070\u3001Ctrl-V\u3067\u56f3\u5f62\u304c\u3067\u3066\u304d\u307e\u3059\u3002<\/p>\n\n\n\n

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

\u901a\u308a\u82af\u756a\u53f7\u306f\u3001\u901a\u308a\u5fc3\u4f3c\u57cb\u3081\u8fbc\u307e\u308c\u305fXDATA\u3092\u8aad\u307f\u8fbc\u3093\u3067\u3001\u81ea\u52d5\u3067\u8868\u793a\u3057\u307e\u3059\u3002
\u968e\u9ad8\u306f\u30c7\u30d5\u30a9\u30eb\u30c8\u304c4,000\u3067\u3053\u308c\u306f\u5909\u66f4\u3067\u304d\u307e\u305b\u3093\u306e\u3067\u3001\u624b\u52d5\u3067\u30b9\u30c8\u30ec\u30c3\u30c1\u3057\u3066\u304f\u3060\u3055\u3044\u3002
\u901a\u308a\u82af\u306b\u756a\u53f7\u3092\u57cb\u3081\u8fbc\u3080\u30b3\u30de\u30f3\u30c9\u306f\u3053\u3061\u3089

\n \n
\n \n <\/div>\n <\/a>\n
\n 2022.11.24<\/span>\n
\n [SD_6301] \u901a\u308a\u82af\u306bXDATA\u3092\u4ed8\u52a0<\/a>\n <\/div>\n
\n\n\n\n\n\u901a\u308a\u82af\u306e\u7dda\u5206\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u3001\u901a\u308a\u82af\u756a\u53f7\u306e\u60c5\u5831\u3092\u57cb\u3081\u8fbc\u307f\u307e\u3059\u3002\u60c5\u5831\u306fXDATA\u3068\u3044\u3046\u6a5f\u80fd\u3092\u4f7f\u3063\u3066\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u66f8\u304d\u8fbc\u307e\u308c\u307e\u3059\u3002\u30c7\u30fc\u30bf...<\/span><\/div>\n <\/div>\n
<\/div>\n <\/div>\n<\/p>\n\n\n\n

AutoLISP\u30bd\u30fc\u30b9<\/h2>\n\n\n\n
(defun c:SD_6303 (\/ num0 p1 lst0 lst1 lst2 lst3 lst4 lst5 lst6 lst7 ss1 ss2 ss3 ss4 eb1 eb2 eb3 eb4 eb5 eb6 eb7 eb8 eb9 eb10 eb11 str1 dcl act rc fil1 obj1 obj2 Lay_Cen Lay_Cen2 Lay_Dim Lay_Txt1 Lay_Txt2 or1 num1 num2 num3 flag)\r\n  (if (= SD:Lang \"E\")\r\n    (princ \"\\n [SD_6303 ver.20221214]Section Generator\")\r\n    (princ \"\\n [SD_6303 ver.20221214]\u65ad\u9762\u56f3\u81ea\u52d5\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 second previous command to embed the grid number in each lines.\")\r\n    (alert \"\\n 2\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\u81ea\u52d5\u3067\u901a\u308a\u82af\u7b26\u53f7\u3092\u4f5c\u56f3\u53ef\u80fd\u3067\u3059\"))\r\n\r\n  (while (setq p1 (if p1 (getpoint p1 (if (= SD:Lang \"E\") \"\\nSpecify base point: \" \"\\n\u6b21\u306e\u56f3\u9762\u306e\u57fa\u70b9\u3092\u6307\u793a: \"))(getpoint (if (= SD:Lang \"E\") \"\\nSpecify base point: \" \"\\n\u5207\u65ad\u7dda\u304c\u66f8\u304b\u308c\u305f\u6700\u521d\u306e\u56f3\u9762\u306e\u57fa\u70b9\u3092\u6307\u793a: \"))))\r\n    (setq lst0 (cons p1 lst0)))\r\n  (setq lst0 (reverse lst0))\r\n  (if (= SD:Lang \"E\")(princ \"\\nSelect cutting lines: \")(princ \"\\n\u5207\u65ad\u7dda\u3092\u9078\u629e: \"))\r\n  (setq ss1 (ssget \":S\" '((0 . \"LWPolyline\"))))\r\n\r\n  (setq  Path1 \"HKEY_CURRENT_USER\\\\Software\\\\SpeedDraft\\\\SD_6303\"\r\n    str1 (strcat (getvar \"tempprefix\") \"SD_6303.dcl\"))\r\n\r\n  (dialog1)\r\n  (if (= act 1)(progn (vl-registry-write Path1 \"rc\" rc)(dialog2)))\r\n  (if (= act 1)(do_6303))\r\n\r\n  (ClosingRoutine)\r\n  (setq *error* nil)\r\n  (princ)\r\n(princ)\r\n)\r\n(defun dialog1 ()\r\n  (setq fil1 (open str1 \"w\"))\r\n  (write-line (strcat \"SD_6303: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_6303\" 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)\r\n\r\n(defun dialog2 ()\r\n  (setq fil1 (open str1 \"w\"))\r\n  (write-line (strcat \"SD_6303:dialog{label=\\\"\" (if (= SD:Lang \"E\") \"Select lines\" \"\u7dda\u5206\u3092\u9078\u629e\") \"\\\";\") fil1)\r\n  (write-line (strcat \":text{value=\\\"\" (if (= SD:Lang \"E\") \"Wall center layer to show\" \"\u8868\u793a\u3059\u308b\u58c1\u82af\u306e\u30ec\u30a4\u30e4\u30fc\") \"\\\";key=t1;}\") fil1)\r\n  (write-line \":row{\" fil1)\r\n  (write-line \":edit_box{key=ebb1;}\" fil1)\r\n  (write-line \":button{label=\\\"...\\\";key=b1;}}\" fil1)\r\n  (write-line \":row{\" fil1)\r\n  (write-line \":edit_box{key=ebb2;}\" fil1)\r\n  (write-line \":button{label=\\\"...\\\";key=b2;}}\" fil1)\r\n  (write-line \":row{\" fil1)\r\n  (write-line \":edit_box{key=ebb3;}\" fil1)\r\n  (write-line \":button{label=\\\"...\\\";key=b3;}}\" fil1)\r\n  (write-line (strcat \":text{value=\\\"\" (if (= SD:Lang \"E\") \"Wall layer to show\" \"\u8868\u793a\u3059\u308b\u58c1\u306e\u30ec\u30a4\u30e4\u30fc\") \"\\\";key=t2;}\") fil1)\r\n  (write-line \":row{\" fil1)\r\n  (write-line \":edit_box{key=ebb4;}\" fil1)\r\n  (write-line \":button{label=\\\"...\\\";key=b4;}}\" fil1)\r\n  (write-line \":row{\" fil1)\r\n  (write-line \":edit_box{key=ebb5;}\" fil1)\r\n  (write-line \":button{label=\\\"...\\\";key=b5;}}\" fil1)\r\n  (write-line \":row{\" fil1)\r\n  (write-line \":edit_box{key=ebb6;}\" fil1)\r\n  (write-line \":button{label=\\\"...\\\";key=b6;}}\" fil1)\r\n  (write-line \"ok_cancel;}\" fil1)\r\n  (close fil1)\r\n\r\n  (mapcar '(lambda (x y)(if (null (set (read x)(vl-registry-read Path1 x)))(set (read x) y)))(setq lst1 '(\"ebb1\" \"ebb2\" \"ebb3\" \"ebb4\" \"ebb5\" \"ebb6\"))'(\"A12\" \"A12\" \"A12\" \"A31\" \"A21\" \"A22\"))\r\n  \r\n  (setq dcl (load_dialog str1))\r\n  (setq act 2)\r\n  (while (> act 1)\r\n    (new_dialog \"SD_6303\" dcl)\r\n    (mapcar '(lambda (x)(set_tile x (eval (read x)))) lst1)\r\n    (action_tile \"b1\" \"(done_dialog 2)\")\r\n    (action_tile \"b2\" \"(done_dialog 3)\")\r\n    (action_tile \"b3\" \"(done_dialog 4)\")\r\n    (action_tile \"b4\" \"(done_dialog 5)\")\r\n    (action_tile \"b5\" \"(done_dialog 6)\")\r\n    (action_tile \"b6\" \"(done_dialog 7)\")\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    (if (> act 1)(select_6303 act))\r\n  )\r\n  (unload_dialog dcl)\r\n)\r\n(defun select_6303 (str1 \/ obj1 str2)\r\n  (while (null obj1)\r\n    (setq obj1 (entsel (if (= SD:Lang \"E\") \"\\nSelect object: \" \"xxx: \")))\r\n    (if obj1 (setq str2 (cdr (assoc 8 (entget (car obj1)))))))  \r\n  (set (read (strcat \"ebb\" (itoa (- str1 1)))) str2)\r\n)\r\n(defun do_6303 (\/ obj3 ss4)\r\n  (setq  Path1 \"HKEY_CURRENT_USER\\\\Software\\\\SpeedDraft\\\\SD_6302\")\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    '(\"3000\" \"10\" \"7\" \"6\" \"8\" \"7\" \"14\" \"5\" \"24\" \"1\" \"10\" \"2.5\" \"3.0\" \"3.0\" \"3.0\"))\r\n  (mapcar '(lambda (x)(set (read x)(* (atof (eval (read x)))(getvar \"userr1\")))) (cdr lst1))\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 n 0)\r\n  ;(while (setq obj1 (ssname ss1 n))\r\n  ;  (setq lst2 (cons obj1 lst2) n (1+ n)))\r\n  (setq obj1 (ssname ss1 0))\r\n  (setq lst2 (cons obj1 lst2))\r\n  (setq lst4 (mapcar '(lambda (y)\r\n    (mapcar '(lambda (x \/ p1 p2)\r\n      (vla-copy (vlax-ename->vla-object y))(vla-move (vlax-ename->vla-object (entlast)) (vlax-3d-point (car lst0))(vlax-3d-point x))(entlast)) (cdr lst0))) lst2))\r\n  (mapcar 'makeall_6303 lst2 lst4)\r\n  (mapcar 'entdel (apply 'append lst4))\r\n)\r\n(defun makeall_6303 (obj1 lst1 \/ p1 p2 ss1 ss2 flag lst6)\r\n  (setq num3 0)\r\n  (make_6303 obj1)\r\n  (setq flag T)\r\n  (mapcar 'make_6303 lst1)\r\n  (setq ss3 (ssadd))\r\n  (setq lst6 (mapcar '(lambda (x)(entmake x)(ssadd (entlast) ss3)(entlast)) lst6))\r\n  (mapcar 'entdel lst7)\r\n  (command \".copybase\" \"_non\" '(0 0) ss3 \"\")\r\n  (mapcar 'entdel lst6)\r\n  (command \"pasteclip\" pause)\r\n)\r\n(defun make_6303 (obj1 \/ lst1 lst2 n obj2 ang1 lst4 ss2 num0)\r\n  (setq  lst1 (mapcar 'cdr (vl-remove-if-not '(lambda (x)(= (car x) 10))(entget obj1)))\r\n    ss2 (ssget \"_f\" lst1 (list '(0 . \"LINE\")(cons 8 (strcat ebb1 \",\" ebb2 \",\" ebb3 \",\" ebb4 \",\" ebb5 \",\" ebb6 \",\" Lay_Cen)))))\r\n  (if ss2 (progn\r\n    (setq eb1 \"4000\")\r\n    (setq n 0)\r\n    (while (setq obj2 (ssname ss2 n))\r\n      (setq  p1 (vlax-invoke (vlax-ename->vla-object obj2) 'intersectWith (vlax-ename->vla-object obj1) acExtendNone)\r\n        lay1 (cdr (assoc 8 (entget obj2)))\r\n        ang1 (angle (cdr (assoc 10 (entget obj2)))(cdr (assoc 11 (entget obj2))))\r\n        n (1+ n))\r\n      (cond ((and (or (= rc \"rb2\")(= rc \"rb4\"))(or (equal ang1 (* 0.5 pi) 0.00001)(equal ang1 (* 1.5 pi) 0.00001))) nil)\r\n        ((and (or (= rc \"rb1\")(= rc \"rb3\"))(or (equal ang1 0 0.00001)(equal ang1 pi 0.00001))) nil)\r\n        (T (if (\/= (car (car (cdr (assoc -3 (entget obj2 '(\"*\")))))) \"REVIT\")\r\n          (setq lst2 (cons (list p1 lay1 (cdr (cadr (cadr (assoc -3 (entget obj2 '(\"*\"))))))) lst2))\r\n          (setq lst2 (cons (list p1 lay1 nil) lst2)))))\r\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)(< (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)(< (car e1)(car e2)))))))\r\n    (if (null num0)(setq num0 (car (car lst2))))\r\n    (setq lst2 (mapcar '(lambda (x)(list (+ (abs (- (car x) num0)) eb9)(cadr x)(nth 2 x))) lst2))\r\n    (if (null flag)(setq lst6 (cons (list '(0 . \"LINE\")(cons 8 Lay_Cen)(list 10 0 num3 0)(list 11 (+ (car (last lst2)) eb11) num3)) lst6)))\r\n    (setq lst6 (cons (list '(0 . \"LINE\")(cons 8 Lay_Cen)(list 10 0 (+ (atof eb1) num3) 0)(list 11 (+ (car (last lst2)) eb11) (+ num3 (atof eb1)))) lst6))\r\n    (mapcar '(lambda (x)\r\n      (if (or (= (cadr x) ebb1)(= (cadr x) ebb2)(= (cadr x) ebb3))\r\n        (setq num1 (- 0 eb2) num2 (+ (atof eb1) eb6)))\r\n      (if (= (cadr x) Lay_Cen)\r\n        (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      (setq lst6 (cons (list '(0 . \"LINE\")(cons 8 (cadr x))(list 10 (car x) (+ num1 num3) 0)(list 11 (car x) (+ num2 num3))) lst6))) 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 (list 0 num3))(vlax-3D-point (list 0 (+ (atof eb1) num3)))(vlax-3D-point (list (- 0 eb7) num3)) (* 0.5 pi))\r\n      (setq lst6 (cons (subst (cons 8 Lay_Dim)(assoc 8 (entget (entlast))) (entget (entlast))) lst6))\r\n      (entdel (entlast))\r\n\r\n    (if (null flag)\r\n      (progn\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      (setq lst6 (cons (subst (cons 8 Lay_Dim)(assoc 8 (entget (entlast))) (entget (entlast))) lst6))\r\n      (entdel (entlast))) lst4 (cdr lst4))\r\n\r\n      (mapcar '(lambda (x y)(if y (progn\r\n      (setq lst6 (cons (list '(0 . \"CIRCLE\")(cons 8 Lay_Dim)(cons 10 (polar x (* 1.5 pi)(+ eb3 eb4 (\/ eb5 2.0))))(cons 40 (\/ eb5 2.0))) lst6))))) lst4 lst5)\r\n\r\n      (mapcar '(lambda (x y)(if y (progn\r\n      (setq lst6 (cons (list '(0 . \"TEXT\")(cons 1 y)(cons 8 Lay_Dim)(cons 10 (polar x (* 1.5 pi)(+ eb3 eb4 (\/ eb5 2.0))))\r\n        (cons 11 (polar x (* 1.5 pi)(+ eb3 eb4 (\/ eb5 2.0))))(cons 40 eb14)'(72 . 1)'(73 . 2)) lst6))))) 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      (setq lst6 (cons (list '(0 . \"TEXT\")(cons 1 str1)(list 10 (\/ (+ (car (last lst2)) eb11) 2.0)(- num3 eb2 eb3 eb4 (\/ eb5 2.0)))(cons 40 eb14)) lst6))\r\n\r\n      (setq lst6 (cons (list '(0 . \"TEXT\")(cons 1 \"\u25bd*FL\")(cons 8 Lay_Txt2)(list 10 eb8 (+ 1 num3))(cons 40 eb14)) lst6))\r\n\r\n      (setq lst6 (cons (list '(0 . \"TEXT\")(cons 1 \"\u90e8\u5c4b\u540d\")(cons 8 Lay_Txt1)(list 10 eb8 (- num3 eb2))(cons 40 eb14)) lst6))))\r\n    (setq num3 (+ num3 (atof eb1)))))\r\n)\r\n(princ)<\/code><\/pre>\n\n\n\n
 <\/p>\n","protected":false},"excerpt":{"rendered":"\u4e26\u3093\u3060\u5e73\u9762\u56f3\u304b\u3089\u65ad\u9762\u306e\u4e0b\u66f8\u304d\u7dda\u3092\u4f5c\u6210\u3059\u308bAutoLISP\u30b3\u30de\u30f3\u30c9\u3067\u3059\u3002 \u3053\u306e\u3088\u3046\u306b\u5e73\u9762\u56f3\u30921\u968e\u304b\u30894\u968e\u307e\u3067\u4e26\u3079\u307e\u3059\u3002\u5e73\u9762\u56f3\u306f\u3001\u7e26\u306b\u4e26\u3093\u3067\u3044\u3066\u3082\u3001\u6a2a\u306b\u4e26\u3093\u3067\u3044\u3066\u3082\u69cb\u3044\u307e\u305b\u3093\u3002\u30b3\u30de\u30f3\u30c9\u8d77\u52d5\u5f8c\u3001\u57fa\u70b9\u3092\u805e\u304b\u308c\u307e\u3059\u306e\u3067\u3001\u5404\u5e73\u9762\u56f3\u306e […]","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-2872","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\/2872","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=2872"}],"version-history":[{"count":5,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/posts\/2872\/revisions"}],"predecessor-version":[{"id":3094,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/posts\/2872\/revisions\/3094"}],"wp:attachment":[{"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/media?parent=2872"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/categories?post=2872"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/tags?post=2872"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}