poly선에 심볼 붙이는 Lisp입니다. 수정 부탁드립니다

; 폴리선에 블럭붙이기 – cadori

 (defun c:ccbb ( / doc index ss plobjlist blobjlist basept tmpt tmptlist tmpdstlist mindst position targetpt )
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (setq index 0 plobjlist nil)
  (prompt “n폴리라인을 선택하세요 …”)
  (if (setq ss (ssget (list (cons 0 “LWPOLYLINE”))))
    (repeat (sslength ss)
      (setq obj (vlax-ename->vla-object (ssname ss index)))
      (setq plobjlist (cons obj plobjlist))
      (setq index (1+ index))
    )
  )
  (setq index 0 blobjlist nil)
  (prompt “n폴리라인에 붙일 블럭을 선택하세요 …”)
  (if (setq ss (ssget (list (cons 0 “INSERT”))))
    (repeat (sslength ss)
      (setq obj (vlax-ename->vla-object (ssname ss index)))
      (setq blobjlist (cons obj blobjlist))
      (setq index (1+ index))
    )
  )
  (vla-startundomark doc)
  (setq count 0)
  (foreach blobj blobjlist
    (setq basept (vlax-get blobj ‘insertionpoint))
    (setq tmptlist nil tmpdstlist nil)
    (foreach plobj plobjlist
    (setq tmpt  (Vlax-Curve-GetPointAtParam plobj (fix (+ (Vlax-Curve-GetParamAtPoint plobj (vlax-curve-getclosestpointto plobj basept)  ) 0.5))))
      (setq tmptlist (cons tmpt tmptlist))
      (setq tmpdstlist (cons (distance basept tmpt) tmpdstlist))
    )
    (setq mindst (apply ‘min tmpdstlist))
    (setq position (vl-position mindst tmpdstlist))
    (setq targetpt (nth position tmptlist))
    (vla-move blobj (vlax-3d-point basept) (vlax-3d-point targetpt))
    (setq count (1+ count))
    (grtext -1 (strcat “작업중 … ” (rtos (* (/ (float count) (length blobjlist)) 100) 2 0) ” % |  남은블럭 ” (itoa (- (length blobjlist) count)) ” 개”))
  )
  (grtext -1 “”)
  (vla-endundomark doc)
  (princ)
)
(vl-load-com)
(prompt “n[ ccbb ]”)
(princ)