如何在lisp里面调用xplode命令炸开全部物体

kenken

(command "xplode" "ALL"　"" "g"  "i")

能帮我看一下，为什么总提示    （未知命令“XPLODE”。按 F1 查看帮助。）

ntwison

kenken 发表于 2020-2-14 21:52
no function definition: VLAX-GET-ACAD-OBJECT高版本好用，2008有这个提示，
谢谢您的回答

(vl-load-com),有没有加上这个？
加在最前面看看

13529444157

cad命令输入错误  (command "explode")

13529444157

cad命令输入错误  (command "explode")

kenken

有 xplode命令

ntwison

command不能使用xplode，xplode不是cad的内部命令，之所以能在CAD命令行输入该命令后像一个普通的如copy等命令一样运行，是因为CAD运行时调用了用arx定义的一个lsp定义函数。
如果你一定要使用这个的话，下面2个代码可以替代下：
1.(vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) (strcat "XPLODE" "\n" "ALL\n\n" "G\n" "I\n"))；这里要求你的图上块的数量要大于1
2.(vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) (strcat "XPLODE" "\n" "all\n\n"   "I\n"));这个要求你的图上块的数量等于1

琴剑江山_10184

1. (vla-sendcommand (vla-get-ActiveDocument (vlax-get-acad-object)) (strcat "xplode" "\n" "\n"))
   
2. (Defun c:Tt ()  
   
3.   (vlax-add-cmd "XXplode" 'C:xplode)
   
4.   (command "XXplode" "ALL" "" "g" "I")
   
5.   (princ)
   
6. )

(vla-sendcommand (vla-get-ActiveDocument (vlax-get-acad-object)) (strcat "xplode" "\n" "\n"))<br /> (Defun c:Tt ()  <br />   (vlax-add-cmd "XXplode" 'C:xplode)<br />   (command "XXplode" "ALL" "" "g" "I")<br />   (princ)<br /> )

这样就可以用了

kenken

多谢回答，请问2008下能运行不

ntwison

kenken 发表于 2020-2-14 21:18
多谢回答，请问2008下能运行不

直接试一下不就好了，我的CAD是2007版的，好用。

kenken

no function definition: VLAX-GET-ACAD-OBJECT高版本好用，2008有这个提示，
谢谢您的回答