{"id":5575,"date":"2026-03-10T13:39:23","date_gmt":"2026-03-10T13:39:23","guid":{"rendered":"https:\/\/ninjanoblog.com\/?p=5575"},"modified":"2026-03-30T11:05:36","modified_gmt":"2026-03-30T11:05:36","slug":"%e9%80%9a%e3%82%8a%e8%8a%af%e8%a8%98%e5%8f%b7%e8%87%aa%e5%8b%95%e5%85%a5%e5%8a%9b%ef%bc%86%e9%80%a3%e7%95%aa%e9%85%8d%e7%bd%ae","status":"publish","type":"post","link":"https:\/\/ninjanoblog.com\/?p=5575","title":{"rendered":"\u901a\u308a\u82af\u8a18\u53f7\u81ea\u52d5\u5165\u529b\uff06\u9023\u756a\u914d\u7f6e"},"content":{"rendered":"\n

\u901a\u308a\u82af\u8a18\u53f7\u81ea\u52d5\u5165\u529b\uff06\u9023\u756a\u914d\u7f6e<\/p>\n\n\n\n

\u901a\u308a\u82af\u8a18\u53f7\u306f\u3001\u6bce\u56de\u6587\u5b57\u3092\u5165\u529b\u3057\u3066\u30d6\u30ed\u30c3\u30af\u5c5e\u6027\u306b\u53cd\u6620\u3057\u3066\u3044\u308b\u3068\u624b\u9593\u304c\u304b\u304b\u308a\u307e\u3059\u3002\u305d\u3053\u3067\u79c1\u306f\u3001\u30e1\u30cb\u30e5\u30fc\u304b\u3089\u6587\u5b57\u3092\u7d44\u307f\u7acb\u3066\u3066\u3001\u305d\u306e\u307e\u307e\u901a\u308a\u82af\u30d6\u30ed\u30c3\u30af\u306b\u53cd\u6620\u3057\u3001\u9023\u7d9a\u914d\u7f6e\u3067\u304d\u308bLISP<\/strong>\u3092\u4f5c\u6210\u3057\u3066\u4f7f\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n\n\n\n

\u3053\u306eLISP\u3067\u306f\u3001A\u301cZ\u3084N1\u301cN20\u3092\u30e1\u30cb\u30e5\u30fc\u304b\u3089\u9078\u3073\u3001\u5fc5\u8981\u306b\u5fdc\u3058\u3066OTHER\u3067\u4efb\u610f\u6587\u5b57\u3082\u8ffd\u52a0\u3067\u304d\u307e\u3059\u3002\u4f8b\u3048\u3070\u300cA\u300d\u300c1\u300d\u300cB\u300d\u3067\u306f\u306a\u304f\u3001\u901a\u308a\u82af\u3068\u3057\u3066\u4f7f\u3044\u305f\u3044\u6587\u5b57\u5217\u3092\u9806\u756a\u306b\u9078\u3093\u3067\u7d44\u307f\u7acb\u3066\u3001\u305d\u306e\u5185\u5bb9\u3092\u30d6\u30ed\u30c3\u30af\u5c5e\u6027\u3078\u81ea\u52d5\u5165\u529b\u3057\u307e\u3059\u3002\u78ba\u5b9a\u5f8c\u306f\u540c\u3058\u6587\u5b57\u5217\u306e\u307e\u307e\u9023\u7d9a\u3067\u633f\u5165\u3067\u304d\u308b\u305f\u3081\u3001\u540c\u3058\u901a\u308a\u82af\u8a18\u53f7\u3092\u8907\u6570\u7b87\u6240\u306b\u914d\u7f6e\u3059\u308b\u4f5c\u696d\u3082\u30b9\u30e0\u30fc\u30ba\u3067\u3059\u3002Enter\u3067\u6587\u5b57\u9078\u629e\u306b\u623b\u308c\u308b\u306e\u3067\u3001\u6b21\u306e\u7b26\u53f7\u3078\u306e\u5207\u308a\u66ff\u3048\u3082\u7c21\u5358\u3067\u3059\u3002<\/p>\n\n\n\n

\u30d6\u30ed\u30c3\u30af\u540d\u3068\u5c5e\u6027TAG\u3092\u6307\u5b9a\u3057\u3066\u3042\u308b\u305f\u3081\u3001\u793e\u5185\u6a19\u6e96\u306e\u901a\u308a\u82af\u30d6\u30ed\u30c3\u30af\u306b\u5408\u308f\u305b\u3066\u904b\u7528\u3057\u3084\u3059\u3044\u306e\u3082\u7279\u5fb4\u3067\u3059\u3002\u901a\u308a\u82af\u8a18\u53f7\u306e\u5165\u529b\u30df\u30b9\u3092\u6e1b\u3089\u3057\u3001\u914d\u7f6e\u4f5c\u696d\u3092\u52b9\u7387\u5316\u3067\u304d\u308b\u5b9f\u52d9\u5411\u3051LISP\u3067\u3059\u3002<\/p>\n\n\n\n

(vl-load-com)<\/p>\n\n\n\n

;;; ================================<\/p>\n\n\n\n

;;; \u901a\u308a\u82af\uff1a\u30e1\u30cb\u30e5\u30fc\u3067\u6587\u5b57\u5217\u3092\u7d44\u307f\u7acb\u3066 \u2192 \u5c5e\u6027\u53cd\u6620 \u2192 \u633f\u5165<\/p>\n\n\n\n

;;; \u30b3\u30de\u30f3\u30c9: TSIN<\/p>\n\n\n\n

;;; ================================<\/p>\n\n\n\n

;; ———- \u8a2d\u5b9a ———-<\/p>\n\n\n\n

(setq *TSIN_BlockName* “\u7570\u5c3a\u5ea6\u5bfe\u5fdc\u901a\u308a\u82af”) ; \u30d6\u30ed\u30c3\u30af\u540d<\/p>\n\n\n\n

(setq *TSIN_AttrTag*   “\u901a\u308a\u82af\u7b26\u53f7”)       ; \u5c5e\u6027TAG\uff08\u5165\u3089\u306a\u3044\u6642\u306fTAG\u8981\u78ba\u8a8d\uff09<\/p>\n\n\n\n

;; ————————–<\/p>\n\n\n\n

(defun tsin-alpha-AZ ( \/ i r)<\/p>\n\n\n\n

  (setq i 65 r ‘())<\/p>\n\n\n\n

  (while (<= i 90)<\/p>\n\n\n\n

    (setq r (cons (chr i) r))<\/p>\n\n\n\n

    (setq i (1+ i))<\/p>\n\n\n\n

  )<\/p>\n\n\n\n

  (reverse r)<\/p>\n\n\n\n

)<\/p>\n\n\n\n

(defun tsin-num-N1-20 ( \/ i r)<\/p>\n\n\n\n

  (setq i 1 r ‘())<\/p>\n\n\n\n

  (while (<= i 20)<\/p>\n\n\n\n

    (setq r (cons (strcat “N” (itoa i)) r))<\/p>\n\n\n\n

    (setq i (1+ i))<\/p>\n\n\n\n

  )<\/p>\n\n\n\n

  (reverse r)<\/p>\n\n\n\n

)<\/p>\n\n\n\n

(defun tsin-join (lst sep \/ r)<\/p>\n\n\n\n

  (if lst<\/p>\n\n\n\n

    (progn<\/p>\n\n\n\n

      (setq r (car lst))<\/p>\n\n\n\n

      (foreach s (cdr lst) (setq r (strcat r sep s)))<\/p>\n\n\n\n

      r<\/p>\n\n\n\n

    )<\/p>\n\n\n\n

    “”<\/p>\n\n\n\n

  )<\/p>\n\n\n\n

)<\/p>\n\n\n\n

(defun tsin-key->text (k \/ up)<\/p>\n\n\n\n

  ;; N12 \u2192 12 \u3078\u5909\u63db\uff08\u5c5e\u6027\u3078\u5165\u308c\u308b\u7528\uff09<\/p>\n\n\n\n

  (setq up (strcase k))<\/p>\n\n\n\n

  (if (and (> (strlen k) 1) (= (substr up 1 1) “N”))<\/p>\n\n\n\n

    (substr k 2)<\/p>\n\n\n\n

    k<\/p>\n\n\n\n

  )<\/p>\n\n\n\n

)<\/p>\n\n\n\n

(defun tsin-set-attr (blk tag val \/ a)<\/p>\n\n\n\n

  (if (and blk (vlax-method-applicable-p blk ‘GetAttributes))<\/p>\n\n\n\n

    (foreach a (vlax-invoke blk ‘GetAttributes)<\/p>\n\n\n\n

      (if (= (strcase (vla-get-TagString a)) (strcase tag))<\/p>\n\n\n\n

        (vla-put-TextString a val)<\/p>\n\n\n\n

      )<\/p>\n\n\n\n

    )<\/p>\n\n\n\n

  )<\/p>\n\n\n\n

)<\/p>\n\n\n\n

(defun tsin-insert (blkName ipt \/ doc space bref)<\/p>\n\n\n\n

  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))<\/p>\n\n\n\n

  (setq space<\/p>\n\n\n\n

    (if (= 1 (getvar “CVPORT”))<\/p>\n\n\n\n

      (vla-get-PaperSpace doc)<\/p>\n\n\n\n

      (vla-get-ModelSpace doc)<\/p>\n\n\n\n

    )<\/p>\n\n\n\n

  )<\/p>\n\n\n\n

  (setq bref<\/p>\n\n\n\n

    (vla-InsertBlock<\/p>\n\n\n\n

      space<\/p>\n\n\n\n

      (vlax-3d-point (list (car ipt) (cadr ipt) 0.0))<\/p>\n\n\n\n

      blkName<\/p>\n\n\n\n

      1.0 1.0 1.0 0.0<\/p>\n\n\n\n

    )<\/p>\n\n\n\n

  )<\/p>\n\n\n\n

  bref<\/p>\n\n\n\n

)<\/p>\n\n\n\n

(defun tsin-build-string ( \/ alpha nums menuKeys ans out promptText add)<\/p>\n\n\n\n

  ;; \u4f55\u56de\u3067\u3082\u9078\u629e\u3057\u3066 out \u306b\u8ffd\u52a0\u3002Enter\u3067\u78ba\u5b9a\uff08=ans nil\uff09<\/p>\n\n\n\n

  (setq alpha (tsin-alpha-AZ))<\/p>\n\n\n\n

  (setq nums  (tsin-num-N1-20))<\/p>\n\n\n\n

  (setq menuKeys (append alpha nums (list “OTHER”)))<\/p>\n\n\n\n

  (setq out “”)<\/p>\n\n\n\n

  (while<\/p>\n\n\n\n

    (progn<\/p>\n\n\n\n

      (setq promptText<\/p>\n\n\n\n

        (strcat<\/p>\n\n\n\n

          “\\n\u8ffd\u52a0\u3059\u308b\u6587\u5b57\u3092\u9078\u629e [“<\/p>\n\n\n\n

          (tsin-join (append alpha nums (list “OTHER(\u624b\u5165\u529b)”)) “\/”)<\/p>\n\n\n\n

          “]  \u73fe\u5728: \\”” out “\\””<\/p>\n\n\n\n

          “\\n(Enter\u3067\u78ba\u5b9a): “<\/p>\n\n\n\n

        )<\/p>\n\n\n\n

      )<\/p>\n\n\n\n

      (initget (tsin-join menuKeys ” “))<\/p>\n\n\n\n

      (setq ans (getkword promptText))<\/p>\n\n\n\n

      ans<\/p>\n\n\n\n

    )<\/p>\n\n\n\n

    (cond<\/p>\n\n\n\n

      ((= (strcase ans) “OTHER”)<\/p>\n\n\n\n

       (setq add (getstring T “\\n\u8ffd\u52a0\u3057\u305f\u3044\u6587\u5b57\u3092\u624b\u5165\u529b: “))<\/p>\n\n\n\n

       (setq out (strcat out add))<\/p>\n\n\n\n

      )<\/p>\n\n\n\n

      (T<\/p>\n\n\n\n

       (setq out (strcat out (tsin-key->text ans)))<\/p>\n\n\n\n

      )<\/p>\n\n\n\n

    )<\/p>\n\n\n\n

  )<\/p>\n\n\n\n

  out<\/p>\n\n\n\n

)<\/p>\n\n\n\n

(defun c:TSIN ( \/ val ipt blk)<\/p>\n\n\n\n

  (prompt (strcat “\\n=== \u901a\u308a\u82af\u633f\u5165\uff08” *TSIN_BlockName* “\uff09=== “))<\/p>\n\n\n\n

  ;; \u5916\u5074\uff1a\u6587\u5b57\u5217\u4f5c\u6210 \u2192 \u633f\u5165 \u2192 \u307e\u305f\u6587\u5b57\u5217\u4f5c\u6210\u2026<\/p>\n\n\n\n

  (while<\/p>\n\n\n\n

    (progn<\/p>\n\n\n\n

      (setq val (tsin-build-string))     ; Enter\u3067\u78ba\u5b9a<\/p>\n\n\n\n

      (if (= val “”)<\/p>\n\n\n\n

        (progn (prompt “\\n\u7a7a\u306e\u307e\u307e\u78ba\u5b9a\u3057\u305f\u306e\u3067\u7d42\u4e86\u3002”) nil)<\/p>\n\n\n\n

        T<\/p>\n\n\n\n

      )<\/p>\n\n\n\n

    )<\/p>\n\n\n\n

    ;; \u5185\u5074\uff1a\u540c\u3058\u6587\u5b57\u5217\u3067\u9023\u7d9a\u633f\u5165\uff08Enter\u3067\u6587\u5b57\u9078\u629e\u306b\u623b\u308b\uff09<\/p>\n\n\n\n

    (while (setq ipt (getpoint (strcat “\\n\u633f\u5165\u70b9\u3092\u6307\u793a [” val “] (Enter\u3067\u6587\u5b57\u9078\u629e\u306b\u623b\u308b): “)))<\/p>\n\n\n\n

      (setq blk (tsin-insert *TSIN_BlockName* ipt))<\/p>\n\n\n\n

      (tsin-set-attr blk *TSIN_AttrTag* val)<\/p>\n\n\n\n

    )<\/p>\n\n\n\n

  )<\/p>\n\n\n\n

  (princ)<\/p>\n\n\n\n

)<\/p>\n","protected":false},"excerpt":{"rendered":"

\u901a\u308a\u82af\u8a18\u53f7\u81ea\u52d5\u5165\u529b\uff06\u9023\u756a\u914d\u7f6e \u901a\u308a\u82af\u8a18\u53f7\u306f\u3001\u6bce\u56de\u6587\u5b57\u3092\u5165\u529b\u3057\u3066\u30d6\u30ed\u30c3\u30af\u5c5e\u6027\u306b\u53cd\u6620\u3057\u3066\u3044\u308b\u3068\u624b\u9593\u304c\u304b\u304b\u308a\u307e\u3059\u3002\u305d\u3053\u3067\u79c1\u306f\u3001\u30e1\u30cb\u30e5\u30fc\u304b\u3089\u6587\u5b57\u3092\u7d44\u307f\u7acb\u3066\u3066\u3001\u305d\u306e\u307e\u307e\u901a\u308a\u82af\u30d6\u30ed\u30c3\u30af\u306b\u53cd\u6620\u3057\u3001\u9023\u7d9a\u914d\u7f6e\u3067\u304d\u308bLISP\u3092\u4f5c\u6210\u3057\u3066\u4f7f\u3063\u3066 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"swell_btn_cv_data":"","footnotes":""},"categories":[1,26],"tags":[30],"class_list":["post-5575","post","type-post","status-publish","format-standard","hentry","category-uncategorized","category-26","tag-30"],"acf":[],"_links":{"self":[{"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=\/wp\/v2\/posts\/5575","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=5575"}],"version-history":[{"count":1,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=\/wp\/v2\/posts\/5575\/revisions"}],"predecessor-version":[{"id":5576,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=\/wp\/v2\/posts\/5575\/revisions\/5576"}],"wp:attachment":[{"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5575"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5575"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5575"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}