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

CCarch

-(34833360)于2013-08-08 10-38-16：
油盐不进

CCarch

-(34833360)于2013-08-08 10-39-14：
铁板钉钉

CCarch

-(34833360)于2013-08-08 10-41-56：
有个台湾的老头做过试验，夏天穿棉袄站在太阳下晒，没事，也不出汗，不感到热

炫翔

炫翔(2363673534)于2013-08-08 10-43-20：
(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  错了！")
)
)

炫翔

炫翔(2363673534)于2013-08-08 10-43-31：
对于这两个的函数的选择

炫翔

炫翔(2363673534)于2013-08-08 10-43-37：
建议选前者

炫翔

炫翔(2363673534)于2013-08-08 10-43-44：
那么为什么呢

炫翔

炫翔(2363673534)于2013-08-08 10-43-56：
因为我们测试的只是简单的表

CCarch

-(34833360)于2013-08-08 10-44-10：
前者稍快

炫翔

炫翔(2363673534)于2013-08-08 10-44-14：
reverse 跌倒不费力

CCarch

-(34833360)于2013-08-08 10-44-19：
(setq t1 (getvar "date"))
(repeat 2000000
  (append (cdr lst) (list (car lst)))
  )
(princ (strcat "\n" (rtos (* 3600 24 (- (getvar "date") t1)) 2 2)));4.62

(setq t1 (getvar "date"))
(repeat 2000000
  (reverse (cons (car lst) (reverse (cdr lst))))
  )
(princ (strcat "\n" (rtos (* 3600 24 (- (getvar "date") t1)) 2 2)));5.25

炫翔

炫翔(2363673534)于2013-08-08 10-44-59：
如果 我们育路那个多重表 这个  reverse 跌倒 就头疼了

CCarch

-(34833360)于2013-08-08 10-45-28：
跌倒是颠倒吗

炫翔

炫翔(2363673534)于2013-08-08 10-45-44：
比如:(SETQ LST(LIST (1)(1)(1)......))N次的时候

炫翔

炫翔(2363673534)于2013-08-08 10-45-54：
试试 会有明显的差别