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

拖动显示外形问题

本帖最后由 作者 于 2010-1-14 23:04:23 编辑 <br /><br /> <p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 请问我想实现程序中拖动中看到外形，但是又不想出现move的线，如何解决？</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq en3 (entlast))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "move" en3 "" pt pause)</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 在线等喔</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 听说grread函数可以解决，具体要怎么弄呢？</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </p>

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

<p>maybe this will help something<br/><a href="http://www.cadtutor.net/forum/showthread.php?p=291613">http://www.cadtutor.net/forum/showthread.php?p=291613</a></p>

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

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

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

本帖最后由 作者 于 2010-1-13 16:42:54 编辑 <br /><br /> <p>转帖:<br/>From: Luis Esquivel &lt;<a href="mailto:nospam@address.withheld">nospam@address.withheld</a>&gt;<br/>Subject: Re: Moving without rubber band line.<br/>Newsgroups: autodesk.autocad.customization<br/>.....</p><p>Here is one I did.... to move blocks.</p><p>;;; ability to drag an move a vla object <br/>;;; msg: optional message by default uses "Move"<br/>(defun drag_move (msg obj / take code5 p3)<br/>&nbsp; (prompt (strcat "\n"<br/>&nbsp;&nbsp;&nbsp; (cond&nbsp;(msg)<br/>&nbsp;&nbsp;&nbsp;("Move")<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; "\n"<br/>&nbsp;&nbsp; )<br/>&nbsp; )<br/>&nbsp; (while (and (setq take (grread 't)) (/= 3 (car take)))<br/>&nbsp;&nbsp;&nbsp; (setq code5 (car take))<br/>&nbsp;&nbsp;&nbsp; (setq p3 (cadr take))<br/>&nbsp;&nbsp;&nbsp; (if&nbsp;(and p3 (= 5 code5))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vla-move&nbsp;obj<br/>&nbsp;&nbsp;(vla-get-insertionpoint obj)<br/>&nbsp;&nbsp;(vlax-3d-point p3)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>)</p><p>(defun C:TST&nbsp; (/ ent obj)<br/>&nbsp; (setq ent (car (entsel)))<br/>&nbsp; (setq obj (vlax-ename-&gt;vla-object ent))<br/>&nbsp; (drag_move nil obj))</p>

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

<p>怎么运行tst错误啊？ </p><p>; 错误: no function definition: VLAX-ENAME-&gt;VLA-OBJECT</p>

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

function XML() {
   
}

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

<p><br/>Luis Esquivel 前辈的范例是 Move Block&nbsp; [.... to move blocks]<br/>您要移动的是什么?</p><p>另只要牵涉到 ActiveX 得先加载 (vl-load-com)<br/></p>

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 前辈的范例不就是没有移动位置的线!?
页: [1] 2
查看完整版本: 拖动显示外形问题