寻找封闭区域 Find and create polylines from selected objects

admin1

;Find and create polylines from selected objects
;Stefan M. v1.01 07.03.2014
;updated - v1.02 16.10.2018
(defun c:test ( / *error* break_object l2p ms ss i lst segments pa dr aa ce reg ea)
  (or acDoc (setq acDoc (vla-get-activedocument (vlax-get-acad-object))))
  (setq ms (vlax-get acDoc (if (= 1 (getvar 'cvport)) 'paperspace 'modelspace)))
  (vla-startundomark acDoc)
  (setq pa (getvar 'peditaccept)
        dr (getvar 'draworderctl)
        ce (getvar 'cmdecho)
        aa 0.00
  )
  
  (defun *error* (msg)
    (and
      msg
      (not (wcmatch (strcase msg) "*CANCEL*,*QUIT*,*EXIT*"))
      (princ (strcat "\nError: " msg))
      )
    (foreach x (append segments lst) (vl-catch-all-apply 'vla-delete (list x)))
    (setvar 'peditaccept pa)
    (setvar 'draworderctl dr)
    (setvar 'cmdecho ce)
    (vla-endundomark acDoc)
    (princ)
  )
  
  (defun l2p (l) (if l (cons (list (car l) (cadr l) (caddr l)) (l2p (cdddr l)))))
  
  (defun break_object (e points / object_type start center end radius normal arc res)
    (if points
      (progn
        (setq points
          (vl-sort points
            (function
              (lambda (a b)
                (<
                  (vlax-curve-getdistatpoint e (vlax-curve-getclosestpointto e a))
                  (vlax-curve-getdistatpoint e (vlax-curve-getclosestpointto e b))
                )
              )
            )
          )
        )
        (cond
          ((eq (setq object_type (vla-get-ObjectName e)) "AcDbLine")
           (setq start (vlax-curve-getstartpoint e))
           (while points
             (if (> (distance start (car points)) 1e-5)
               (setq res (cons (vlax-invoke ms 'addline start (setq start (car points))) res))
               )
             (setq points (cdr points))
             )
           )
          (T
           (if
             (eq object_type "AcDbArc")
             (setq start  (vlax-curve-getStartParam e))
             (setq start  (vlax-curve-getparamatpoint e (car points))
                   points (reverse (cons (car points) (reverse (cdr points))))
             )
           )
           (setq   center (vla-get-Center e)
                   radius (vla-get-Radius e)
                   normal (vla-get-Normal e)
           )
           (while points
             (if (not (equal start (setq end (vlax-curve-getparamatpoint e (car points))) 1e-5))
               (progn
                 (setq arc (vla-AddArc ms center radius start end))
                 (vla-put-Normal arc normal)
                 (setq res (cons arc res))
               )
             )
             (setq points (cdr points)
                   start end)
             )
           )
         )
       )
     )
    res
  )
         
  (if
    (setq ss (ssget ":L" '((0 . "LINE,LWPOLYLINE,ARC,CIRCLE"))))
    (progn
      (repeat (setq i (sslength ss))
        (setq i (1- i)
              e (ssname ss i)
              e (vlax-ename->vla-object e)
              )
        (if
          (eq (vla-get-ObjectName e) "AcDbPolyline")
          (foreach x (vlax-invoke e 'Explode)
            (setq lst (cons x lst))
            )
          (setq lst (cons (vla-copy e) lst))
        )
      )
      (if
        (and
          (setq segments
            (apply 'append
              (mapcar
                (function
                  (lambda (e / l)
                    (break_object e
                      (progn
                        (foreach other (vl-remove e lst)
                          (foreach x (l2p (vlax-invoke e 'intersectwith other acExtendNone))
                             (if
                               (equal x (vlax-curve-getclosestpointto e x) 1e-8)
                               (setq l (cons x l))
                             )
                          )
                        )
                        (if
                          (eq (vla-get-ObjectName e) "AcDbCircle")
                          l
                          (cons (vlax-curve-getendpoint e) l)
                        )
                      )
                    )
                  )
                )
                lst
              )
            )
          )
          (not
            (vl-catch-all-error-p
              (setq reg
               (vl-catch-all-apply 'vlax-invoke (list ms 'AddRegion segments))
              )
            )
          )
        )
        (progn
          (setvar 'peditaccept 1)
          (setvar 'draworderctl 0)
          (setvar 'cmdecho 0)
          (foreach x reg
            (setq x (vlax-vla-object->ename x))
            (command "_explode" x)
            (command "_pedit" "_m" "_p" "" "_j" "" "")
            (if (> (vlax-curve-getArea (entlast)) aa) (setq aa (vlax-curve-getArea (setq ea (entlast)))))
          )
          (entdel ea)
          (setvar 'peditaccept pa)
          (setvar 'draworderctl dr)
          (setvar 'cmdecho ce)
        )
        (princ "\nValid region(s) not found")
      )
    )
  )
  (*error* nil)
  (princ)
)

jxmjg

  法拉利膜材作为一种高性能的建筑材料，在建筑、汽车及广告等多个领域有着广泛的应用。以下是对法拉利膜材型号、特点及优点的详细分析：
[img]http://www.mjgou.com/data/attachment/forum/202403/13/223041uiqmeujen4jjj6zv.jpg[/img]
[b]一、法拉利膜材型号[/b]
法拉利膜材有多种型号，包括但不限于以下几种：1302 S2 Flexlight Advanced：这是一种高性能IV型柔性复合膜材，以其卓越的透光性、耐久性和易维护性而受到青睐。942、1202 S2、1002 S2、902 S2、1212 S2、912 S2：这些型号同样属于法拉利膜材系列，各自具有不同的特性和适用范围，但具体特点需根据具体型号进一步分析。需要注意的是，法拉利膜材的型号可能随着产品更新换代而有所变化，具体型号及其特性请参考最新产品资料。
[img=860,1255]http://www.mjgou.com/data/attachment/forum/202403/13/223254bbblwlbvbvsbwlsl.jpg[/img]
[b]二、法拉利膜材特点[/b]
法拉利膜材的特点主要体现在以下几个方面：
1、高强度与耐用性：法拉利膜材采用高强度材料制成，具有良好的抗拉强度和撕裂强度，能够承受较大的外力作用而不易破损。耐用性强，能够在恶劣气候条件下保持稳定的性能，延长使用寿命。
2、透光性与美观性：部分型号如1302 S2 Flexlight Advanced具有高透光性，能够在保持室内光线充足的同时，提供清晰的视野。膜材表面平整光滑，色彩丰富多样，能够满足不同建筑和装饰需求，提升整体美观性。
3、轻质与灵活性：法拉利膜材重量较轻，便于运输和安装，能够降低施工成本和时间。膜材具有一定的柔韧性，能够适应各种复杂形状和结构的设计要求。
4、环保与可回收性：法拉利膜材符合环保要求，部分材料可回收利用，减少了对环境的影响。
[img]http://www.mjgou.com/data/attachment/forum/202403/13/223128owhn0099rrds5h5y.jpg[/img]
[b]三、法拉利膜材优点[/b]
法拉利膜材的优点主要体现在以下几个方面：
1、提升建筑性能：高强度与耐用性使得法拉利膜材能够提升建筑的稳定性和安全性，延长使用寿命。透光性与美观性使得建筑内部光线充足、视野开阔，同时提升整体美观度。
2、降低施工成本：轻质特性使得运输和安装成本降低，施工效率提高。膜材的柔韧性使得施工更加灵活多变，能够适应各种复杂地形和结构要求。
3、节能环保：部分材料可回收利用，符合环保要求，减少了对环境的影响。良好的透光性能够减少室内照明需求，降低能耗。
4、广泛应用领域：
法拉利膜材不仅适用于建筑领域（如体育设施、商业设施、文化设施、交通设施等），还广泛应用于汽车及广告领域（如高档车辆贴膜保护和装饰、广告招贴等），展现出其多功能的特性。

综上所述，法拉利膜材以其高强度、耐用性、透光性、美观性、轻质灵活性以及环保可回收性等优点，在建筑、汽车及广告等多个领域发挥着重要作用。具体型号的选择应根据实际需求和应用场景进行综合考虑。
[url=http://www.mjgou.com/forum-17-1.html][size=92096][color=Red]法拉利膜材中国代理商 - 膜结构网[/color][/size][/url]

麦柏膜材代理商

麦柏膜材，作为海宁麦柏涂层织物有限公司的主打产品，在建筑膜结构材料领域具有显著的市场地位和广泛的应用。以下是对麦柏膜材的详细分析：
[b]一、公司背景与实力[/b]
地理位置：海宁麦柏涂层织物有限公司位于浙江省杭州市与上海之间的海宁市经济开发区，交通、物流方便，区位优势明显，信息资源充足。
专业经验：麦柏涂层是国内专业的刀刮涂层建筑膜结构材料生产供应商，其创建人具有15年的行业从业经历，积累了丰富的行业经验和专业知识。
产品种类：麦柏膜材涵盖了PVF膜材、PVDF膜材、PTFE膜材和ETFE膜材等多种类型，产品涵盖目前所有建筑膜结构工程领域。
[b]二、产品特点[/b]
高性能：麦柏膜材具有高强度、高透光率、高耐候性和优异的自洁性能。这些特性使得麦柏膜材在各种恶劣环境下都能保持稳定的性能，延长使用寿命。
防火等级：麦柏膜材具有良好的防火性能，符合相关防火标准，提高了建筑的安全性。
经济性：麦柏膜材在保证高性能的同时，也注重成本控制，为客户提供性价比高的产品。
环保性：麦柏膜材注重环保性能，部分产品可回收再利用，符合绿色建筑的理念。
[b]三、应用领域[/b]
麦柏膜材广泛应用于多个领域，包括但不限于：
建筑领域：作为体育场馆、展览馆、体育馆等建筑的屋顶、墙面覆盖材料，提供美观且耐用的解决方案。
交通设施：在机场、火车站、汽车站等交通枢纽的遮阳篷、雨棚等结构中发挥作用。
文化设施：用于博物馆、图书馆、文化中心等场所的屋顶和墙面覆盖。
景观设施：在公园、广场等景观区域的遮阳、遮雨设施中使用。
[b]四、技术创新与发展[/b]
研发能力：海宁麦柏涂层织物有限公司不断投入研发资源，致力于开发新的膜结构材料，以满足市场的多元化需求。
定制服务：麦柏膜材提供定制服务，根据客户的具体需求进行个性化设计和生产。
品质保证：公司秉承高品质、优服务的经营理念，确保每一批产品的质量都达到行业领先水平。
[b]五、市场认可度与前景[/b]
麦柏膜材凭借其优异的性能和广泛的应用领域在市场上赢得了广泛的认可。随着全球对绿色建筑和可持续发展的重视不断加深，麦柏膜材的市场前景将更加广阔。未来，麦柏膜材将继续加大在技术创新和产品研发上的投入，为客户提供更加优质、环保、高效的解决方案。
综上所述，麦柏膜材作为一种高性能的建筑膜结构材料，在建筑、交通、文化、景观等多个领域具有广泛的应用前景。其优异的性能、环保特性和定制服务使得麦柏膜材在市场上具有很强的竞争力。