Enter\u30ad\u30fc\u3092\u62bc\u3059\u305f\u3073\u306b\u30d6\u30ed\u30c3\u30af\u304c90\u00b0\u305a\u3064\u56de\u8ee2\u3059\u308bLISP\u306f\u3001\u5411\u304d\u3092\u983b\u7e41\u306b\u5909\u3048\u308b\u90e8\u6750\u914d\u7f6e\u3067\u52b9\u679c\u3092\u767a\u63ee\u3057\u307e\u3059\u3002\u4f8b\u3048\u3070\u30dc\u30eb\u30c8\u30d6\u30ed\u30c3\u30af\u3092\u3001\u30cd\u30b8\u306e\u4ed8\u3051\u6839\u3092\u57fa\u70b9\u306b\u4f5c\u6210\u3057\u3066\u304a\u3051\u3070\u3001\u914d\u7f6e\u5f8c\u306bEnter\u3092\u62bc\u3059\u3060\u3051\u30670\u00b0\u300190\u00b0\u3001180\u00b0\u3001270\u00b0\u3068\u9806\u306b\u56de\u8ee2\u3057\u307e\u3059\u3002\u6bce\u56deROTATE\u30b3\u30de\u30f3\u30c9\u3092\u5b9f\u884c\u3057\u305f\u308a\u3001\u30d7\u30ed\u30d1\u30c6\u30a3\u3067\u56de\u8ee2\u89d2\u5ea6\u3092\u5165\u529b\u3059\u308b\u624b\u9593\u304c\u7701\u3051\u3001\u76f4\u611f\u7684\u306b\u5411\u304d\u3092\u6c7a\u3081\u3089\u308c\u307e\u3059\u3002ESC\u3067\u7d42\u4e86\u3059\u308b\u4ed5\u69d8\u306b\u3057\u3066\u304a\u3051\u3070\u3001\u4f5c\u696d\u306e\u6d41\u308c\u3092\u6b62\u3081\u305a\u306b\u4f7f\u3048\u307e\u3059\u3002\u5358\u7d14\u3067\u3059\u304c\u3001\u7e70\u308a\u8fd4\u3057\u914d\u7f6e\u304c\u591a\u3044\u56f3\u9762\u307b\u3069\u52b9\u679c\u3092\u5b9f\u611f\u3067\u304d\u308bLISP\u3067\u3059\u3002<\/p>\n
;; BR90 – \u30d6\u30ed\u30c3\u30af\u3092 Enter \u6bce\u306b +90\u00b0 \u56de\u8ee2
\n;; \u4f7f\u3044\u65b9\uff1a
\n;; 1) \u30b3\u30de\u30f3\u30c9 BR90 \u3092\u5b9f\u884c
\n;; 2) \u56de\u8ee2\u3055\u305b\u305f\u3044\u30d6\u30ed\u30c3\u30af\u53c2\u7167\uff08INSERT\uff09\u3092\u9078\u629e\uff08\u8907\u6570\u53ef\uff09
\n;; 3) Enter \u3067 +90\u00b0\u3001\u3055\u3089\u306b Enter \u3067 +90\u00b0 \u2026\uff08ESC \u3067\u7d42\u4e86\uff09
\n;;
\n;; \u5099\u8003\uff1a\u30d6\u30ed\u30c3\u30af\u306e\u633f\u5165\u70b9\u3092\u57fa\u6e96\u306b\u56de\u8ee2\u3057\u307e\u3059\u3002\u52d5\u7684\u30d6\u30ed\u30c3\u30af\u3067\u3082\u6709\u52b9\u3067\u3059\u3002
\n;; \u53cd\u6642\u8a08\u56de\u308a\u3002\u6642\u8a08\u56de\u308a\u306b\u3057\u305f\u3044\u5834\u5408\u306f inc \u306e\u7b26\u53f7\u3092\u8ca0\u306b\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n
(defun br90–rotate-ss (ss \/ i en obj rot inc)
\n (vl-load-com)
\n (setq inc (* pi 0.5)) ; +90\u00b0\uff08\u30e9\u30b8\u30a2\u30f3\uff09
\n (setq i 0)
\n (while (< i (sslength ss))\n (setq en (ssname ss i))\n (setq i (1+ i))\n (if (= (cdr (assoc 0 (entget en))) \"INSERT\") ; \u30d6\u30ed\u30c3\u30af\u53c2\u7167\u306e\u307f\u5bfe\u8c61\n (progn\n (setq obj (vlax-ename->vla-object en))
\n (setq rot (vla-get-Rotation obj)) ; \u73fe\u5728\u89d2\u5ea6\uff08\u30e9\u30b8\u30a2\u30f3\uff09
\n (vla-put-Rotation obj (+ rot inc)) ; +90\u00b0
\n )
\n )
\n )
\n (princ)
\n)<\/p>\n
(defun c:BR ( \/ ss)
\n (vl-load-com)
\n (princ “nBR90: \u30d6\u30ed\u30c3\u30af\u3092 +90\u00b0 \u56de\u8ee2\u3057\u307e\u3059\u3002”)
\n (while T
\n (princ “n\u30d6\u30ed\u30c3\u30af\u3092\u9078\u629e\uff08\u8907\u6570\u53ef\uff09 [Enter: \u524d\u56de\u5bfe\u8c61\u3092+90\u00b0 \/ ESC: \u7d42\u4e86]: “)
\n ;; \u30d6\u30ed\u30c3\u30af\u53c2\u7167\u3060\u3051\u3092\u9078\u629e\u5bfe\u8c61\u306b\u3059\u308b\u30d5\u30a3\u30eb\u30bf
\n (setq ss (ssget ‘((0 . “INSERT”))))
\n (cond
\n ;; \u65b0\u898f\u9078\u629e\u304c\u3042\u308b \u2192 \u8a18\u61b6\u3057\u3066\u56de\u8ee2
\n (ss
\n (setq *BR90-LAST* ss)
\n (br90–rotate-ss ss)
\n )
\n ;; Enter\uff08\u9078\u629e\u306a\u3057\uff09\u304b\u3064\u76f4\u524d\u9078\u629e\u304c\u3042\u308b \u2192 \u76f4\u524d\u9078\u629e\u3092\u518d\u5ea6 +90\u00b0
\n ((and (boundp ‘*BR90-LAST*) *BR90-LAST*)
\n (br90–rotate-ss *BR90-LAST*)
\n )
\n ;; Enter\uff08\u9078\u629e\u306a\u3057\uff09\u3067\u76f4\u524d\u9078\u629e\u3082\u306a\u3044 \u2192 \u7d42\u4e86
\n (T
\n (princ “n\u5bfe\u8c61\u304c\u9078\u629e\u3055\u308c\u3066\u3044\u307e\u305b\u3093\u3002\u7d42\u4e86\u3057\u307e\u3059\u3002”)
\n (setq ss nil)
\n (exit)
\n )
\n )
\n )
\n (princ)
\n) <\/p>\n","protected":false},"excerpt":{"rendered":"
Enter\u30ad\u30fc\u3092\u62bc\u3059\u305f\u3073\u306b\u30d6\u30ed\u30c3\u30af\u304c90\u00b0\u305a\u3064\u56de\u8ee2\u3059\u308bLISP\u306f\u3001\u5411\u304d\u3092\u983b\u7e41\u306b\u5909\u3048\u308b\u90e8\u6750\u914d\u7f6e\u3067\u52b9\u679c\u3092\u767a\u63ee\u3057\u307e\u3059\u3002\u4f8b\u3048\u3070\u30dc\u30eb\u30c8\u30d6\u30ed\u30c3\u30af\u3092\u3001\u30cd\u30b8\u306e\u4ed8\u3051\u6839\u3092\u57fa\u70b9\u306b\u4f5c\u6210\u3057\u3066\u304a\u3051\u3070\u3001\u914d\u7f6e\u5f8c\u306bEnter\u3092\u62bc\u3059\u3060\u3051\u30670\u00b0\u300190\u00b0\u300118 […]<\/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":[28],"class_list":["post-5679","post","type-post","status-publish","format-standard","hentry","category-uncategorized","category-26","tag-28"],"acf":[],"_links":{"self":[{"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=\/wp\/v2\/posts\/5679","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=5679"}],"version-history":[{"count":1,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=\/wp\/v2\/posts\/5679\/revisions"}],"predecessor-version":[{"id":5752,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=\/wp\/v2\/posts\/5679\/revisions\/5752"}],"wp:attachment":[{"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5679"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5679"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5679"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}