[LISP程序]：关于任意实体选择集的动态拖曳

biechen · 发表于 2006-7-6 13:48:25

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

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

×

关于任意实体选择集的动态拖曳，
下面是我写的一段代码，效率不怎么高，有点晃眼
不知道大家有什么好的方法？急切期待。。。
;实体选择集跟随鼠标移动
;codes by Ericsure
(defun fe-follow-mouse (_sset / pos_mouse pt_mouse pt)
  (setq pt (cadr (grread t 1 0)))
  (while (= (car (setq pos_mouse (grread t 1 0))) 5)
  (setq pt_mouse (cadr pos_mouse))
   (command "_.move" _sset "" pt pt_mouse)
   (setq pt pt_mouse)
  )
)

YueFeng · 发表于 2006-7-6 14:30:56

先定义成块，然后再移动改变块基点（修改ＤＸＦ组码）。最后炸开块。

biechen · 发表于 2006-7-7 12:52:48

谢谢YueFeng
更改后的代码：
(defun fe-follow-mouse2 (_sset / pos_mouse pt_mouse pt ename en)
(setq pt (cadr (grread t 1 0)))
(command "_.block" "_fe_tmp_blk" pt _sset "")
(command "_.insert" "_fe_tmp_blk" pt 1 1 0)
(setq ename (entlast))
(while (= (car (setq pos_mouse (grread t 1 0))) 5)
(setq pt_mouse (cadr pos_mouse))
(setq en (entget ename))
(setq en (subst (cons 10 pt_mouse) (assoc 10 en) en))
(entmod en)
)
(command "_.explode" ename)
(command "_.purge" "B" "_fe_tmp_blk" "Y" "Y")
)

不知道有没有更好的办法了
在就是选择集创建、删除块，如果不用block命令，直接用纯autolisp如何能实现？

eachy · 发表于 2006-7-7 19:42:20

用 ET 的拖动函数

netbee · 发表于 2006-7-7 21:50:16

ET函数：ACET-SS-DRAG-MOVE
ALISP：http://www.xdcad.net/forum/showthread.php?s=&threadid=502268

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

[LISP程序]：关于任意实体选择集的动态拖曳

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

相关帖子