【AF】圆弧半径规整_v1.7——起点终点不变

flowerson

能起点终点不变，中间其它切点可以变，都保证整数同时弧是相切的，这样可以吗？

依然小小鸟

kucha007 发表于 2022-12-24 10:33
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=86961&highlight=%CA%FD%BE%DD%C8%A1%D5%FB&mobile ...

打不开呢 老大

yoyoho

依然小小鸟 发表于 2023-3-8 12:52
打不开呢 老大

http://bbs.mjtd.com/thread-86961-1-1.html

fsafaffa

学着写了一个

pxt2001

有没有直线按照起点或终点计算，角度规整到0、90度

kucha007

pxt2001 发表于 2023-11-27 07:58
有没有直线按照起点或终点计算，角度规整到0、90度

没理解，起点和端点不变，角度不就固定了吗？？？？

fsafaffa

(defun c:tt ()
(if (setq ss (ssget '((0 . "line"))))
        (progn
                (setq ss (mapcar 'cadr (vl-remove-if-not '(lambda (x) (= (car x) 3))(ssnamex ss))))
                (foreach x ss
                        (setq dxf (entget x)
                                pt1 (cdr (assoc 10 dxf))
                                pt2 (assoc 11 dxf)
                                pt22 (cdr pt2)
                                len (distance pt1 pt22)
                                pt22 (polar pt1 0 len)
                                dxf (subst (cons 11 pt22) pt2 dxf)
                        )
                        (entmod dxf)
                )
        )
)
)