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

yaokui25

Andyhon 发表于 2014-8-5 17:38
或许此帖能多个思路
http://bbs.mjtd.com/thread-93123-1-1.html

谢谢您，这个帖子的10楼G版主的代码解决了我的问题

yaokui25

在此引用G版主的代码
(defun c:correct210  (/ ss za mat n)
  (setq ss (ssget))
  (if ss
    (repeat (setq n (sslength ss))
      (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
      (setq ZA (vlax-safearray->list
                 (vlax-variant-value (vla-get-Normal obj))))
      (setq mat        (vlax-tmatrix
                  (list
                    (list 1 0 (car ZA) 0)
                    (list 0 1 (cadr ZA) 0)
                    (list 0 0 (caddr ZA) 0)
                    (list 0 0 0 1)
                    )
                  )
            )
      (vla-TransformBy obj mat)
      )
    )
  )

qinleilei

这个问题我也碰到过  ，当我把-1 改为1的时候，圆的位置也发生了变化， 我是3D导到2D的时候出现的，目前也不知道该怎么解决……

yaokui25

qinleilei 发表于 2014-8-5 22:13
这个问题我也碰到过  ，当我把-1 改为1的时候，圆的位置也发生了变化， 我是3D导到2D的时候出现的，目前也不 ...

我用#12 G版代码解决了我的问题。虽然没看懂代码