LISP问题: 使用炸开指令无法一次选择多个对象?

只看该作者 · 发表于 2005-3-1 15:33:48

马上注册，结交更多同行朋友，交流，分享，学习。

您需要登录才可以下载或查看，没有帐号？注册

x

请各位大侠出手帮个忙

小弟想写一个LISP将很多线和图块炸开

程序如下
(command "explode" "

" "")
^^^^^^^^^^^^^^^^^
己先用SELECT作选择

但是都会发生错误,MOVE和COPY都无此情况

请问如何解决,谢谢

只看该作者 · 发表于 2005-3-2 00:25:27

能將前面的述句提列出來嗎?

只看该作者 · 发表于 2005-3-2 09:20:14

可以将之前选的实体命名，多的话就做成集合。之后在写就变成了
（COMMAND "EXPLODE" 实体名称 "")

只看该作者 · 发表于 2005-3-2 11:14:58

wayne 兄,请看
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
(DEFUN C:tt1()

(setq pt1(getpoint "point1?"))
(setq pt2(getcorner pt1 "point2?"))
(command "COPY" pt1 pt2 "" "0,0" "100,100" "")
(command "EXPLODE" "

" "" )  ;<---无效

)

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
fmfeng  兄
您说那方法我也试过了,对"explode"无效
头晕中.

只看该作者 · 发表于 2005-3-2 11:27:06

再请问一个问题,
在lisp中如何呼叫别人所写的lisp程序

如直接用command会发生如下情况
(command  “lisp-program” )
-> Unknown command " lisp-program "

该如何解决?
谢谢.

只看该作者 · 发表于 2005-3-2 11:27:46

EXPLODE 指令執行後
不是就可以框選了?
幹麻還要特別寫LISP??

只看该作者 · 发表于 2005-3-2 11:41:03

这样的话
框选要再另外设定范围,
不能随意的移动对象
而且也怕选到不需处理的东西

只看该作者 · 发表于 2005-3-2 13:53:07

改寫一下程序如下:

(DEFUN C:tt1()

(setq ss1(ssget))
(command "COPY" ss1 "" "0,0" "100,100")
(command "EXPLODE" ss1) ;<---?效

)

只看该作者 · 发表于 2005-3-2 15:13:21

我成功了,感谢wayne兄
这方法我之前有试过,
但只能explode “某一”物件
但wayne 提醒我用另一种方法
修改如下
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
(DEFUN C:tt1()

  (setq ss1(ssget))
  (command "COPY" ss1 "" "0,0" "100,100")
  (repeat(sslength ss1)
  (command "EXPLODE" ss1 )
  )
)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

再问一个问题,
在lisp中如何呼叫别人所写的lisp程序

如直接用command会发生如下情况
(command “lisp-program” )
-> Unknown command " lisp-program "

请问该如何解决? 谢谢

只看该作者 · 发表于 2005-3-2 16:31:37

1. 我還是不解, 為何還需用repeat迴圈, 作explode.

2.(load "lisp-program")