块内拉升lisp_晓东CAD家园-论坛-晓东工具箱、编程申请-求一个改进的拉伸，移动lisp-平时工作中经常会改图，，然后就是把好多东西都拉伸固定距离，或者移动固定距离，故每次都得输入一遍距离，，希望...

(defun c:xm (/ ss pb dis)

(if

(and (setq ss (ssget))

(progn

(setq pb (car (xdrx_entity_box ss)))

(if

(setq

dis (getdist pb

(if        **GlobleDist**

(strcat "\nDistance

(vl-princ-to-string **GlobleDist**)

">: "

)

"\nDistance: "

)

)

)

(setq **GlobleDist** dis)

(setq dis **GlobleDist**)

)

)

)

(vl-cmdf ".move"

ss

""

pb

(polar pb (angle pb (cadr (grread T 15))) dis)

)

)

(princ)

)

(defun c:xs (/ ss pb dis)

(if

(and (setq ss (ssget))

(progn

(setq pb (car (xdrx_entity_box ss)))

(if

(setq

dis (getdist pb

(if        **GlobleDist**

(strcat "\nDistance

(vl-princ-to-string **GlobleDist**)

">: "

)

"\nDistance: "

)

)

)

(setq **GlobleDist** dis)

(setq dis **GlobleDist**)

)

)

)

(vl-cmdf ".stretch"

ss

""

pb

(polar pb (angle pb (cadr (grread T 15))) dis)

)

)

(princ)

)