分割-一点帮助

teknomatika · 发表于 2022-7-6 07:10:18

划分不总是准确的原因是什么？例如，28个部门？但与其他分隔符。
我感谢你的解释。

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun DTR (A)
(* PI (/ A 180.0))
)
(defun c:STA (/ nr len ang ang1 pc1 pc2 )
(setq nr (getint "\n Nr. Divisions? "))
(setq len (getdist "\n Segments Length? "))
(setq ang (/ 360 nr))
(setq ang1 (dtr 0))
(setq pc1 (getpoint "\n Central Point: "))
(setq pc2 (polar pc1 ang1 len))
(command "_.line" "_non" pc1 "_non" pc2 "")
(repeat nr
(setq ang1 (+ ang1 ang))
(setq pc2 (polar pc1 (dtr ang1) len))
(command "_.line" "_non" pc1 "_non" pc2 "")
)
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

ReMark · 发表于 2022-7-6 07:46:31

这可能与单位>精度的设置有关吗？

MSasu · 发表于 2022-7-6 07:59:26

请注意，除以两个整数，结果将四舍五入。这将修复您的代码：

copy

(setq ang (/ 360[color=red].0[/color] nr))

teknomatika · 发表于 2022-7-6 08:20:54

事实上，这似乎解决了。

备注和MSasu
谢谢你的帮助。

[编程交流] 分割-一点帮助

发表回复

精选推荐