有人能定制“M”吗

Saqib_theleo · 发表于 2022-7-6 07:43:46

大家好，
我需要一个lisp，它可以在指定的距离上移动选定的对象。我想移动选定的对象或对象1000个单位在右侧，即-X轴。请这样做，以便在执行Lisp命令后，我选择需要向右移动1000个单位的对象，然后在点击enter或空格键后，所有选定的对象应向右移动1000个单位。希望你能理解。

如果有人能帮上忙，我会很感激的。

MSasu · 发表于 2022-7-6 08:04:20

您可以尝试从上一个线程调整例程。

Tharwat · 发表于 2022-7-6 08:11:07

copy


(defun c:Test (/ ss )
 (if (setq ss (ssget "_:L" ))
   (vl-cmdf "_.move" ss "" "_non" '(0. 0. 0.) "_non"  '(1000. 0. 0.))
   )
 (princ)
 )

Saqib_theleo · 发表于 2022-7-6 08:29:33

嗨，塔瓦，
这正是我需要的，谢谢你理解我的需要，并为我做这个Lisp程序。祝你玩得愉快。

再次感谢。

Tharwat · 发表于 2022-7-6 08:33:05

随时欢迎你。

BIGAL · 发表于 2022-7-6 08:47:31

一个老问题，为什么不CHX CHY CHZ，并要求空间，而不是硬代码。

copy

(defun c:CHX (/ ss )
(setq diff (Getreal "\nEnter distance required"  ))
(if (setq ss (ssget "_:L" ))
   (vl-cmdf "_.move" ss "" "_non" '(0. 0. 0.) "_non"  '(diff 0. 0.))
   )
 (princ)
CHY '(0. diff 0.)
 )

copy

Version 2, 1 spacing per session
(if (= diff nil)
(setq diff (Getreal "\nEnter distance required"  ))
)
(if (setq ss (ssget "_:L" ))
   (vl-cmdf "_.move" ss "" "_non" '(0. 0. 0.) "_non"  '(diff 0. 0.))
   )

像选择集一样，我的旧版本是pick pick

[编程交流] 有人能定制“M”吗

发表回复

精选推荐