[求助]如何编写这样的切线程序

我看

请教大家：

       已知：XLINE线的角度和SPLINE线。求一个程序：在SPLINE上找一个点（此点距离拾取SPLINE的点为最近），使该点的切线的角度为已知条件的角度，最后过该点做XLINE线。

ZZXXQQ

这是你想要的吗？

2. ;MJTD ZZXXQQ 2007.9.23
3. (DEFUN C:TT ()
4. (SETVAR "CMDECHO" 0)
5. (SETQ OLDOS (GETVAR "OSMODE"))
6. (SETVAR "OSMODE" 0)
7. (IF (SETQ PT (GETPOINT "\nSelect a Spline 选择样条曲线 :")) (PROGN
8.   (SETQ PT1 (OSNAP PT "NEA")
9.         ANG (+ (/ PI 2) (ANGLE PT1 PT))
10.   PT2 (POLAR PT1 ANG 2))
11.   (COMMAND "XLINE" PT1 PT2 "")
12. ))
13. (SETVAR "OSMODE" OLDOS)
14. (SETVAR "CMDECHO" 1)
15. (PRINC)
16. )

复制代码

jize1980

楼主是不是要做缓和曲线啊,我有缓和曲线的程序

xyp1964

画spline某特定角度的切线

我看

大家好：

    这个问题是，定切线角度求SPLINE上的一个切点，由于这样的切点可能有很多，所以求距离拾取点（ENTSEL），最近的切点，并且过该切点做切线。