圆弧的批量缩短或伸长，跟进上次线段的。

缘份呐

圆弧的批量缩短或伸长，顺便还有弧变圆。
(defun c:hll()
(setvar "osmode" 0)
(setq w (getstring "\n请选择项［缩短（SD）/总长（ZC）/伸长（SC）］: "))
(if (or (= w "sd") (= w "SD"))
(progn
(setq d (getreal "\n输入每边缩短值: "))
(setq ss(ssget '((0 . "ARC"))))
(setq len(sslength ss))
(setq i -1)
(repeat len
  (setq i (1+ i))
(setq en1(ssname ss i))
(setq e1 (entget en1))
(setq o (cdr (assoc 10 e1))
       r (cdr (assoc 40 e1))
       p0 (cdr (assoc 50 e1))
       pn (cdr (assoc 51 e1))
       hd0 (- pn p0)
       zdhd (+ p0 (/ hd0 2.0)))
(if (>= d (* (/ (abs (/ hd0 2.0)) pi) pi r)) (exit))
(setq ds (atof (angtos hd0 0 4))
       zc (* 2 pi r (/ ds 360)))
(setq xds (/ (* d 360) (* 2 pi r)))
(setq xhd (* pi (/ xds 180)))
(setq e1 (subst (cons 50 (+ p0 xhd)) (assoc 50 e1) e1))
(setq e1 (subst (cons 51 (- pn xhd)) (assoc 51 e1) e1))
(entmod e1))
))
(if (or (= w "sc") (= w "SC"))
  (progn
(setq d (getreal "\n输入每边伸长值: "))
(setq ss(ssget '((0 . "ARC"))))
(setq len(sslength ss))
(setq i -1)
(repeat len
  (setq i (1+ i))
(setq en1(ssname ss i))
(setq e1 (entget en1))
(setq o (cdr (assoc 10 e1))
       r (cdr (assoc 40 e1))
       p0 (cdr (assoc 50 e1))
       pn (cdr (assoc 51 e1))
       hd0 (- pn p0)
       zdhd (+ p0 (/ hd0 2.0)))
(setq ds (atof (angtos hd0 0 4))
       zc (* 2 pi r (/ ds 360)))
(setq xds (/ (* d 360) (* 2 pi r)))
(setq xhd (* pi (/ xds 180)))
(setq e1 (subst (cons 50 (- p0 xhd)) (assoc 50 e1) e1))
(setq e1 (subst (cons 51 (+ pn xhd)) (assoc 51 e1) e1))
(entmod e1))
  ))
(if (or (= w "zc") (= w "ZC"))
  (progn
(setq d (getreal "\n输入总弧长值: "))
(setq ss(ssget '((0 . "ARC"))))
(setq len(sslength ss))
(setq i -1)
(repeat len
  (setq i (1+ i))
(setq en1(ssname ss i))
(setq e1 (entget en1))
(setq o (cdr (assoc 10 e1))
       r (cdr (assoc 40 e1))
       p0 (cdr (assoc 50 e1))
       pn (cdr (assoc 51 e1))
       hd0 (- pn p0)
       zdhd (+ p0 (/ hd0 2.0)))
(if (>= d (* 2 pi r)) (exit))
(setq ds (atof (angtos hd0 0 4))
       zc (* 2 pi r (/ ds 360)))
(setq xds (/ (* d 360) (* 2 pi r)))
(setq xhd (* pi (/ xds 180)))
(setq e1 (subst (cons 50 (- zdhd (/ xhd 2.0))) (assoc 50 e1) e1))
(setq e1 (subst (cons 51 (+ zdhd (/ xhd 2.0))) (assoc 51 e1) e1))
(entmod e1))
))
(setvar "osmode" 3)
(princ)
)

(defun c:hby()
(setq ss(ssget '((0 . "ARC"))))
(setq len(sslength ss))
(setq i -1)
(repeat len
  (setq i (1+ i))
(setq en1(ssname ss i))
(setq e1 (entget en1))
(setq o (cdr (assoc 10 e1))
       r (cdr (assoc 40 e1))
       p0 (cdr (assoc 50 e1))
       pn (cdr (assoc 51 e1)))
(command "circle" o r ))
(command "erase" ss "")
(princ)
)

缘份呐

,怎么没有人，给点评点？求指导

缘份呐

上个动画试试

lengxiaxi

感谢！非常好用的程序！！帅！