(defun c:Lm (/ ss sslist i index linelist linenumlist ent old10 old11 dist lnum count temp total total1 subtotal txt pt)
(setq ss (ssget (list (cons 0 “LINE,ARC”))))
(setq count 0)
(repeat (sslength ss)
(princ “aaaaaaaaaaaaaaaaaaaaaaa”)
(princ count)
;;(princ (entget (ssname ss count))) ;;entget요소축출 ;; ssname이름축출
(princ (cdr (assoc 0 (entget (ssname ss count)))))
(if (= (cdr (assoc 0 (entget (ssname ss count)))) “ARC” )
(progn
(princ (assoc 10 (entget (ssname ss count))))
(princ (assoc 50 (entget (ssname ss count))))
(princ (assoc 51 (entget (ssname ss count))))
)
(progn
(princ (assoc 10 (entget (ssname ss count))))
(princ (assoc 11 (entget (ssname ss count))))
)
)
;;command : (setq ss (ssname ss 0))
(princ “n”)
(setq count (1+ count))
)
)
//////
(princ (assoc 10 (entget (ssname ss count))))
결과 (10 5388.75 2117.4 0.0) 이런 식으로 나오는데 x값과 y값을 분리해서 뽑을 수 없을까요?
추가로 ….
기존에 선과 호의 값을 바꿀려면 어찌 해야 되나요?
또 추가로 ….
호는 반경과 중심점 뿐이던데 시작점 끝점을 뽑아 낼 수 없을까요?
결과는 ….
선택된 모든 시작점과 끝점을 뽑아내서 닫힌 도형인지 아닌지 알아내는 리습을 짜고 싶습니다.
고수님들 잘 좀 부탁드립니다.