荒野孤行 发表于 2015-6-11 20:15:57

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

需要点选插入的块。

天青色 发表于 2015-6-11 22:13:57

谢谢楼主分享

cnks 发表于 2015-6-11 22:54:03

回复看码，谢谢

荒野孤行 发表于 2015-6-11 23:07:08

edata 发表于 2015-6-11 08:10 static/image/common/back.gif
可能是command问题。

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

Linhay 发表于 2015-6-12 08:17:25

荒野孤行 发表于 2015-6-11 20:15 static/image/common/back.gif
需要点选插入的块。


是这样的情况

荒野孤行 发表于 2015-6-12 08:24:15

Linhay 发表于 2015-6-12 08:17 static/image/common/back.gif
是这样的情况

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

smartstar 发表于 2015-6-12 08:36:20

我改了一部分：
……
(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 发表于 2015-6-12 09:44:54

支持一下哦

Linhay 发表于 2015-6-12 09:57:06

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

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

Linhay 发表于 2015-6-12 10:12:21

smartstar 发表于 2015-6-12 08:36 static/image/common/back.gif
我改了一部分：
……
(setq acad (vlax-get-acad-object))


赞,这个2016用没问题,谢谢
页: 1 2 3 4 5 [6] 7 8 9 10 11 12 13 14 15
查看完整版本: 批量交点插入块