UCS错误问题！！

highflybir · 发表于 2007-1-25 10:05:00

在WCS中自己用3点法建立了一个UCS,但未命名，然后运行程序.
程序的思路是：
如果当前UCS未命名，则根据当前UCS建立UCS,否则存储当前UCS.(当然要用ActiveX,用命令行不会出错)
运行过程中出现了如下错误：
Automation 错误。 UCS X 轴与 Y 轴不垂直

(if (= (getvar "UCSNAME") "")
(setq OldOrg (vla-GetVariable *Doc "UCSORG")
OldXDr (vla-getVariable *Doc "UCSXDIR")
OldYDr (vla-getVariable *Doc "UCSYDIR")
Org (vla-translatecoordinates *Uti OldOrg acucs acworld 0)
XDir (vla-TranslateCoordinates *Uti OldXDr acUCS acWorld 0)
YDir (vla-TranslateCoordinates *Uti OldYDr acUCS acWorld 0)
OldUcs (vla-add *Ucs OldOrg XDir YDir "OLDUCS");出错!!!
OldUcs (vla-add *Ucs Org XDir YDir "OLDUCS") ;如果是这样也会出错!
)
(setq OldUcs (vla-get-activeucs *Doc))
)

这是我根据ActiveUcs的范例编写的,我把这个范例在VBA 中运行,也出同样的错误!
根据ahlzl版主的指点认为是精度问题,但我改进后同样会出错,该怎样改进这个程序呢?

鱼与熊掌 · 发表于 2015-4-16 13:44:43

本帖最后由鱼与熊掌于 2015-4-16 13:47 编辑

;获取当前UCS的矩阵.
;感谢高飞鸟和龙龙仔在论坛的讨论.
;鱼与熊掌.2015 04 15
(defun cx-Get-ActiveUcsMat(/ olducs)
(vla-GetUCSMatrix
(if (= (getvar "UCSNAME") "")
(progn
(vla-put-origin
(setq OldUcs(vla-add
*UCS*
(vlax-3d-point '(0 0 0))
(vla-getvariable *DOC* "UCSXDIR")
(vla-getvariable *DOC* "UCSYDIR")
"Cx_Tem_UCS"
)
)
(vla-getvariable *DOC* "UCSORG")
)
OldUcs
)
(vla-get-activeucs *DOC*)
)
)
)

龙龙仔 · 发表于 2007-1-25 11:38:00

程序是對的,我執行沒有問題(希望下次*Doc,*Uti,*Ucs能直接貼上-----可能這些錯了!)

highflybir · 发表于 2007-1-25 12:09:00

问题是有时候对，有时候错，我完整地贴出代码：

(defun C:uu ()
(vl-load-com)
(setq *Obj (vlax-get-acad-object)
*Doc (vla-get-activeDocument *Obj)
*MSp (vla-get-Modelspace *Doc)
*Uti (vla-get-Utility *Doc)
*Ucs (vla-get-UserCoordinateSystems *Doc)
)
(if (= (getvar "UCSNAME") "")
(setq OldOrg (vla-GetVariable *Doc "UCSORG")
OldXDr (vla-getVariable *Doc "UCSXDIR")
OldYDr (vla-getVariable *Doc "UCSYDIR")
Org (vla-translatecoordinates *Uti OldOrg acucs acworld 0)
XDir (vla-TranslateCoordinates *Uti OldXDr acUCS acWorld 0)
YDir (vla-TranslateCoordinates *Uti OldYDr acUCS acWorld 0)
OldUcs (vla-add *Ucs OldOrg XDir YDir "OLDUCS111");;出错!!
OldUcs (vla-add *Ucs Org XDir YDir "OLDUCS111")
)
(setq OldUcs (vla-get-activeucs *Doc))
)
;;..............
)

龙龙仔 · 发表于 2007-1-26 11:32:00

本帖最后由作者于 2007-1-26 11:40:55 编辑

;;你對"UCSXDIR" & "UCSYDIR"可能理解錯了,但我也在找轉換的方法
(defun C:UU ()
(vl-load-com)
(setq *APP (vlax-get-acad-object)
*DOC (vla-get-activedocument *APP)
*UTI (vla-get-utility *DOC)
*UCS (vla-get-usercoordinatesystems *DOC)
)
(if (= (getvar "UCSNAME") "")
    (progn
      (setq OLDORG (vla-getvariable *DOC "UCSORG")
     OLDXDR (vla-getvariable *DOC "UCSXDIR")
     OLDYDR (vla-getvariable *DOC "UCSYDIR")
      )
      (setq OLDUCS
      (vla-add
        *UCS
        (vlax-3d-point '(0 0 0))
        OLDXDR
        OLDYDR
        "OLDUCS111"
      )
      )
    )
    (setq OLDUCS (vla-get-activeucs *DOC))
)
(princ)
)

highflybir · 发表于 2007-1-26 14:20:00

本帖最后由作者于 2007-1-26 14:29:46 编辑

非常感谢龙版主的调试.

但好像上面的程序也不正确，结果算出来的UCS坐标原点总是跟世界坐标原点重合，它的UCS方向是正确的。

而我的那个是有时候正确有时又弹出错误对话框,很迷惑。依据ahlzl版主的说话，可能是精度影响判断，好像是CAD的一个bug,就像等分样条曲线那样的浮点错误。

希望望总版主也能过来看看，指出错误!

highflybir · 发表于 2007-1-26 16:59:00

本帖最后由作者于 2007-1-26 17:27:55 编辑

问题解决，龙版主的指点是正确的，再次感谢！

(defun C:uu ()
  (vl-load-com)
  (setq *APP (vlax-get-acad-object)
        *DOC (vla-get-activeDocument *APP)  
        *MSP (vla-get-Modelspace *DOC)                      ;可以不用这句
        *UTI (vla-get-Utility *DOC)                         ;取得Utility集
        *UCS (vla-get-UserCoordinateSystems *DOC)           ;取得UCS集
  )
  (if (= (getvar "UCSNAME") "")                             ;当前UCS名,如果未命名,则
    (progn 
      (setq OldOrg (vla-GetVariable *DOC "UCSORG")          ;取当前UCS原点
            OldXDr (vla-getVariable *DOC "UCSXDIR")         ;取当前X方向
            OldYDr (vla-getVariable *DOC "UCSYDIR")         ;取当前Y方向
            OldUcs (vla-add *UCS

                            (vlax-3d-point '(0 0 0))

                            OldXDr OldYDr "OLDUCS")

                                                                                                              
      )                                                     ;建立当前UCS,但原点在(0,0,0)处 
      (vla-put-origin OldUcs OldOrg)                        ;改变原点为当前UCS原点
    )
    (setq OldUcs (vla-get-activeucs *DOC))                  ;取得UCS物体
  )                          
  (princ)
)

奇怪的很，如果你不用(vlax-3d-point '(0 0 0)),而直接使用OldOrg就会出现错误！

账号		自动登录	找回密码
密码			注册

UCS错误问题！！

浏览过的版块