如何按指定面积分割多边形

admin1

[code]
(vl-load-com)
(defun ebox (e / pa pb)
         (Vlax-Invoke-Method (Vlax-Ename->Vla-Object e ) 'GetBoundingBox 'pa 'pb )
             (setq pa (trans (vlax-safearray->list pa) 0 1)
                   pb (trans (vlax-safearray->list pb) 0 1)
             )
             (list pa pb)
)
(defun cbox (e / box)
         (setq box (ebox e))
         (mid (car box) (cadr box))
)
(defun mid (p1 p2) (mapcar '* '(0.5 0.5 0.5) (mapcar '+ p1 p2)))
(defun mktext (str pt th)
  (entmake (list '(0 . "TEXT")
                 (cons 1 str)
                 (cons 10 pt)
                 (cons 40 th)
                 (cons 11 pt)
                 (cons 71 0)
                 (cons 72 1)
                 (cons 73 2)
           )
  )
)
(defun str2lst ( str del / pos )
    (if (setq pos (vl-string-search del str))
        (cons (substr str 1 pos) (str2lst (substr str (+ pos 1 (strlen del))) del))
        (list str)
    )
)
(defun ptscen (Pts / )
  (MAT:vxs (apply 'mapcar (cons '+ pts)) (/ 1.0 (length pts)))
)
(defun MAT:vxs ( v s )
  (mapcar (function (lambda ( n ) (* n s))) v)
)
(defun dxf (key ename) (cdr (assoc key (entget ename))))
(defun 2epi ( e1 e2 mode / l r )
    (setq obj1 (vlax-ename->vla-object e1)
            obj2 (vlax-ename->vla-object e2)
            l (vlax-invoke obj1 'intersectwith obj2 mode))
    (repeat (/ (length l) 3)
        (setq r (cons (list (car l) (cadr l) (caddr l)) r)
              l (cdddr l)
        )
    )
    (reverse r)
)
(defun p2ld (pt p1 p2 / )
  (car (trans (mapcar '- pt p1) 0 (mapcar '- p2 p1)))
)
(defun gvp (e)
        (vl-remove nil (mapcar '(lambda (x) (if (= (car x) 10) (trans (cdr x) 0 1))) (entget e)))
)
(defun mkline (pt1 pt2) (entmakex (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2))))
(defun new_ss (lastobj / ss obj)
  (setq ss (ssadd))
        (setq obj (entnext lastobj))
        (while obj
            (setq ss (ssadd obj ss))
            (setq obj (entnext obj))
        )
ss
)
(defun ss2lst ( ss / i l )
    (if ss
        (repeat (setq i (sslength ss))
            (setq l (cons (ssname ss (setq i (1- i))) l))
        )
    )
)
(defun c:tt ( / a angint ar ar1 bang box cont dd dh dx e e0 ee h h1 lm lstr0 m1 n odlst p1 p2 pa pb pc pm pm1 pts ssn str tm w x)
(progn
(vl-load-com)
(setq odlst (mapcar 'getvar '("cmdecho" "osmode")))
(mapcar 'setvar '("cmdecho" "osmode") '(0 0))
(setq cont T)
  (while cont
    (setq str (getstring "\n输入面积划分表<800.22,200,330.45...>"))
    (if (/= str "")(setq cont nil))
  )
        (setq lstr0 (mapcar 'atof (str2lst str ","))
                n (apply '+ lstr0)
                e (car (entsel "\n选择多段线:"))
                p1 (getpoint "\n地块划分起点:")
                p2 (getpoint p1 "\n划分方向:")
                bang (angle p1 p2)
                pc (ptscen (gvp e))
                ar (Vlax-Get (Vlax-Ename->Vla-Object e) 'Area )
                lstr0 (mapcar '(lambda(x) (* x (/ ar n))) lstr0)
                lstr0 (reverse (cdr (reverse lstr0)))
                angint (atof (angtos bang 0 4))
                lm nil
                ee (entlast)
        )
        (vl-cmdf "_.rotate" e "" pc (- 90. angint))
        (setq box (ebox e)
                p1 (car box)
                p2 (cadr box)
)
(mapcar 'set '(w h) (mapcar '- p2 p1))
(vla-copy (vlax-ename->vla-object e))
(setq e0 (entlast))
(entdel e0)
)
        (foreach a lstr0
        (setq dh (/ a w)
                pa (mapcar '+ p1 (list 0 dh))
                pb (mapcar '+ p1 (list w dh))
                tm (mkline (mapcar '- pa (list 10 0)) (mapcar '+ pb (list 10 0)))
                pts (2epi tm e 0)
                pm (mid (car pts) (last pts))
                pm1 (mapcar '- pm (list 0 (* 0.5 dh)))
        )
        (vl-cmdf "boundary" "a" "b" "n" e tm "" "" pm1 "")
        (setq m1 (entlast)
                ar1 (Vlax-Get (Vlax-Ename->Vla-Object m1) 'Area )
                dx (- a ar1)
                dd (/ dx w 2.)
        )
        (while (not (equal dx 0 1e-3))
        (mapcar 'entdel (list tm m1))
        (setq pa (mapcar '+ pa (list 0 dd))
                pb (mapcar '+ pb (list 0 dd))
                tm (mkline pa pb)
                pts (2epi tm e 0)
                pm (mid (car pts) (last pts))
                pm1 (mapcar '- pm (list 0 (* 0.5 dh)))
                )
        (vl-cmdf "boundary" "a" "b" "n" e tm "" "" pm1 "")
        (setq m1 (entlast)
                ar1 (Vlax-Get (Vlax-Ename->Vla-Object m1) 'Area )
                dx (- a ar1)
                dd (/ (abs dx) w 2.)
        )
        )
        (vl-cmdf "boundary" "a" "b" "n" e tm "" "" (mapcar '+ pm (list 0 (* 0.5 dh))) "")
(mapcar 'entdel (list e tm m1))
(setq e (entlast)
        h1 (abs (p2ld p1 pa pb))
        p1 (mapcar '+ p1 (list 0 h1))
        lm (cons pts lm)
)
)
(mapcar '(lambda(x) (mkline (car x) (cadr x))) lm)
(mapcar 'entdel (list e e0))
(setq ssn (new_ss ee))
(vl-cmdf "_.rotate" e0 ssn "" pc (- (- 90. angint)))
(mapcar 'setvar '("cmdecho" "osmode") odlst)
)[/code]

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=90907][color=Red]法拉利膜材中国代理商 - 膜结构网[/color][/size][/url]

赛普斯膜材代理商

赛普斯膜材中的PTFE膜材是一种高性能的建筑用膜材，具有诸多优异的性能特点。以下是对赛普斯品牌及PTFE膜材的详细介绍，包括品牌介绍和膜材型号参数。
赛普斯品牌介绍
赛普斯是一家专业研发生产新型环保材料的企业，专注于PVC、PVDF、PTFE等膜材的研发与生产。公司产品广泛应用于建筑、交通、能源、环保等领域，以其优良的品质和合理的价格赢得了市场的广泛认可。赛普斯膜材以其卓越的性能和广泛的应用领域，在建筑行业中占有重要地位。
PTFE膜材型号参数
赛普斯PTFE膜材的具体型号参数可能因产品批次、生产标准和客户需求而有所不同。然而，根据一般经验，PTFE膜材的主要参数可以归纳如下：
参数类别描述
基材:玻璃纤维，纤维直径范围在3.30～4.05μm，重量应大于150g/m²。
涂层:聚四氟乙烯树脂，含量不低于90%，涂层重量应大于400g/m²。
厚度:膜材厚度宜大于0.5mm，具体厚度可根据项目需求定制。
颜色:乳白、半透明，可根据设计需求进行定制。
光学性能:光线反射率70～80%，透光率10～50%，具体数值可能因产品批次和厚度而有所差异。
物理性能:拉伸强度高，弹性模量低，有利于形成复杂的曲面造型。
化学性能:耐化学腐蚀性强，几乎不受任何化学物质侵蚀，包括强酸、强碱和有机溶剂。
耐候性:优异的耐候性，能长期抵抗紫外线、臭氧、酸雨等环境因素的侵蚀。
自洁性:雨水可冲刷掉表面的附着物，降低维护成本。
防火性能:通常为B1级难燃材料，符合建筑防火要求。
使用寿命:生产厂商给出的质量保证年限为10年，但实际耐候试验观测表明，其力学与物理化学性能无退化现象，使用寿命可达25年以上。
需要注意的是，以上参数仅为一般性描述，具体数值可能因产品型号、生产批次和客户需求而有所不同。在选购赛普斯PTFE膜材时，建议直接咨询生产商或经销商以获取最准确的产品信息。
此外，赛普斯PTFE膜材还因其独特的性能特点而广泛应用于大型公共设施，如体育场馆的屋顶系统、机场大厅、展览中心、站台等。其高强度、耐候性、自洁性和防火性能等优异特点，使得PTFE膜材成为现代建筑设计中不可或缺的一部分。