2013-08-08 QQ群：ALISP＆VLISP(143438137) 聊天记录：求用已有的LWPOLYLINE（含圆弧）框选实体的LISP程序

CCarch

Angel(1794863523)于2013-08-08 10-20-09：
上面的那个也许更慢

CCarch

-(34833360)于2013-08-08 10-21-18：
试试才知道

CCarch

Angel(1794863523)于2013-08-08 10-22-23：
[face13.gif]

CCarch

Angel(1794863523)于2013-08-08 10-26-18：
[face98.gif]经过1000000次的测试 后者快一秒

CCarch

-(34833360)于2013-08-08 10-26-46：
哦

炫翔

炫翔(2363673534)于2013-08-08 10-28-10：
我测试 速度是一样的

炫翔

炫翔(2363673534)于2013-08-08 10-28-37：
我用分别做成自定义函数 试了

CCarch

-(34833360)于2013-08-08 10-28-57：
我测试，后者稍慢

炫翔

炫翔(2363673534)于2013-08-08 10-29-26：
但是我知道加上这句  慢很多
(if(= (type lst) 'list)

炫翔

炫翔(2363673534)于2013-08-08 10-29-41：
(defun xx-lst-1To9 (lst)
(if(= (type lst) 'list)
  (append (cdr lst) (list (car lst)))
  (princ "\n xx-lst-1To9  错了！")
)
)

(defun xx-lst-1To9 (lst)
(if(= (type lst) 'list)
  (reverse (cons (car lst) (reverse (cdr lst))))
  (princ "\n xx-lst-1To9  错了！")
)
)


(defun c:xx ()
  (repeat 1000000
    (xx-lst-1To9 '(1 2 3 4 5 6))
    (xx-lst-1To9 '(1 2 3 4 5 6))
    (xx-lst-1To9 '(1 2 3 4 5 6))
    (xx-lst-1To9 '(1 2 3 4 5 6))
  )
)

炫翔

炫翔(2363673534)于2013-08-08 10-29-51：
[face13.gif]大家玩玩

炫翔

炫翔(2363673534)于2013-08-08 10-30-30：
顺便看看 刚刚经过群友提出 生成的自定义函数

CCarch

Angel(1794863523)于2013-08-08 10-31-18：
[face76.gif]

CCarch

Angel(1794863523)于2013-08-08 10-31-40：
翔版 真是弄这个自定义函数天才

CCarch

Angel(1794863523)于2013-08-08 10-31-50：
任何讨论都来个自定义函数