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

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
这是为什么?

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

发表回复

精选推荐