{"id":5624,"date":"2026-03-10T13:38:04","date_gmt":"2026-03-10T13:38:04","guid":{"rendered":"https:\/\/ninjanoblog.com\/?p=5624"},"modified":"2026-03-30T11:22:17","modified_gmt":"2026-03-30T11:22:17","slug":"%e3%83%ac%e3%82%a4%e3%82%a2%e3%82%a6%e3%83%88%e3%82%92%e5%8c%ba%e5%88%87%e3%82%8b%e7%b7%9a%e3%82%92%e6%8c%bf%e5%85%a5%e3%81%99%e3%82%8blisp","status":"publish","type":"post","link":"https:\/\/ninjanoblog.com\/?p=5624","title":{"rendered":"\u30ec\u30a4\u30a2\u30a6\u30c8\u3092\u533a\u5207\u308b\u7dda\u3092\u633f\u5165\u3059\u308bLISP"},"content":{"rendered":"

\u56f3\u67a0\u5185\u306b\u8907\u6570\u306e\u65ad\u9762\u3084\u8a73\u7d30\u56f3\u3092\u914d\u7f6e\u3059\u308b\u969b\u3001\u6bce\u56de\u533a\u5207\u308a\u7dda\u3084\u30d3\u30e5\u30fc\u540d\u79f0\u3092\u624b\u4f5c\u696d\u3067\u5165\u308c\u308b\u306e\u306f\u624b\u9593\u3067\u3059\u3002\u305d\u3053\u3067\u3001\u30ec\u30a4\u30a2\u30a6\u30c8\u3092\u81ea\u52d5\u3067\u5206\u5272\u3057\u3001\u533a\u5207\u308a\u7dda\u3068\u300c\u30d3\u30e5\u30fc\u540d\u79f0\u300d\u30d6\u30ed\u30c3\u30af\u3092\u633f\u5165\u3059\u308bLISP\u3092\u4f5c\u6210\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n

\u3053\u306eLISP\u306f\u4ee5\u4e0b\u306e\u30d1\u30bf\u30fc\u30f3\u306b\u5bfe\u5fdc\u3057\u3066\u3044\u307e\u3059\u3002
\n\u30fbLAY0\uff1a\u5206\u5272\u306a\u3057\uff08\u30d3\u30e5\u30fc\u540d\u79f0\u306e\u307f\u914d\u7f6e\uff09
\n\u30fbLAY1\uff1a\u4e8c\u5206\u5272\uff08\u7e26\uff09
\n\u30fbLAY2\uff1a\u4e8c\u5206\u5272\uff08\u6a2a\uff09
\n\u30fbLAY3\uff1a\u4e09\u5206\u5272\uff08\u7e26\uff09
\n\u30fbLAY4\uff1a\u56db\u5206\u5272\uff08\u7b49\u5206\uff09<\/p>\n

\u5b9f\u884c\u3059\u308b\u3068\u3001\u81ea\u52d5\u3067\u300c\u30ec\u30a4\u30a2\u30a6\u30c8\u7528\u300d\u753b\u5c64\u3092\u4f5c\u6210\uff08\u306a\u3051\u308c\u3070\u65b0\u898f\u4f5c\u6210\uff09\u3057\u3001\u6307\u5b9a\u5ea7\u6a19\u306bLINE\u3067\u533a\u5207\u308a\u7dda\u3092\u63cf\u753b\u3057\u307e\u3059\u3002\u305d\u306e\u5f8c\u3001\u300c\u30d3\u30e5\u30fc\u540d\u79f0\u300d\u30d6\u30ed\u30c3\u30af\u3092\u6240\u5b9a\u4f4d\u7f6e\u306b\u633f\u5165\u3057\u3001\u5206\u89e3\u3057\u3066\u753b\u5c64\u3092\u7d71\u4e00\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n

\u5206\u89e3\u3057\u3066\u3044\u308b\u7406\u7531\u306f\u3001\u5f8c\u304b\u3089\u500b\u5225\u306b\u6587\u5b57\u7de8\u96c6\u3084\u5fae\u8abf\u6574\u3092\u3057\u3084\u3059\u304f\u3059\u308b\u305f\u3081\u3067\u3059\u3002\u533a\u5207\u308a\u7dda\u3068\u540d\u79f0\u306e\u4f4d\u7f6e\u306f\u3042\u3089\u304b\u3058\u3081\u56f3\u67a0\u5bf8\u6cd5\u306b\u5408\u308f\u305b\u3066\u5ea7\u6a19\u6307\u5b9a\u3057\u3066\u3044\u308b\u305f\u3081\u3001\u6bce\u56de\u30ba\u30ec\u308b\u3053\u3068\u306a\u304f\u6b63\u78ba\u306b\u914d\u7f6e\u3055\u308c\u307e\u3059\u3002<\/p>\n

\u56f3\u9762\u30ec\u30a4\u30a2\u30a6\u30c8\u3092\u6a19\u6e96\u5316\u3057\u3066\u3044\u308b\u5834\u5408\u3001\u3053\u306eLISP\u3092\u4f7f\u3046\u3053\u3068\u3067\u6570\u5206\u304b\u304b\u308b\u4f5c\u696d\u304c\u4e00\u77ac\u3067\u5b8c\u4e86\u3057\u307e\u3059\u3002\u8907\u6570\u56f3\u9762\u3092\u6271\u3046\u73fe\u5834\u307b\u3069\u52b9\u679c\u304c\u5927\u304d\u3044\u3001\u81ea\u52d5\u5316\u5411\u3051\u306e\u5b9f\u52d9LISP\u3067\u3059\u3002<\/p>\n

;;; \u5206\u5272\u306a\u3057
\n;;; \u30b3\u30de\u30f3\u30c9\u540d\uff1aLAY0<\/p>\n

(defun c:LAY0 (\/ layname p1 p2 blkname b1 b2 ent_line ent_blk1 ent_blk2)
\n (vl-load-com)<\/p>\n

(setq layname “\u30ec\u30a4\u30a2\u30a6\u30c8\u7528”)<\/p>\n

(if (not (tblsearch “LAYER” layname))
\n (command “_.LAYER” “_M” layname “_C” “7” “” “”)
\n )<\/p>\n

(setq blkname “\u30d3\u30e5\u30fc\u540d\u79f0”)
\n (setq b1 (list 208.9591 31.9322 0.0))<\/p>\n

;; \u30d6\u30ed\u30c3\u30af1
\n (command “_.-INSERT” blkname b1 1 1 0)
\n (setq ent_blk1 (entlast))
\n (command “_.EXPLODE” ent_blk1)<\/p>\n

;; \u5143\u306e CHPROP \u306e\u307e\u307e
\n (command “_.CHPROP” ent_blk1 “” “_LA” layname “”)<\/p>\n

(princ “nLAY0 \u5b8c\u4e86\uff08\u30d6\u30ed\u30c3\u30af\u5206\u89e3\u6e08\uff09”)
\n (princ)
\n)<\/p>\n

;;; \u4e8c\u5206\u5272(\u7e26)
\n;;; \u30b3\u30de\u30f3\u30c9\u540d\uff1aLAY1<\/p>\n

(defun c:LAY1 (\/ layname p1 p2 b1 b2 blkname ent_line ent_blk1 ent_blk2)
\n (vl-load-com)<\/p>\n

(setq layname “\u30ec\u30a4\u30a2\u30a6\u30c8\u7528”)<\/p>\n

(if (not (tblsearch “LAYER” layname))
\n (command “_.LAYER” “_M” layname “_C” “7” “” “”)
\n )<\/p>\n

(setq p1 (list 208.9591 286.5418 0.0))
\n (setq p2 (list 208.9591 21.9322 0.0))
\n (command “_.LINE” p1 p2 “”)
\n (setq ent_line (entlast))<\/p>\n

(setq blkname “\u30d3\u30e5\u30fc\u540d\u79f0”)
\n (setq b1 (list 107.7739 31.9322 0.0))
\n (setq b2 (list 310.1443 31.9322 0.0))<\/p>\n

;; \u30d6\u30ed\u30c3\u30af1
\n (command “_.-INSERT” blkname b1 1 1 0)
\n (setq ent_blk1 (entlast))
\n (command “_.EXPLODE” ent_blk1)<\/p>\n

;; \u30d6\u30ed\u30c3\u30af2
\n (command “_.-INSERT” blkname b2 1 1 0)
\n (setq ent_blk2 (entlast))
\n (command “_.EXPLODE” ent_blk2)<\/p>\n

;; \u753b\u5c64\u5909\u66f4\uff08\u5143\u306e\u307e\u307e\uff09
\n (command “_.CHPROP” ent_line “” “_LA” layname “”)
\n (command “_.CHPROP” ent_blk1 “” “_LA” layname “”)
\n (command “_.CHPROP” ent_blk2 “” “_LA” layname “”)<\/p>\n

(princ “nLAY1 \u5b8c\u4e86\uff08\u30d6\u30ed\u30c3\u30af\u5206\u89e3\u6e08\uff09”)
\n (princ)
\n)<\/p>\n

;;; \u4e8c\u5206\u5272(\u6a2a)
\n;;; \u30b3\u30de\u30f3\u30c9\u540d\uff1aLAY2<\/p>\n

(defun c:LAY2 (\/ layname p1 p2 blkname b1 b2 ent_line ent_blk1 ent_blk2)
\n (vl-load-com)<\/p>\n

(setq layname “\u30ec\u30a4\u30a2\u30a6\u30c8\u7528”)<\/p>\n

(if (not (tblsearch “LAYER” layname))
\n (command “_.LAYER” “_M” layname “_C” “7” “” “”)
\n )<\/p>\n

(setq p1 (list 6.58864 154.237 0.0))
\n (setq p2 (list 411.3295 154.237 0.0))
\n (command “_.LINE” p1 p2 “”)
\n (setq ent_line (entlast))<\/p>\n

(setq blkname “\u30d3\u30e5\u30fc\u540d\u79f0”)
\n (setq b1 (list 208.9591 164.237 0.0))
\n (setq b2 (list 208.9591 31.9322 0.0))<\/p>\n

;; \u30d6\u30ed\u30c3\u30af1
\n (command “_.-INSERT” blkname b1 1 1 0)
\n (setq ent_blk1 (entlast))
\n (command “_.EXPLODE” ent_blk1)<\/p>\n

;; \u30d6\u30ed\u30c3\u30af2
\n (command “_.-INSERT” blkname b2 1 1 0)
\n (setq ent_blk2 (entlast))
\n (command “_.EXPLODE” ent_blk2)<\/p>\n

;; \u5143\u306e CHPROP \u306e\u307e\u307e
\n (command “_.CHPROP” ent_line “” “_LA” layname “”)
\n (command “_.CHPROP” ent_blk1 “” “_LA” layname “”)
\n (command “_.CHPROP” ent_blk2 “” “_LA” layname “”)<\/p>\n

(princ “nLAY2 \u5b8c\u4e86\uff08\u30d6\u30ed\u30c3\u30af\u5206\u89e3\u6e08\uff09”)
\n (princ)
\n)<\/p>\n

;;; \u4e09\u5206\u5272(\u7e26)
\n;;; \u30b3\u30de\u30f3\u30c9\u540d\uff1aLAY3<\/p>\n

(defun c:LAY3 (\/ layname blkname p1a p1b p2a p2b b1 b2 b3
\n ent1 ent2 ent_blk1 ent_blk2 ent_blk3)<\/p>\n

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

(setq layname “\u30ec\u30a4\u30a2\u30a6\u30c8\u7528”)<\/p>\n

(if (not (tblsearch “LAYER” layname))
\n (command “_.LAYER” “_M” layname “_C” “7” “” “”)
\n )<\/p>\n

;; 1\u672c\u76ee
\n (setq p1a (list 141.5023 286.5418 0.0))
\n (setq p1b (list 141.5023 21.9322 0.0))
\n (command “_.LINE” p1a p1b “”)
\n (setq ent1 (entlast))<\/p>\n

;; 2\u672c\u76ee
\n (setq p2a (list 276.4159 286.5418 0.0))
\n (setq p2b (list 276.4159 21.9322 0.0))
\n (command “_.LINE” p2a p2b “”)
\n (setq ent2 (entlast))<\/p>\n

(setq blkname “\u30d3\u30e5\u30fc\u540d\u79f0”)<\/p>\n

(setq b1 (list 74.0455 31.9322 0.0))
\n (setq b2 (list 208.9591 31.9322 0.0))
\n (setq b3 (list 343.8727 31.9322 0.0))<\/p>\n

;; \u30d6\u30ed\u30c3\u30af1
\n (command “_.-INSERT” blkname b1 1 1 0)
\n (setq ent_blk1 (entlast))
\n (command “_.EXPLODE” ent_blk1)<\/p>\n

;; \u30d6\u30ed\u30c3\u30af2
\n (command “_.-INSERT” blkname b2 1 1 0)
\n (setq ent_blk2 (entlast))
\n (command “_.EXPLODE” ent_blk2)<\/p>\n

;; \u30d6\u30ed\u30c3\u30af3
\n (command “_.-INSERT” blkname b3 1 1 0)
\n (setq ent_blk3 (entlast))
\n (command “_.EXPLODE” ent_blk3)<\/p>\n

;; \u5143\u306e CHPROP \u306e\u307e\u307e
\n (command “_.CHPROP” ent1 “” “_LA” layname “”)
\n (command “_.CHPROP” ent2 “” “_LA” layname “”)<\/p>\n

(command “_.CHPROP” ent_blk1 “” “_LA” layname “”)
\n (command “_.CHPROP” ent_blk2 “” “_LA” layname “”)
\n (command “_.CHPROP” ent_blk3 “” “_LA” layname “”)<\/p>\n

(princ “nLAY3 \u5b8c\u4e86\uff08\u30d6\u30ed\u30c3\u30af\u5206\u89e3\u6e08\uff09”)
\n (princ)
\n)<\/p>\n

;;; 4\u5206\u5272(\u7b49\u5206)
\n;;; \u30b3\u30de\u30f3\u30c9\u540d\uff1aLAY4<\/p>\n

(defun c:LAY4 (\/ layname blkname pairs p1 p2 entlist ent_line
\n b1 b2 b3 b4 ent_blk1 ent_blk2 ent_blk3 ent_blk4)<\/p>\n

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

(setq layname “\u30ec\u30a4\u30a2\u30a6\u30c8\u7528”)<\/p>\n

(if (not (tblsearch “LAYER” layname))
\n (command “_.LAYER” “_M” layname “_C” “7” “” “”)
\n )<\/p>\n

;; 4\u672c\u306e\u7dda
\n (setq pairs
\n (list
\n (list (list 208.959 154.237 0.0) (list 6.58864 154.237 0.0))
\n (list (list 208.959 154.237 0.0) (list 208.9591 286.5418 0.0))
\n (list (list 208.959 154.237 0.0) (list 411.3295 154.237 0.0))
\n (list (list 208.959 154.237 0.0) (list 208.9591 21.9322 0.0))
\n )
\n )<\/p>\n

(setq entlist nil)<\/p>\n

(foreach pair pairs
\n (setq p1 (car pair)
\n p2 (cadr pair))
\n (command “_.LINE” p1 p2 “”)
\n (setq entlist (cons (entlast) entlist))
\n )<\/p>\n

(setq blkname “\u30d3\u30e5\u30fc\u540d\u79f0”)<\/p>\n

(setq b1 (list 107.7739 164.237 0.0))
\n (setq b2 (list 310.1443 164.237 0.0))
\n (setq b3 (list 107.7739 31.9322 0.0))
\n (setq b4 (list 310.1443 31.9322 0.0))<\/p>\n

;; \u30d6\u30ed\u30c3\u30af1
\n (command “_.-INSERT” blkname b1 1 1 0)
\n (setq ent_blk1 (entlast))
\n (command “_.EXPLODE” ent_blk1)<\/p>\n

;; \u30d6\u30ed\u30c3\u30af2
\n (command “_.-INSERT” blkname b2 1 1 0)
\n (setq ent_blk2 (entlast))
\n (command “_.EXPLODE” ent_blk2)<\/p>\n

;; \u30d6\u30ed\u30c3\u30af3
\n (command “_.-INSERT” blkname b3 1 1 0)
\n (setq ent_blk3 (entlast))
\n (command “_.EXPLODE” ent_blk3)<\/p>\n

;; \u30d6\u30ed\u30c3\u30af4
\n (command “_.-INSERT” blkname b4 1 1 0)
\n (setq ent_blk4 (entlast))
\n (command “_.EXPLODE” ent_blk4)<\/p>\n

;; \u5143\u306e CHPROP \u306e\u307e\u307e
\n (foreach e entlist
\n (command “_.CHPROP” e “” “_LA” layname “”)
\n )<\/p>\n

(command “_.CHPROP” ent_blk1 “” “_LA” layname “”)
\n (command “_.CHPROP” ent_blk2 “” “_LA” layname “”)
\n (command “_.CHPROP” ent_blk3 “” “_LA” layname “”)
\n (command “_.CHPROP” ent_blk4 “” “_LA” layname “”)<\/p>\n

(princ “nLAY4 \u5b8c\u4e86\uff08\u30d6\u30ed\u30c3\u30af\u5206\u89e3\u6e08\uff09”)
\n (princ)
\n) <\/p>\n","protected":false},"excerpt":{"rendered":"

\u56f3\u67a0\u5185\u306b\u8907\u6570\u306e\u65ad\u9762\u3084\u8a73\u7d30\u56f3\u3092\u914d\u7f6e\u3059\u308b\u969b\u3001\u6bce\u56de\u533a\u5207\u308a\u7dda\u3084\u30d3\u30e5\u30fc\u540d\u79f0\u3092\u624b\u4f5c\u696d\u3067\u5165\u308c\u308b\u306e\u306f\u624b\u9593\u3067\u3059\u3002\u305d\u3053\u3067\u3001\u30ec\u30a4\u30a2\u30a6\u30c8\u3092\u81ea\u52d5\u3067\u5206\u5272\u3057\u3001\u533a\u5207\u308a\u7dda\u3068\u300c\u30d3\u30e5\u30fc\u540d\u79f0\u300d\u30d6\u30ed\u30c3\u30af\u3092\u633f\u5165\u3059\u308bLISP\u3092\u4f5c\u6210\u3057\u3066\u3044\u307e\u3059\u3002 \u3053\u306eLISP\u306f\u4ee5\u4e0b\u306e\u30d1 […]<\/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-5624","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\/5624","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=5624"}],"version-history":[{"count":1,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=\/wp\/v2\/posts\/5624\/revisions"}],"predecessor-version":[{"id":5769,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=\/wp\/v2\/posts\/5624\/revisions\/5769"}],"wp:attachment":[{"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5624"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5624"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/ninjanoblog.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5624"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}