[其他]：xdlsp.lsp中几个函数探讨。

eachy

1 $xdlsp_xdata_remove <=> xdrx_xdata_remove

2 *error* 函数中 (xdrx_end) 应放最后面

1. 
   
2. (xdrx_end)
   
3.   (xdrx_SysVar_Pop)
   
4.   (xdrx_drawing_viewres)
   
5.   (xdrx_pbarend)

复制代码

3 strisnum 是否这样更简单

1. (if (numberp (read str))
   
2.    T
   
3.    nil
   
4. )
   

复制代码

4 $xdlsp_pickset_del = $xdlsp_pickset_erase => xdrx_entity_delete

5 $xdlsp_ison <=> xdrx_ison

6 $XDLSP_Vector_Scaling <=> xdrx_vector_divide

7 X、Y点排序问题：有个通用的Massoc函数用其检索出所有MinX的点，然后用apply 'min 和apply 'max 找(Xmin Ymin)或(Xmin Ymax)，其他同理。

hhjj9898

我对第七个问题,感兴趣,但不知"massoc"函数出自哪？

eachy

最初由 hhjj9898 发布
[B]我对第七个问题,感兴趣,但不知"massoc"函数出自哪？ [/B]

选自http://code.acadx.com/

2. 
   
3. (defun massoc (key alist / x nlist)
   
4.   (foreach x alist
   
5.     (if (eq key (car x))
   
6.       (setq nlist (cons (cdr x) nlist))
   
7.     )
   
8.   )
   
9.   (reverse nlist)
   
10. )
    
11. 
    
12. 
    

<br /> (defun massoc (key alist / x nlist)<br />   (foreach x alist<br />     (if (eq key (car x))<br />       (setq nlist (cons (cdr x) nlist))<br />     )<br />   )<br />   (reverse nlist)<br /> )<br /> <br /> <br />

Purpose
Returns a list containing cdrs for every occurence of the specified key in a list

Arguments
An integer and an entity definition list

Example
(massoc 10 (entget (car (entsel))))

Notes
This is especially useful for retrieving all points associated with a lightweight polyline
Author
Jaysen Long

XDSoft

XDLSP.LSP里面提供了：

1、X最小的点里面，找Y最小（最大）
2、Y最小的点里面，找X最小（最大）
3、X最大的点里面，找Y最小（最大）
4、Y最大的点里面，找X最小（最大）