[求助]如何新建座标原点？

andyding

请问各位高手

(defun c:test ()

  (setq ss (getpoint))

  (command "ucs" "o" ss "")

  (princ)

）

这一段用纯LSP不调用command函数如何实现。

oyxx1023

vla-put-Origin

功能

      WCS坐标值指定UCS、图块、配置或光栅图像的原点。

语法及参数

	(vla-put-Origin Object value)
	Object	Block, Layout, PlotConfiguration, Raster, UCS
		这个属性适用的对象
	value	变体(双精度的三元素阵列)；读/写
		3D WCS坐标值，指定对象的原点
		对Layout与PlotConfiguration对象
		变体（双精度的二元素阵列）；读/写
		X与Y值，代表相对于介质左下角的原点

andyding

我试用这个函数，还是不能实现。

我了试用了这个函数说明中的范例，也不行。

请再指点。

oyxx1023

不行总得有个理由撒.

先看看出错的提示.自己调试一下.

andyding

我程序最终目的是定好坐标后用来座标标零件的（如一楼那小程序的功能）。

帮忙看下，是不是我用错了？

我用了范例，世界坐标变成灰色，但还是在原点不动。

错误: 参数类型错误: VLA-OBJECT nil

(defun c:test (/ tbdata lname echo data c70 c62 q70 q62 have)
  (setq sso (getpoint))
  (setq ss1 (car sso))
  (setq ss2 (cadr sso))
  (setq ss3 (caddr sso))
  (setq ssl (list ss1 ss2 ss3))
  (if (= (tblsearch "UCS" "andy_ucs") nil)
    (progn
      (SetQ nucs
      (EntMakeX '((0 . "UCS")
    (100 . "AcDbSymbolTableRecord")
    (100 . "AcDbUCSTableRecord")
    (2 . "andy_ucs")
    (70 . 0)
    (10 0.0 0.0 0.0)
    (11 1.0 0.0 0.0)
    (12 0.0 1.0 0.0)
    (79 . 0)
    (146 . 0.0)
   )
      )
      )
    )
    (progn
      (setq tbdata (tblnext "UCS" T))
      (setq lname (cdr (assoc 2 tbdata)))
      (setq data (entget (tblobjname "UCS" lname)))
      (setq a3 (cons 10 ssl))
      (setq data (subst a3 (assoc 10 data) data))
      (entmod data)
    )
  )

  (vla-put-Origin andy_ucs ssl)
  (princ)
)

andyding

高手们再帮个忙。我VLISP一点都不懂。

好人做到底，送佛送到西。

TKS！