一个ACAD的高级应用问题，高手请进！！

在autolisp中，要实现加长一根线段，如何让线段在希望加长一的端加长？
如（command "line" (list 0 0) (list 50 40))
     (command "lengthen" "de" 20 (entlast) "")
我希望在终点加长，结果先在线段起点加长几次，然后分别在起点与终点各加长一次，要实现把增量一直加在起点端或终点端，该如何控制？请高手指点！！

请高手出招!

1：可以先用(entsel)获得要加长的对象和输入点的坐标，
可以用(car(entsel))获得对象句柄，可以用(cadr(entsel))获得输入点的坐标。
2：用(entget(car(entsel)))获得对象的信息列表，可以(cdr(assoc 10 entlist))获得起点坐标，用(cdr(assoc 11 entlist))获得终点坐标。
3：比较起点和终点分别和输入点的距离(distance p0 p1)，那个点的距离近就表示要从那个点延长。

看样子还是新手，有时间一起交流。

谢谢高手的指点！可是我要加长的是几千条线段，不能用entsel来一个个地选取，如果直接用(command "lengthen" "de" 200  (cdr( 11 (ssname ss n))"")获得终点来延长，结果每次延长的都不是需要延长的全部，百分之九十左右是正确的，其它百分之十左右的却在起点端延长，我试了好几次都一样，请高手继续指点!

我试了很多次，每次都不一样，请高手指点，以下程序哪里出了问题？

(defun c:xxc (/ o ob1 ob)
  (setvar "cmdecho" 0)
  (setq o (getvar "osmode"))
  (setvar "osmode" 0)
  (command "line" (list 0 0) (list 500 0) "")
  (setq ob1 (entlast))
  (command "array" ob1 "" "p" (list 0 0) 500 "" "" "")
  (setq ob (entnext))
  (while ob
    (command "lengthen"
             "de"
             200
             (cdr (assoc 11 (entget ob)))
             ""
    )
    (setq ob (entnext ob))
  )
  (command "zoom" "e")
  (setvar "osmode" o)
  (princ)
)

高手在哪里？快救命哪！！

不行，这里等得太辛苦了，得换个地方！

真是怪，今天用每次都很正常，前几天没一次正常，且每次都不一样？倒底是软件不稳定还是系统的问题，哪位高手请指点一下在下的迷津！！！

今天试的代码如下：
(defun c:xxx( / ss ssl n ent end)
  (setq ss(ssget "x" '((0 . "line")))
        ssl(sslength ss))
  (setq n 0)
  (while (<= n ssl)
    (setq ent(entget(ssname ss n))
          end(cdr(assoc 11 ent)))
    (command "lengthen" "de" -200 end "")
    (setq n(1+ n))
    )
  (princ)
  )

和前几天的一模一样，真是怪！！！！！！

难道这几行东东真的成了段誉的六脉神剑，要靠天吃饭？