Kor_Stom 님 문의좀 할께요.

지난 글 올라온 글 보는중에…

버텍스 구간마다 숫자와 원을 기입하는 리습을 만들어 노셨던데..

거기서 질문좀 할꼐요!!

급하게 만드셨다했는데…

=======================================================================
(defun c:test( / sl-divlst sl-space ss obs)
 (defun sl-divlst (lst num / e blst nlst)
  (while (setq e (car lst))
   (repeat num
    (if e (setq blst (cons e blst)))
    (setq lst (cdr lst) e (car lst))  
   )
   (setq nlst (append nlst (list (reverse blst))) blst nil)
  )
  nlst
 )
 (defun sl-space () (vlax-get (vla-get-activedocument (vlax-get-acad-object)) (if (= (getvar “cvport”) 1) ‘paperspace ‘modelspace)))
 (if (setq ss (ssget ‘((0 . “LWPOLYLINE”))))
  (progn
   (setq obs (mapcar ‘vlax-ename->vla-object (vl-remove-if ‘listp (mapcar ‘cadr (ssnamex ss)))))
   (setq space (sl-space))
   (mapcar
    ‘(lambda (ob / n)
     (setq n 0)
     (foreach p (sl-divlst (vlax-get ob ‘Coordinates) 2)
      (vla-addtext space n (vlax-3d-point p) 250)        <=== 글자를 Middle/center 로 할순 없나요?
      (vla-addcircle space (vlax-3d-point p) 100)
      (setq n (1+ n))
     )
    )
    obs
   )
   (vlax-release-object space)
  )
 )
 (princ)
)