求拉伸增强的LSP

123456abc

工作中经常用到拉伸命令，但cad自带的不是很好用，尤其是框选的时候感觉不是很方便，求推荐个好用的拉伸命令改进版的。

tangjunasd58

我也相要那样的拉伸

lyqiezi

(defun c:xs ()
  (setq pt (getpoint "框选起点:"))
  (setq pl (list pt))
  (princ "\n下一点：")
  (while pt
    (if (setq pt (getpoint pt))
      (setq pl (append
                 (list pt)
                 pl
               )
      )
    )
  )
  (command "stretch" (ssget "cp" pl) "")
  (print)
)

是不是这样的？当时刚好讨论到这个问题，可以采用连续的点做出不规则的选框，但是没有动态显示，只有最后两个点形成线的提示

highflybird

去看看这个吧，要增强的，想拉哪选哪，这个连图块内的都能拉神 http://bbs.xdcad.net/thread-676815-1-1.html