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

龙龙仔

狂刀lxx发表于2009-11-16 22:39:00(defun ENTMAKE-TEXT (PT HEIGHT ANGLE_)  (if (entmake (list (cons 0 \"TEXT\")       (cons 100 \"AcDbEntity\")      

你這樣是不行的

指令: _ucs
目前的 UCS 名稱:  *世界*
指定 UCS 的原點或 [面(F)/具名(NA)/物件(OB)/前一個(P)/視圖(V)/世界(W)/X/Y/Z/Z 軸(ZA)] <世界>: _x
指定繞著 X 軸旋轉的角度 <90>: 90
指令:
指令:
指令: _ucs
目前的 UCS 名稱:  *無名稱*
指定 UCS 的原點或 [面(F)/具名(NA)/物件(OB)/前一個(P)/視圖(V)/世界(W)/X/Y/Z/Z 軸(ZA)] <世界>: _y
指定繞著 Y 軸旋轉的角度 <90>: 90
指令:
指令:
指令: _ucs
目前的 UCS 名稱:  *無名稱*
指定 UCS 的原點或 [面(F)/具名(NA)/物件(OB)/前一個(P)/視圖(V)/世界(W)/X/Y/Z/Z 軸(ZA)] <世界>: _z
指定繞著 Z 軸旋轉的角度 <90>: 90

;;XYZ各轉90度

測試程式

;;樓主=========================================
(defun COMMAND-TEXT2 (PT HEIGHT ANGLE_)
  (command "._TEXT" PT HEIGHT ANGLE_ "TEXT2")
)

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

;;狂刀=========================================
(defun ENTMAKE-TEXT3 (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 "TEXT3")
       (cons 50
      (+ (/ (* pi ANGLE_) 180)
         (angle (getvar "ucsorg") (getvar "ucsxdir"))
      )
       )
 )
      )
    (entlast)
  )
)
(defun C:TT3 ()
  (ENTMAKE-TEXT3 '(0 0 0) 10 0)
)

liu_kunlun

entmake中应使用弧度，command中应使用角度。

我认为，ucs或wcs中的点，怎样转为osc点仍然是关键。

用command在ucs中生成一个圆、TEXT等实体，再通过它来实现ucs或wcs中的点转为osc点，应该是一个可行的办法，好像应该有其它更好的方法，因为有的程序中，我们要避免使用command。

至于生成图形的方向，carrot1983已采用210组解决

龙龙仔

carrot1983发表于2009-11-13 13:28:00或许哪位看的懂这篇在讲什么，翻译一下。http://www.theswamp.org/index.php?topic=13526.0;all答案就在这里面。

對的;;;;答案就在这里面

龙龙仔

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

貼中Reply #10 說出來了

ghgh0130

俺帮不了你啊 ，楼主慢慢想

dafeilang

坐标问题，有用，留个印子

cheng5276

我也正头痛这个问题

zdqwy19

有一个地方欠考虑，就会产生一个莫名其妙的问题。。。。同感

chenlight

看了这文章记住了一点，一般情况 下ocs就是wcs

yx5277

龙龙仔 发表于 2009-11-18 08:05
http://www.theswamp.org/index.php?topic=13526.0;all貼中Reply #10 說出來了

没注册看不了，为什么不把解决方法直接写出来呢？