2002 에서는 되는데 14에서는 안되네요.. 한번 봐주시기 바랍니다.
이 리습좀 봐주세요..
;;; 계속 인수가 잘못되었다고 나옵니다. 도대체 뭐가 잘못된건지..
고수님들의 고견 부탁드립니다.
제가 생각하기엔 ssdel에서 잘못된거 같은데.. 한번 봐주세요.. 그럼..20000
(defun c:wwi( / ob ob2 count num name xxlist enti1 text2 dxy x xx y yy xy qnum qname qxxlist qenti1 qtext2 qdxy qx qxx qyy qxy) ;;;;
(graphscr)
(setq ob (ssget "x" '((0 . "text"))))
(setq count (sslength ob))
(setq num 0)
(repeat count
(setq name (ssname ob num))
(setq xxlist (entget name))
(setq enti1 (cdr (assoc -1 xxlist)))
(setq text2 (cdr (assoc 1 xxlist)))
(if ( /= text2 "")
(progn
(setq dxy (assoc 10 xxlist))
(setq x (nth 1 dxy))
(setq xx (rtos x))
(setq y (nth 2 dxy))
(setq yy (rtos y))
(setq xy (strcat xx "," yy))
(prompt "n total—>") (princ count)(prompt " now—>")(princ num)
(setq num (+ num 1))
(setq obn (ssdel name ob))
(setq qnum 0)
(repeat (- count 1)
(setq qname (ssname obn qnum))
(setq qxxlist (entget qname))
(setq qenti1 (cdr (assoc -1 qxxlist)))
(setq qtext2 (cdr (assoc 1 qxxlist)))
(setq qdxy (assoc 10 qxxlist))
(setq qx (nth 1 qdxy))
(setq qxx (rtos qx))
(setq qy (nth 2 qdxy))
(setq qyy (rtos qy))
(setq qxy (strcat qxx "," qyy))
(if ( = text2 qtext2)
(progn
(command "-layer" "m" "error2" "c" "6" "" "")
(command "circle" xy "5" )
(command "circle" qxy "5" )
);progn
(prompt "wow")
);if
(setq qnum ( + qnum 1))
);repeat
);progn
(prompt "wow")
)
);if
);end_defun
이 리습좀 봐주세요..
제가 올리는 리습을 좀 해석을 좀 해주세요..
표제란에 자동으로 텍스트를 로딩해주는 리습인데요..
양식이 바뀌어서 텍스트들의 위치를 바꾸어 주어야 하는데..
제가 리습은 거의 모르거든요,,
그래서 해석을 부탁드립니다..
그리고 어느부위를 고치면 위치가 이동되는지도 알려주심 감사..^^;;
그럼, 건강하세요..
R14에서뿐 아니라 2000,2002 에서도 첨부된 리습하나만으로는 실행안될것 같군요 "; error: malformed list on input" 이런 에러메세지와 함께..