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

cjvsjay

大家好：

, G' u: l& a/ i: n            工作中常会用到S拉伸到指定点来对齐视图，常规做法是先在要对齐的视图边画条直线，然后用S拉伸到直线上，这样太繁琐，用点过滤器可提高效率，以下是尝试着写的LISP，但不成功，期望大师们能帮忙完善下，谢谢！
- R# G  U" A/ n6 j0 T
+ N' s5 s( l8 J9 p;;;=========================={ S拉伸命令改造 }=================================
;;;功能：S拉伸使用右键点过滤器，拉伸到指定点)
(defun c:TT (/ SS)
$ g; u, C) k, Y( d" n1 l7 g: O5 Z* |  (IF (SETQ SS (SSGET ""))
    (PROGN
! T% Q$ C. A% {      (command "STRETCH" SS "" PAUSE ".X"))
' v/ x9 v2 `6 s, @: d        (COMMAND "")
; C! n8 O3 c' T: {      )
; w7 a4 U3 i$ x( j) ~2 R    )
  )
  (PRINC)
: M  I" N/ Y- u)
7 ]. ?% ?+ u; {' x$ T- U
. p' S) I6 x6 P1 [" u- F
6 t) J. ^! U  N% v) ?2 L

zlg521314

这个没那么复杂，你就是用S拉伸命令都可以做到对齐，S命令之后我们向左框选，确定之后指定距离的时候按着键盘上的CTRL键点鼠标右键选择垂足点对齐上面的那条边就可以达到你想要的效果了。

cjvsjay

zlg521314 发表于 2018-7-12 21:56
, q1 ^* X4 N5 H5 y' X# W! A* s这个没那么复杂，你就是用S拉伸命令都可以做到对齐，S命令之后我们向左框选，确定之后指定距离的时候按着键 ...

5 Z0 _' i7 q' \5 b! g谢谢大师，对对对，点垂足同样可以达到效果，我现在主要就是想简化，就是不按CTRL键，不点右键，不选垂足，因为点右键后还要找到垂足有点浪费时间，执行命令后直接点边就行了，我是看到有人这样操作过，麻烦你再帮我盾看，谢谢！
* w( K8 K; K$ b0 M9 C. K