分解问题

麥芒HFD

怎样让插入的文件是个图形文件二不是块，（就像CAD插入图块一样，然后分解）怎样用函数把这两个步骤合在一起

marting

insert
explode

麥芒HFD

marting 发表于 2018-4-1 12:55
insert
explode

麻烦可以具体点吗？具体怎么表示呢？

marting

插入图形的代码你是怎么写的呢？贴上来，帮你改改。

麥芒HFD

marting 发表于 2018-4-1 13:49
插入图形的代码你是怎么写的呢？贴上来，帮你改改。

好的，稍等

麥芒HFD

麥芒HFD 发表于 2018-4-1 14:31
好的，稍等

这个就是源文件，非常感谢，就修改成插入的就是原文件而不是块就可以..................
(defun c:xxx (/ cm file po)
(setq cm(getvar "cmdecho"))
(setvar "cmdecho" 0)
(if(and
(setq file(01.dwg"))
(setq po(getpoint "\n请指定插入点:"))
   )
  (progn
   (xx-enBlock-insertCommand file po 1 1 1 0)
                        (foreach x lst(vla-delete x))
  )
)
(setvar "cmdecho" cm)
(princ)
)

麥芒HFD

marting 发表于 2018-4-1 13:49
插入图形的代码你是怎么写的呢？贴上来，帮你改改。

这个就是源文件，非常感谢，就修改成插入的就是原文件而不是块就可以..................
(defun c:xxx (/ cm file po)
(setq cm(getvar "cmdecho"))
(setvar "cmdecho" 0)
(if(and
(setq file(01.dwg"))
(setq po(getpoint "\n请指定插入点:"))
    )
   (progn
    (xx-enBlock-insertCommand file po 1 1 1 0)
                         (foreach x lst(vla-delete x))
   )
)
(setvar "cmdecho" cm)
(princ)
)

newer

(setq file(01.dwg")) 这句错了吧？

麥芒HFD

newer 发表于 2018-4-1 14:55
(setq file(01.dwg")) 这句错了吧？

不会吧！这个不是重点，重点是希望 把这个(progn
     (xx-enBlock-insertCommand file po 1 1 1 0)解决了，现在插入后是图块，希望不是图块而是图形（分解后的结果）
现在插入后多了一步（分解）

newer

麥芒HFD 发表于 2018-4-1 15:02
不会吧！这个不是重点，重点是希望 把这个(progn
     (xx-enBlock-insertCommand file po 1 1 1 0)解决 ...

你这个地方 (setq file(01.dwg")) 要是这样，程序会出错，是不会执行到你插入图形的地方的。

麥芒HFD

newer 发表于 2018-4-1 15:37
你这个地方 (setq file(01.dwg")) 要是这样，程序会出错，是不会执行到你插入图形的地方的。

这个不重要，我现在就是想找怎么解决插入的是图形而不是图块，这个语句/表达式怎么写的问题？

marting

麥芒HFD 发表于 2018-4-1 14:49
这个就是源文件，非常感谢，就修改成插入的就是原文件而不是块就可以..................
(defun c:xxx  ...

(xx-enBlock-insertCommand file po 1 1 1 0)
后面加入
(vla-explode (vlax-ename->vla-object (entlast)))

麥芒HFD

好的，谢谢！

麥芒HFD

marting 发表于 2018-4-1 15:57
(xx-enBlock-insertCommand file po 1 1 1 0)
后面加入
(vla-explode (vlax-ename->vla-object (entlas ...

好的，非常感谢！我到时侯试试，那个拉线的可以解决吗？上面回复的还要安装一个软件好像，可以有单独的lsp吗？

麥芒HFD

marting 发表于 2018-4-1 15:57
(xx-enBlock-insertCommand file po 1 1 1 0)
后面加入
(vla-explode (vlax-ename->vla-object (entlas ...

可以加你个微信或QQ号吗？以后有问题方便请教！