[求助][LISP]紧急求救

呆呆

能不能通过编写程序来计算图案填充所占的面积
本人现在手边有一份规划图纸
现在想计算每种用地的面积
能不能通过编写程序来实现： 只要选择图案填充 就能知道它所战的面积

lockmyeye

你所说的问题的答案是：

能！

呆呆

请教lockmyeye：
  您好！请问你的思路，我对LISP懂了一点点 ， 能否告知！谢谢
请知道的朋友或者高手们告知一、二 谢谢 非常急  
难道只能用AREA慢慢的点吗？

呆呆

请教lockmyeye：
  您好！请问你的思路，我对LISP懂了一点点 ， 能否告知！谢谢
请知道的朋友或者高手们告知一、二 谢谢 非常急  
难道只能用AREA慢慢的点吗？

呆呆

请教lockmyeye：
  您好！请问你的思路，我对LISP懂了一点点 ， 能否告知！谢谢
请知道的朋友或者高手们告知一、二 谢谢 非常急  
难道只能用AREA慢慢的点吗？

lockmyeye

晓东工具箱ftp://download.xdcad.net:7362/xd_tbox/XD_TBox29.zip
有API
drx_getarea
功    能：求AutoCAD AcDbCurve(曲线)类的面积和周长(长度)。
调用格式：(xdrx_getarea <实体图元名>)
说    明：1.<实体图元名>可是AcDbCurve类的:AcDbPolylinelwpolyline),AcDbArc,AcDbCircle,AcDbEllipse,AcDbSpline
          2.若曲线不封闭，则把开始点和终止点连线求面积，并且返回的是曲线的长度。
          3.可以是Hatch

呆呆

很谢谢您的帮助 但是我是想学习LSP 我不想要现成  只要能提供一点编程的思路就行  我是想学习   想用也可以慢慢的用AREA点

lockmyeye

我做了一部分，还没有做完整，近来太忙了。
你看看是否有用。

1. 
   
2. ;;;重新生成hatch的边界
   
3. (DEFUN bak ()
   
4.     (SETQ data1     (ENTGET ent1)
   
5.           data1     (MEMBER (ASSOC '91 data1) data1) ;去掉没有用的数据
   
6.           loops_num 0                             ;边界路径（环）的数目
   
7.           loops     (LIST)
   
8.     )
   
9.     (WHILE (AND data1 (/= 97 (CAR temp1)))        ;97: 源边界对象的数目
   
10.         (SETQ temp1 (CAR data1)
    
11.               data1 (CDR data1)
    
12.         )
    
13.         (COND ((= 91 (CAR temp1))                 ;边界路径（环）的数目
    
14.                (SETQ loops_num (CDR temp1))
    
15.               )
    
16.               ((= 92 (CAR temp1))                 ;92:边界路径类型标志，可以认为是路径的开始标志
    
17.                (SETQ loops_type (CDR temp1))
    
18.                (IF (LOGAND loops_type 2)
    
19.                    ;;边界路径类型标志是多段线
    
20.                    (PROGN (SETQ has       (CDR (ASSOC '72 data1)) ;凸度标志
    
21.                                 closed    (CDR (ASSOC '73 data1)) ;关闭的标志
    
22.                                 num_p     (CDR (ASSOC '93 data1)) ;多段线顶点的数目
    
23.                                 data1     (CDR (MEMBER (ASSOC '93 data1) data1))
    
24.                                 loops_one (LIST)
    
25.                           )
    
26.                           (REPEAT (* (+ 1 has) num_p)
    
27.                               (SETQ loops_one (APPEND (LIST (CAR data1)))
    
28.                                     data1     (CDR data1)
    
29.                               )
    
30.                           )
    
31.                           (SETQ loops (APPEND loops (LIST (APPEND (LIST (CONS 0 "LWPOLYLINE") (CONS 70 closed)) loops_one))))
    
32.                    )
    
33.                    ;;边界路径类型标志不是多段线
    
34.                    (PROGN (SETQ num_p (CDR (ASSOC '93 data1)) ;边界路径中的边数
    
35.                                 data1 (CDR (MEMBER (ASSOC '93 data1) data1))
    
36.                           )
    
37.                           (REPEAT num_p
    
38.                               (SETQ temp1 (CAR data1)
    
39.                                     data1 (CDR data1)
    
40.                                     loops_one (LIST)
    
41.                               )
    
42.                               (IF (= 72 (CAR temp1))
    
43.                                   ;;1 = 直线； 2 = 圆弧； 3 = 椭圆弧； 4 = 样条曲线
    
44.                                   (COND ((= 1 (CDR temp1)) (SETQ num_data 7))
    
45.                                         ((= 2 (CDR temp1)) (SETQ num_data 7))
    
46.                                         ((= 3 (CDR temp1)) (SETQ num_data 7))
    
47.                                         ((= 4 (CDR temp1)) (SETQ num_data 7))
    
48.                                         (T (*error* (STRCAT "错误的线类型标志<" (ITOA (CDR temp1)) ">!")))
    
49.                                   )
    
50.                                   (*error* "未读到边类型标志!")
    
51.                               )
    
52.                           )
    
53.                    )
    
54.                )
    
55.               )
    
56.         )
    
57.     )
    
58. )
    

复制代码

其它也就是从数据中重新生成原来的边。
相关的DXF组码可以到下载中心找。

meflying

对于HATCH的DXF组码确实没怎么弄清楚，能否说说。

对于次函数，能否说说功能，ent1从何而来？我将它用HATCT对象代替后，即没有返回值，也没有生成任何东西

龙龙仔

有重新生成hatch的邊界的程序hatchb.lsp
但生成後又如何計算?