[原创]：圆弧转多段线

yshf · 发表于 2005-11-14 16:58:14

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;圆弧转多段线
;h为弓高（即弦中心至相对应弧之中心的距离）
;它用来描述以弦代弧的光滑程度，一般化取0.005mm(图上距离)即可
(defun arc->pline(ent h / xtblm xtblz db r po a0 h n)
(setq xtblm '("cmdecho" "osmode")
   xtblz (mapcar 'getvar xtblm)
   db (entget ent)  r (cdr (assoc 40 db))
   po (cdr (assoc 10 db))
   a0 (cdr (assoc 50 db))
   db (- (cdr (assoc 51 db)) a0)
   db (cond ((< db 0) (+ (* 2.0 pi) db))
   (t             db)
      )
   n  (fix (/ db (atan (/ (sqrt (- (* 2.0 r h) (* h h))) (- r h)))))
   db (/ db n)
)
(mapcar 'setvar xtblm '(0 0))
(command "_pline" (polar po a0 r))
(repeat n (command (polar po (setq a0 (+ a0 db)) r)))
(command "" "_matchprop" ent (entlast) "" "_erase" ent "" "redraw")
(mapcar 'setvar xtblm xtblz)(princ)
)

;测试程序
(defun c:cc()
(setq t0 (getvar "cdate"))
(arc->pline (car (entsel "\n请选取要转化多段线的圆弧:")) 0.005)
(princ (strcat "\n耗时：" (rtos (* 1000000 (- (getvar "cdate") t0) 2 3)) "秒"))
(princ)
)

zxq0220 · 发表于 2013-12-27 08:08:58

(defun c:tt ()
(if (setq ss (ssget '((0 . "ARC"))))
(command "PEDIT" "M" ss "" "Y" "J" "" "")
)
(princ)
)

地鼠 · 发表于 2005-11-14 17:35:23

已收藏，不错。谢谢

zxl01615 · 发表于 2013-12-26 20:27:15

学习中。。

用pps看欲望都市 · 发表于 2013-12-27 12:17:31

可以按长度批量打断（满足精度的微段长度），然后再连成多段线，这样外表上看还是圆弧，和别的软件交互的时候又具有多段线的性质

liaowuning · 发表于 2014-4-13 13:43:00

:lol:lol:lol:lol:lol我会了

jiang__jin · 发表于 2020-12-12 12:41:58

3楼思路更经典

红糖∠※豆浆 · 发表于 2021-5-23 01:08:12

账号		自动登录	找回密码
密码			立即注册

[原创]：圆弧转多段线

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子