{"id":911,"date":"2022-08-30T02:04:40","date_gmt":"2022-08-29T17:04:40","guid":{"rendered":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/?p=911"},"modified":"2022-12-07T01:13:27","modified_gmt":"2022-12-06T16:13:27","slug":"sd_1202","status":"publish","type":"post","link":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/sd_1202\/","title":{"rendered":"[SD_1202] \u5bf8\u6cd5\u306e\u4e0b\u6bb5\u306bH\u3092\u8ffd\u52a0"},"content":{"rendered":"\n<figure class=\"wp-block-image size-full\"><img loading=\"lazy\" decoding=\"async\" width=\"422\" height=\"90\" src=\"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/08\/image-152.png\" alt=\"\" class=\"wp-image-912\" srcset=\"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/08\/image-152.png 422w, https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/08\/image-152-300x64.png 300w\" sizes=\"auto, (max-width: 422px) 100vw, 422px\" \/><\/figure>\n\n\n\n<p>\u4e0b\u6bb5\u306b\u6587\u5b57\u3092\u8ffd\u52a0\u3059\u308bAutoLISP\u30b3\u30de\u30f3\u30c9\u3067\u3059\u3002<br>\u4e0a\u6bb5\u306e\u5bf8\u6cd5\u306b\u306fW\u3092\u4ed8\u52a0\u3001\u4e0b\u6bb5\u306e\u6570\u5b57\u306b\u306fH\u304c\u4ed8\u52a0\u3055\u308c\u307e\u3059\u3002<\/p>\n\n\n\n<figure class=\"wp-block-image size-full\"><img loading=\"lazy\" decoding=\"async\" width=\"256\" height=\"92\" src=\"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/08\/image-208.png\" alt=\"\" class=\"wp-image-1111\"\/><\/figure>\n\n\n\n<figure class=\"wp-block-image size-full\"><img loading=\"lazy\" decoding=\"async\" width=\"283\" height=\"321\" src=\"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/08\/image-207.png\" alt=\"\" class=\"wp-image-1110\" srcset=\"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/08\/image-207.png 283w, https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wordpress\/wp-content\/uploads\/2022\/08\/image-207-264x300.png 264w\" sizes=\"auto, (max-width: 283px) 100vw, 283px\" \/><\/figure>\n\n\n\n<p><\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>(defun c:SD_1202( \/ ObjSet ObjNameL i m OldData NewData Data \r\n\t\t\t\t\tdcl_id UserWord)\r\n\t(if (= SD:Lang \"E\")\r\n\t\t(princ \"\\n &#91;SD_1202 ver.20220902] Add Text below dimension line. Press &#91;F1] for help\")\r\n\t\t(princ \"\\n &#91;SD_1202 ver.20220902] \u5bf8\u6cd5\u306e\u4e0b\u306bH\u3092\u4f75\u8a18\u3002 &#91;F1]\u3067\u4f7f\u3044\u65b9\u8aac\u660e\")\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(setfunhelp \"C:SD_1202\" \"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/sd_1202\/\")\r\n\t\r\n\t(RegistryRead_1202)\t;\u30ec\u30b8\u30b9\u30c8\u30ea\u304b\u3089\u30c7\u30fc\u30bf\u3092\u53d6\u5f97\r\n\t(Show_Dialog_1202)\t\t\r\n\t\r\n\t(setq ObjSet nil)\r\n\t(while (= ObjSet nil)\r\n\t\t(setq ObjSet (ssget '((0 . \"DIMENSION\"))))\r\n\t)\r\n\t;\u9078\u629e\u30bb\u30c3\u30c8\u304b\u3089\u56f3\u5f62\u540d\u306e\u30ea\u30b9\u30c8\u4f5c\u6210\r\n\t(setq i -1 ObjNameL nil)\r\n\t(repeat (setq m (sslength ObjSet))\r\n\t\t\t(setq ObjNameL (append ObjNameL (list (ssname ObjSet (setq i (1+ i))))))\r\n\t)\r\n\t\r\n\t(procedure_1202)\r\n\t\r\n\t(ClosingRoutine)\r\n\t(setq *error* nil)\r\n\t(princ)\r\n)\r\n\r\n;********************************\r\n(defun procedure_1202()\r\n\t(mapcar '(lambda(x) \r\n\t\t(setq OldData (cdr (assoc 1 (setq Data (entget x)))))\r\n\t\t(setq NewData (strcat \"W&lt;>\\\\XH\" UserWord ))\r\n\t\t(setq Data (subst (cons 1 NewData)(assoc 1 Data) Data))\r\n\t\t(entmod Data)\r\n\t\t\t) ObjNameL\r\n\t)\r\n)\r\n\r\n;********************************\r\n(defun Show_Dialog_1202()\r\n\t(setq dcl_id (load_dialog \"SD_1202.dcl\"))\r\n\t(if (= SD:Lang \"E\")\r\n\t\t(new_dialog \"SD_1202\" dcl_id)\r\n\t\t(new_dialog \"SD_1202_J\" dcl_id)\r\n\t)\r\n\t\r\n\t(set_tile \"Text1\" UserWord)\r\n\t\r\n\t(action_tile \"accept\" \"(get_data_1202)(done_dialog 1)\")\r\n\t(action_tile \"cancel\" \"(done_dialog 0)\")\r\n\t(action_tile \"help\" \"(startapp \\\"explorer\\\" \\\"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/sd_1202\/\\\")\")\r\n\t(setq Act (start_dialog))\r\n\t(unload_dialog dcl_id)\r\n\t(if (= Act 0) (exit))\r\n)\r\n\r\n;********************************\r\n(defun get_data_1202 ()\r\n\t(setq UserWord (get_tile \"Text1\"))\r\n\t;\u30ec\u30b8\u30b9\u30c8\u30ea\u66f8\u8fbc\u307f\r\n\t(vl-registry-write Path1202 \"UserWord\" UserWord)\r\n\tUserWord\r\n)\r\n\r\n\r\n;**********\u30ec\u30b8\u30b9\u30c8\u30ea\u304b\u3089\u30c7\u30fc\u30bf\u3092\u53d6\u5f97*************\r\n(defun RegistryRead_1202()\r\n\t(setq Path1202 \"HKEY_CURRENT_USER\\\\Software\\\\SpeedDraft\\\\SD_1202\")\r\n\t(if (vl-registry-read Path1202 \"UserWord\" )\r\n\t\t(setq UserWord (vl-registry-read Path1202 \"UserWord\" ))\r\n\t\t(setq UserWord \"\")\r\n\t)\r\n)\r\n(princ)\r\n<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"\u4e0b\u6bb5\u306b\u6587\u5b57\u3092\u8ffd\u52a0\u3059\u308bAutoLISP\u30b3\u30de\u30f3\u30c9\u3067\u3059\u3002\u4e0a\u6bb5\u306e\u5bf8\u6cd5\u306b\u306fW\u3092\u4ed8\u52a0\u3001\u4e0b\u6bb5\u306e\u6570\u5b57\u306b\u306fH\u304c\u4ed8\u52a0\u3055\u308c\u307e\u3059\u3002","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[16,23],"tags":[],"class_list":["post-911","post","type-post","status-publish","format-standard","hentry","category-toolbar-common","category-dimensions-toolbar"],"_links":{"self":[{"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/posts\/911","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=911"}],"version-history":[{"count":5,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/posts\/911\/revisions"}],"predecessor-version":[{"id":2990,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/posts\/911\/revisions\/2990"}],"wp:attachment":[{"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/media?parent=911"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/categories?post=911"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.offshorecad.com.ph\/speeddraft\/blog\/wp-json\/wp\/v2\/tags?post=911"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}