[求助]有关于列表(函数)问题请教 - AutoLISP/Visual LISP 编程技术 - AutoCAD论坛 - 明经CAD社区 - 第2页

ZZXXQQ 发表于 2008-8-15 14:19:00

(defun Q_1 (LST WORD_T)
(SETQ j 0 k 0)
(while (and (/= (cadr (nth j lst)) word_t) (< j (length lst)))
(setq j (1+ j))
)
(if (= (cadr (nth j lst)) word_t)
(last (nth j lst))
nil
)
)
;这是另一种:
(defun Q_1 (lst word_t)
(setq j 0 k nil tl (length lst))
(while (< j tl)
(if (= (cadr(nth j lst)) word_t)
(setq k j j tl)
)
)
(if k
(last(nth k lst))
k
)
)

yoyoho 发表于 2008-8-15 15:02:00

ZZXXQQ版主你好,麻烦你检视下面程序运行有问题.谢谢你!;这是另一种: (<a href="http://www.mjtd.com/object/autolisp/defun.htm" target="_black">defun</a>
Q_1
(lst word_t)   (<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> j 0 k nil tl (<a href="http://www.mjtd.com/object/autolisp/length.htm" target="_black">length</a> lst))   (<a href="http://www.mjtd.com/object/autolisp/while.htm" target="_black">while</a>
(<a href="http://www.mjtd.com/object/autolisp/60.htm" target="_black"><</a> j tl)    (<a href="http://www.mjtd.com/object/autolisp/if.htm" target="_black">if</a>
(<a href="http://www.mjtd.com/object/autolisp/61.htm" target="_black">=</a>
(<a href="http://www.mjtd.com/object/autolisp/cadr.htm" target="_black">cadr</a>(nth j lst)) word_t)     (<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> k j j tl)    )   )   (<a href="http://www.mjtd.com/object/autolisp/if.htm" target="_black">if</a> k    (<a href="http://www.mjtd.com/object/autolisp/last.htm" target="_black">last</a>(nth k lst))    k   ) )

ZZXXQQ 发表于 2008-8-16 09:06:00

少了一行：

;这是另一种:
(defun Q_1 (lst word_t)
(setq j 0 k nil tl (length lst))
(while (< j tl)
(if (= (cadr(nth j lst)) word_t)
(setq k j j tl)
(setq j (1+ j))
)
)
(if k
(last(nth k lst))
k
)
)

yoyoho 发表于 2008-8-16 10:06:00

謝謝樓主少了這行(<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> j (<a href="http://www.mjtd.com/object/autolisp/1+.htm" target="_black">1+</a> j))所以無法離開(while...)

页: 1 [2]

明经CAD社区's Archiver