线段定点伸缩

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
如果能够多选对象就好更加好用了

这里的是批量动态拉缩的，
http://bbs.mjtd.com/thread-108873-1-1.html

账号		自动登录	找回密码
密码			注册

[源码] 线段定点伸缩

评分

浏览过的版块