[LISP函数]：关于lisp函数

agang198

诸位师兄，请告知或罗列一般对象的属性提取LISP函数，这对我和初学者很有帮助。谢谢！
如:直线长度、面域面积、弧长度、体的体积等等诸如此类的属性提取LISP函数。
再谢！

XDSoft

最初由 agang198 发布
[B]诸位师兄，请告知或罗列一般对象的属性提取LISP函数，这对我和初学者很有帮助。谢谢！
如:直线长度、面域面积、弧长度、体的体积等等诸如此类的属性提取LISP函数。
再谢！ [/B]

这些没有基本的函数的，都需要在LISP提供的函数基础上，再写。

你先搜索搜索论坛，看看。

fylinwater

统计多个多义线面积的
统计多个弧线的长度

2. 
   
3. ;;———————————————————————————————————
   
4. ;{start
   
5. (defun c:as2 (/ N I ent ares  ss )
   
6. (princ "\n 统计多义线面积")
   
7.   (setvar "cmdecho" 0)
   
8. (princ "   请选择统计实体")
   
9.   (setq ss (ssget '((0 . "LWPOLYLINE,POLYLINE"))))
   
10. (SETQ N (SSLENGTH SS))
    
11. (SETQ I 0)
    
12. (setq ares 0)
    
13. (REPEAT N
    
14.   (SETQ ENT (SSNAME SS I))
    
15.   (command "area" "o" ent)
    
16. (setq ares (+ ares (getvar "area")) )
    
17. (setq i (1+ i))
    
18. )
    
19. (princ (strcat "\n计算得面积" (rtos ares 2 2 ) ))
    
20. (princ)
    
21. )
    
22.                                         ;
    
23.                                         ;end}
    
24. ;;———————————————————————————————————————
    
25. 
    
26. (defun c:getal ( / pi delta s r  num length n tlist i p1 p2 n)
    
27.   (princ "求弧线段长和")
    
28.   (princ "\n请选择 弧线")
    
29.   (setq        s (ssget (list  '(0 . "arc"))))
    
30.   (setq num (sslength s))
    
31. (setq length 0)
    
32. (setq pi 3.1415926)
    
33.   (setq n 0)
    
34.   (repeat num
    
35.        (setq tlist (entget (ssname s n)))
    
36.      ;;
    
37.        (setq i 0)
    
38.        (while (/= 40 (car(nth i tlist)))
    
39.          (setq i (+ i 1))
    
40.        )
    
41.      (setq r (cdr (nth i tlist)))
    
42.      ;(print r)
    
43.      ;;
    
44. (setq i 0)
    
45.        (while (/= 50 (car(nth i tlist)))
    
46.          (setq i (+ i 1))
    
47.        )
    
48.      (setq a1 (cdr (nth i tlist)))
    
49.        (setq a2 (cdr (nth (+ 1 i) tlist)))
    
50.   (setq delta (- a2 a1))
    
51.   (if (< delta 0)
    
52.       (setq delta (+ delta ( * 2.0 pi)))
    
53.   )
    
54.        (setq length (+ length (* r  delta)))
    
55.      (setq n (+ 1 n))                     
    
56.   )
    
57. (princ "\n所有线段总长" )
    
58. (princ length)
    
59. (princ)
    
60. )
    
61.                                         ;
    
62.                                         ;end}
    

<br /> ;;———————————————————————————————————<br /> ;{start<br /> (defun c:as2 (/ N I ent ares  ss )<br /> (princ "\n 统计多义线面积")<br />   (setvar "cmdecho" 0)<br /> (princ "   请选择统计实体")<br />   (setq ss (ssget '((0 . "LWPOLYLINE,POLYLINE"))))<br /> (SETQ N (SSLENGTH SS))<br /> (SETQ I 0)<br /> (setq ares 0)<br /> (REPEAT N<br />   (SETQ ENT (SSNAME SS I))<br />   (command "area" "o" ent)<br /> (setq ares (+ ares (getvar "area")) )<br /> (setq i (1+ i))<br /> )<br /> (princ (strcat "\n计算得面积" (rtos ares 2 2 ) ))<br /> (princ)<br /> )<br />                                         ;<br />                                         ;end}<br /> ;;———————————————————————————————————————<br /> <br /> (defun c:getal ( / pi delta s r  num length n tlist i p1 p2 n)<br />   (princ "求弧线段长和")<br />   (princ "\n请选择 弧线")<br />   (setq        s (ssget (list  '(0 . "arc"))))<br />   (setq num (sslength s))<br /> (setq length 0)<br /> (setq pi 3.1415926)<br />   (setq n 0)<br />   (repeat num<br />        (setq tlist (entget (ssname s n)))<br />      ;;<br />        (setq i 0)<br />        (while (/= 40 (car(nth i tlist)))<br />          (setq i (+ i 1))<br />        )<br />      (setq r (cdr (nth i tlist)))<br />      ;(print r)<br />      ;;<br /> (setq i 0)<br />        (while (/= 50 (car(nth i tlist)))<br />          (setq i (+ i 1))<br />        )<br />      (setq a1 (cdr (nth i tlist)))<br />        (setq a2 (cdr (nth (+ 1 i) tlist)))<br />   (setq delta (- a2 a1))<br />   (if (< delta 0) <br />       (setq delta (+ delta ( * 2.0 pi)))<br />   )<br />        (setq length (+ length (* r  delta)))<br />      (setq n (+ 1 n))                     <br />   )<br /> (princ "\n所有线段总长" )<br /> (princ length)<br /> (princ)<br /> )<br />                                         ;<br />                                         ;end}<br />

无痕

fylinwater.谢谢。
你的程序只是能求arc弧长，对pl.spl.cir.ell等无效。
建议看看这几个vlax函数。改写一下你的程序。
(vlax-curve-getArea curve-obj)        返回曲线中的面积
(vlax-curve-getDistAtParam
curve-obj param)        返回从曲线的起始端到指定点的曲线段长度
(vlax-curve-getDistAtPoint
curve-obj point)        返回从曲线的起始端到指定点的曲线段长度
(vlax-curve-getEndPoint
curve-obj)        返回曲线的端点（在 WCS 坐标系中）

agang198

我在多个论坛发这个帖，只有在这得到回答。看来这才是真正的家！
我会认真学习的。
附上一个画圆管相贯线展开图的LISP程序以表谢意。当然它有DEBUG，一次加载只能连续正确运行4次，请指正。

fylinwater

我那些只是统计工程量用的临时用用的正好在手边就贴出来了
不过我看了你的程序只要你逻辑上没问题应该可以正确运行的，出错的原因估计还是捕捉没有关掉
另外建议你把里面这么多的变量设置为局部变量
(DEFUN C:XGX(/ s1 s2 a A1  B1  B2  B3  B4  B5  C1  C2  C3  C4  C5  D1  D2  D3  D4  D5  E1  E2  E3  E4  E5  F1  F2  F3  F4  F5  G1  G2  G3  G4  G5  H1  H2  H3  H4  H5  I1  I2  I3  I4  I5  J1  J2  J3  J4  J5  K1  K2  K3  K4  K5  L1  L2  L3  L4  L5  M1  M2  M3  M4  M5  N1  N2  N3  N4  N5  P1  P2  P3  P4  P5  P6  P7  P8  P9  R1  R2  X1  X2  X3  X4  X5  X6  X7  X8  X9  Y1  Y2  Y3  Y4  Y5  P10  P11  Y10 ）

fundoll

各位网兄，
       能否把各种放样展开图的具体设计思路讲一下。

谢谢！！