yaokui25 发表于 2014-8-5 18:20:36

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

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

yaokui25 发表于 2014-8-5 18:40:26

在此引用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 发表于 2014-8-5 22:13:37

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

yaokui25 发表于 2014-8-5 23:04:03

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

我用#12 G版代码解决了我的问题。虽然没看懂代码
页: 1 [2]
查看完整版本: [已解决]圆所在空间位置与组码10所显示内容不同，如何解决