CAD 插入一图块，插入后，怎么判断其坐标？

参股银行 · 发表于 2009-7-1 17:54:00

CAD 插入一图块，插入后，不用点击图块，电脑如何读出刚才插入的图块坐标（属性）呢？

请帮忙，感激不尽

ZZXXQQ · 发表于 2009-7-1 20:38:00

试试(getvar "LASTPOINT")

参股银行 · 发表于 2009-7-4 23:01:00

我用下面的程序试验了一下，显示是零，应该是对的

但是，我插入的图块，cad几何图形属性里X,Y,Z怎么全是零呢，应该有坐标啊？

(defun c:lp()
(setq i(getvar "lastpoint"))
(setq x (car i) y (cadr i) )
(princ x )
(princ y )
)

ZZXXQQ · 发表于 2009-7-5 08:13:00

lastpoint只能读出刚插入图块的插入点坐标，图块内其它点无法得到。
下面是个例子：

游客，本帖隐藏的内容需要发帖数高于 4 才可浏览，你当前发帖数只有 0

参股银行 · 发表于 2009-7-6 20:24:00

版主，我试了一下，出现如下错误（我插入的块是一幅1：500的图，我调了很久，没有成功呢）：

; 错误: 参数类型错误: lentityp nil

hawnn · 发表于 2009-7-6 22:46:00

(getvar "LASTPOINT")

我刚试了一下，好像不能读lsp中用(getpoint）获取的点座标;

看下面这段代码能不能帮你

(setq a (entget (entlast)))

(if (= (cdr (assoc 0 a)) "INSERT")

(setq b (cdr (assoc 10 a)))

)

ZZXXQQ · 发表于 2009-7-7 11:28:00

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