[求助]：如何用LISP取得多义线上某点的斜率

橄榄滋味

如何用LISP取得多义线上某点的斜率？
我想把由直线和相切圆弧组成的多义线，根据某个长度将多义线等分，然后在每个等分点分别画一条垂直于该等分点处斜率的直线段，请问如何能做到。

fsxm

可以求出多义线上某点的一阶导数的啦~!~呵呵~

橄榄滋味

用下式对直线和圆弧组成的多义线测试，为什么结果不对呢？一阶导数就是斜率，为什么在直线段不同位置的测试结果不一样？请赐教。谢谢
(vlax-curve-getParamAtPoint (vlax-ename->vla-object (car(entsel))) (getpoint ))

jxbxhy

说的不是很清楚．在看看，

jxbxhy

说的不是很清楚．在看看，

fsxm

橄榄滋味你好~~
(ram (angle (vlax-curve-getParamAtPoint (vlax-ename->vla-object (car(entsel))) (getpoint )) '(0 0 0)) pi)
这样结果保证一样了啦~~
[sorry!上面的写错了.........fsxm2006/9/30]

xyp1964

2. [FONT=courier new];;;曲线等分线
   
3. (defun c:test ()
   
4.   (CMDLA0)
   
5.   (setq        INT (UINT 7 "" "等分数" INT)
   
6.         no1 (UREAL 7 "" "线长" no1)
   
7.         ss  (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))
   
8.         i   -1
   
9.   )
   
10.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
11.     (xyp-CurveDivLine s1 int no1)
    
12.   )
    
13.   (CMDLA1)
    
14. )[/FONT]

[FONT=courier new];;;曲线等分线<br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        INT (UINT 7 "" "等分数" INT)<br />         no1 (UREAL 7 "" "线长" no1)<br />         ss  (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (xyp-CurveDivLine s1 int no1)<br />   )<br />   (CMDLA1)<br /> )[/FONT]

橄榄滋味

谢谢楼上指导，不过我想要的是经过多义线（LWPOLYLINE）上一点，这个点不是用鼠标点取，而是将此多义线按照一定长度等分得到的多个等分点，然后过这个点画一条垂直于多义线的直线，所以要找到多义线上该点处的斜率。另外我附上一个效果图，黑线为任意一条多义线，红线为垂直于多义线的直线

Underway

作一 Block [直線段 insert point=Mid]
執行divide
選項用 Block

Command: divide

Select object to divide:
Enter the number of segments or [Block]: b

Enter name of block to insert: LinePerp

Align block with object? [Yes/No] <Y>:

Enter the number of segments: 10

Underway

作一 Block [直线段 insert point=Mid]
执行divide
选项用 Block

Command: divide

Select object to divide:
Enter the number of segments or [Block]: b

Enter name of block to insert: LinePerp

Align block with object? [Yes/No] <Y>:

Enter the number of segments: 10

雨箭风刀

;参考：
(defun x@-per (e pt len / pt fd len e)
  (setq pt (vlax-curve-getclosestpointto e pt)
        fd (vlax-Curve-GetFirstDeriv e (vlax-Curve-GetParamatDist e (vlax-curve-getDistAtPoint e pt)))
        ang (- (atan (cadr fd)(car fd)) (* 0.5 PI)))
  (if (and len (member (type len) '(INT REAL)))
    (vl-cmdf "line" pt (polar pt ang len) "")
  )
  (list ang (if (< ang 0)(+ (* PI 2) ang) ang) fd)
)

fsxm

这是偶写的给参考一下啦!

2. 
   
3. (defun fs-curvedivide (en      n       di      /       ang     dist
   
4.                        dist+   isclosed               endparam               len
   
5.                        p       p1      p2      param   pi/2                      )
   
6.   (setq isclosed (vl-catch-all-apply 'vlax-curve-isclosed (list en)))
   
7.   (if (not (vl-catch-all-error-p isclosed))
   
8.     (progn (setq endparam   (vlax-curve-getendparam en)
   
9.                  len            (vlax-curve-getdistatparam en endparam)
   
10.                  dist+            (/ len n)
    
11.                  dist            0
    
12.                  pi/2            (/ pi 2)
    
13.            )
    
14.            (repeat (if isclosed
    
15.                      n
    
16.                      (1- n)
    
17.                    )
    
18.              (setq dist         (+ dist dist+)
    
19.                    p         (vlax-curve-getpointatdist en dist)
    
20.                    param (vlax-curve-getparamatdist en dist)
    
21.                    ang         (angle (vlax-curve-getfirstderiv en param) '(0 0 0))
    
22.                    p1         (polar p (+ ang pi/2) di)
    
23.                    p2         (polar p (- ang pi/2) di)
    
24.              )
    
25.              (entmake (list '(0 . "line") (cons 10 p1) (cons 11 p2)))
    
26.            )
    
27.     )
    
28.   )
    
29. )
    
30. (defun c:test (/ di en i n ss)
    
31.   (princ "\n请选取要等分的曲线集：")
    
32.   (cond        ((setq ss (ssget))                ;可以加过滤不加也行
    
33.          (setq n  (getint "\n请输入要等分的段数：")
    
34.                di (getdist "\n请量入垂直等分线高：")
    
35.                i  0
    
36.          )
    
37.          (repeat (sslength ss)
    
38.            (setq en (ssname ss i))
    
39.            (test en n di)
    
40.            (setq i (1+ i))
    
41.          )
    
42.         )
    
43.   )
    
44.   (princ)
    
45. )
    

<br /> (defun fs-curvedivide (en      n       di      /       ang     dist<br />                        dist+   isclosed               endparam               len<br />                        p       p1      p2      param   pi/2                      )<br />   (setq isclosed (vl-catch-all-apply 'vlax-curve-isclosed (list en)))<br />   (if (not (vl-catch-all-error-p isclosed))<br />     (progn (setq endparam   (vlax-curve-getendparam en)<br />                  len            (vlax-curve-getdistatparam en endparam)<br />                  dist+            (/ len n)<br />                  dist            0<br />                  pi/2            (/ pi 2)<br />            )<br />            (repeat (if isclosed<br />                      n<br />                      (1- n)<br />                    )<br />              (setq dist         (+ dist dist+)<br />                    p         (vlax-curve-getpointatdist en dist)<br />                    param (vlax-curve-getparamatdist en dist)<br />                    ang         (angle (vlax-curve-getfirstderiv en param) '(0 0 0))<br />                    p1         (polar p (+ ang pi/2) di)<br />                    p2         (polar p (- ang pi/2) di)<br />              )<br />              (entmake (list '(0 . "line") (cons 10 p1) (cons 11 p2)))<br />            )<br />     )<br />   )<br /> )<br /> (defun c:test (/ di en i n ss)<br />   (princ "\n请选取要等分的曲线集：")<br />   (cond        ((setq ss (ssget))                ;可以加过滤不加也行<br />          (setq n  (getint "\n请输入要等分的段数：")<br />                di (getdist "\n请量入垂直等分线高：")<br />                i  0<br />          )<br />          (repeat (sslength ss)<br />            (setq en (ssname ss i))<br />            (test en n di)<br />            (setq i (1+ i))<br />          )<br />         )<br />   )<br />   (princ)<br /> )<br />

xyp1964

7楼效果：

橄榄滋味

非常感谢楼上指导，也怪我当时说的不清楚，我的目的远不止画垂直于多一线上点的直线，而是通过找到这个垂线后，将线段端点连接成一条折线。附图中中间兰线为初始多义线，上下两条黑线为与中间兰线等距离的线，绿线为根据楼上程序得到的线，我想要的是由红线组成的多义线，类似弹簧的折线，其中等分段数为初始多义线长度除以它到两边多义线距离的商。请看附图如下：