[求助]：使用entmod方法，怎么改变属性块插入点？

Dallas_whu

使用entmod方法，怎么改变属性块插入点？因为使用了grread，想使整个属性块一起移动。程序中建立了序号球的属性块，用entmod 改变10 dxf码的对应坐标，但只能使圆圈移动，不能使文字一起移动?请大家指点一下！部分代码：
[php]
        (SETQ ENT (ENTGET VOBJ))
        (SETQ ENT (SUBST (CONS 10 NEWCENPT) (ASSOC 10 ENT) ENT))
        (ENTMOD ENT)
[/php]

fsxm

Dallas_whu 呵呵1你老兄好像对entmake,endmod块很有兴趣哈！
这几个月里见你所发之贴全是这方面的哦！
有什么新的成果多公布一点哈！
方法多种择最佳用之~!~
属性块用entmod方法不太好使的！
用vba-put-**来搞定也是一样的啦！

Dallas_whu

呵呵，fsxm兄见笑了，现在搞的就是一个带属性的序号球，有预览的功能，基本差不多了，就是鼠标移动的时候，属性文字不能跟着圆圈一起移动。因为自己觉得entmod执行速度比较快，所以想用这种方法，其实用move或VLA-MOVE也可以实现，但是总觉得应该掌握entmod方法。更改属性的话还是vla-put-**比较方便，不知vla-put-**有没有更改插入点的？

舟自横

解決此問題也不是沒有辦法，只是比較囉嗦
提供一個思路: 用entnext可以提取到全部的屬性文字，然后再提取屬性文字的插入點，根據你現在的點坐標和原來沒有移動前坐標的差量，計算出屬性文字移動后的坐標。然后也用entmod替換更新就可以。。

最簡單的方法是用vla-put-InsertionPoint 方法。(vla-put-InsertionPoint  obj  InsertionPoint  )此方法不會出現屬性文字不動的情況。
其實用vla-move也未嘗不可以只要達到目的就行。不必拘泥于某種方法。呵呵，不管什么貓能抓老鼠就好。。

kohi

这是以前做粗糙度属性快的程序，思路可以参考。
[php]
(defun c:test ()
  (if (or (= val nil)(= val ""))(setq val 1.6))
  (setq th (* (getvar "dimtxt")(getvar "dimscale")))
  (setq l (/ (* 1.4 th) 0.866))
  (vl-cmdf "pline" (polar '(0 0)(/ pi 3) l)(polar '(0 0)(* 2 (/ pi 3)) l)
                   '(0 0) (polar '(0 0)(/ pi 3)(* 2 l)) "")  
  (setq pl (entlast))
  (setq A (rtos (* (getvar "CDATE") 1E8)))
  (vl-cmdf "block" A '(0 0) pl "")
  (vl-cmdf "insert" A '(0 0) "" "" "")
  (setq blk (entlast))
  (addatttoblock blk th "Value" (list 0 (* th 2.2)) "T1" val)
  (setq blk (entlast))
  (setq llobj (vlax-ename->vla-object blk))
  (setq loop t)
  (prompt "\nPick Start Point:")
  (while loop
    (setq p (grread T))
    (setq k (car p)
          p (cadr p))
    (if        (= k 3)(setq loop nil))
    (vla-put-insertionpoint llobj (vlax-3d-point p))
  )  
  (if (setq ee (ssget "c" (polar p (/ pi 4) 4.)(polar p (* 1.25 pi) 4.)));if1
    (progn;p1
      (setq ee (ssdel (vlax-vla-object->ename llobj) ee))
      (if (= (dxf 0 (ssname ee 0)) "DIMENSION");if2
        (progn
          (vl-cmdf "explode" (ssname ee 0))
          (setq dd (ssget "c" (polar p (/ pi 4) 4.)(polar p (* 1.25 pi) 4.)))
          (pt (ssname dd 0))
          (vl-cmdf "undo" 1 "")
        );p
        (pt (ssname ee 0))
      );if2
      (setq p1 (inters pt1 pt2 p (polar p (+ (angle pt1 pt2)(/ pi 2)) 1) nil))
      (setq p1 (inters pt1 pt2 p (polar p (+ (angle pt1 pt2)(/ pi 2)) 1) nil))
      (vla-put-insertionpoint llobj (vlax-3d-point p1))
      (vla-put-rotation llobj (+ (angle p p1)(/ pi 2)))
      (setq m (last (assoc "T1" (getattributes blk))))
      (setq attobj (vlax-ename->vla-object m))
      (if (equal (angle p p1)(/ pi 2) 0.0001)(vla-put-rotation attobj 0))
      (if (equal (angle p p1) pi 0.0001)(vla-put-rotation attobj (/ pi 2)))
    );p1
  );if1
)
[/php]

eachy

                               
登录/注册后可看大图

aeo

有时和 dxf11也有关系的

jx2008

多谢楼上的指点罗

bbbxxxccclt

学习学习，哈哈