Question

关于 Visual LISP的问题？

(defun lee (b1)
(setq bl (getint "空气输入:0；氮气输入:1,"))
(if (= bl 0)
(command "-insert"
"Equipment_Vent_Hopper_Nitrogen"
"S"
1
)
)

(command "_explode"
"L"
)
)
程序只运行到插入块这一行，最后的一个命令 "_explode" 就是无法运行，
编译器也没提示啥错误！
刚接触这些，一头雾水，希望大家帮帮忙啊！
上面的 插入的块名是一致的，复制到百度上漏了几个······
以图片中的为准！

Answer 1

• 如果觉得回答对你有帮助请采纳为最佳答案，

• 你的采纳就是我们的动力（^_^）!!!

;;;试试这样：

(defun lee (b1)

  (setq bl (getint "空气输入:0；氮气输入:1,"))

  (if (= bl 0)

    (command "-insert"

             "Equipment_Vent_Hopper_Nitrogen"

             "S"

             1

             (getpoint) 

              0

    )

  )

 

  (command "_explode"

           "L"

  )

)

追问

我自己也研究出来了：
(defun c:test (/ lee)
(setq lee (getstring "\n 空气请输入小写,a；氮气请输入小写,n;"))
(if (= lee "a")
(progn (command "-insert" "BL_Equipment_Vent_Hopper_Air" "S" 1 "R" 0)
(command pause)
(command "_explode" "L")
)
)
)

Answer 2

再加一个空格
在
(COMMAND "_EXPLODE"
"L"
""
)

Answer 3

程序运行后，那图块能插入到当前图形中吗？

追问

能的，只是最后一句（(command "_explode" ”L“） 不能运行！！！！

追答

最后一句改为(command "_explode" (entlast))试一试

追问

没有效果~~~~