텍스트를 폴리선 특성안으로 집어넣는 리습

(vl-load-com)
(setq acadObject (vlax-get-acad-object))
(setq acadDocument (vla-get-ActiveDocument acadObject))
(setq mSpace (vla-get-ModelSpace acadDocument))

(defun GetPolyVtx(EntList) 
 (setq VtxList ‘()) 
 (foreach x EntList 
  (if (= (car x) 10) 
   (setq VtxList (append VtxList (list (cdr x)))) 
  ) 
 ) 
 VtxList 
)

(defun c:wod ()
 (setq OldVarList (list “osmode” “cmdecho” “cmddia” “filedia”))
 (setq OldVarValue (mapcar ‘getvar OldVarList))
 (mapcar ‘setvar OldVarList'(0 0 0 0))
 (setq sel (ssget (list (cons 0 “lwpolyline”))))
 (setq sp “_”) 
 (setq table-list (ade_odtablelist))
 (if (= (vl-position “Table” table-list) nil)
  (progn
   (setq tab_defn (list ‘(“tablename” . “Table”)'(“tabledesc” . “tabledesc”)
    (list “columns”
     (list ‘(“colname” . “Fields”)'(“coldesc” . “coldesc”)'(“coltype” . “character”)'(“defaultval” . “0”)))))
   (ade_oddefinetab tab_defn)
  )
 )
 (setq k 0)
 (repeat (sslength sel)
  (setq ss (ssname sel k))
  (setq en (entget ss))
  (if (= (vl-position “Table” (ade_odgettables ss)) nil)
   (ade_odaddrecord ss “Table”))
  (setq ptlist (GetPolyVtx en))
  (setq sel_txt (ssget “F” ptlist (list (cons 0 “Text”)))) 
  (if sel_txt
   (progn
    (setq j 0)
    (setq w_txt “”)
    (repeat (sslength sel_txt)
     (setq ss_txt (ssname sel_txt j))
     (setq ss_en (entget ss_txt))
     (if (= j 0)
      (setq w_txt (cdr (assoc 1 ss_en)))
      (setq w_txt (strcat w_txt sp (cdr (assoc 1 ss_en))))
     )
     (ade_odsetfield ss “Table” “Fields” 0 w_txt)
     (setq j (1+ j))
    )
   )
  )
  (setq k (1+ k))
 )
 (mapcar ‘setvar OldVarList OldVarValue)
 (princ)
)

폴리선과 텍스트가 겹친다는 가정하에 만들어 봤습니다.