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

有人能定制“M”吗

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

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

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

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


(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，并要求空间，而不是硬代码。
(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.)
)
 
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
页: [1]
查看完整版本: 有人能定制“M”吗