简单移动命令问题

malix · 发表于 2022-7-6 09:26:23

我是AutoLISP的初学者，由于某些原因，我无法正确使用这个移动命令。我所要做的就是选择交叉窗口中从（12,0）到（0,4）的所有内容，并将其全部向右移动12英寸。

这就是我所拥有的，但当我运行程序时，它只是抓住标题栏，并将其他所有内容保留在原位。

（命令“move”“12,0”“0,4”“@”“@12,0”）

我需要使用ssget或其他一些选择命令来选择多个实体吗？

提前谢谢。

fixo · 发表于 2022-7-6 09:40:06

有很多方法可以做到这一点，例如：

copy

(setq wpt1 '(12 0)
     wpt2 '(0 
4)      
     disp 
12
     ang 0
movept (mapcar '+ wpt1 (list disp 0));;you can use instead : move pt (list (+ 
(car wpt1 disp)(cadr wpt1)))
     )
(command 
"move" (ssget "w" wpt1 wpt2) "" "_non" wpt1 "_non" movept)

这段代码也应该有效

copy

(command "_select" "_w" "12,0" "0,4" "" "move" "_p" "" "@" "@12,0")

Tharwat · 发表于 2022-7-6 09:49:39

另一个

copy

(defun c:test (/ ss l sset)(vl-load-com)
 (if (setq ss (ssget "_w" '(12. 0. 0.) '(0. 4. 0.)))
   (repeat
     (setq l (sslength ss))
      (setq sset (ssname ss (setq l (1- l))))
      (vla-move (vlax-ename->vla-object sset)
                (vlax-3d-point 0. 0. 0.)
                (vlax-3d-point 12. 0. 0.)
      )
   )
 )
 (princ)
)

Tharwat

dbroada · 发表于 2022-7-6 10:02:59

这不应该是交叉窗的“c”吗？

Lee Mac · 发表于 2022-7-6 10:14:27

我会这样做：

copy


(defun c:test ( / ss )
 (if (setq ss (ssget "_C" '(12.0 0.0) '(0.0 4.0)))
   (command "_.move" ss "" "_non" '(0. 0. 0.) "_non" '(12. 0. 0.))
 )
 (princ)
)

因为ssget将提供更通用、更可靠的选择。

malix · 发表于 2022-7-6 10:24:56

哇，我太离谱了。

谢谢你的帮助，这些效果很好。

BIGAL · 发表于 2022-7-6 10:27:01

哇哇，如果我添加另一种方法，使5种不同的方式做一个简单的动作，这是否打破了纪录。

copy

(defun C:CHX ()
 (SETVAR "CMDECHO" 0)
 (setq sn (getvar "osmode"))
 (command "osnap" "near")
 (setq x 0)
 (princ "\nalters object in X direction")
 (setq ht (getstring "\n What is amount of change: "))
 (setq newht (strcat ht ",0"))
 (while (= x 0)
   (setq newobj (entsel "\nPoint to object: "))
   (if (/= newobj nil)
   (progn
   (command "move" newobj "" "0,0" newht)
   ))
 (if (= newobj nil)(setq x 1))
 )
)

很抱歉偏离了轨道。

[编程交流] 简单移动命令问题

发表回复

精选推荐