怎样将柱体表面的闭和曲线按照柱坐标的角度等分成小段?

ljcgq · 发表于 2004-2-11 21:31:00

怎样将柱体表面的闭和曲线按照柱坐标的角度(如0.5度等分)从给定一点开始等分成很多小段,并返回各点的柱坐标直的表?

希望大家能提供一些算法....

meflying · 发表于 2004-2-12 08:17:00

要看你这个封闭曲线的方程了

ljcgq · 发表于 2004-2-12 19:13:00

是任意曲线,没有方程,假定曲线是已知的曲线实体,可以么?

meflying · 发表于 2004-2-12 20:55:00

那怎么个“算法”？

论坛有类似的程序，找找吧

无痕 · 发表于 2004-2-12 23:57:00

似乎是要做个曲面展开程序。

ljcgq · 发表于 2004-2-13 22:27:00

meflying ---不好意思,我说的"算法"就是编程的思路..或者流程,不是计算结果什么的...就象无痕所说的"似乎是要做个曲面展开程序。"就是一种思路...因为我觉的好的思路可以减短编程的进程..所以希望能与大家先讨论"算法"然后再去编程,这样可以让大家的思维更活跃....

无痕 · 发表于 2004-2-14 10:42:00

柱面上的闭合曲线是2d曲线么？还是3d的？

如果是2d的，把圆柱用正多边型拉伸成的柱子代替，再切一次

ljcgq · 发表于 2004-2-14 12:16:00

线在柱面上应该是3d曲线,但是展开柱面它就会是2d曲线了...

龙龙仔 · 发表于 2004-2-16 08:05:00

(defun C:TT (/ HOLDOSMODE HOLDECHO OBJ CPT RAD ANG PT_LIST N)
(setq OBJ (vlax-ename->vla-object (car (entsel "\n選閉合曲線: "))))
(setq CPT (trans (getpoint "\n中心點: ") 1 0))
(setq RAD (getdist "\n半徑: ")
N 0
)
(while (progn
(initget 7)
(setq ANG (getreal "\n等分角度: "))
(/= 0 (rem 360 ANG))
)
)
(setq HOLDECHO (getvar "cmdecho"))
(setvar "cmdecho" 0)
(command "_.ucs" "")
(setq HOLDOSMODE (getvar "osmode"))
(setvar "osmode" 0)
(while (> 360 (* N ANG))
(setq PT_LIST (cons (vlax-curve-getclosestpointto
OBJ
(polar CPT (/ (* (* N ANG) pi) 180) RAD)
)
PT_LIST
)
)
(setq N (1+ N))
)
(command "_.ucs" "p")
(setvar "osmode" HOLDOSMODE)
(setvar "cmdecho" HOLDECHO)
(reverse PT_LIST)
)

ljcgq · 发表于 2004-2-23 20:45:00

命令: _appload 已成功加载 TT.lsp。
命令:
命令:
命令: 指定对角点:
命令: tt 選閉合曲線: ; 错误: no function definition: VLAX-ENAME->VLA-OBJECT
这是为什么?

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

怎样将柱体表面的闭和曲线按照柱坐标的角度等分成小段?

本帖子中包含更多资源