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

TLHMQH

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

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

1、系统〈提示〉：指定第三个源点或 <继续>:

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

2、系统〈提示〉：是否基于对齐点缩放对象？[是(Y)/否(N)] <否>:

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

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

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

zml84

试一试下面这个。

2. 
   
3. ;;功能：二维ALIGN（默认缩放）
   
4. ;;日期：ZML84 于 2007-03-24 9:35
   
5. ;;===================================
   
6. (defun c:tt (/ s1 p1 p2 p3 p4)
   
7.   (princ "\n二维ALIGN（默认缩放）")
   
8.   (if (setq s1 (ssget))
   
9.     (if        (setq pt1 (getpoint "\n指定第一个源点:"))
   
10.       (if (setq pt2 (getpoint pt1 "\n指定第一个目标点:"))
    
11.         (if (setq pt3 (getpoint "\n指定第二个源点:"))
    
12.           (if (setq pt4 (getpoint pt3 "\n指定第二个目标点:"))
    
13.             (command "_align" s1 "" pt1 pt2 pt3 pt4 "" "Y")
    
14.           )
    
15.         )
    
16.       )
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )
    

<br /> ;;功能：二维ALIGN（默认缩放）<br /> ;;日期：ZML84 于 2007-03-24 9:35<br /> ;;===================================<br /> (defun c:tt (/ s1 p1 p2 p3 p4)<br />   (princ "\n二维ALIGN（默认缩放）")<br />   (if (setq s1 (ssget))<br />     (if        (setq pt1 (getpoint "\n指定第一个源点:"))<br />       (if (setq pt2 (getpoint pt1 "\n指定第一个目标点:"))<br />         (if (setq pt3 (getpoint "\n指定第二个源点:"))<br />           (if (setq pt4 (getpoint pt3 "\n指定第二个目标点:"))<br />             (command "_align" s1 "" pt1 pt2 pt3 pt4 "" "Y")<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

TLHMQH

谢谢ZML84的热心！高手！
我用了，很好用。

另(ssget)是个什么函数，怎样使用？
请指教！

yitian519

(ssget)选择图形

zml84

选择集是A/VLISP语言特有的一种变量类型。
ssget函数的功能是：通过各种方式选择对象，返回包含所选对象的选择集。
详见：http://www.mjtd.com/object/autolisp/ALR.default.214.htm

fools

可以简化一下
[php]
(defun c:tt(/ ssg)
  (if (setq ssg (ssget))
    (command "_.ALIGN" ssg "" pause pause pause pause "" "_N"))
)
[/php]

WHGF

6楼的方法更好，对于表格中的文字对实用。

zml84

不建议在COMMAND函数中使用 pause  ，因为你不知道用户在当前作了什么输入，也就无法检验其数据有效性。

fsxm

支持zml84~！
能不用pause的就尽可能不用~代码长一点也可以啊~