[求助]如何让entmake-text和command-text在UCS下角度一样???

carrot1983

如何让entmake-text和command-text在UCS下角度一样???

(defun ENTMAKE-TEXT (PT HEIGHT ANGLE_)
  (if (entmake (list (cons 0 "TEXT")
       (cons 100 "AcDbEntity")
       (cons 100 "AcDbText")
       (cons 10 (trans PT 1 0))
       (cons 40 HEIGHT)
       (cons 1 "TEXT1")
       (cons 50 ANGLE_)
        )
      )
    (entlast)
  )
)

(defun C:TT1 ()
  (ENTMAKE-TEXT '(0 0 0) 10 0)
)

(defun COMMAND-TEXT (PT HEIGHT ANGLE_)
  (command "._TEXT" PT HEIGHT ANGLE_ "TEXT2")
)

(defun C:TT2 ()
  (COMMAND-TEXT '(0 0 0) 10 0)
)

在世界坐标系下面：TT1和TT2生成的文字位置及角度是一样的。

在UCS坐标系下面：TT1和TT2生成的文字位置是一样的，但是角度却不一样。

我试过：（TRANSANGLE  ANGLE_）但是返回的角度仍然不一样。

(defun TRANSANGLE (ANG)
  (setq UCSANG (angle (trans '(0.0 0.0 0.0) 1 0)
        (trans '(1.0 0.0 0.0) 1 0)
        )
  )
  (- ANG UCSANG)
)

请指教，如何修正。

以为解决了，好像没有。

liu_kunlun

试一下这个看怎么样

(defun TRANSANGLE (ANG)

  （angle (trans '(0.0 0.0 0.0) 1 0) (trans (polar '(0. 0. 0.) ang 1.) 1 0))
 )

carrot1983

liu_kunlun发表于2009-11-13 13:11:00试一下这个看怎么样(defun TRANSANGLE (ANG)  （angle (trans '(0.0 0.0 0.0) 1 0) (trans (polar '(0. 0. 0.) ang 1.) 1 0)) )

快接近了，但是不知道哪里出错，生成的不一样。

我想是不是组码210的问题，210组码不是很了解。

carrot1983

或许哪位看的懂这篇在讲什么，翻译一下。

http://www.theswamp.org/index.php?topic=13526.0;all

答案就在这里面。

carrot1983

以为解决了，但是重新测试了一下又不行了。。。

FROM http://www.theswamp.org/index.php?topic=13526.0;all

(setq ucszdir (trans '(0 0 1) 1 0 T))

ucszdir can be used as well as ent or (cdr (assoc 210 (entget ent))) in the above trans expressions.
In a list to be used with entmake :

(cons 210 ucszdir)

ucszdir is also the Normal property to be used in (vla-put-Normal ...) expressions.

liu_kunlun

这个问题我是没有搞懂，在DXF帮助中，指明10组为OCS，在实体未生成之前，没法用trans将已知的一个WCS或UCS坐标转换到OCS，这样似乎entmake就没法用了。

龙龙仔

carrot1983发表于2009-11-13 12:16:00如何让entmake-text和command-text在UCS下角度一样???(defun ENTMAKE-TEXT (PT HEIGHT ANGLE_)  (if (entmake (list (cons 0 \"TEXT\")       (cons 100

ANGLE_要先轉為(cons 50 (/ (* pi ANGLE_) 180))

方法有2種

1.如你說的改DXF碼,當然要用到TRANS

2.用矩陣把物件轉到UCS

狂刀lxx

一般来说，ocs不就是wcs么？

龙龙仔

一般来说，ocs就是wcs!

但樓主的問題是使用entmake / command 的不同處,command是直接建在ucs,entmake要自已轉到ucs

狂刀lxx

(defun ENTMAKE-TEXT (PT HEIGHT ANGLE_)
  (if (entmake (list (cons 0 "TEXT")
       (cons 100 "AcDbEntity")
       (cons 100 "AcDbText")
       (cons 10 (trans PT 1 0))
       (cons 40 HEIGHT)
       (cons 1 "TEXT1")
       (cons 50 (+ (/ (* pi ANGLE_) 180) (angle  (getvar "ucsorg")(getvar "ucsxdir"))))
        )
      )
    (entlast)
  )
)