Lisp转换圆、圆弧t

esputro · 发表于 2022-7-5 13:19:32

尊敬的各位：，

有人知道如何将圆、圆弧转换为线型吗。。。。。

谢谢

BIGAL · 发表于 2022-7-5 13:33:09

试试这个

; converts an arc to a series of straights
(vl-load-com)
(setq oldsnap (getvar "osmode"))
(setvar "osmode" 0)
(setq oldecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(while (setq ent (entsel "\nPick arc: "))
(setq obj (vlax-ename->vla-object (car ent)))
(if (= div nil) (setq div (getint "\nEnter number of chords: ")))
     
(setq  endpt (vlax-curve-getEndPoint obj)
    totlen (vlax-curve-getDistAtPoint obj endpt)
    arclen (/ totlen div)
    chrdpt (vlax-curve-getStartPoint obj)
    num 1     
)
(repeat div
 (setq newpt (vlax-curve-getPointatDist obj (* arclen num)))
 (command "line" chrdpt newpt "")
 (setq num (+ num 1))   
 (setq chrdpt newpt)
) ;repeat
(setq objlst (cons obj objlst))
) ; end while
;(vlax-for objdel objlst (vlax-delete  objdel))
(setvar "cmdecho" oldecho)
(setvar "osmode" oldsnap)
(princ)

esputro · 发表于 2022-7-5 13:39:37

谢谢Bigal的代码，但我无法读取要执行的函数。。。请给出建议。

MSasu · 发表于 2022-7-5 13:49:36

BIGAL发布的代码会将一系列圆弧破坏成线段，它不定义命令，但旨在直接运行；只需将其粘贴到命令提示符或VLIDE控制台上。
如果需要命令，则：

copy

(defun c:ATOL() ;arc to lines
;place BIGAl's code here
)

pBe · 发表于 2022-7-5 13:54:00

提示输入段距离可能比提示输入和弦数更好。

BIGAL · 发表于 2022-7-5 14:10:10

pBe这是一种快速绕过不支持圆弧的擦除的方法，而其他一些将autocad DWG作为基础框架导入的软件不支持圆弧，这可能是一个好主意，可能是一个lisp 2版本ATOLN&ATOLD中的一个选项

埃斯普特罗是满足了你的需求还是像pBe建议的那样？

loufe · 发表于 2022-7-5 14:11:45

谢谢你，为我工作！

BIGAL · 发表于 2022-7-5 14:26:36

很高兴听到老帖子。

[编程交流] Lisp转换圆、圆弧t

发表回复

精选推荐