・ 選択セットから図形名リストを作成
ユーザーにオブジェクトを選択してもらうのに、(ssget) を使う場合、あとの処理をするのに
(setq n 0) (repeat (sslength ss) (setq en (ssname ss n)) ・・・・・・・・・・・ (setq n (1+ n)) )みたいに (repeat) で廻してた
(defun Jo_ss2lst ( / ss ) ;サブルーチン 選択セットから図形名リストを作成; (defun Jof_ss2lst ( ss / lst_en ) (setq lst_en (mapcar 'cadr (ssnamex ss))) (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) lst_en) ) (vl-load-com) (if (setq ss (ssget)) (setq lst_en (Jof_ss2lst ss)) ) (mapcar 'print lst_en) (princ) )
参考文献:「おうとりすぷの広場」 記事番号20191