{"id":5577,"date":"2026-03-10T13:39:23","date_gmt":"2026-03-10T13:39:23","guid":{"rendered":"https:\/\/ninjanoblog.com\/?p=5577"},"modified":"2026-04-26T03:35:40","modified_gmt":"2026-04-26T03:35:40","slug":"%e3%82%b0%e3%83%ab%e3%83%bc%e3%83%97%e3%82%b3%e3%83%9e%e3%83%b3%e3%83%89%e3%81%aelisp%e5%8c%96","status":"publish","type":"post","link":"https:\/\/ninjanoblog.com\/?p=5577","title":{"rendered":"\u30b0\u30eb\u30fc\u30d7\u30b3\u30de\u30f3\u30c9\u306eLISP\u5316"},"content":{"rendered":"\n

AutoCAD\u306e\u901a\u5e38\u306e\u30b0\u30eb\u30fc\u30d7\u30b3\u30de\u30f3\u30c9\u306f\u3001\u540d\u524d\u3092\u610f\u8b58\u3057\u306a\u304f\u3066\u3082\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u307e\u3068\u3081\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n

\u3057\u304b\u3057\u3001LISP\u3067\u30b0\u30eb\u30fc\u30d7\u3092\u4f5c\u6210\u3059\u308b\u5834\u5408\u306f\u3001\u30b0\u30eb\u30fc\u30d7\u540d\u3092\u6307\u5b9a\u3059\u308b -GROUP<\/code> \u30b3\u30de\u30f3\u30c9\u3092\u4f7f\u3046\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n\n\n\n

\u305d\u3053\u3067\u3001CDATE\u304b\u3089\u73fe\u5728\u6642\u523b\u3092\u53d6\u5f97\u3057\u3001\u30b0\u30eb\u30fc\u30d7\u540d\u3092\u81ea\u52d5\u751f\u6210\u3059\u308b\u3053\u3068\u3067\u3001\u540d\u524d\u3092\u5165\u529b\u305b\u305a\u306b\u30b0\u30eb\u30fc\u30d7\u5316\u3067\u304d\u308b\u3088\u3046\u306b\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n\n\n\n

\u4f8b\u3048\u3070\u3001G20260208172233 \u306e\u3088\u3046\u306a\u540d\u524d\u304c\u81ea\u52d5\u3067\u4f5c\u6210\u3055\u308c\u307e\u3059\u3002<\/p>\n\n\n\n

\u3053\u308c\u306b\u3088\u308a\u3001\u30e6\u30fc\u30b6\u30fc\u5074\u306f\u30b0\u30eb\u30fc\u30d7\u540d\u3092\u610f\u8b58\u305b\u305a\u3001\u901a\u5e38\u306e\u30b0\u30eb\u30fc\u30d7\u30b3\u30de\u30f3\u30c9\u306b\u8fd1\u3044\u611f\u899a\u3067\u4f7f\u7528\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n

;|\u6642\u523b\u30b0\u30eb\u30fc\u30d7\u4f5c\u6210\uff08\u5bfe\u8a71\u9078\u629e\uff09|;\n(defun _NowGroupName ( \/ s)\n;; CDATE \u2192 20260208.172233\n(setq s (rtos (getvar "CDATE") 2 6))\n;; \u5c0f\u6570\u70b9\u524a\u9664 \u2192 20260208172233\n(setq s (vl-string-subst "" "." s))\n(strcat "G" s)\n)\n\n(defun c:TGRP ( \/ gname desc iss )\n(vl-load-com)\n(setq gname (_NowGroupName))\n(setq desc "\u30b0\u30eb\u30fc\u30d7\u306e\u8aac\u660e")\n(prompt (strcat "\\n\u30b0\u30eb\u30fc\u30d7\u540d: " gname))\n\n;; \u4e8b\u524d\u9078\u629e\u304c\u3042\u308b\u304b\u30c1\u30a7\u30c3\u30af\n(setq iss (ssget "_I"))\n\n(if iss\n;; \u4e8b\u524d\u9078\u629e\u3042\u308a\n(command-s "._-GROUP" "_C" gname desc iss "")\n;; \u4e8b\u524d\u9078\u629e\u306a\u3057\n(command "._-GROUP" "_C" gname desc pause)\n)\n\n;; \u9078\u629e\u89e3\u9664\n(sssetfirst nil nil)\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\u300cTGRP\u300d\u3092\u5165\u529b<\/li>\n\n\n\n
  • \u30b0\u30eb\u30fc\u30d7\u306b\u3057\u305f\u3044\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u9078\u629e<\/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\u300cTGRP\u300d\u3092\u5165\u529b\u3057\u307e\u3059<\/li>\n\n\n\n
    • \u30b0\u30eb\u30fc\u30d7\u306b\u3057\u305f\u3044\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u9078\u629e\u3057\u307e\u3059<\/li>\n<\/ul>\n<\/div><\/div>\n\n\n\n
      STEP<\/span><\/div>
      \n
      \"\"<\/figure>\n\n\n\n
        \n
      • \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304c\u30b0\u30eb\u30fc\u30d7\u5316\u3055\u308c\u307e\u3057\u305f<\/li>\n\n\n\n
      • \u30b0\u30eb\u30fc\u30d7\u306b\u3057\u305f\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u5468\u56f2\u306b\u30b0\u30ec\u30fc\u306e\u67a0\u304c\u8868\u793a\u3055\u308c\u307e\u3059<\/li>\n<\/ul>\n\n\n\n
        \u203b\u67a0\u304c\u8868\u793a\u3055\u308c\u306a\u3044\u5834\u5408\u306f\u3001\u300cCtrl\u300d\u300cShift\u300d\u300cA\u300d\u3067\u30b0\u30eb\u30fc\u30d7\u3092\u30aa\u30f3\u306b\u3057\u3066\u304f\u3060\u3055\u3044<\/p>\n<\/div><\/div>\n<\/div>\n\n\n\n
        LISP\u89e3\u8aac<\/h2>\n\n\n\n
        \u3053\u306eLISP\u306f\u3001
        \u300c\u30b0\u30eb\u30fc\u30d7\u540d\u3092\u81ea\u52d5\u751f\u6210\u3057\u3066\u3001\u305d\u306e\u307e\u307e\u30b0\u30eb\u30fc\u30d7\u5316\u3059\u308b\u300d\u4ed5\u7d44\u307f\u306b\u306a\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n\n\n\n
        (defun _NowGroupName ( \/ s)<\/code><\/pre><\/div>\n\n\n\n
        \u30b0\u30eb\u30fc\u30d7\u540d\u3092\u4f5c\u308b\u305f\u3081\u306e\u95a2\u6570\u3067\u3059\u3002<\/p>\n\n\n\n
        (setq s (rtos (getvar "CDATE") 2 6))<\/code><\/pre><\/div>\n\n\n\n
        \u73fe\u5728\u6642\u523b\u3092\u53d6\u5f97\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n\n\n\n
        \u3053\u3061\u3089\u3092\u30b0\u30eb\u30fc\u30d7\u540d\u306b\u4f7f\u7528\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
        \u3053\u3046\u3059\u308b\u3053\u3068\u3067\u6bce\u79d2\u9055\u3046\u30b0\u30eb\u30fc\u30d7\u540d\u3092\u4f5c\u6210\u3067\u304d\u3001\u91cd\u8907\u3092\u9632\u304e\u307e\u3059\u3002<\/p>\n\n\n\n
        (setq s (vl-string-subst "" "." s))<\/code><\/pre><\/div>\n\n\n\n
        \u73fe\u5728\u6642\u523b\u306e\u5c0f\u6570\u70b9\u3092\u524a\u9664\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n\n\n\n
        (strcat "G" s)<\/code><\/pre><\/div>\n\n\n\n
        \u30b0\u30eb\u30fc\u30d7\u540d\u306e\u5148\u982d\u306b\u300cG\u300d\u3092\u4ed8\u3051\u308b\u95a2\u6570\u3067\u3059\u3002<\/p>\n\n\n\n
        \u540d\u524d\u304c\u5206\u304b\u308a\u3084\u3059\u304f\u306a\u308a\u307e\u3059\u3002<\/p>\n\n\n\n
        (defun c:TGRP ( \/ gname desc iss )<\/code><\/pre><\/div>\n\n\n\n
        \u30b3\u30de\u30f3\u30c9\u540d\u300cTGRP\u300d<\/p>\n\n\n\n
        (setq gname (_NowGroupName))<\/code><\/pre><\/div>\n\n\n\n
        \u81ea\u52d5\u3067\u30b0\u30eb\u30fc\u30d7\u540d\u3092\u4f5c\u6210\u3057\u307e\u3059<\/p>\n\n\n\n
        (setq iss (ssget "_I"))<\/code><\/pre><\/div>\n\n\n\n
        \u4e8b\u524d\u9078\u629e\u304c\u3042\u308b\u304b\u3069\u3046\u304b\u3067\u51e6\u7406\u3092\u5206\u3051\u307e\u3059<\/p>\n\n\n\n
        (command-s "._-GROUP" "_C" gname desc iss "")<\/code><\/pre><\/div>\n\n\n\n
        \u9078\u629e\u6e08\u307f\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u305d\u306e\u307e\u307e\u30b0\u30eb\u30fc\u30d7\u5316\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
        (command "._-GROUP" "_C" gname desc pause)<\/code><\/pre><\/div>\n\n\n\n
        \u30b3\u30de\u30f3\u30c9\u5b9f\u884c\u5f8c\u306b\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u9078\u629e\u3057\u307e\u3059<\/p>\n\n\n\n
        (sssetfirst nil nil)<\/code><\/pre><\/div>\n\n\n\n
        \u30b0\u30eb\u30fc\u30d7\u5316\u5f8c\u306b\u9078\u629e\u3092\u89e3\u9664\u2192 \u4f5c\u696d\u3092\u30b9\u30c3\u30ad\u30ea\u3055\u305b\u307e\u3059\u3002<\/p>\n\n\n
        \"\"\u51db(\u308a\u3093)<\/span><\/div>
        \n
        \u540d\u524d\u306f\u88cf\u3067\u81ea\u52d5\u751f\u6210\u3057\u3066\u308b\u3060\u3051\u306a\u306e\u3067\u3001\u666e\u901a\u306e\u30b0\u30eb\u30fc\u30d7\u611f\u899a\u3067\u4f7f\u3048\u307e\u3059\u3088\uff01<\/p>\n<\/span><\/span><\/span><\/div><\/div><\/div><\/div>\n\n\n
        \u307e\u3068\u3081<\/h2>\n\n\n\n
        \n
          \n
        • LISP\u3067\u30b0\u30eb\u30fc\u30d7\u5316\u3059\u308b\u306b\u306f\u3001\u30b0\u30eb\u30fc\u30d7\u540d\u306e\u6307\u5b9a\u304c\u5fc5\u8981<\/li>\n\n\n\n
        • CDATE\u3092\u4f7f\u3048\u3070\u73fe\u5728\u6642\u523b\u304b\u3089\u30b0\u30eb\u30fc\u30d7\u540d\u3092\u81ea\u52d5\u4f5c\u6210\u3067\u304d\u308b<\/li>\n<\/ul>\n\n\n\n
          \u30b3\u30de\u30f3\u30c9\u306b\u8fd1\u3044\u611f\u899a\u3067\u7d20\u65e9\u304f\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u307e\u3068\u3081\u3089\u308c\u307e\u3059\u3002<\/p>\n<\/div><\/div>\n\n\n\n
          \u95a2\u9023\u8a18\u4e8b<\/p>\n\n\n
          <\/div>","protected":false},"excerpt":{"rendered":"
          AutoCAD\u306e\u901a\u5e38\u306e\u30b0\u30eb\u30fc\u30d7\u30b3\u30de\u30f3\u30c9\u306f\u3001\u540d\u524d\u3092\u610f\u8b58\u3057\u306a\u304f\u3066\u3082\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u307e\u3068\u3081\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002 \u3057\u304b\u3057\u3001LISP\u3067\u30b0\u30eb\u30fc\u30d7\u3092\u4f5c\u6210\u3059\u308b\u5834\u5408\u306f\u3001\u30b0\u30eb\u30fc\u30d7\u540d\u3092\u6307\u5b9a\u3059\u308b -GROUP \u30b3\u30de\u30f3\u30c9\u3092\u4f7f\u3046\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002 \u305d\u3053\u3067 […]<\/p>\n","protected":false},"author":1,"featured_media":6741,"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-5577","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\/5577","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=5577"}],"version-history":[{"count":4,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=\/wp\/v2\/posts\/5577\/revisions"}],"predecessor-version":[{"id":6748,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=\/wp\/v2\/posts\/5577\/revisions\/6748"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=\/wp\/v2\/media\/6741"}],"wp:attachment":[{"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5577"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5577"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5577"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}