怎样实现这个曲线

xiaomihu

图中的基线是已知的，现在知道每间隔一定距离后基线和产生线的距离，怎样自动生成这条产生线

龙龙仔

Sorry!这条线....?       

无痕

看不懂

龙龙仔

2. ;;图中的基线是已知的(但请先连接起来)
3. ;;现在知道每间隔一定距离后基线和產生线的距离，怎样自动生成这条產生线
4. ;;BY 龙龙仔(LUCAS)
5. (defun C:PER_CUR (/       ANG         ANG1         D1             E1             E2
6.        EE1       EE1PT       EE2           EE2PT       HOLDECHO HOLDEDGE
7.        HOLDOSMODE         HOLDPROJ N             PT
8.      )
9.    (vl-load-com)   ;; Tony Tanzillo.
10.    ;; (vector-side (origin) (direction) (point))
11.    ;; Returns an integer code indicating position of (point)
12.    ;; in relation to the directed vector whose endpoints are
13.    ;; <origin> and <direction>.
14.    ;;     Result   Meaning
15.    ;;       -1         Point is to the right of vector.
16.    ;;         0         Point is on (colinear with) vector
17.    ;;         1         Point is to the left of vector.
18.    ;; usage : (vector-side (getpoint) (getpoint) (getpoint))   (defun VECTOR-SIDE (V1 V2 P / R)
19.        (setq R (- (* (- (car V2) (car V1)) (- (cadr P) (cadr V1)))
20.                (* (- (cadr V2) (cadr V1)) (- (car P) (car V1)))
21.          )
22.        )
23.        (cond ((equal R 0.0 1e-8) 0)
24.      (t (fix (/ (abs R) R)))
25.        )
26.    )   (setq HOLDECHO (getvar "CMDECHO"))
27.    (setvar "CMDECHO" 0)
28.    (command "_.UNDO" "GROUP")
29.    (setq HOLDOSMODE (getvar "OSMODE"))
30.    (setvar "OSMODE" 0)
31.    (setq HOLDEDGE (getvar "EDGEMODE"))
32.    (setvar "edgemode" 0)
33.    (setq HOLDPROJ (getvar "PROJMODE"))
34.    (setvar "projmode" 0)
35.    (setq  E1       (vlax-ename->vla-object
36.     (car (setq EE1 (entsel "\n选基线:")))
37.              )
38.   E2       (vlax-ename->vla-object
39.     (car (setq EE2 (entsel "\n选產生线:")))
40.              )
41.   EE1PT (vlax-curve-getstartpoint E1)
42.   EE2PT (osnap (cadr EE2) "NEA")
43.              ;|
44.   N         (getint "\n等分数: ")
45.   D1       (/ (vlax-curve-getdistatparam E1 (vlax-curve-getendparam E1))
46.      N
47.              )|;
48.   D1       (getdist EE1PT "\n等距偏移: ")
49.   N         (fix
50.     (/ (vlax-curve-getdistatparam E1 (vlax-curve-getendparam E1))
51.          D1
52.     )
53.              )
54.    )
55.    (setq  ANG (angle '(0 0 0)
56.          (vlax-curve-getfirstderiv
57.              E1
58.              (vlax-curve-getparamatpoint E1 EE1PT)
59.          )
60.          )
61.    )
62.    (if (= (VECTOR-SIDE EE1PT (polar EE1PT ANG 0.1) EE2PT) 1)
63.        (setq ANG1 (* 0.5 pi))
64.        (setq ANG1 (* 1.5 pi))
65.    )
66.    (while (not (minusp N))
67.        (setq ANG (angle '(0 0 0)
68.              (vlax-curve-getfirstderiv
69.                  E1
70.                  (vlax-curve-getparamatdist E1 (* D1 N))
71.              )
72.              )
73.        )
74.        (command "_.LINE"
75.            (setq PT (vlax-curve-getpointatdist E1 (* D1 N)))
76.            (setq PT (polar PT (+ ANG ANG1) 0.1))
77.            ""
78.        )
79.        (command "_.EXTEND" EE2 "" (list (entlast) PT) "")
80.        (setq N (- N 1))
81.    )
82.    (setvar "projmode" HOLDPROJ)
83.    (setvar "edgemode" HOLDEDGE)
84.    (setvar "OSMODE" HOLDOSMODE)
85.    (command "_.UNDO" "END")
86.    (setvar "CMDECHO" HOLDECHO)
87.    (princ)
88. )

;;图中的基线是已知的(但请先连接起来) ;;现在知道每间隔一定距离后基线和產生线的距离，怎样自动生成这条產生线 ;;BY 龙龙仔(LUCAS) (defun C:PER_CUR (/       ANG         ANG1         D1             E1             E2        EE1       EE1PT       EE2           EE2PT       HOLDECHO HOLDEDGE        HOLDOSMODE         HOLDPROJ N             PT      )    (vl-load-com)   ;; Tony Tanzillo.    ;; (vector-side (origin) (direction) (point))    ;; Returns an integer code indicating position of (point)    ;; in relation to the directed vector whose endpoints are    ;; <origin> and <direction>.    ;;     Result   Meaning    ;;       -1         Point is to the right of vector.    ;;         0         Point is on (colinear with) vector    ;;         1         Point is to the left of vector.    ;; usage : (vector-side (getpoint) (getpoint) (getpoint))   (defun VECTOR-SIDE (V1 V2 P / R)        (setq R (- (* (- (car V2) (car V1)) (- (cadr P) (cadr V1)))                (* (- (cadr V2) (cadr V1)) (- (car P) (car V1)))          )        )        (cond ((equal R 0.0 1e-8) 0)      (t (fix (/ (abs R) R)))        )    )   (setq HOLDECHO (getvar "CMDECHO"))    (setvar "CMDECHO" 0)    (command "_.UNDO" "GROUP")    (setq HOLDOSMODE (getvar "OSMODE"))    (setvar "OSMODE" 0)    (setq HOLDEDGE (getvar "EDGEMODE"))    (setvar "edgemode" 0)    (setq HOLDPROJ (getvar "PROJMODE"))    (setvar "projmode" 0)    (setq  E1       (vlax-ename->vla-object     (car (setq EE1 (entsel "\n选基线:")))              )   E2       (vlax-ename->vla-object     (car (setq EE2 (entsel "\n选產生线:")))              )   EE1PT (vlax-curve-getstartpoint E1)   EE2PT (osnap (cadr EE2) "NEA")              ;|   N         (getint "\n等分数: ")   D1       (/ (vlax-curve-getdistatparam E1 (vlax-curve-getendparam E1))      N              )|;   D1       (getdist EE1PT "\n等距偏移: ")   N         (fix     (/ (vlax-curve-getdistatparam E1 (vlax-curve-getendparam E1))          D1     )              )    )    (setq  ANG (angle '(0 0 0)          (vlax-curve-getfirstderiv              E1              (vlax-curve-getparamatpoint E1 EE1PT)          )          )    )    (if (= (VECTOR-SIDE EE1PT (polar EE1PT ANG 0.1) EE2PT) 1)        (setq ANG1 (* 0.5 pi))        (setq ANG1 (* 1.5 pi))    )    (while (not (minusp N))        (setq ANG (angle '(0 0 0)              (vlax-curve-getfirstderiv                  E1                  (vlax-curve-getparamatdist E1 (* D1 N))              )              )        )        (command "_.LINE"            (setq PT (vlax-curve-getpointatdist E1 (* D1 N)))            (setq PT (polar PT (+ ANG ANG1) 0.1))            ""        )        (command "_.EXTEND" EE2 "" (list (entlast) PT) "")        (setq N (- N 1))    )    (setvar "projmode" HOLDPROJ)    (setvar "edgemode" HOLDEDGE)    (setvar "OSMODE" HOLDOSMODE)    (command "_.UNDO" "END")    (setvar "CMDECHO" HOLDECHO)    (princ) )

xiaomihu

to:龙龙仔 你的程序很好用，但是能让生成的线是长短相间的吗，短线长度是相邻两长线的平均值

xiaomihu

龙哥


再帮个忙了

龙龙仔

短线长度是相邻两长线的平均值??---那就差不多一样长了!


=&gt;看不懂!(贴图说明吧!)

xiaomihu

,龙哥，不好意思，上次说错了，我在图中又说明了一次，是相临两长线平均值的一半

龙龙仔

2. ......(while (not (minusp N))
3.        (setq ANG (angle '(0 0 0)
4.              (vlax-curve-getfirstderiv
5.                  E1
6.                  (vlax-curve-getparamatdist E1 (* D1 N))
7.              )
8.              )
9.        )
10.        (command "_.LINE"
11.            (setq PT (vlax-curve-getpointatdist E1 (* D1 N)))
12.            (setq PT (polar PT (+ ANG ANG1) 0.1))
13.            ""
14.        )
15.        (command "_.EXTEND" EE2 "" (list (entlast) PT) "")
16.        ;;----------------------------------增加
17.        (if  (= 1 (rem N 2))
18.            (command "_.lengthen"
19.                "p"
20.                50
21.                (list (entlast) (vlax-curve-getendpoint (entlast)))
22.                ""
23.            )
24.        )
25.        ;;----------------------------------
26.        (setq N (- N 1))
27.    ).......

......(while (not (minusp N))        (setq ANG (angle '(0 0 0)              (vlax-curve-getfirstderiv                  E1                  (vlax-curve-getparamatdist E1 (* D1 N))              )              )        )        (command "_.LINE"            (setq PT (vlax-curve-getpointatdist E1 (* D1 N)))            (setq PT (polar PT (+ ANG ANG1) 0.1))            ""        )        (command "_.EXTEND" EE2 "" (list (entlast) PT) "")        ;;----------------------------------增加        (if  (= 1 (rem N 2))            (command "_.lengthen"                "p"                50                (list (entlast) (vlax-curve-getendpoint (entlast)))                ""            )        )        ;;----------------------------------        (setq N (- N 1))    ).......

xiaomihu

高手就是高手，十分感谢