・ 選択セットから図形名リストを作成

ユーザーにオブジェクトを選択してもらうのに、(ssget) を使う場合、あとの処理をするのに

    (setq n 0)
    (repeat (sslength ss)
      (setq en (ssname ss n))
      ・・・・・・・・・・・
      (setq n (1+ n))
      )
みたいに (repeat) で廻してた
でも、(ssnamex) 使うと、簡単に図形名のリストにできる
これは便利だ
(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