[求助]：AutoLISP的选择问题

jetorz

先从两个实例说起。一个是Lengthen命令，其中的DE参数可以用来伸长线段。先画一条线，然后想让线段每边都伸长一个特定的值。在AutoCAD里面操作的时候需要点选线段两端来伸长，想用LISP实现不用点选就可以自动伸长，用(command "lenghten")的话，后面的参数应该怎么添？当然，不用Lengthen而用Scale也能达到目的，但是不太想用Scale，因为还有线宽等因素。

另一个就是用command "Trim"。Trim的时候也需要选择要被Trim的对象，然后一端被Trim掉，另一端保留。这个选择如果想让程序完成而不想让用户选择的话应该怎么弄？

wkq004

(defun c:yc(/ ss l)
  (setq ss (entsel "请选择要延长的线:"))
  (princ "\n请输入延长长度:")
  (setq l (getdist))
  (command "Lengthen" "de" l ss)
  (command)
  (princ)
  )