批量交点插入块

荒野孤行

Linhay 发表于 2015-6-11 17:25
在图中,只要用insert重新插入一下以后就能顺利运行,否则即使在图中也不可以。

需要点选插入的块。

天青色

谢谢楼主分享

cnks

回复看码，谢谢

荒野孤行

edata 发表于 2015-6-11 08:10
可能是command问题。

不把你的entmake做的丢出来让大家学习学习？

Linhay

荒野孤行 发表于 2015-6-11 20:15
需要点选插入的块。

是这样的情况

荒野孤行

Linhay 发表于 2015-6-12 08:17
是这样的情况

你的块名是中文名字？是否有先用核查命令修复？

smartstar

我改了一部分：
……
  (setq acad (vlax-get-acad-object))
  (setq acaddocument (vla-get-activedocument acad))
  (setq mspace (vla-get-modelspace acaddocument))
……
        (while (progn
                        (setq blockent (entsel "\n请选择要插入交点的图块：")
                                blockentname (car blockent)
                        )
                        (not (if (= blockent nil)
                                        nil
                                        (= (cdr (assoc 0 (entget blockentname))) "INSERT")
                                )
                        )
                )
                (princ
                        "\n提示：选取的不是图块或未选取任何图元,请重新选取："
                )
        )
        (setq blockname (cdr (assoc 2 (entget blockentname))))
  (setq sc (getreal "\n插入比例<1.0>"))
  (if (null sc)
    (setq sc 1.0)
    (setq sc (rtos sc 2))
  )
……
(vla-insertblock mspace (vlax-3d-point pt) blockname sc sc sc 0)
……

lz123456

支持一下哦

Linhay

荒野孤行 发表于 2015-6-12 08:24
你的块名是中文名字？是否有先用核查命令修复？

块名都是数字没有中文和英文字母,没有核查.
对了,我的是2016,出现的问题跟20楼一样,我在支持路径放了个dcclpdata的空白dwg文件才可以这样运行的.

Linhay

smartstar 发表于 2015-6-12 08:36
我改了一部分：
……
  (setq acad (vlax-get-acad-object))

赞,这个2016用没问题,谢谢