S拉伸命令对齐视图改造，大家进来看下

283191340

大家好：

            工作中常会用到S拉伸到指定点来对齐视图，常规做法是先在要对齐的视图边画条直线，然后用S拉伸到直线上，这样太繁琐，用点过滤器可提高效率，以下是尝试着写的LISP，但不成功，期望大师们能帮忙完善下，谢谢！

;;;=========================={ S拉伸命令改造 }=================================
;;;功能：S拉伸使用右键点过滤器，拉伸到指定点)
(defun c:TT (/ SS)
  (IF (SETQ SS (SSGET ":L"))
    (PROGN
      (command "STRETCH" SS "" PAUSE ".X"))
        (COMMAND "")
      )
    )
  )
  (PRINC)
)

奋斗二号

不知道楼主的CAD里有没有EX、XL这些命令，S命令也不是那么复杂嘛，你研究的那么高端，坐等大神

aaddff

PER找垂点即可

aaddff

(defun c:TTT (/ SS p0 p1 p2)
  (if(and
  (SETQ SS(ssget))
  (setq p0(getpoint "\n起始点"))
  (setq p1(getpoint "\n终止点"))
  (setq p2(cons(car p1)(cdr p0)))
  )
  (command "stretch" ss "" p0 p2)
    )
  (princ)
)

LIAOYAO

估计问题点在这里，(car p1)(cdr p0) ，这是终止点取X值，起始点取Y值，
(command "stretch" ss "" p0 p2) ，从起始点拉伸到 合成点 p2。

所以X轴向拉伸是符合的，Y轴向拉伸则非操作者想要的。

szfish2010

虽然用不上，还是感谢

283191340

还是没搞定，大家帮帮忙啊

283191340

老大们再过来看看啊

一盏茶

这命令感觉有点象spo命令，延申标注到指定点

xiaofang820606

看看，学习一下谢谢

LIUJIAOYOU

感觉很好，感谢