[求助]：给个思路，如何实现实体沿Spline曲线“动态”移动？

qjcpj

前几日下载lcsfm楼主的机械标注工具程序，试用后发现其在程序中生成的实体如粗糙度(无名块)，在未确定标注点前可沿实体如Spline曲线“动态”移动，在移动过程中随曲线变化可随时变换粗糙度方向，这一功能如何在Lisp程序中实现，请大家给个思路......

LUCAS

2. 
   
3. ;;BY LUCAS(龍龍仔)
   
4. ;;只把沿曲線"動態"移動寫出,希望你能把它完整寫出
   
5. ;;需配合"123"圖塊(附件)
   
6. (defun C:BB (/ ANG BOOLEAN CODE CURVE-OBJ ENT MOTION PT PT1 PT2)
   
7.   (vl-load-com)
   
8.   (setq        CURVE-OBJ (vlax-ename->vla-object
   
9.                     (car (setq ENT (entsel "\nSelect Curve: ")))
   
10.                   )
    
11.   )
    
12.   (setq        ANG (angle '(0 0 0)
    
13.                    (vlax-curve-getfirstderiv
    
14.                      CURVE-OBJ
    
15.                      (vlax-curve-getparamatpoint
    
16.                        CURVE-OBJ
    
17.                        (setq PT2 (osnap (cadr ENT) "NEA"))
    
18.                      )
    
19.                    )
    
20.             )
    
21.   )
    
22.   (command "_.INSERT" "123" PT2 "10" "" (/ (* ANG 180) pi))
    
23.   (setq BOOLEAN t)
    
24.   (setq ENT (entget (entlast)))
    
25.   (while BOOLEAN
    
26.     (setq MOTION (grread t 15 0))
    
27.     (setq CODE (car MOTION))
    
28.     (cond
    
29.       ((= CODE 5)                        ;滑鼠遊移
    
30.        (setq PT (cadr MOTION))
    
31.        (if (not (equal PT PT2))
    
32.          (progn
    
33.            (setq PT1 (vlax-curve-getclosestpointto CURVE-OBJ PT))
    
34.            (setq ENT (subst (cons 10 PT1) (assoc 10 ENT) ENT))
    
35.            (setq ANG (+ (* 1.5 pi) (angle PT1 PT)))
    
36.            (setq ENT (subst (cons 50 ANG) (assoc 50 ENT) ENT))
    
37.            (setq ENT (entmod ENT)
    
38.                  PT2 PT
    
39.            )
    
40.          )
    
41.        )
    
42.       )
    
43.       ((= CODE 3)                        ;滑鼠左鍵按下
    
44.        (setq BOOLEAN NIL)
    
45.       )
    
46.     )
    
47.   )
    
48.   (princ)
    
49. )
    

<br /> ;;BY LUCAS(龍龍仔)<br /> ;;只把沿曲線"動態"移動寫出,希望你能把它完整寫出<br /> ;;需配合"123"圖塊(附件)<br /> (defun C:BB (/ ANG BOOLEAN CODE CURVE-OBJ ENT MOTION PT PT1 PT2)<br />   (vl-load-com)<br />   (setq        CURVE-OBJ (vlax-ename->vla-object<br />                     (car (setq ENT (entsel "\nSelect Curve: ")))<br />                   )<br />   )<br />   (setq        ANG (angle '(0 0 0)<br />                    (vlax-curve-getfirstderiv<br />                      CURVE-OBJ<br />                      (vlax-curve-getparamatpoint<br />                        CURVE-OBJ<br />                        (setq PT2 (osnap (cadr ENT) "NEA"))<br />                      )<br />                    )<br />             )<br />   )<br />   (command "_.INSERT" "123" PT2 "10" "" (/ (* ANG 180) pi))<br />   (setq BOOLEAN t)<br />   (setq ENT (entget (entlast)))<br />   (while BOOLEAN<br />     (setq MOTION (grread t 15 0))<br />     (setq CODE (car MOTION))<br />     (cond<br />       ((= CODE 5)                        ;滑鼠遊移<br />        (setq PT (cadr MOTION))<br />        (if (not (equal PT PT2))<br />          (progn<br />            (setq PT1 (vlax-curve-getclosestpointto CURVE-OBJ PT))<br />            (setq ENT (subst (cons 10 PT1) (assoc 10 ENT) ENT))<br />            (setq ANG (+ (* 1.5 pi) (angle PT1 PT)))<br />            (setq ENT (subst (cons 50 ANG) (assoc 50 ENT) ENT))<br />            (setq ENT (entmod ENT)<br />                  PT2 PT<br />            )<br />          )<br />        )<br />       )<br />       ((= CODE 3)                        ;滑鼠左鍵按下 <br />        (setq BOOLEAN NIL)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

qjcpj

谢谢二楼楼主，程序先收下，待研究后再......