vla-get-ActiveUCS函数取不出原有坐标系

zdqwy19

   这个是我在vlisp函数说明上复制粘贴下来，但在CAD上运行总是出现 错误: Automation 错误。 空对象 ID
   期待高手能给个说明！
(defun c:fl()
;;; 这个范例返回当前 UCS
;;; 接着设定新的UCS。
;;; 最后，将UCS恢复原来的设定值
  (VL-LOAD-COM)
  (setq AcadObject(vlax-get-acad-object)
        AcadDocument(vla-get-ActiveDocument AcadObject)
        mSpace(vla-get-ModelSpace AcadDocument)
  )
;;; 返回激活文件当前的 UCS
  (setq currUCS(vla-get-ActiveUCS AcadDocument))
  (princ "当前的UCS是 ")(princ (vla-get-name currUCS))(princ "  ActiveUCS范例\n")
;;; 建立 UCS 并将其设成激活
  (setq Origin(vlax-3d-point (list 0 0 0)))
  (setq Xaxispnt(vlax-3d-point (list 1 1 0 )))
  (setq Yaxispnt(vlax-3d-point (list -1 1 0)))
  (setq UCSSel(vla-get-UserCoordinateSystems AcadDocument))
  (setq newUCS(vla-add UCSSel origin Xaxispnt Yaxispnt "_TestUCS"))
  (vla-put-ActiveUCS AcadDocument newUCS)
  (princ "新的UCS是 ")(princ (vla-get-name newUCS))(princ "  ActiveUCS范例\n")
;;; 将 UCS 重设为原来的值
  (vla-put-ActiveUCS AcadDocument currUCS)
  (princ "UCS重设为 ")(princ (vla-get-name currUCS))(princ "  ActiveUCS范例\n")
  (princ)
)



该贴已经同步到 zdqwy19的微博

snddd2000

需要有ucs才有这个属性

zdqwy19

snddd2000 发表于 2012-3-23 11:16
需要有ucs才有这个属性

那么要一开始查看坐标系有没有办法。

snddd2000

zdqwy19 发表于 2012-3-23 11:22
那么要一开始查看坐标系有没有办法。

(if  (tblnext "ucs" T) (......))

zdqwy19

snddd2000 发表于 2012-3-23 11:24
(if  (tblnext "ucs" T) (......))

我还是不太明白，能给个全的例子吗？谢谢。

zdqwy19

snddd2000 发表于 2012-3-23 11:24
(if  (tblnext "ucs" T) (......))

另外象世界坐标系和使用“工具””新建ucs“建立的坐标系使用vla-get-activeucs都无法提取，是这个道理吧！

zdqwy19

zdqwy19 发表于 2012-3-23 12:53
另外象世界坐标系和使用“工具””新建ucs“建立的坐标系使用vla-get-activeucs都无法提取，是这个道理吧 ...

可以的话，你帮忙做了实例吧！我就是用他查询世界坐标系和使用“工具””新建坐标系”时出现上述错误，请多指教。谢谢！

zdqwy19

snddd2000 发表于 2012-3-23 11:24
(if  (tblnext "ucs" T) (......))

可以的话，你帮忙做了实例吧！我就是用他查询世界坐标系和使用“工具””新建坐标系”时出现上述错误，请多指教。谢谢！

snddd2000

zdqwy19 发表于 2012-3-23 17:36
可以的话，你帮忙做了实例吧！我就是用他查询世界坐标系和使用“工具””新建坐标系”时出现上述错误，请 ...

世界坐标是必须有的，其余的ucs可以用tblnext来查询到。而且需要是已经命名的。

zdqwy19

snddd2000 发表于 2012-3-24 07:40
世界坐标是必须有的，其余的ucs可以用tblnext来查询到。而且需要是已经命名的。

那也就是说无法用vla-get-activexucs取出世界坐标系和用vla-get-activexucs强制把坐标系设为世界坐标系，只能用（command ”ucs” ”w”）了。