可用这个编个自己用的拉移谁心，选个直线试试

zhbzhbzhb · 发表于 2014-10-12 10:11:56

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(Defun c:tt()
(command "undo" "begin")
(setvar "osmode" 0)
(setq e (entsel))
(setq tym (car e))
(setq pt (cadr e))
(setq spt (Vlax-Get (Vlax-Ename->Vla-Object tym) 'StartPoint))
(while pt
   (setq bb (grread T 5 2))
   (cond
      ((= (car bb) 5) (setq pt1 (cadr bb))
      (command "move" tym  "" pt pt1)
      (redRaw)
      (setq spt1 (vlax-curve-getClosestPointTo (vlax-ename->vla-object tym) spt t))
      (Vlax-Put-Property (Vlax-Ename->Vla-Object tym) 'StartPoint (Vlax-3d-Point spt1))
      (setq pt pt1)
      )
      ((= (car bb) 3) (setq pt nil))
   )
)
(setvar "osmode" 4775)
(command "undo" "end")
)

Free-Lancer · 发表于 2014-10-12 10:18:12

赞一个，很有创意

XDSoft · 发表于 2014-10-12 11:43:31

既然用了那么多COMMAND，建议头加上个 (setvar "cmdecho" 0)

ynhh · 发表于 2014-10-12 12:38:16

能不能来两个
随心拉移改标注文字和箭头大小
改选中文字
的程序啊

郑洪斌 · 发表于 2014-10-12 13:37:08

这只是个设想，离应用还有距离，深入后应该可达到拉移谁心的效果。

yxianfo · 发表于 2014-10-13 14:08:06

本帖最后由 yxianfo 于 2014-10-13 14:46 编辑

若能用数字精确指定就更好。

xvjiex · 发表于 2021-7-15 00:03:53

感谢分享可用这个编个自己用的拉移谁心

xvjiex · 发表于 2021-7-15 00:05:38

感谢楼主分享可用这个编个自己用的拉移谁心

2809605473 · 发表于 2021-7-16 11:58:27

赞一个，很有创意

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

[每日一码] 可用这个编个自己用的拉移谁心，选个直线试试

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分