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

请注意，除以两个整数，结果将四舍五入。这将修复您的代码：
(setq ang (/ 360.0 nr))

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

事实上，这似乎解决了。
 
备注和MSasu
谢谢你的帮助。
页: [1]
查看完整版本: 分割-一点帮助