拖动显示外形问题

jay86chan · 发表于 2010-1-13 11:22:00

本帖最后由作者于 2010-1-14 23:04:23 编辑

请问我想实现程序中拖动中看到外形，但是又不想出现move的线，如何解决？

(setq en3 (entlast))
(command "move" en3 "" pt pause)

在线等喔

听说grread函数可以解决，具体要怎么弄呢？

Andyhon · 发表于 2010-1-13 13:22:00

maybe this will help something
http://www.cadtutor.net/forum/showthread.php?p=291613

jay86chan · 发表于 2010-1-13 14:13:00

没有看懂，能说的直白点吗？用vl函数？

Andyhon · 发表于 2010-1-13 14:29:00

本帖最后由作者于 2010-1-13 16:42:54 编辑

转帖:
From: Luis Esquivel <nospam@address.withheld>
Subject: Re: Moving without rubber band line.
Newsgroups: autodesk.autocad.customization
.....

Here is one I did.... to move blocks.

;;; ability to drag an move a vla object [block]
;;; msg: optional message by default uses "Move"
(defun drag_move (msg obj / take code5 p3)
(prompt (strcat "\n"
    (cond (msg)
   ("Move")
    )
    "\n"
   )
)
(while (and (setq take (grread 't)) (/= 3 (car take)))
    (setq code5 (car take))
    (setq p3 (cadr take))
    (if (and p3 (= 5 code5))
      (vla-move obj
  (vla-get-insertionpoint obj)
  (vlax-3d-point p3)
      )
    )
)
)

(defun C:TST (/ ent obj)
(setq ent (car (entsel)))
(setq obj (vlax-ename->vla-object ent))
(drag_move nil obj))

jay86chan · 发表于 2010-1-13 15:33:00

怎么运行tst错误啊？

; 错误: no function definition: VLAX-ENAME->VLA-OBJECT

raimo · 发表于 2010-1-13 15:35:00

function XML() {
[native code]
}

Andyhon · 发表于 2010-1-13 16:43:00

Luis Esquivel 前辈的范例是 Move Block [.... to move blocks]
您要移动的是什么?

另只要牵涉到 ActiveX 得先加载 (vl-load-com)

phoenixdjq · 发表于 2010-1-14 09:33:00

看看这个系统变量dragmode

jay86chan · 发表于 2010-1-14 23:03:00

谢谢你，不过我的问题不是拖动的外形，而是参考的线不显示，就是移动位置的线~~~听说grread可以解决，不知怎么弄呢？

Andyhon · 发表于 2010-1-15 09:02:00

Luis Esquivel 前辈的范例不就是没有移动位置的线!?

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

[基础] 拖动显示外形问题