(defun C:ass()
(setq wr (open “c:\as_code.txt” “a”))
(setq bndry (ssget))
(setq num (sslength bndry))
(setq index 0)
(repeat num
(setq entg (entget (ssname bndry index)))
(setq index (1+ index))
(princ entg)
(if (or (= (cdr (assoc 0 entg)) “TEXT”)(= (cdr (assoc 0 entg)) “MTEXT”))
(progn
(setq xx (cadr (assoc ’10 entg)))
(setq px (rtos xx 2 4))
(setq yy (caddr (assoc ’10 entg)))
(setq py (rtos yy 2 4))
(setq pz (cdr (assoc ‘1 entg)))
(setq ptlist (strcat px “,” py “,” pz))
(write-line ptlist wr)
)
)
);repeat
(close wr)
)
리습중에 “index”의 역할이 뭔지 궁금합니다..
도움주세요^^