123456abc 发表于 2014-3-1 16:47:48

求拉伸增强的LSP

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

tangjunasd58 发表于 2014-11-13 23:27:02

我也相要那样的拉伸

lyqiezi 发表于 2014-11-14 23:37:40

(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 发表于 2014-11-15 15:55:56

本帖最后由 highflybird 于 2014-11-15 16:06 编辑

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




页: [1]
查看完整版本: 求拉伸增强的LSP