[求助]：怎样使多义线的群码信息中的顶点坐标精确到3位小数？

xbx7920 · 发表于 2004-9-5 15:40:53

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

当前图形的系统变量LUPREC为3
使用list查看一条多义线信息，其顶点坐标都精确到3位小数。而
使用(assoc 10 (entget(car(entsel))))查看同一条多义线的顶点
坐标，却发现x值只精确到1位小数，y值只精确到2位小数，想使
它们都精确到3位小数，该怎么办？在线等

zxq0220 · 发表于 2004-9-6 15:27:58

将DIMZIN变量设为零，并用(RTOS (ASSOC 10 (ENTGT (CAR (ENTSEL)))) 2 3)保留三位小数。

aidraft · 发表于 2004-9-5 18:48:41

为什么要改？那只是显示问题，实际上(assoc 10 (entget(car(entsel))))得到的数据没有精度损失。

橄榄滋味 · 发表于 2004-9-6 13:24:37

我看到的都是精确到3位呀，只是第三位如果是零就变成两位了

xbx7920 · 发表于 2004-9-6 15:04:19

最初由 aidraft 发布
[B]为什么要改？那只是显示问题，实际上(assoc 10 (entget(car(entsel))))得到的数据没有精度损失。 [/B]

我用lisp程序把(assoc 10 (entget(car(entsel))))得到的X,Y值
写到一个txt文件,却发现x值只精确到1位小数，y值只精
确到2位小数!如果我根据这个txt文件，再画一条多义线
，则画出的多义线与原来的多义线有细小的差别啊！

aidraft · 发表于 2004-9-6 19:21:30

对于数值表，可以用这个函数：
;;Usage: (test (assoc 10 (entget (car (entsel)))) 10)
(defun test (lst prec)
  (vl-princ-to-string
(mapcar '(lambda (x)
         (if (= (type x) 'REAL)
   (rtos x 2 prec)
   x
   )
         )
      lst
      )
)
  )

xbx7920 · 发表于 2004-9-7 12:55:55

最初由 aidraft 发布
[B]为什么要改？那只是显示问题，实际上(assoc 10 (entget(car(entsel))))得到的数据没有精度损失。 [/B]

AIRDRAFT兄,zxq0220兄说的都很对.困难一排除，诚挚感谢！

z954134 · 发表于 2004-9-7 16:42:43

没办法的，用autolisp就是这样的精度，当坐标数值大了，小数点后的还会少，必须用visual lisp

armand · 发表于 2004-9-15 02:22:34

我本来也为这个问题困扰。
的确只需要rtos函数问题迎刃而解。
多看看高手们编的小程序吧。

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

[求助] [求助]：怎样使多义线的群码信息中的顶点坐标精确到3位小数？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子