{"id":5625,"date":"2026-03-10T13:38:04","date_gmt":"2026-03-10T13:38:04","guid":{"rendered":"https:\/\/ninjanoblog.com\/?p=5625"},"modified":"2026-04-20T11:47:46","modified_gmt":"2026-04-20T11:47:46","slug":"%e3%83%95%e3%82%a3%e3%83%ac%e3%83%83%e3%83%88%e5%8d%8a%e5%be%840%e3%81%a7%e7%b7%9a%e5%88%86%e3%82%92%e7%b9%8b%e3%81%90lisp","status":"publish","type":"post","link":"https:\/\/ninjanoblog.com\/?p=5625","title":{"rendered":"\u30d5\u30a3\u30ec\u30c3\u30c8\u534a\u5f840\u3067\u7dda\u5206\u3092\u7e4b\u3050LISP"},"content":{"rendered":"\n

\u30d0\u30e9\u30d0\u30e9\u306b\u63cf\u3044\u305f\u7dda\u5206\u3092\u7d20\u65e9\u304f\u7e4b\u304e\u305f\u3044\u3068\u304d\u306f\u3001\u30d5\u30a3\u30ec\u30c3\u30c8\u534a\u5f840 \u304c\u4fbf\u5229\u3067\u3059\u3002<\/p>\n\n\n\n

\u534a\u5f84\u30920\u306b\u3059\u308b\u3068\u89d2\u3092\u4e38\u3081\u305a\u306b\u3001\u7dda\u5206\u540c\u58eb\u3092\u5ef6\u9577\u30fb\u30c8\u30ea\u30e0\u3057\u3066\u4ea4\u70b9\u3067\u63a5\u7d9a\u3067\u304d\u307e\u3059\u3002
\u305f\u3060\u3057\u901a\u5e38\u30b3\u30de\u30f3\u30c9\u3067\u306f\u3001\u305d\u306e\u90fd\u5ea6\u534a\u5f84\u3092\u78ba\u8a8d\u3057\u305f\u308a\u6307\u5b9a\u3057\u305f\u308a\u3059\u308b\u624b\u9593\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n\n\n\n

\u305d\u3053\u3067\u3001\u534a\u5f840\u3092\u56fa\u5b9a\u3067\u5b9f\u884c\u3067\u304d\u308bLISP\u3092\u7528\u610f\u3057\u3066\u304a\u304f\u3068\u52b9\u7387\u7684\u3067\u3059\u3002
\u9078\u629e\u3057\u305f\u7dda\u5206\u3092\u9806\u756a\u306b\u30d5\u30a3\u30ec\u30c3\u30c8\u51e6\u7406\u3067\u304d\u308b\u305f\u3081\u3001\u5916\u5f62\u7dda\u3084\u67a0\u7dda\u306e\u6574\u7406\u304c\u7d20\u65e9\u304f\u884c\u3048\u307e\u3059\u3002<\/p>\n\n\n\n

\u307e\u305f\u3001\u3053\u306eLISP\u306f\u51e6\u7406\u5f8c\u3082\u7d42\u4e86\u305b\u305a\u3001\u305d\u306e\u307e\u307e\u6b21\u306e\u7bc4\u56f2\u3092\u9023\u7d9a\u3067\u9078\u629e\u3057\u3066\u5b9f\u884c\u3067\u304d\u308b\u305f\u3081\u3001\u8907\u6570\u7b87\u6240\u306e\u4fee\u6b63\u3092\u4e00\u6c17\u306b\u9032\u3081\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n

(defun c:F0 ( \/ ss n e1 e2 )\n(vl-load-com)\n(setvar 'cmdecho 0)\n(prompt "\\n=== FILLET \u534a\u5f840\u5c02\u7528 ===")\n\n(while T\n;; \u30d5\u30a3\u30ec\u30c3\u30c8\u534a\u5f84\u30920\u306b\u56fa\u5b9a\n(command "._FILLET" "_R" "0")\n(prompt "\\n\u30d5\u30a3\u30ec\u30c3\u30c8\u3059\u308b\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u56f2\u3093\u3067\u9078\u629e\u3057\u3066\u304f\u3060\u3055\u3044\uff08Enter \/ ESC\u3067\u7d42\u4e86\uff09")\n(setq ss (ssget '((0 . "LINE,ARC,LWPOLYLINE"))))\n(if (not ss)\n(progn\n(prompt "\\n\u51e6\u7406\u3092\u7d42\u4e86\u3057\u307e\u3057\u305f\u3002")\n(setvar 'cmdecho 1)\n(princ)\n(exit)\n)\n)\n\n(setq n 0)\n(repeat (1- (sslength ss))\n(setq e1 (ssname ss n))\n(setq e2 (ssname ss (1+ n)))\n(command "._FILLET" e1 e2)\n(setq n (1+ n))\n)\n(prompt "\\n\u6b21\u306e\u7bc4\u56f2\u3092\u9078\u629e\u3067\u304d\u307e\u3059\u3002")\n)\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\u300cF0\u300d\u3092\u5165\u529b<\/li>\n\n\n\n
  • \u7e4b\u304e\u305f\u3044\u7dda\u5206\u3092\u56f2\u3093\u30672\u3064\u9078\u629e<\/li>\n\n\n\n
  • \u30a8\u30f3\u30bf\u30fc\u3067\u534a\u5f840\u3067\u7e4b\u3052\u308b<\/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\u300cF0\u300d\u3092\u5165\u529b\u3057\u307e\u3059<\/li>\n<\/ul>\n<\/div><\/div>\n\n\n\n
      STEP<\/span><\/div>
      \n
      \"\"<\/figure>\n\n\n\n
        \n
      • \u7e4b\u304e\u305f\u3044\u7dda\u5206\u3092\u56f2\u3093\u30672\u3064\u9078\u629e\u3057\u307e\u3059<\/li>\n<\/ul>\n\n\n\n
        \u203b3\u3064\u4ee5\u4e0a\u306e\u7dda\u5206\u3092\u9078\u3093\u3060\u5834\u5408\u306f\u6700\u521d\u306e2\u3064\u304c\u9069\u7528\u3055\u308c\u307e\u3059<\/p>\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\u534a\u5f840\u3067\u7dda\u5206\u304c\u7e4b\u304c\u308a\u307e\u3059<\/li>\n<\/ul>\n<\/div><\/div>\n\n\n\n
          STEP<\/span><\/div>
          \n
          \"\"<\/figure>\n\n\n\n
            \n
          • \u9023\u7d9a\u3057\u3066\u7dda\u5206\u3092\u7e4b\u3052\u308b\u3053\u3068\u304c\u3067\u304d\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\u3068LISP\u304c\u7d42\u4e86\u3057\u307e\u3059<\/li>\n<\/ul>\n<\/div><\/div>\n<\/div>\n\n\n\n
              LISP\u89e3\u8aac<\/h2>\n\n\n\n
              \u521d\u671f\u8a2d\u5b9a\u90e8\u5206<\/h3>\n\n\n\n
              (vl-load-com)\n(setvar 'cmdecho 0)\n(prompt "\\n=== FILLET \u534a\u5f840\u5c02\u7528 ===")<\/code><\/pre><\/div>\n\n\n\n
              \u30fbvl-load-com
              \u2192 Visual LISP\u306e\u6a5f\u80fd\u3092\u6709\u52b9\u5316\uff08\u304a\u307e\u3058\u306a\u3044\u7684\u306a\u3082\u306e\uff09<\/p>\n\n\n\n
              \u30fbcmdecho 0
              \u2192 \u30b3\u30de\u30f3\u30c9\u5c65\u6b74\u3092\u975e\u8868\u793a\u306b\u3057\u3066\u3001\u753b\u9762\u3092\u30b9\u30c3\u30ad\u30ea\u3055\u305b\u308b<\/p>\n\n\n\n
              \u30fbprompt
              \u2192 \u30b3\u30de\u30f3\u30c9\u30e9\u30a4\u30f3\u306b\u30e1\u30c3\u30bb\u30fc\u30b8\u3092\u8868\u793a<\/p>\n\n\n\n
              \u30e1\u30a4\u30f3\u30eb\u30fc\u30d7\uff08\u7e70\u308a\u8fd4\u3057\u51e6\u7406\uff09<\/h3>\n\n\n\n
              (while T<\/code><\/pre><\/div>\n\n\n\n
              \u7121\u9650\u30eb\u30fc\u30d7\u2192 ESC\u304bEnter\u3067\u7d42\u4e86\u3059\u308b\u307e\u3067\u7e70\u308a\u8fd4\u3057\u5b9f\u884c\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
              \u30d5\u30a3\u30ec\u30c3\u30c8\u534a\u5f84\u3092\u56fa\u5b9a<\/h3>\n\n\n\n
              (command "._FILLET" "_R" "0")<\/code><\/pre><\/div>\n\n\n\n
              \u30d5\u30a3\u30ec\u30c3\u30c8\u30b3\u30de\u30f3\u30c9\u3092\u5b9f\u884c\u3057\u3066\u3001\u30aa\u30d7\u30b7\u30e7\u30f3\u300c \u534a\u5f84(R)\u300d\u30920\u306b\u8a2d\u5b9a\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n\n\n\n
              \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u9078\u629e<\/h3>\n\n\n\n
              (setq ss (ssget '((0 . "LINE,ARC,LWPOLYLINE"))))<\/code><\/pre><\/div>\n\n\n\n
              \u7dda\u30fb\u5186\u5f27\u30fb\u30dd\u30ea\u30e9\u30a4\u30f3\u306e\u307f\u9078\u629e\u53ef\u80fd\u306b\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n\n\n\n
              \u30d6\u30ed\u30c3\u30af\u306a\u3069\u306e\u8981\u7d20\u3092\u56f2\u3093\u3067\u3082\u9664\u5916\u3055\u308c\u307e\u3059\u3002<\/p>\n\n\n\n
              \u7d42\u4e86\u51e6\u7406<\/h3>\n\n\n\n
              (if (not ss)\n  (progn\n    (prompt "\\n\u51e6\u7406\u3092\u7d42\u4e86\u3057\u307e\u3057\u305f\u3002")\n    (setvar 'cmdecho 1)\n    (princ)\n    (exit)\n  )\n)<\/code><\/pre><\/div>\n\n\n\n
              \u2192 Enter\u307e\u305f\u306fESC\u3067\u9078\u629e\u3057\u306a\u304b\u3063\u305f\u5834\u5408
              \u2192 \u51e6\u7406\u3092\u7d42\u4e86<\/p>\n\n\n\n
              \u30fbcmdecho 1 \u306b\u623b\u3059\u306e\u304c\u30dd\u30a4\u30f3\u30c8<\/p>\n\n\n\n
              \u30d5\u30a3\u30ec\u30c3\u30c8\u51e6\u7406\uff08\u6838\u5fc3\uff09<\/h3>\n\n\n\n
              (setq n 0)\n(repeat (1- (sslength ss))<\/code><\/pre><\/div>\n\n\n\n
              \u2192 \u9078\u629e\u3057\u305f\u6570\u22121\u56de\u7e70\u308a\u8fd4\u3059<\/p>\n\n\n\n
              (setq e1 (ssname ss n))\n(setq e2 (ssname ss (1+ n)))\n(command "._FILLET" e1 e2)<\/code><\/pre><\/div>\n\n\n\n
              \u2192 1\u672c\u76ee\u30682\u672c\u76ee
              \u2192 2\u672c\u76ee\u30683\u672c\u76ee
              \u2192 3\u672c\u76ee\u30684\u672c\u76ee\u2026<\/p>\n\n\n\n
              \u9806\u756a\u306b\u30da\u30a2\u3067\u30d5\u30a3\u30ec\u30c3\u30c8\u3057\u3066\u3044\u304d\u307e\u3059\u3002<\/p>\n\n\n
              \"\"\u51db(\u308a\u3093)<\/span><\/div>
              \n
              \u9078\u629e\u3057\u305f\u9806\u756a\u306b\u30d5\u30a3\u30ec\u30c3\u30c8\u3055\u308c\u308b\u306e\u3067\u3001\u9806\u756a\u3082\u610f\u8b58\u3057\u3066\u4f7f\u3044\u307e\u3057\u3087\u3046\uff01<\/p>\n<\/span><\/span><\/span><\/div><\/div><\/div><\/div>\n\n\n
              \u307e\u3068\u3081<\/h2>\n\n\n\n
              \n
                \n
              • \u30d5\u30a3\u30ec\u30c3\u30c8\u534a\u5f84\u3092\u81ea\u52d5\u30670\u306b\u8a2d\u5b9a\u3057\u3066\u3044\u308b<\/li>\n\n\n\n
              • \u9078\u629e\u3057\u305f\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u9806\u756a\u306b\u30da\u30a2\u3067\u63a5\u7d9a<\/li>\n\n\n\n
              • \u30eb\u30fc\u30d7\u51e6\u7406\u306b\u3088\u308a\u9023\u7d9a\u3067\u4f7f\u7528\u53ef\u80fd<\/li>\n<\/ul>\n\n\n\n
                \u5358\u7d14\u306a\u51e6\u7406\u3067\u3059\u304c\u3001\u624b\u4f5c\u696d\u3092\u5927\u5e45\u306b\u6e1b\u3089\u305b\u308b\u5b9f\u7528\u7684\u306aLISP\u3067\u3059\u3002<\/p>\n<\/div><\/div>\n\n\n\n
                \u95a2\u9023\u8a18\u4e8b<\/p>\n\n\n
                <\/div>\n\n\n\n","protected":false},"excerpt":{"rendered":"
                \u30d0\u30e9\u30d0\u30e9\u306b\u63cf\u3044\u305f\u7dda\u5206\u3092\u7d20\u65e9\u304f\u7e4b\u304e\u305f\u3044\u3068\u304d\u306f\u3001\u30d5\u30a3\u30ec\u30c3\u30c8\u534a\u5f840 \u304c\u4fbf\u5229\u3067\u3059\u3002 \u534a\u5f84\u30920\u306b\u3059\u308b\u3068\u89d2\u3092\u4e38\u3081\u305a\u306b\u3001\u7dda\u5206\u540c\u58eb\u3092\u5ef6\u9577\u30fb\u30c8\u30ea\u30e0\u3057\u3066\u4ea4\u70b9\u3067\u63a5\u7d9a\u3067\u304d\u307e\u3059\u3002\u305f\u3060\u3057\u901a\u5e38\u30b3\u30de\u30f3\u30c9\u3067\u306f\u3001\u305d\u306e\u90fd\u5ea6\u534a\u5f84\u3092\u78ba\u8a8d\u3057\u305f\u308a\u6307\u5b9a\u3057\u305f\u308a\u3059\u308b\u624b\u9593\u304c […]<\/p>\n","protected":false},"author":1,"featured_media":6560,"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-5625","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\/5625","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=5625"}],"version-history":[{"count":5,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=\/wp\/v2\/posts\/5625\/revisions"}],"predecessor-version":[{"id":6577,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=\/wp\/v2\/posts\/5625\/revisions\/6577"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=\/wp\/v2\/media\/6560"}],"wp:attachment":[{"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5625"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5625"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5625"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}