|
大家好:7 C* z# p& ^3 _
2 e# \: H: Z5 c- G
工作中常会用到S拉伸到指定点来对齐视图,常规做法是先在要对齐的视图边画条直线,然后用S拉伸到直线上,这样太繁琐,用点过滤器可提高效率,以下是尝试着写的LISP,但不成功,期望大师们能帮忙完善下,谢谢!) `! J/ V6 y: w0 x. ~7 k8 g
* u+ y" f9 C7 E: g$ |- s& _
;;;=========================={ S拉伸命令改造 }=================================
5 z; L# p4 W, `* L' m5 X: X;;;功能:S拉伸使用右键点过滤器,拉伸到指定点)
; ` G+ g& G- ~. ]: H4 }& o(defun c:TT (/ SS)$ E3 }# x5 q8 H8 D0 g$ W" Q
(IF (SETQ SS (SSGET ""))3 }9 N! v# {! t, r
(PROGN
( ~* h# X) w. G! F: s! m ` (command "STRETCH" SS "" PAUSE ".X"))# ?$ t, H1 m/ V
(COMMAND ""); C& N `8 O" F
)
0 T" Q2 m7 d" Q$ k: x g ), f7 t: L; i; p+ A4 ?9 c
), X2 w/ y; O) [/ o7 U
(PRINC)
5 T# |0 Q- g! q+ P. l, X! A)! u. b; }1 `- d
6 L( x4 `, {# _$ x; K. r, d. P$ H d; X& p* a
5 H( a4 s4 ^8 b' M Y' g |
|