[求助]請版主修改lisp

ponww

請版主代修改lisp 程式寫出txt時只有8位數希望能修改成,點號(4個欄位),x座標(12欄位小數3位數),y座標(12欄位小數3位數),小弟才初學lisp,

(defun c:lsp_49a()
   (setvar "cmdecho" 0)
   (setq ffn (getfiled "寫出檔案"  ""  "txt" 1))
   (setvar "pdmode" 34)
   (setq ff (open ffn "w"))
   (close ff)
   (setq pt (getpoint "\n點位置: "))
   (while (/= pt nil)
      (command "point" pt)
      (setq ff (open ffn "a"))
      (princ (car pt) ff)
      (princ "  " ff)
      (princ (cadr pt) ff)
      (princ "  " ff)
      (princ (caddr pt) ff)
      (princ "\n" ff)
      (close ff)
      (setq pt (getpoint "\n點位置:  "))
   )
   (princ (strcat "\n寫出檔案:  " ffn))
   (prin1)
)

(defun c:lsp_49b()
   (setvar "cmdecho" 0)
   (setvar "pdmode" 34)
   (setq ffn (getfiled "選取檔案"  "" "txt" 2))
   (setq ff (open ffn "r"))
   (setq data (read-line ff))
   (while data
      (setq p "" pp "" ppp '() i 1)
      (setq nn (strlen data))
      (repeat nn
         (setq p (substr data i 1))
         (if (/= p " ")
            (setq pp (strcat pp p))
            (setq ppp (cons pp ppp) pp "")
         )
         (setq i (1+ i))
      )
      (setq ppp (cons pp ppp))
      (setq ppp (reverse ppp))
      (draw_pt)
      (setq data (read-line ff))
   )
   (close ff)
)

(defun draw_pt()
   (setq x (atof (car ppp)))
   (setq y (atof (cadr ppp)))
   (setq z (atof (caddr ppp)))
   (setq pt (list x y z))
   (command "point" pt)
)
(princ "\n----------<<CSP_49A 寫出座標點  CSP_49B 讀取座標點 >>------------")
(prin1)

phoenixdjq

你看看DIMZIN及DIMAZIN系统变量

再看看rtos函数(还有ATOI，ATIF ，ITOA)，希望能对你有所帮助

ponww

phoenixdjq发表于2007-1-16 23:01:00你看看DIMZIN及DIMAZIN系统变量再看看rtos函数(还有ATOI，ATIF ，ITOA)，希望能对你有所帮助

謝謝大俠提供dimzin我設1,dimazin我設0,結果還是從頭算起8位數砍,至於rtos如何寫放再那裡,再次向你請教謝謝

ZZXXQQ

这样行不?

3. (defun c:lsp_49a()
4.    (setvar "cmdecho" 0)
5. (setq n 1)
6.    (setq ffn (getfiled "寫出檔案"  ""  "txt" 1))
7.    (setvar "pdmode" 34)
8.    (setq ff (open ffn "w"))
9.    (close ff)
10.    (while (setq pt (getpoint "\n點位置: "))
11.       (command "point" pt)
12.       (setq ff (open ffn "a"))
13.       (princ n ff)
14.       (princ "\t" ff)
15.       (princ (rtos (car pt) 2 3) ff)
16.       (princ "\t" ff)
17.       (princ (rtos (cadr pt) 2 3) ff)
18.       (princ "\t" ff)
19.       (princ (rtos (caddr pt) 2 3) ff)
20.       (princ "\n" ff)
21.       (setq n (1+ n))
22.       (close ff)
23.    )
24.    (princ (strcat "\n寫出檔案:  " ffn))
25.    (prin1)
26. )
27. (defun c:lsp_49b()
28.    (setvar "cmdecho" 0)
29.    (setvar "pdmode" 34)
30.    (setq ffn (getfiled "選取檔案"  "" "txt" 2))
31.    (setq ff (open ffn "r"))
32.    (while (setq data (read-line ff))
33.       (setq pt (read (strcat "(" data ")"))
34.      n (car pt)
35.      pt (cdr pt))
36.       (command "point" pt "text" pt "" "" (itoa n))
37.    )
38.    (close ff)
39. )
40. (princ "\n----------<<C:LSP_49A 寫出座標點  C:LSP_49B 讀取座標點 >>------------")
41. (prin1)

(defun c:lsp_49a()    (setvar "cmdecho" 0) (setq n 1)    (setq ffn (getfiled "寫出檔案"  ""  "txt" 1))    (setvar "pdmode" 34)    (setq ff (open ffn "w"))    (close ff)    (while (setq pt (getpoint "\n點位置: "))       (command "point" pt)       (setq ff (open ffn "a"))       (princ n ff)       (princ "\t" ff)       (princ (rtos (car pt) 2 3) ff)       (princ "\t" ff)       (princ (rtos (cadr pt) 2 3) ff)       (princ "\t" ff)       (princ (rtos (caddr pt) 2 3) ff)       (princ "\n" ff)       (setq n (1+ n))       (close ff)    )    (princ (strcat "\n寫出檔案:  " ffn))    (prin1) ) (defun c:lsp_49b()    (setvar "cmdecho" 0)    (setvar "pdmode" 34)    (setq ffn (getfiled "選取檔案"  "" "txt" 2))    (setq ff (open ffn "r"))    (while (setq data (read-line ff))       (setq pt (read (strcat "(" data ")"))      n (car pt)      pt (cdr pt))       (command "point" pt "text" pt "" "" (itoa n))    )    (close ff) ) (princ "\n----------<<C:LSP_49A 寫出座標點  C:LSP_49B 讀取座標點 >>------------") (prin1)

ponww

謝謝版主解危,當解不開時的心情伍足,又求助無門真是頭痛,

             解開時一切順啦,再次謝謝版主你是好人