^~
(defun c:hab(/)
(prompt “n합을 숫자들을 입력하세요”)
(setq obj (ssget))
(setq obj1 (sslength obj)
index 0
hn 0)
(repeat obj1
(setq num (ssname obj index))
(setq price (entget num))
(setq p- (atof (cadr (assoc 1 price))))
(setq hn (+ hn p-))
(setq index (1+ index))
) ;;while end
(princ hn)(princ)
) ;;defun end
혹시나해서 캐드에서!변수로 찍어보았는데 값은 나오는뎅
찍히지않고 에러만뜨네요^맞는거 같은뎅…
항상 질문만하네요^답변할실력도 안되궁..하하
그럼 고맙습니다..