文字随曲线移动

uditx · 发表于 2011-11-1 21:17:40

本帖最后由 uditx 于 2011-11-1 21:19 编辑

大家好，我想编一个文字随曲线移动的程序，要求文字与曲线有一定的距离，且垂直于曲线，下面一个牛人编的类似的程序，供参考，先谢谢大家了
;;需配合"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)

)

这是最终的效果呀

highflybir · 发表于 2011-11-1 21:24:23

参见这个网站，有你想要的。
http://www.lee-mac.com/curvealignedtext.html

校长 · 发表于 2011-11-1 21:33:22

提示: 作者被禁止或删除内容自动屏蔽

校长 · 发表于 2011-11-1 21:34:47

提示: 作者被禁止或删除内容自动屏蔽

mac · 发表于 2011-11-1 22:09:58

在这里就是能学到东西，顶一个！

preone · 发表于 2012-7-25 20:03:33

学习了~~

cable2004 · 发表于 2012-7-26 07:57:12

学习了~~学习了~~

朽木大师 · 发表于 2013-5-8 23:06:10

有点意思，作记号

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

文字随曲线移动

本帖子中包含更多资源

点评

相关帖子

校长校长当前离线积分 299 明经币个注册时间 2011-10-28 在线时间小时威望金钱个贡献激情	发表于 2011-11-1 21:33:22 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

校长校长当前离线积分 299 明经币个注册时间 2011-10-28 在线时间小时威望金钱个贡献激情	发表于 2011-11-1 21:34:47 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡