[原创]：园弧转折线的问题

yuer0103 · 发表于 2005-11-4 10:14:00

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

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

×

园弧转折线的基本程序，敬请赐教。
代码：
[PHP](defun arc2pl(ent / pt pt0 rad ang ang1 ang01 ang2 la)
  (setq pt0 (cdr (assoc 10 (entget ent))) rad (cdr (assoc 40 (entget ent)))
ang1 (cdr (assoc 50 (entget ent))) ang2 (cdr (assoc 51 (entget ent)))
la (cdr (assoc 8 (entget ent))) lint (cdr (assoc 6 (entget ent))))
  (setq pt0 (list (car pt0) (cadr pt0)))
  (setq pt (polar pt0 ang1 rad))
  (setq a (* pi (/ (/ (* 180.0 0.6) (* pi rad)) 180.0))) ;;;求0.6个单位的弧心值
  (setq ang01 ang1)
  (setq ang (- ang1 ang2))
  (if (> ang1 ang2) (setq ang (- (* 2 pi) (- ang1 ang2))))

  (command "pline" pt)
  (repeat (fix (/ (abs ang) (abs a)))
(setq ang01 (+ ang01 a))
(setq pt (polar pt0 ang01 rad))
(command pt)
  )
  (setq pt (polar pt0 ang2 rad))
  (command pt)
  (command)
  (command "chprop" (entlast) "" "la" la "")
  (if (/= lint nil) (command "chprop" (entlast) "" "lt" lint ""))
  (COMMAND "ERASE" ent "")
)[/PHP]
改变程序注释中的0.6值可更改弧段长度。

地鼠 · 发表于 2005-11-14 13:38:05

为什么不让用户输入圆弧长度呢？

yuer0103 · 发表于 2005-11-14 13:45:45

此程序是在下在实际工作中解决问题所得，当时不必要求让用户输入圆弧长度，如有必要，在下可更改之！

xhssummer · 发表于 2005-12-26 20:42:54

一段包含弧线的组合线能把弧线部分转过来吗?

21cn · 发表于 2005-12-27 17:24:45

计算出边数然后用多边形绘制也不错吗！

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

[原创]：园弧转折线的问题

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

相关帖子