【已解决】框选图块，自动画线连接图块插入点的工具（感谢Gu_xl 版主的热情帮助）

xiang19751218 · 发表于 2015-5-15 08:19

回复看帖...........

dbqtju · 发表于 2015-5-15 11:08

看一看，学一学

yjc532 · 发表于 2015-5-16 08:27

厉害，拜读了。厉害，拜读了。

yjc532 · 发表于 2015-5-16 08:44

图块插入点修改？
http://bbs.mjtd.com/forum.php?mo ... EB%B5%E3&page=2

和这个帖子的程序结合使用就能到到楼主的最理想效果。

我没有明经币没下载测试，但是效果不错！

yjc532 · 发表于 2015-5-16 09:03

http://bbs.mjtd.com/thread-19105-1-1.html 本帖子的
7楼也可以实现这样的效果，但是我测试了一下，程序速度有点慢，求高手优化程序

yjc532 · 发表于 2015-5-16 09:07

;;;Note that the block selected should not be scaled, rotated or mirrored after insertion
;;;
(defun C:ChIns(/ doc blks LOOP sel blkobj p1 p2 blks blkdef ss idx)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (setq blks (vla-get-blocks doc) LOOP t)
  (while LOOP
(if (setq sel (car (entsel "\nSelect a block: ")))
   (progn
      (setq blkobj (vlax-ename->vla-object sel))
(if (= (vla-get-objectname blkobj) "AcDbBlockReference")
   (progn
      (setq LOOP nil)
         (setq p1 (vla-get-insertionpoint blkobj))
      (setq p2 (vla-getpoint (vla-get-utility doc) p1 "\nNew origin of block definition: "))
      (setq blkdef (vla-item blks (vla-get-name blkobj)))
      (vlax-for obj blkdef
      (vla-move obj p2 p1))
      (vla-regen doc :vlax-true)
      (setq ss (ssget "x" (list (cons 0 "INSERT")
      (cons 2 (vla-get-name blkobj)))))
      (setq idx 0)
      (repeat (sslength ss)
      (vla-move (vlax-ename->vla-object (ssname ss idx)) p1 p2)
      (setq idx (1+ idx))
      )
   )
      )
   )
)
  )
  (princ)
)

程序源码。
声明：代码属借用，不是本人开发的。请Gu_xl版主优化。

aytoasmile · 发表于 2015-5-17 06:50

看看我想哦

woistc · 发表于 2015-5-20 23:24

看看学习下G版的方法

我的我啊 · 发表于 2015-5-21 22:48

这个要观摩下

slp0715 · 发表于 2015-5-27 10:36

dddddddddddddddddddddddd

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