[求助]请编个二维中的对齐命令

TLHMQH

在三维操作中有个命令：对齐（align）

在二维操作中也很有用，但其有两个缺点：

1、指定第三个源点或 <继续>:

在二维操作中只用两个对齐点，需按一次回车取消第三个对齐点。

2、是否基于对齐点缩放对象？[是(Y)/否(N)] <否>:

系统默认方式是<否>，而正常操作中大部分是选择是(Y)，这就需要多按一次Y。

上面两项给操作带来多余步骤。

请高手编个程序，能有对齐（align）功能，但却简化上面两个步骤

sailorcwx

(command "align" (ssget) "" pause pause pause pause "" "Y")

sailorcwx

函数格式

(defun c:a ()
  (command "align" (ssget) "" pause pause pause pause "" "Y")
  (princ)
  )

TLHMQH

谢谢楼上，高手。辛苦了！