{"id":6689,"date":"2026-04-25T09:09:25","date_gmt":"2026-04-25T09:09:25","guid":{"rendered":"https:\/\/ninjanoblog.com\/?p=6689"},"modified":"2026-04-25T09:17:47","modified_gmt":"2026-04-25T09:17:47","slug":"%e9%95%b7%e3%81%95%e8%a8%98%e5%85%a5%e5%be%8c%e3%80%81%e7%9b%b4%e5%88%97%e5%af%b8%e6%b3%95%e8%a8%98%e5%85%a5%e3%81%ab%e7%a7%bb%e8%a1%8c%e3%81%99%e3%82%8blisp","status":"publish","type":"post","link":"https:\/\/ninjanoblog.com\/?p=6689","title":{"rendered":"\u9577\u3055\u8a18\u5165\u5f8c\u3001\u76f4\u5217\u5bf8\u6cd5\u8a18\u5165\u306b\u79fb\u884c\u3059\u308bLISP"},"content":{"rendered":"\n

\u5bf8\u6cd5\u3092\u5165\u308c\u308b\u3068\u304d\u3001\u6700\u521d\u306b1\u672c\u5165\u308c\u3066\u304b\u3089\u76f4\u5217\u5bf8\u6cd5\u3092\u7d9a\u3051\u308b\u4f5c\u696d\u306f\u3088\u304f\u3042\u308a\u307e\u3059\u3002<\/p>\n\n\n\n

\u305f\u3060\u3057\u901a\u5e38\u306f\u3001DIMLINEAR \u2192 DIMCONTINUE \u2192 \u7e70\u308a\u8fd4\u3057\u3068\u30b3\u30de\u30f3\u30c9\u3092\u5207\u308a\u66ff\u3048\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n\n\n\n

\u3053\u306eLISP\u300cPDL\u300d\u3092\u4f7f\u3048\u3070\u3001\u6700\u521d\u306e1\u672c\u3092\u5165\u529b\u3059\u308b\u3060\u3051\u3067\u3001\u305d\u306e\u307e\u307e\u76f4\u5217\u5bf8\u6cd5\u3092\u9023\u7d9a\u5165\u529b\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n

\u203b\u3053\u306eLISP\u306f\u7570\u5c3a\u5ea6\u5bf8\u6cd5\u3092\u524d\u63d0\u306b\u4f5c\u3089\u308c\u3066\u3044\u307e\u3059<\/p>\n\n\n\n

;;=================================================================\n;; \u9577\u3055 + \u76f4\u5217\u5bf8\u6cd5 \u5c02\u7528\n;;=================================================================\n(defun c:PDL (\/ p1 p2 first done oldlast tmp oldDimLayer)\n\n  (vl-load-com)\n\n  (prompt "\\n=== \u9577\u3055 + \u76f4\u5217\u5bf8\u6cd5 \u5c02\u7528 ===")\n\n  ;;=======================================================\n  ;; \u5bf8\u6cd5\u30ec\u30a4\u30e4\u30fc\u8a2d\u5b9a\n  ;;=======================================================\n  (setq oldDimLayer (getvar "DIMLAYER"))\n\n  (if (not (tblsearch "LAYER" "SUNPOU"))\n    (command "_.LAYER" "_M" "SUNPOU" "_C" "7" "" "")\n  )\n\n  (setvar "DIMLAYER" "SUNPOU")\n\n  ;;=======================================================\n  ;; \u5bf8\u6cd5\u30eb\u30fc\u30d7\n  ;;=======================================================\n  (setq first T\n        done nil)\n\n  (while (not done)\n\n    (if first\n\n      ;;===========================================\n      ;; \u521d\u56de\u5bf8\u6cd5\uff08DIMLINEAR\uff09\n      ;;===========================================\n      (progn\n        (setq p1 (getpoint "\\n1\u70b9\u76ee\u3092\u6307\u5b9a : "))\n        (if (null p1) (setq done T))\n\n        (if (not done)\n          (progn\n            (setq p2 (getpoint "\\n2\u70b9\u76ee\u3092\u6307\u5b9a: " p1))\n            (if (null p2) (setq done T))\n          )\n        )\n\n        (if (not done)\n          (progn\n            (command "_.DIMLINEAR" p1 p2 pause)\n            (setq first nil)\n          )\n        )\n      )\n\n      ;;===========================================\n      ;; 2\u56de\u76ee\u4ee5\u964d\uff1a\u76f4\u5217\u5bf8\u6cd5\uff08DIMCONTINUE\uff09\n      ;;===========================================\n      (progn\n        (prompt "\\n\u76f4\u5217\u5bf8\u6cd5\u3092\u7d9a\u3051\u308b\u70b9\u3092\u30af\u30ea\u30c3\u30af : ")\n\n        (setq oldlast (entlast))\n        (command "_.DIMCONTINUE" pause)\n        (setq tmp (entlast))\n\n        ;; Enter\u3067\u7d42\u4e86\n        (if (= tmp oldlast)\n          (setq done T)\n        )\n      )\n    )\n  )\n\n  ;;=======================================================\n  ;; \u30ec\u30a4\u30e4\u30fc\u623b\u3059\n  ;;=======================================================\n  (setvar "DIMLAYER" oldDimLayer)\n\n  (prompt "\\n\u51e6\u7406\u3092\u7d42\u4e86\u3057\u307e\u3057\u305f\u3002")\n  (princ)\n)<\/code><\/pre><\/div>\n\n\n\n
\u3059\u3050\u3067\u304d\u308b\u8a2d\u5b9a\u624b\u9806<\/span><\/div>
\n
    \n
  • \u30b3\u30de\u30f3\u30c9\u300cPDL\u300d\u3092\u5165\u529b<\/li>\n\n\n\n
  • \u5bf8\u6cd5\u306e\u4e00\u70b9\u76ee\u3068\u4e8c\u70b9\u76ee\u3092\u9078\u629e<\/li>\n\n\n\n
  • \u76f4\u5217\u5bf8\u6cd5\u306b\u79fb\u884c<\/li>\n<\/ul>\n<\/div><\/div>\n\n\n\n
    <\/div><\/div><\/div>\n\n\n
    \"\"\u4ec1(\u3058\u3093)<\/span><\/div>
    \n
    \u753b\u50cf\u4ed8\u304d\u306eSTEP\u306f\u3001\u4e0b\u3067\u78ba\u8a8d\u3067\u304d\u307e\u3059\u3088\uff01<\/p>\n<\/span><\/span><\/span><\/div><\/div><\/div><\/div>\n\n\n
    \u64cd\u4f5c\u624b\u9806<\/h2>\n\n\n\n
    \n
    STEP<\/span><\/div>
    \n
    \"\"<\/figure>\n\n\n\n
      \n
    • \u30b3\u30de\u30f3\u30c9\u300cPDL\u300d\u3092\u5165\u529b\u3057\u307e\u3059<\/li>\n\n\n\n
    • \u5bf8\u6cd5\u306e1\u70b9\u76ee\u30682\u70b9\u76ee\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059<\/li>\n\n\n\n
    • \u5bf8\u6cd5\u3092\u914d\u7f6e\u3057\u307e\u3059<\/li>\n<\/ul>\n<\/div><\/div>\n\n\n\n
      STEP<\/span><\/div>
      \n
      \"\"<\/figure>\n\n\n\n
        \n
      • \u305d\u306e\u307e\u307e\u81ea\u52d5\u3067\u300c\u76f4\u5217\u5bf8\u6cd5\u8a18\u5165\u300d\u306b\u79fb\u884c\u3057\u307e\u3059<\/li>\n<\/ul>\n<\/div><\/div>\n\n\n\n
        STEP<\/span><\/div>
        \n
        \"\"<\/figure>\n\n\n\n
          \n
        • \u30a8\u30f3\u30bf\u30fc\u3092\u62bc\u3059\u3068\u300c\u76f4\u5217\u5bf8\u6cd5\u8a18\u5165\u300d\u304c\u7d42\u4e86\u3057\u307e\u3059<\/li>\n<\/ul>\n\n\n
          \"\"\u51db(\u308a\u3093)<\/span><\/div>
          \n
          \u305d\u306e\u307e\u307e\u306e\u6d41\u308c\u3067\u4f5c\u696d\u3092\u7d9a\u3051\u308c\u307e\u3059\uff01<\/p>\n<\/span><\/span><\/span><\/div><\/div><\/div><\/div><\/div><\/div>\n<\/div>\n\n\n\n
          \u307e\u3068\u3081<\/h2>\n\n\n\n
          \n
            \n
          • \u6700\u521d\u306b\u9577\u3055\u5bf8\u6cd5\u3092\u5165\u529b\u3059\u308b\u3068\u3001\u305d\u306e\u307e\u307e\u76f4\u5217\u5bf8\u6cd5\u306b\u79fb\u884c\u3067\u304d\u308b<\/li>\n\n\n\n
          • \u30b3\u30de\u30f3\u30c9\u5207\u308a\u66ff\u3048\u306a\u3057\u3067\u4f5c\u696d\u3092\u7d9a\u3051\u3089\u308c\u308b<\/li>\n<\/ul>\n\n\n\n
            PDL\u3092\u4f7f\u3046\u3053\u3068\u3067\u3001\u5bf8\u6cd5\u5165\u529b\u306e\u6d41\u308c\u3092\u6b62\u3081\u305a\u306b\u52b9\u7387\u3088\u304f\u4f5c\u696d\u3067\u304d\u307e\u3059\u3002<\/p>\n<\/div><\/div>\n\n\n\n
            \u95a2\u9023\u8a18\u4e8b<\/p>\n\n\n
            <\/div>","protected":false},"excerpt":{"rendered":"
            \u5bf8\u6cd5\u3092\u5165\u308c\u308b\u3068\u304d\u3001\u6700\u521d\u306b1\u672c\u5165\u308c\u3066\u304b\u3089\u76f4\u5217\u5bf8\u6cd5\u3092\u7d9a\u3051\u308b\u4f5c\u696d\u306f\u3088\u304f\u3042\u308a\u307e\u3059\u3002 \u305f\u3060\u3057\u901a\u5e38\u306f\u3001DIMLINEAR \u2192 DIMCONTINUE \u2192 \u7e70\u308a\u8fd4\u3057\u3068\u30b3\u30de\u30f3\u30c9\u3092\u5207\u308a\u66ff\u3048\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002 \u3053\u306eLISP\u300cPDL\u300d\u3092\u4f7f\u3048\u3070 […]<\/p>\n","protected":false},"author":1,"featured_media":6692,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"swell_btn_cv_data":"","footnotes":""},"categories":[4],"tags":[27],"class_list":["post-6689","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-lisp","tag-27"],"acf":[],"_links":{"self":[{"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=\/wp\/v2\/posts\/6689","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=6689"}],"version-history":[{"count":3,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=\/wp\/v2\/posts\/6689\/revisions"}],"predecessor-version":[{"id":6698,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=\/wp\/v2\/posts\/6689\/revisions\/6698"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=\/wp\/v2\/media\/6692"}],"wp:attachment":[{"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=6689"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=6689"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=6689"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}