对需要拉伸的实体进行指定长度的拉伸

正航

(defun c:ss (/ s odis oang p1 p2 p3 p4 tdis)
  ;;定距伸展    正航
  (setvar "cmdecho" 0)
  (command)
  (setq bl (getvar "dimlfac"))
  (princ "\n    *******  定距伸展程序 *******")
  (princ "\n 当前绘图比例: 1:")
  (princ bl)
  (princ " .")
  (princ "\n请选择伸展的实体:")
  (setq s 1)
  (while s
    (setq p1 (getpoint "请选择交叉窗口第一角："))
    (if        (/= p1 nil)
      (setq s nil)
      
    )
  )
  (setq s 1)
  (while s
    (setq p2 (getcorner p1 "\n对角点："))
    (if        (/= p2 nil)
      (setq s nil)
      (alert "\n您输入了无效的交叉窗点！")
    )
  )
  (setq s 1)
  (while s
    (setq p3 (getpoint "\n请选择基准点:"))
    (if        (/= p3 nil)
      (setq s nil)
      (alert "\n您输入了无效的基准点！")
    )
  )
  (if (= ang nil)
    (setq ang 0)
    (setq oang ang)
  )
  (setq        ang
         (getangle p3
                   (strcat "\n请您输入实体伸展的方向或角度<"
                           (rtos (* (/ ang pi) 180))
                           "°>:"
                   )
         )
  )
  (if (or (= ang nil) (= ang ""))
    (setq ang oang)
  )
  (command "snapang" (* (/ ang pi) 180))
  (command "orthomode" 1)
  (if (= dis nil)
    (setq dis 0)
    (setq odis dis)
  )
  (setq dis (getdist p3 (strcat "\n实体复制距离<" (rtos dis) "mm>:")))
  (if (or (= dis nil) (= dis ""))
    (setq dis odis)
  )
  (setq tdis (/ dis bl))
  (setq p4 (polar p3 ang tdis))
  (command ".stretch" (ssget "C" p1 p2) "" p3 p4)
  (command "snapang" 0)
  (princ)
)