社区 › AutoLISP/Visual LISP 编程技术 › 【已解决】框选图块，自动画线连接图块插入点的工具（感谢Gu_xl 版主的热情帮助）

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

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

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

看一看，学一学

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

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

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

http://bbs.mjtd.com/forum.php?mod=attachment&aid=NjM2Nzh8NjkxZjcwZTl8MTQzMTczNjcyOHwyNDkzNTR8NjExMQ%3D%3D&noupdate=yes图块插入点修改？
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=6111&extra=&highlight=%CD%BC%BF%E9%B2%E5%C8%EB%B5%E3&page=2


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

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

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

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

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

;;;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:36

看看我想哦

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

看看学习下G版的方法

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

这个要观摩下

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

dddddddddddddddddddddddd

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