[求助]支持将donut的中心也移到距选择的连线为某一输入的距离

lengliqun

联系不到原作者，请求修改以下程序，能支持将donut的中心也移到距选择的连线为某一输入的距离

 

;;;作者：zml84
;;=============================
;;;      钢筋辅助绘图工具
;;;功能：调整钢筋点距离混凝土边界的距离
(defun C:G1 (/ SS1 SS2 DIST I EN ENT PT10 PT0 PT_NEW)
    (if (and (setq SS1 (entsel "\n点取混凝土边界线: "))
      (princ "\n选择钢筋点...")
      (setq SS2 (ssget '((0 . "CIRCLE,INSERT"))))
      (setq DIST 100)
 )
 (progn
     (setq I 0)
     (repeat (sslength SS2)
  (setq EN   (ssname SS2 I)
        ENT  (entget EN)
        PT10 (cdr (assoc 10 ENT))
  )
  (setq PT0    (VLAX-CURVE-GETCLOSESTPOINTTO (car SS1) PT10) ;_线上的最近点
        PT_NEW (polar PT0 (angle PT0 PT10) DIST)
  )
  (setq ENT (subst (cons 10 PT_NEW) (assoc 10 ENT) ENT))
  (entmod ENT)
  ;;
  (setq I (1+ I))
     )
 )
    )
    (princ)
)