请问这个程序要怎么改，求高手帮忙

guohangfeng1983 · 发表于 2012-7-29 21:20:01

这是我在网上下载的提取文字坐标的源码，但是坐标的精度太低了，小数点后面的都没有了，求高手帮忙改一下

(defun c:gwzxy ()

(setq ffn (getfiled "选取文件" "D:/temp/" "txt" 1))
(setq ff (open ffn "w"))
(close ff)

(setq ss (ssget '((0 . "text"))))

  ;;(setq ss (ssget '((0 . "text")(8 . "jzmj"))))

  (setq       i  0)


  (repeat (sslength ss)
      (setq ssn (ssname ss i)
            endata (entget ssn)
            new_pp (cdr (assoc 1 endata))
            new_xyz (cdr (assoc 10 endata))
            )
            (setq ff (open ffn "a"))
            (princ new_xyz ff)
            (princ " " ff)
            (princ new_pp ff)
            (princ "\n" ff)
                  (close ff)
   (setq  i (1+ i))
  )
)

Andyhon · 发表于 2012-7-29 21:54:50

Command: Luprec
Enter new value for LUPREC <0>: 8

or 改用 Rtos 函数

guohangfeng1983 · 发表于 2012-7-30 05:41:27

大侠你能把完整的程序贴出来吗，本人对LISP一点都不懂啊

Andyhon · 发表于 2012-7-30 08:13:57

试过 LUprec 了
我这儿有小数啊...

guohangfeng1983 · 发表于 2012-7-30 11:21:02

老大，你能把步骤说一下吗，我不懂啊

guohangfeng1983 · 发表于 2012-7-30 11:36:06

刚才是了下坐标数值小的，果然可以了，原来是我的坐标数值太大了，那这个数据长度怎么改啊

Andyhon · 发表于 2012-7-30 11:49:30

(defun c:gwzxy ()
(setvar "LUprec" 8) ; add this line
....
...

guohangfeng1983 · 发表于 2012-7-30 12:14:48

还是有问题，小数点前面只能有3位，如果小数点前面多一位，小数点后面就会相应减少一位，这个问题应该怎么解决啊

xyp1964 · 发表于 2012-7-30 12:45:50

本帖最后由 xyp1964 于 2012-7-30 12:46 编辑

(defun c:tt ()
(setq ffn (getfiled "选取文件" "D:/temp/" "txt" 1)
ff (open ffn "w")
ss (ssget '((0 . "text")))
i 0
)
(repeat (sslength ss)
(setq s1 (ssname ss i)
ent (entget s1)
tx (cdr (assoc 1 ent))
pt (cdr (assoc 10 ent))
pt (mapcar '(lambda (x) (rtos x 2 3)) pt)
i (1+ i)
)
(princ pt ff)
(princ " " ff)
(princ tx ff)
(princ "\n" ff)
)
(close ff)
(princ)
)

guohangfeng1983 · 发表于 2012-7-30 13:05:16

终于可以了，感谢版主大人

账号		自动登录	找回密码
密码			注册