(defun c:w8(/ s1 s2 s3)
(GRAPHSCR)
(setq ata (getvar “attdia”))
(setq cdo (getvar “cmdecho”))
(setvar “attdia” 0)
(setvar “cmdecho” 0)
(command “ZOOM” “E”)

(setq s1 (ssget “x” ‘((8 . “SCHM-TEXT”))))
(command “chprop” “p” “” “la” “SCHM” “”)

(setq s2 (ssget “x” ‘((8 . “EQUP-TEXT”))))
(command “chprop” “p” “” “la” “EQUP” “”)

(setq s3 (ssget “x” ‘((8 . “BACK-TEXT”))))
(command “chprop” “p” “” “la” “BACK” “”)
(command “purge” “all” “” “n”)
(PRINC)
)

안녕하세요

전는 리습의 변수값을 이용하여서 300장 정도의 도면을 스크립트을
돌려서 사용하고있습니다..
그러데 어떤도면에는 SCHM-TEXT라는 레이어가 있고 어떤도면에는
SCHM-TEXT 없습니다..
문제는 한장한장 리습을 사용하면 문제가 없는데
300정도을 스크립트을 돌리면 SCHM-TEXT없는 레이어에서는
커맨드창에서 없는 레이어라고 나오면서(오류) 스크립트가
정지됩니다…따로따로 찾아서 스크립트을 돌려야하는데
그러면 시간이 넘무 걸려서요..
스크립트돌려도 에러 메세지가 안나오게 리습을 수정하고 싶은데
실력이 없어서 고수님께 부탁드립니다..
예을들어 리습에서
(setq s1 (ssget “x” ‘((8 . “SCHM-TEXT”))))
(command “chprop” “p” “” “la” “SCHM” “”)
의변수값이 없을때
(setq s2 (ssget “x” ‘((8 . “EQUP-TEXT”))))
(command “chprop” “p” “” “la” “EQUP” “”)
s2로 넘가는 가는 리습을 완성 하고 싶은데 힘드네요

고수님들 도와주세요~~~