移动对象

samifox · 发表于 2022-7-5 23:47:42

你好

作为lisp的一部分，我需要将最后绘制的对象移动25个单位，我使用


(command "move" "" "L" "" "" 25)

它不起作用，我想知道为什么

无论如何，我不喜欢在lisp中使用命令，我怎么能用另一种方式呢？

ymg3 · 发表于 2022-7-5 23:52:19

copy

(command "move" "L" "" "" 25)

或者你可以使用entmod。但在这种情况下使用“命令”并没有错。

Tharwat · 发表于 2022-7-5 23:57:11

最后一个实体是什么？您是如何创建的？

samifox · 发表于 2022-7-6 00:00:23

是entmakex

有什么方法可以移动而不是使用命令条目吗？

samifox · 发表于 2022-7-6 00:00:51

指挥方式慢得多

Tharwat · 发表于 2022-7-6 00:03:58

当然，那个对象的实体名是什么？

Tharwat · 发表于 2022-7-6 00:07:51

下面有四种方法演示如何在X网格上移动圆形对象25个单位。

copy


(setq e (entmakex (list '(0 . "CIRCLE") '(10 0. 0. 0.) '(40 . 1.0))))
; First
(entmod (append (entget e) '((10 25. 0. 0.))))
; Second
(entmod
 (subst '(10 25. 0. 0.) (assoc 10 (entget e)) (entget e))
)
; Third
(vlax-invoke
 (vlax-ename->vla-object e)
 'move
 '(0. 0. 0.)
 '(25. 0. 0.)
)
; Forth
(vla-move (vlax-ename->vla-object e)
         (vlax-3d-point '(0. 0. 0.))
         (vlax-3d-point '(25. 0. 0.))
)