|
大家好:0 ?2 m" ?( w- |* Z. @ m5 Q
$ f0 I" B4 G% S/ L. s6 N' |- U 工作中常会用到S拉伸到指定点来对齐视图,常规做法是先在要对齐的视图边画条直线,然后用S拉伸到直线上,这样太繁琐,用点过滤器可提高效率,以下是尝试着写的LISP,但不成功,期望大师们能帮忙完善下,谢谢!* s8 K2 E- \ B9 A) b
" U" b( [% L: r( ]: u;;;=========================={ S拉伸命令改造 }=================================. A& w @) d5 u4 a7 G! l8 b
;;;功能:S拉伸使用右键点过滤器,拉伸到指定点)- I* M/ A" w* |2 I! r* S" _ ?
(defun c:TT (/ SS)
/ l) |9 C# H0 q (IF (SETQ SS (SSGET ""))
j3 b& R6 N+ g (PROGN" z2 d3 e4 y2 T; J8 {3 G0 p
(command "STRETCH" SS "" PAUSE ".X"))
' H" q/ U: q0 r; Q2 v (COMMAND "")2 s+ j; ], x- O2 H4 Z
)) @! U7 j2 Z, M- c" V/ Y
)
9 Z2 B9 z* w0 S* o* r) B6 K/ U )
$ B( K, { K' v( Y; ^6 t (PRINC)- Z1 I! X$ x0 ^0 w5 @
)0 [+ v5 Q, }" }" B# v6 ^' G, a9 n
6 {" [1 H" ?2 y! g. T: X2 h
4 N4 R, T" I: d$ A- Y2 z
$ i5 p1 p& `' l) v$ W# Y4 c9 A |
|