使用修改视口中心

JamCAD · 发表于 2022-7-5 20:00:11

你好

我正在尝试使用visual lisp自动设置视口。问题是当我试图改变中心时。作为一个基本示例


(setq entv (vlax-ename->vla-object (car (entsel))))
(vla-put-center entv '(500.0 200.0 0.0))

返回以下错误：
; 错误：lisp值不强制此类型的变量：（500.0 200.0 0.0）

(vla-get-center entv)

返回：
#

JamCAD · 发表于 2022-7-5 20:25:36

vlax make safearray还是vlax make variant？
我以前没有使用过这两个函数，因此无法使其工作。

hanhphuc · 发表于 2022-7-5 20:34:53

嗨，失踪


(vla-put-center entv ([color="blue"]vlax-3d-point[/color]'(500.0 200.0 0.0)))

JamCAD · 发表于 2022-7-5 20:55:05

我觉得很简单

Lee Mac · 发表于 2022-7-5 21:04:44

FWIW，您也可以省略列表格式和z值，例如：

(vla-put-center entv (vlax-3D-point 500 200))

[编程交流] 使用修改视口中心