[lisp][求助]关于lisp调用“extend”的方向的问题

lazybug

我的程序如下，问题是当延伸的时候方向只能是向下或者向左，我想知道怎样才能向右或者向上延伸。我试过改ucs的方向但是没有用，是由某个系统变量控制的么，我也没有找到。请高手帮忙看一下

（我做了个示意图，但是不会贴，就放在文件里了。运行我的程序得到的结果是第二幅图的样子，我需要的是第三副的样子）

(defun c:et (/ en ss n k old_edgemode)
    (setvar "cmdecho" 0)
    (command "undo" "begin")
    (princ "\n<选择要延伸到的边界>")
    (setq en (ssget))
    (princ "\n<选择要延伸的对象>")
    (setq ss (ssget))   
    (setq old_edgemode (getvar "edgemode"))
    (setvar "edgemode" 0)
    (setq k 0)
    (repeat (sslength en)
        (setq en1 (ssname en k))
 (setq n 0)
 (repeat (sslength ss)
     (setq ss1 (ssname ss n))
     (command "extend" en1 "" ss1 "")
     (setq n (1+ n))
 )
 (setq k (1+ k))
    )
    (setvar "edgemode" old_edgemode)
    (command "undo" "end")
    (prin1)
)

bud

可以将要延伸的实体改成实体离延伸边界最近的点
如pt1和pt2分别是线上的两个端点,且pt1最接近边界
那么可以用(command "extend" en1 "" pt1 "")

lazybug

可以这样啊，没想到

我回去试试

谢谢先

lazybug

太麻烦

有没有简单的方法

高手请指点一下