功能

     设定UCS图标是否显示在原点。

语法及参数

说明

    如果UCS图标为打开（请参见UCSIconOn属性)且未显示在原点上，则它 将显示在UCSORG系统变量定义的WCS坐标上。

　

范例

;;;从二代龙震工作室汉化帮助中提取
;;;本源代码由 xshrimp 2013.2.20 搜集整理,版权归原作者所有！

　　(defun Example_UCSIconAtOrigin ()
　　;;; 这个范例切换UCSIconAtOrigin的设置值
　　(VL-LOAD-COM)
　　(setq    AcadObject   (vlax-get-acad-object)
　　AcadDocument (vla-get-ActiveDocument Acadobject)
　　;;;将viewportObj变量设成 activeviewport
　　viewportObj  (vla-get-ActiveViewport AcadDocument)
)
　　;;; 请确定UCS图标已经打开而且已经定义新的UCS。
　　;;; 新的UCS定义图标的原点。当图标
　　;;; 不是显示在原点时，它是显示在
　　;;; 屏幕的左下角。
　　(setq origin (vlax-3d-point (list 2 2 0)))
　　(setq xAxisPoint (vlax-3d-point (list 3 2 0)))
　　(setq yAxisPoint (vlax-3d-point (list 2 3 0)))
　　(Setq   ucsObj (vla-add      (vla-get-UserCoordinateSystems
　　AcadDocument
)
　　origin
　　xAxisPoint
　　yAxisPoint
　　"UCS1"
)
)
　　(vla-put-ActiveUCS AcadDocument ucsObj)
　　(vla-put-UCSIconOn viewportObj :vlax-true)
　　;;;显示UCSIconAtOrigin当前的设置值
　　(princ "\nUCSIconAtOrigin为: ")
　　(if (= :vlax-true (vla-get-UCSIconAtOrigin viewportObj))
　　(princ "打开")
　　(princ "关闭")
)
　　;;; 切换UCSIconAtOrigin的设置值
　　(if (= :vlax-true (vla-get-UCSIconAtOrigin viewportObj))
　　(setq temp :vlax-false)
　　(setq temp :vlax-true)
)
　　(vla-put-UCSIconAtOrigin viewportObj temp)
　　;;; 重设激活视口来查看修改
　　(vla-put-ActiveViewport AcadDocument viewportObj)
　　(princ "\nUCSIcon现在为: ")
　　(if (= :vlax-true (vla-get-UCSIconAtOrigin viewportObj))
　　(princ "打开")
　　(princ "关闭")
)
　　(princ "\nUCSIconAtOrigin当前为: ")
　　(if (= :vlax-true (vla-get-UCSIconAtOrigin viewportObj))
　　(princ "打开")
　　(princ "关闭")
)
　　(princ "\nUCSIconAtOrigin 范例")
　　(princ)
)