请教(command "UCS")怎么用 vl 类函数表示

masterlong

请高手指教
下面几个命令如何用 VL 函数实现
论坛里没搜到

(command "ucs" "")
(command "ucs" "3" p1 p2 "")
(command "ucs" "s" "temp")
(command "ucs" "r" "temp")
(command "ucs" "p")
(command "plan" "")
还有怎么创建一个新的布局（不是切换至默认的布局1、布局2）

自贡黄明儒

VBA : RetVal = object.Add(Origin, XAxisPoint, YAxisPoint, Name)

VL : RetVal = (vla-Add Object Origin XAxisPoint YAxisPoint Name)

Object : UCSs
The collection to add the new object to.
Origin : Variant (three-element array of doubles); input-only
The 3D WCS coordinates specifying where the UCS is to be added.
XAxisPoint : Variant (three-element array of doubles); input-only
The 3D WCS coordinates specifying a point on the positive X axis of the UCS. The XAxisPoint and YAxisPoint together cannot specify the same location as the Origin.
YAxisPoint : Variant (three-element array of doubles); input-only
The 3D WCS coordinates specifying a point on the positive Y axis of the UCS.
(The Z axis follows by applying the right-hand rule.)
Name : String; input-only
The name of the UCS to add to the collection.
RetVal : UCS object
The newly added UCS object.