pointmonitor和drag_jig不同的效果，如何处理

brainstorm

如下代码，tt1 tt2拖拽效果不同，tt2不能拖动，原因是什么呢
(defun c:tt1 ()
  (setq        e   (car (entsel))
        obj (vlax-ename->vla-object e)
  )
  (setq p1 (getvar "lastpoint"))
  (defun dr (p)
    (vla-put-TextAlignmentPoint obj (vlax-3d-point p))
  )
  (xdrx_pointmonitor "dr" ss)
  (getpoint)
  (xdrx_pointmonitor)
)

(defun c:tt2 ()
  (setq        e   (car (entsel))
        obj (vlax-ename->vla-object e)
  )
  (setq p1 (getvar "lastpoint"))
  (defun dr (p)
    (vla-put-TextAlignmentPoint obj (vlax-3d-point p))
    (vla-update obj)
  )
  (xdrx_drag_jig
    "dr"
    ""
    ""
    (+ 2 128)
    0
    p1
  )

)

liuyj

我之前也遇到这种情况，后来就不用xdrx_drag_jig了

newer

你的代码，在2008下，两个都正常使用



在2014下，修改TT2，设置插入点，也正常

2. 
   
3. (defun c:tt2 ()
   
4.   (setq        e   (car (entsel))
   
5.         obj (vlax-ename->vla-object e)
   
6.   )
   
7.   (setq p1 (getvar "lastpoint"))
   
8.   (defun dr (p)
   
9.     (vla-put-InsertionPoint obj (vlax-3d-point p))
   
10.     (vla-update obj)
    
11.   )
    
12.   (xdrx_drag_jig "dr" "" "" (+ 2 128) 0 p1)
    
13. )
    
14. 
    

<br /> (defun c:tt2 ()<br />   (setq        e   (car (entsel))<br />         obj (vlax-ename->vla-object e)<br />   )<br />   (setq p1 (getvar "lastpoint"))<br />   (defun dr (p)<br />     (vla-put-InsertionPoint obj (vlax-3d-point p))<br />     (vla-update obj)<br />   )<br />   (xdrx_drag_jig "dr" "" "" (+ 2 128) 0 p1)<br /> )<br /> <br />

所以，在高版本下，在DRAG里面，不能直接设置对齐点修改文本。

newer

如果你在高版本CAD，还想按对齐点的位置拖动，修改下代码就行了
其实，不建议你按照对齐点，因为没有设置对齐点的文本，就要出错了。如果你想文字 下中 的位置拖动，自己计算出文字的包围框，求出下中点，这样更可靠。

1. (defun c:tt2 ()
   
2.   (setq        e   (car (entsel))
   
3.         obj (vlax-ename->vla-object e)
   
4.   )
   
5.   (setq p1 (getvar "lastpoint"))
   
6.   (defun dr (p)
   
7.     (setq p1 (mapcar '- p vec))
   
8.     (vla-put-insertionpoint obj (vlax-3d-point p1))
   
9.     (vla-update obj)
   
10.   )
    
11.   (setq ins (vla-get-insertionPoint obj)
    
12.         ins (vlax-safearray->list (vlax-variant-value ins))
    
13.         alnPnt (vla-get-textalignmentpoint obj)
    
14.         alnPnt (vlax-safearray->list (vlax-variant-value alnpnt))
    
15.         vec (mapcar '- alnpnt ins)
    
16.         )
    
17.   (xdrx_drag_jig "dr" "" "" (+ 2 128) 0 p1)
    
18. )
    

(defun c:tt2 ()<br />   (setq        e   (car (entsel))<br />         obj (vlax-ename->vla-object e)<br />   )<br />   (setq p1 (getvar "lastpoint"))<br />   (defun dr (p)<br />     (setq p1 (mapcar '- p vec))<br />     (vla-put-insertionpoint obj (vlax-3d-point p1))<br />     (vla-update obj)<br />   )<br />   (setq ins (vla-get-insertionPoint obj)<br />         ins (vlax-safearray->list (vlax-variant-value ins))<br />         alnPnt (vla-get-textalignmentpoint obj)<br />         alnPnt (vlax-safearray->list (vlax-variant-value alnpnt))<br />         vec (mapcar '- alnpnt ins)<br />         )<br />   (xdrx_drag_jig "dr" "" "" (+ 2 128) 0 p1)<br /> )<br />

brainstorm

newer 发表于 2017-8-31 12:15

对于居中的文字，在cad2014下，下面代码效果见图片，文字又回到原来位置

(defun c:tt3 ()
  (setq        e   (car (entsel))
        obj (vlax-ename->vla-object e)
  )
  (setq p1 (getvar "lastpoint"))
  (defun dr (p)
    (vla-put-insertionpoint obj (vlax-3d-point p))
    (vla-update obj)
  )
  (xdrx_drag_jig
    "dr"
    ""
    ""
    (+ 2 128)
    0
    p1
  )

)

newer

brainstorm 发表于 2017-8-31 12:33

DRAG的原理是只拖动，然后返回给你点，

你点确定后的代码，加上移动或者拷贝就行了，DRAG只给你中间拖动的过程，是拷贝还是移动，你额外处理。

xdrx_entity_transform, xdrx_entity_transformedcopy, xdrx_entity_move,xdrx_entity_copy....都可以。

另外，你算包围盒，函数库有现成的函数

(xd::geom:get9pt ent 5)  是中心点

1左下角，9右上角，其他按按小键盘数字分布。

brainstorm

newer 发表于 2017-8-31 12:39

好的 谢谢

brainstorm

其实我就是觉得奇怪 为什么pointmonito可以做到 而drag_jig 就不行