[求助]如何让AutoLISP实现线段缩短？

jetorz

2. 在command下用LENGTHEN减短线段两端的长度，常规需要在要减少的线段的端点处各点一下。如果要两边都减少一个数，比如100，但是不想手动点，想用ENTLAST，怎样实现？
4. 想了一下，但是这样肯定是不行的：
6. (defun C:DE ()
7.   (setq w 50)
8.   (command "PLINE" (GETPOINT) "w" w w (GETPOINT))
9.   (setq w -150)
10.   (command "LENGTHEN" "DE" w (entlast))
11. )

在command下用LENGTHEN减短线段两端的长度，常规需要在要减少的线段的端点处各点一下。如果要两边都减少一个数，比如100，但是不想手动点，想用ENTLAST，怎样实现？ 想了一下，但是这样肯定是不行的： (defun C:DE ()   (setq w 50)   (command "PLINE" (GETPOINT) "w" w w (GETPOINT))   (setq w -150)   (command "LENGTHEN" "DE" w (entlast)) )

jetorz

看来问题没有说明白。AutoCAD的有些操作是需要我们指明线段的哪一端的。比如Lengthen命令在用DE的时候就需要指明要伸长或者缩短的是哪一端。在AutoCAD中我们可以很方便用鼠标点击对像，靠近哪一端就伸长哪一端，但是在AutoLISP中如何来做呢？前提当然是不想再次用鼠标选。

byghbcx

直接修改10 11 组码值,再用entmod即可

sailorcwx

(defun C:DE ()
  (setq w 50)
  (command "PLINE" (GETPOINT) "w" w w (GETPOINT) "")
  (setq w -150)
  (command "LENGTHEN" "DE" w (entlast) "")
)