지번지목 사이공백을 제거하는 리습인데 error: bad argument type: lselsetp nil 에러가 나네요
123-2 대 –> 123-2대 이렇게 해주는 리습인데요
(DEFUN C:mtrim ( )
(setq ssg (ssget “x” ‘((0 . “TEXT”) (7 . “JIBYUN”) (8 . “1101”)))
ssl (sslength ssg)
index 0
)
(repeat ssl
(setq ssn (ssname ssg index)
get (entget ssn)
old (assoc 1 get)
txt_old (cdr old)
txt_len (strlen txt_old)
)
(if (> txt_len 2)
(progn
(if (= ” ” (substr txt_old (- txt_len 2) 1))
(progn
(setq jibyun (substr txt_old 1 (- txt_len 3)))
(setq jimok (substr txt_old (- txt_len 1) 2))
(setq new_txt (strcat jibyun jimok))
(setq new (cons 1 new_txt))
(setq sub (subst new old get))
(entmod sub)
(princ “.”)
)
)
(setq index (+ index 1))
)
)
)
)
브루스Lv.0
error: bad argument type: lselsetp nil 에러가 나네요
공유