[已解决]圆所在空间位置与组码10所显示内容不同，如何解决

yaokui25

小弟今天遇到个问题
圆芯所在位置与组码10所显示内容不同
如何把组码10的位置改为圆芯所在的空间位置坐标
这样的圆很多，如何批量修正。在这里先谢谢各位了
标注出来的x值与组码10中的x值 正负相反
#12楼有G版源码，在这里谢谢认真回复的楼主。

liu_kunlun

如果，210组码为(210 0 0 -1)有解。为(210 0 0 1)时只需将ucs改为WCS即可（用命令"ucs"）。其它情况除非将园调整到与WCS的XY平面平行，否则无解。

yaokui25

liu_kunlun 发表于 2014-8-5 10:35
如果，210组码为(210 0 0 -1)有解。为(210 0 0 1)时只需将ucs改为WCS即可（用命令"ucs"）。其它情况除非将园 ...

您好
这些圆组码为(210 0 0 -1)
可否批量改为(210 0 0 1)
因为不想改变UCS
再次谢谢您的回答

springwillow

你这个好像不是UCS的问题，是显示精度的问题吧。试试_units

yaokui25

springwillow 发表于 2014-8-5 11:34
你这个好像不是UCS的问题，是显示精度的问题吧。试试_units

没发现精度有问题，谢谢您的回答

edata

明显的精度问题，标示出的4位小数，10组码显示的2位。标示的字符为字符串可以用(rtos pt 2 4)获得4位小数，组码在查询的时候，始终显示6位数字，你加上整数，看是不是6位。因此不必在意10组码显示的是多少。

yaokui25

edata 发表于 2014-8-5 14:41
明显的精度问题，标示出的4位小数，10组码显示的2位。标示的字符为字符串可以用(rtos pt 2 4)获得4位小数， ...

可能是图片有误导，问题点是 X=5445.1542　是正数
而组码10的内容是 -5445.15 是负数

liu_kunlun

有一点问题，已修改
(defun c:ttt ( / ss n e es)
  (setq ss (ssget '((0 . "CIRCLE"))))
  (setq n -1)
  (repeat (sslength ss)
     (setq e (ssname ss (setq n (1+ n)))
           es (entget e))
     (setq es (subst (cons 10 (trans (cdr (assoc 10 es)) e '(0 0 1)))
                     (assoc 10 es) es))
     (entmod (subst '(210 0 0 1) (assoc 210 es) es))
) )

yaokui25

liu_kunlun 发表于 2014-8-5 17:04
(defun c:ttt ( / ss n e es)
  (setq ss (ssget '((0 . "CIRCLE"))))
  (setq n -1)

谢谢您
刚刚试了一下出现
lentityp nil

Andyhon

或许此帖能多个思路
http://bbs.mjtd.com/thread-93123-1-1.html