958620832 发表于 2013-10-22 17:07:41

线段定点伸缩

(defun c:de () ;只对直线有效
(setq p (getpoint "\n选择基点:"))
(while (setq obj (entsel "\n选择直线:")) (command "lengthen" "dy" obj p ""))
(princ))
源码虽简单，但很实用。

958620832 发表于 2013-10-23 09:10:54

补充版：
(defun c:de ()
(initget "T")
(setq p (getpoint "\n选择基点/[总长(T)]:"))
(if (= p "T")
    (command "lengthen" "t") ;对多义线和直线均有效
    (while (setq obj (entsel "\n选择直线:")) (command "lengthen" "dy" obj p ""))) ;只对直线有效
(princ))
补充了对于多义线的编辑

chenbh2 发表于 2014-9-6 15:39:50

本帖最后由 chenbh2 于 2014-9-6 15:48 编辑

好想有个直线2端减短程序?


xieyanghui 发表于 2014-9-7 03:24:37

如果能够多选对象就好更加好用了

荒野孤行 发表于 2014-9-7 15:41:02

xieyanghui 发表于 2014-9-7 03:24 static/image/common/back.gif
如果能够多选对象就好更加好用了

这里的是批量动态拉缩的，
http://bbs.mjtd.com/thread-108873-1-1.html
页: [1]
查看完整版本: 线段定点伸缩