[求助]让对象沿着曲线移动、但始终和曲线切线垂直？

greatzmy · 发表于 2009-11-27 21:58:00

本帖最后由作者于 2009-11-27 22:30:14 编辑

RT,不知道哪位高手能开发一个程序，最好是在移动的同时也能复制。

沿着曲线移动这个简单，但关键是怎么让移动的对象，始终和曲线切线垂直？

guankuiwu · 发表于 2021-12-29 16:43:58

太好了！正好用上！

xianaihua · 发表于 2009-11-28 10:26:00

龙龙仔 · 发表于 2009-11-28 16:58:00

本帖最后由作者于 2009-11-30 8:07:01 编辑

這個功能我好像有發過(但找不到...重發)

;;給個思路，如何實現實體沿Spline曲線"動態"移動？
;;前幾日下載lcsfm樓主的機械標注工具程式，試用後發現其在程式中生成的
;;實體如粗糙度(無名塊)，在未確定標注點前可沿實體如Spline曲線"動態"
;;移動，在移動過程中隨曲線變化可隨時變換粗糙度方向，這一功能如何在
;;Lisp程式中實現，請大家給個思路......

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

龙龙仔 · 发表于 2009-11-30 08:08:00

重發如上

飞的妖儿 · 发表于 2010-6-6 09:16:00

good

xiaowen · 发表于 2010-6-9 15:15:00

多谢分享,学习了...下来使用一下.

srm · 发表于 2010-8-10 11:27:00

very good

lidaxiu · 发表于 2012-1-10 18:02:34

厉害，有捕捉点更好了！！！

瀛州流水 · 发表于 2012-9-27 17:30:20

下来试试下来试试下来试试

jack11280 · 发表于 2012-10-7 10:33:48

可以讓對象改成是建立的相機嘛
因為想看3d圖

账号		自动登录	找回密码
密码			注册

[求助]让对象沿着曲线移动、但始终和曲线切线垂直？

本帖子中包含更多资源

本帖子中包含更多资源