곱하기 리습인데요..(리습은 모릅니당–;)
여기저기서 끼워맞춰서 이런모양세까지 왔는데
지금 소수점 둘째자리까지 구해지는데..
소수점 셋째자리까지 구하고싶어서요~~
수정 좀 부탁드릴께요~~
(defun c:habb (/ SelectedObject ssl SelectedText
TotalHab ent temp sslen olderr )
(defun Hab_error (s)
(setq *error* olderr)
(princ)
)
(setq olderr *error* *error* Hab_error)
(setq SelectedObject (ssget))
(if (null SelectedObject)
(progn (princ “nERROR: Nothing selected.”)(exit))
)
(setq ssl (sslength SelectedObject)
SelectedText (ssadd)
)
(while (> ssl 0)
(setq temp (ssname SelectedObject (setq ssl (1- ssl))))
(if (= (cdr(assoc 0 (entget temp))) “TEXT”)
(ssadd temp SelectedText)
)
)
(setq ssl (sslength SelectedText))
(print ssl)(princ “text entities found. “)
(setq sslen (sslength SelectedText))
(setq TotalHab 1)
(while (> sslen 0)
(setq ent (entget (ssname SelectedText (setq sslen (1- sslen)))))
(setq TotalHab (* TotalHab (atof (cdr (assoc 1 ent)))))
)
(princ “nTotal = “)(princ (rtos TotalHab))
(setq *error* olderr)
(princ)
)