[LISP程序]：如何改写这一句LISP程序行:

lsjjm

如何改写这一句LISP程序行:
(command "_.pedit" ent "E"  "" "" "" "S" "" "" "" "G" "X" ""))
要求: 连续空格符用变量表示.

on/off

你看看关于字串的几个函数，尤其是read之类的。

lsjjm

最初由 on/off 发布
[B]你看看关于字串的几个函数，尤其是read之类的。 [/B]

我看了, 看不出门道来呀. 你说说看如何解决此问?

on/off

变量的目的是控制，不知道那些“”有什么好控制的。
(setq a "\"\"")
(read a)
->""

陌生人

你这不就是删除多义线顶点么?
另外一个帖子有讨论的.可以直接点中多义线顶点来删除.

不过这里提出了一个衍生的命题;
如何选择多义线,并一次删除多个多义线顶点(支持框选顶点方式)?

有兴趣的来试试?
我今晚贴程序:)

lsjjm

最初由 陌生人 发布
[B]你这不就是删除多义线顶点么?另外一个帖子有讨论的.可以直接点中多义线顶点来删除.. [/B]

删除多义线顶点的程序那是我贴的. 这里只不过是举个例子.
比如说我要输入5个空格, 但不是 "" "" "" "" ""
要表达式, 有何稿件?

陌生人

;
  (setq a "")
  (vl-cmdf "pedit" (entlast) "e" a a a "s" a a a  "g" "x" "")
;
  (setq redo 3)
  (vl-cmdf "pedit" (entlast) "e")
  (repeat redo (command ""))
  (vl-cmdf "s")
  (repeat redo (command ""))
  (vl-cmdf "g" "x" "")

以上两个等效.不过我还不是特别清楚你是不是要这样的效果:)

lsjjm

怎么说呢? 可以这么理解: 要删除多义线的一个顶点, 点击后可由程序计算出他是第几个顶点, 然后由PEDIT命令执行, 这就需要变量控制""个数的多少.

陌生人

哦,知道了序号,推荐用直接删除实体表内的信息
先给你点动力:),试试做出如下效果
看看这个演示:

aeo

最初由 lsjjm 发布
[B]如何改写这一句LISP程序行:
(command "_.pedit" ent "E"  "" "" "" "S" "" "" "" "G" "X" ""))
要求: 连续空格符用变量表示. [/B]

这样啦:
(command "_.pedit" ent "E" )
(repeat  n(command ""))  就是这个n是吧!
(command ...)
command是可以分开写的


当然也可以这样写
(setq li '("_.pedit" ent "E" ))
(repeat n(setq li(append li(list ""))))
后面一样...
(apply 'command li)

陌生人

用apply有点意思:)

lsjjm

最初由 陌生人 发布
[B]用apply有点意思:) [/B]

你老是吞吞吐吐, 都说出来嘛, 让我们先睹为快!

陌生人

,我是觉得aeo这里用apply 用的巧而已, 没别的意思了,aeo的程序都摆在这儿呢, 好不好还用多说么? 其实我11楼的回帖是因为我高兴, 我高兴是因为我在回答你的问题的时候落入俗套,(当然认真一点是应该想的到用apply的方法的),当时没想到用apply,而看了aeo的帖子,觉得很受启发,---------对看似普通的命题,应该多用不同的角度去审视,去求解. 因为得到这个感想我才高兴,因为高兴我才贴了11楼的帖子.
呵呵,这么说说清楚没?

lsjjm

别在意呀! 开个玩笑.
AEO的提示不错, 不过还是不理想. 还是用VLISP吧. 谢谢诸位.

陌生人

就应该用vl,嘛 command能不用就不用,尤其是响应命令的时候出口多的情况