[编程申请]：求距离的程序

redapple

请问：求两平行线段之间的距离应该用什么函数？要求不改变图纸的内容。

lsjjm

这是以前编的一个程序试试看:

2. 
   
3. (defun pdis (l1 l2 / p1 p3 p4)
   
4.   (setq p1 (cdr (assoc 10 (entget l1)))
   
5.         p3 (cdr (assoc 10 (entget l2)))
   
6.         p4 (cdr (assoc 11 (entget l2)))
   
7.          d (distance p1 (inters p1 (polar p1 (+ (angle p3 p4)(/ pi 2)) 1) p3 p4 nil))
   
8.   )
   
9. );

<br /> (defun pdis (l1 l2 / p1 p3 p4)<br />   (setq p1 (cdr (assoc 10 (entget l1)))<br />         p3 (cdr (assoc 10 (entget l2)))<br />         p4 (cdr (assoc 11 (entget l2)))<br />          d (distance p1 (inters p1 (polar p1 (+ (angle p3 p4)(/ pi 2)) 1) p3 p4 nil))<br />   )<br /> );

redapple

调用pdis函数时，是不是应把形参11、12先赋值为实体名呢？
我这样试过了，程序不承认11、12为变量名？为什么？
应该怎样调用这个函数呢？
再谢！