(DEFUN C:CEE()
(setq #a(ssget ‘((-4 . “<or”)(0 . “circle”)(-4 . “or>”)))
#len(sslength #a)
#n 0
)
(princ #len)
(while (< #n #len)
(setq #ename(ssname #a #n)
#elist(entget #ename)
#pp(cdr(assoc 10 #elist))
#x1(car #pp)
#y1(cadr #pp)
#r(cdr(assoc 40 #elist))
)
(princ #pp)
(princ #x1)
(princ (+ 1000 #r))
(princ #r)
(setq #p2(list #x1 #y1)
#p1(list #x1 (- #y1 #r))
#p3(list #x1 (+ #y1 #r))
#n(+1 #n)
)
(princ #p2)
(princ #p1)
(princ #p3)
(command “pline” #p1 “a” “d” “@100<0” #p2 #p3 “”)
(command “hatch” “w” “y” #p1 “a” “d” “@100<0” #p2 #p3 #p1 “” “” “p” “ansi31” “1” “0” “”)
)
)
변수설정이 안되다고 오류떴는데 제생각에는 p1 p2 p3가 안만들어지는거 같습니다. 조언좀 부탁드림 ㅜㅜ