제가 쓰는 소스인데요.(오랜만에 사용…)
왜 소수 이하가 안 나타나는지 모르겠습니다.
=============소스===========
(DEFUN c:a (/ xlst ylst zlst fn f Fa Fb pa pz i n )
(setq xlst ‘() ylst ‘() zlst ‘())
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
(setq f (open “bbb.xyz” “r”))
(print f)
(setq n 0)
(prompt “nReading file…Please Wait….”)
(while (SETQ RL (READ-LINE f))
(setq n (1+ n))
(SETQ Fa (atof (SUBSTR rl 1 10)))
(SETQ Fb (atof (SUBSTR rl 12 10)))
(setq pz (substr rl 23 6))
(print pz)
(setq xlst (append xlst (list Fa))
ylst (append ylst (list Fb))
zlst (append zlst (list pz))
)
) ;; while
(print xlst)
(close f)
)
=============
이하 데이터 샘플 입니다…
=============
162630.103 421351.580 -6.000
162637.388 421347.182 -6.000
162647.653 421343.698 -6.700
162660.470 421342.386 -4.700
162671.029 421339.434 -4.900
162685.148 421335.977 -5.200
162698.348 421334.475 -5.900
162710.728 421335.285 -4.800
162723.627 421335.647 -4.400
=================
위 에서.
출력을 해 보면.
소수 부분이 문자에서 숫자로 변하지 않고.모두 0으로
되어 버리고 마는군요.
제가 어느 부분에서.
잘 못 하고 있는지 모르겠습니다.
위 소스를 캐드 14당시 사용하던 것을.
몇년 지난 지금 캐드 2004에서 쓰려니.
그러는군요….
고수님의 도움 간절히 바랍니다….
감사합니다.