[活动结束]LISP知识问答第2期--基础篇2-(难度指数:★)

Lisper

10.数字字符或者实数整数四舍五入返回字符串
  格式:(4-5 a n)
  a:为数字字符 "4.2" 实数 5.6 整数7
  n:为保留的小数个数
  比如:(4-5 "4.2" 3)
     返回"4.200"

2. 
   
3. (defun 4-5 (a n / Num dimzin)
   
4.   (setq dimzin (getvar "dimzin"))
   
5.   (setvar "dimzin" 0)
   
6.   (if (= 'STR (type a))
   
7.     (setq Num (rtos (atof a) 2 n))
   
8.     (progn
   
9.       (setq Num (rtos a 2 n))
   
10.       )
    
11.     )
    
12.   (setvar "dimzin" dimzin)
    
13.   Num
    
14.   )
    

<br /> (defun 4-5 (a n / Num dimzin)<br />   (setq dimzin (getvar "dimzin"))<br />   (setvar "dimzin" 0)<br />   (if (= 'STR (type a))<br />     (setq Num (rtos (atof a) 2 n))<br />     (progn<br />       (setq Num (rtos a 2 n))<br />       )<br />     )<br />   (setvar "dimzin" dimzin)<br />   Num<br />   )<br />

redcat

回复 露水2 的帖子

1. ;;计算耗时
   
2. (defun c:te(/ t0 t1)
   
3. (setq t0(getvar "tdusrtimer"))
   
4. ;;注意：为检测被测试程序的真实效率如有选择项，请提到(setq t0 (getvar "tdusrtimer"))前面写出(如:ssget,gereal,getstring等等)
   
5. ;;被测试程序段开始
   
6. 
   
7. 
   
8. 
   
9. 
   
10. ;;被测试程序段结束
    
11. (setq t1(* 86400 (- (getvar "tdusrtimer") t0)))
    
12. (princ(strcat "\n程序共计耗时:" (vl-princ-to-string t1)"(秒)"))
    
13. (princ)
    
14. )
    

;;计算耗时<br /> (defun c:te(/ t0 t1)<br /> (setq t0(getvar "tdusrtimer"))<br /> ;;注意：为检测被测试程序的真实效率如有选择项，请提到(setq t0 (getvar "tdusrtimer"))前面写出(如:ssget,gereal,getstring等等)<br /> ;;被测试程序段开始<br /> <br /> <br /> <br /> <br /> ;;被测试程序段结束<br /> (setq t1(* 86400 (- (getvar "tdusrtimer") t0)))<br /> (princ(strcat "\n程序共计耗时:" (vl-princ-to-string t1)"(秒)"))<br /> (princ)<br /> )<br />

redcat

回复 caoyin 的帖子

建议还是不要从ssget转换为vlax-ename->vla-object对象
效率要比不转换低20~30倍
te1为未转换耗时；te2为转换耗时

露水2

明天答题到期

Lisper

5.返回指定图元后的所有图元组成的表
  格式：(EntNextAll ent)
　ent：指定的标志图元
  返回：图元之后生成的所有图元组成的表．
　特别：当ent为nil时返回图中所有的图元组成的表

2. 
   
3. (defun EntNextAll (ent / ss)
   
4.   (if (not ent)
   
5.     (setq ss (ssadd (setq ent (entnext))))
   
6.   (setq ss (ssadd))
   
7.     )
   
8.   (while (setq ent (entnext ent))
   
9.     (ssadd ent ss)
   
10.     )
    
11.   (if (= 0 (sslength ss))
    
12.     nil
    
13.     ss
    
14.     )
    
15.   )
    

<br /> (defun EntNextAll (ent / ss)<br />   (if (not ent)<br />     (setq ss (ssadd (setq ent (entnext))))<br />   (setq ss (ssadd))<br />     )<br />   (while (setq ent (entnext ent))<br />     (ssadd ent ss)<br />     )<br />   (if (= 0 (sslength ss))<br />     nil<br />     ss<br />     )<br />   )<br />

Lisper

8.表内公约数
  格式:(listgcd lst)
  lst:表
  比如：(listgcd '(2 4 6 8))
        返回2

2. 
   
3. (defun listgcd (lst / a lst1)
   
4.   
   
5.   (while (> (length lst) 2)
   
6. (setq a (gcd (car lst) (cadr lst)))
   
7.     (setq lst (cons a(cddr lst)))
   
8.     )
   
9.   (if (> (length lst) 1)
   
10.   (eval (cons 'gcd lst))
    
11.     (car lst)
    
12.     )
    
13. )
    
14. )

<br /> (defun listgcd (lst / a lst1)<br />   <br />   (while (> (length lst) 2)<br /> (setq a (gcd (car lst) (cadr lst)))<br />     (setq lst (cons a(cddr lst)))<br />     )<br />   (if (> (length lst) 1)<br />   (eval (cons 'gcd lst))<br />     (car lst)<br />     )<br /> )<br /> )

Lisper

3.设置图元的一个组码值
  格式：(setdxf ent vallst)
  ent：图元
　vallst：可以是单表或复表，可以是表也可以是点对组成的表

2. 
   
3. (defun setdxf (ent vallst  / enl a b)
   
4.   (setq enl (entget ent))
   
5.   (foreach a vallst
   
6.     (if (setq b (assoc (car a) enl))
   
7.       (setq enl (subst a b enl))
   
8.       (setq enl (append enl (list a)))
   
9.       )
   
10.     )
    
11.   (entmod enl)
    
12.   )
    

<br /> (defun setdxf (ent vallst  / enl a b)<br />   (setq enl (entget ent))<br />   (foreach a vallst<br />     (if (setq b (assoc (car a) enl))<br />       (setq enl (subst a b enl))<br />       (setq enl (append enl (list a)))<br />       )<br />     )<br />   (entmod enl)<br />   )<br />

露水2

;两个数字公约数(zml84写的)
(defun listgcd2        (a b)
    (if        (= a b)
        a
        (listgcd2 (- (max a b) (min a b)) (min a b))
    )
)
;表内公约数
(defun listgcd (lst)
    (cond ((= (length lst) 2)
   (listgcd2 (car lst) (cadr lst))
  )
  ((= (length lst) 1)
   (car lst)
  )
  ((> (length lst) 2)
   (listgcd (cons  (listgcd2 (car lst) (cadr lst)) (cddr lst)))
  )
    )

)

露水2

    (LISTGCD LST)......1281 / 1.41 <最快>
    (LISTGCD1 LST).....1812 / 1.00 <最慢>

狂刀lxx

扫了一眼，提一个。
一般“5.返回指定图元后的所有图元组成的表”，如果用entnext的话
要把块属性，polyline（不是lwpolyline）的后续实体剔除掉。因为那些是历史遗留问题的“尾巴”，不具有通常意义上独立实体的操作性（容易在下一步处理时候出错）。 好像，mesh也有类似情况