[求助]求几个小程序，有的请帮忙帖上来。谢谢了。

futuremh

增量的我用了没反应

第二个无论怎么做它总是变成水平的.不能变成竖直的,还有他旋转时的旋转点不是直线的其中一端点

phoenixdjq

增量的那个一定要保证这条直线的两个端点都在屏幕范围之内才有反应，这个我在注意中都说了，你没有注意吧。现在修改了一下，有一个放大的过程，如果你不喜欢可以去掉(command "zoom" "e" "")这句话。
。

第二个你还要竖直的话，就要一个选项了，我已经加上了。当需要你选择点的时候，一定要选择这条线的一个端点，就会以这条线旋转了。不要任选一点。如果你任选点的话，一定是以你选择的点为基点去转了

程序中红色为修改的地方，你可以跟原来程序对照一下，如有问题再联系

(defun c:jj()
(setq ent (car  (entsel "\n 请选择一条线:")))
(setq zen (getreal "\n 请输入增量:"))
(setq qidian (cdr (assoc 10 (entget ent))))
(setq duandian (cdr (assoc 11 (entget ent))))

(command "zoom" "e" "")
(command "lengthen" "de" zen  qidian duandian "")
(princ)
)

旋转角度的

(defun c:jj()
(setq old (getvar "osmode" ))
(setq ent (car  (entsel "\n 请选择一条线:")))

(setq du (getreal "\n 请输入角度:"))
(setq qidian (cdr (assoc 10 (entget ent))))
(setq duandian (cdr (assoc 11 (entget ent))))
(setvar "osmode" 1)
(command "rotate" ent "" pause "r"  qidian duandian du)
(setvar "osmode" old)
(princ)
)

futuremh

对于转角度的,为什么要输角度呢,可不可以自自己判断,大于45小于135就变90度 除此之外变180度

phoenixdjq

这样的话，也需要定点的

如果起点终点不一样的话，角度是不一样的

sen.sam

好像补圆的用不了

coldboy1984

2。就是把斜线变成横平竖直的线。

(defun c:xyline ()
  (setq new-line (entget (car (entsel "\nSelect a line: "))))
  (setq p1 (cdr (assoc 10 new-line))
 p2 (cdr (assoc 11 new-line))
  )
  (setq p01 (list (max (nth 0 p1) (nth 0 p2))
    (min (nth 1 p1) (nth 1 p2))
     )
 p02 (list (min (nth 0 p1) (nth 0 p2))
    (min (nth 1 p1) (nth 1 p2))
     )
  )
  (if (> (* (- (nth 0 p1) (nth 0 p2)) (- (nth 1 p1) (nth 1 p2)))
  0
      )
    (command "line" p1 p01 p2 "")
    (command "line" p1 p02 p2 "")
  )
)

还有下面这个:

(defun c:x_y (/ new-line p1 p2 dtan p0 d01 sp ep key dx dy)
  (setq new-line (entget (car (entsel "\nSelect a line: "))))
  (setq p1 (cdr (assoc 10 new-line))
 p2 (cdr (assoc 11 new-line))
  )
  (setq p0 (getpoint "\nSelect rotate center:"))
  (setq sp ()
 ep ()
  )
  (if (< (- (distance p0 p1) (distance p0 p2)) 0)

    (setq sp  p1
   key p2
    )
    (setq sp  p2
   key p1
    )
  )
  (setq dx (* (/ (- (nth 0 key) (nth 0 sp))
   (abs (- (nth 0 key) (nth 0 sp)))
       )
       (distance p1 p2)
    )
 dy (* (/ (- (nth 1 key) (nth 1 sp))
   (abs (- (nth 1 key) (nth 1 sp)))
       )
       (distance p1 p2)
    )
  )
  (if (< (/ (abs (- (nth 1 p1) (nth 1 p2)))
     (abs (- (nth 0 p1) (nth 0 p2)))
  )
  1
      )
    (setq ep (list (+ (nth 0 sp) dx) (nth 1 sp)))
    (setq ep (list (nth 0 sp) (+ (nth 1 sp) dy)))
  )
  (command "line" sp ep "")
  (command "erase" (cdr (assoc -1 new-line)) "")
)

选择旋转中心时,靠近旋转端就可以了,不必是直线端点.

如果不删除原来的直线,把最后一句(command "erase" (cdr (assoc -1 new-line)) "")删除就可以了.

sailorcwx

第一个圆弧是arc呢还是包括弧形多段线呢？

sailorcwx