항상 이곳에서 도움을 많이 받고있습니다.
다름이 아니고 전에 이곳에서 받은 리습을 이용하는데
문제가 생겨서여.아무리해도 모르겠는데…
리습은 보심 하시겠지만..
이건 그냥 command 문장에만 그 계산값이 나오는데
그 계산값을 캐드 text로 바로 변환하게 할 순없나요.
말이 좀 난해해서 제가 응용하고자 하는 리습을 올립니다.
(이 리습중에 distance를 텍스트화 시키는 부분입니다.)
정말 오래동안 고민했습니다.지금 연기가 모락모락.^^
(defun c:HAP (/ 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 0)
(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)
)