用曲线分段曲线

benhubel · 发表于 2022-7-5 17:51:14

段曲线LISP对于简化多余的几何图形非常有用。它将曲线分割为用户定义的线数。
目前，我只是用PEdit拟合来跟踪段曲线，将其转换回曲线。问题是，这种方法添加了大量不必要的曲线，并且不是很干净，因此其实用性受到限制。

我想知道是否可以修改为将曲线拆分为用户定义的多条曲线，以遵循原始曲线，而不是拆分为多条直线？

或者，如果有其他我不知道的简化几何的方法（特别是那些可以保留角的方法），我也愿意接受这些想法。

BIGAL · 发表于 2022-7-5 18:09:08

这是我买的旧的

copy


; Converts 1 arc to multi arc
; By Alan H
(vl-load-com)
(setq oldsnap (getvar "osmode"))
(setvar "osmode" 0)
(setq oldlayer (getvar "clayer"))
;pdmode point type use when checking points
; (setvar "pdmode" 34)
(setvar "osmode" 512)  ; nearest make sure on line
(setq pickobj (entsel "\nPick arc :"))
(setq obj1 (vlax-ename->vla-object (car pickobj)))
(setq pickpt (cadr pickobj))  
(setvar "clayer" (cdr (assoc 8 (entget (car pickobj)))))
(setq cenpt1 (cdr (assoc 10 (entget (car pickobj)))))
(setq rad (cdr (assoc 40 (entget (car pickobj)))))
(setq ang1 (cdr (assoc 50 (entget (car pickobj)))))
(setq ang2 (cdr (assoc 51 (entget (car pickobj)))))
(setq howmany (getreal "\nEnter how many sections required "))
(setq ang (/ (- ang2 ang1) howmany))
(setq pt1 (polar cenpt1 ang1 rad))
(entdel (car pickobj))
(setq x (fix howmany))  ; doesn't like reals in repeat
(repeat x
(setq ang2 (+ ang ang1))
(setq pt2 (polar cenpt1 ang2 rad))
(command "arc" pt1 "e" pt2 "r" rad)
(setq pt1 pt2)
(setq ang1 ang2)
)
(setvar "osmode" oldsnap)
(princ)