54525596 发表于 2010-8-13 18:58:00

CAD直线两端自动连接到块的插入点上。直线两端点Z值自动获取块Z值得值

<p></p>

54525596 发表于 2010-8-13 18:59:00

在线等这样的程序，，，

54525596 发表于 2010-8-13 19:02:00

没这样的程序吗？

edsion24 发表于 2011-6-14 16:24:53

期待 这样的程序。。。。。

ZZXXQQ 发表于 2011-6-14 21:30:21

直线两端连到块的插入点上，那直线的长度为零了？有何用呢？

LLXXZZ 发表于 2011-6-14 21:44:41

这哥们说的功能可以实现.
只是表述不明,
他指的是不同的块图元之间的插入点连接.

ademry 发表于 2013-1-6 21:35:47

程序宏实现？

阿然 发表于 2013-1-7 23:05:59

试写了一个，看看能不能满足
(vl-load-com)
(setvar "cmdecho" 0)
(setq *AcadDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(setq *MoSpace* (vla-get-ModelSpace *AcadDoc*))

(defun c:tt (/ blk1 blk2 objname1 objname2 pt1 pt2)
(if (and (setq blk1 (vlax-ename->vla-object (car (entsel "\n选择块:"))))
           (setq blk2 (vlax-ename->vla-object (car (entsel "\n选择块:"))))
      )
    (progn
      (setq objname1 (vla-get-objectname blk1)
          objname2 (vla-get-objectname blk2)
      )
      (if (and (equal objname1 "AcDbBlockReference")
             (equal objname1 "AcDbBlockReference")
          )
        (progn
          (setq        pt1 (vla-get-InsertionPoint blk1)
                pt2 (vla-get-InsertionPoint blk2)
          )
          (vla-addline *mospace* pt1 pt2)
          (setq pt1 pt2)
          (while (setq
                   blk2        (vlax-ename->vla-object (car (entsel "\n选择块:")))
               )
          (if        (equal (vla-get-objectname blk2) "AcDbBlockReference")
              (progn
                (setq pt2 (vla-get-insertionpoint blk2))
                (vla-addline *mospace* pt1 pt2)
                (setq pt1 pt2)
              )
          )
          )
        )
      )
    )
)
)

weiqi 发表于 2013-1-13 23:46:37

又见到 然哥啦
页: [1]
查看完整版本: CAD直线两端自动连接到块的插入点上。直线两端点Z值自动获取块Z值得值