Welcome to Our Company
HOME シェアウェア 講習 リンク

 L9.拡張エンティティとして情報を付加する
   (defun c:ufl00009 ( / att1 att2 att3 ents enna exda enls newe )
   ;拡張エンティティとして情報を付加する
    (setq att1 "abcdef")
    (setq att2 "1000.0")
    (setq att3 "あいうえお")
    (setq ents (entsel "\n図形を選択:"))
    (if (/= ents nil)
     (progn
      (setq enna (nth 0 ents))
      (if (/= enna nil)
       (progn
        (regapp "UFPATT") ;使用するアプリケーション文字列
        (setq exda (list (list -3 (list "UFPATT" (cons 1000 att1)
        (cons 1000 att2) (cons 1000 att3)))))
        (setq enls (entget enna))
        (setq newe (append enls exda))
        (entmod newe)
       )
      )
     )
    )
    (princ)
   )
  上記AutoLISPファイル(ufl00009.lsp)のダウンロード

 説明
  regapp:アプリケーションを登録する。
  cons:1つの要素をリストに結合する。
  entmod:図形を変更する。

Presented By ユーザーフレンドリー
E-mail:usrfr@yk.rim.or.jp