SD填充拉伸_V7.1.lsp

admin1

;[url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=181607&highlight=%C0%AD%C9%EC[/url]

(defun C:SD (/ brdcol brdlay bx e e0 elast i lst3 obj old_col old_lay old_ung old_cmd p pts sd sn ss ss1 ss2 stc x x1 xx y1)
  (vl-load-com)
  (if (setq ss (ssget "i")) (setq ss (ssget))) ;如果预选了对象
  (progn  ;基础函数
         (defun K:UNDO ()  ;参数记录或恢复
           (if (not (and Old_Lay Old_Col Old_UNG))
             (progn  ;记录
                    (setq Old_Lay (getvar "Clayer")) ;记录当前图层
                    (setq Old_Col (getvar "Cecolor")) ;记录颜色特性
                    (setq Old_UNG (getvar "PICKSTYLE")) ;记录编组状态
                    (setvar "PICKSTYLE" 0) ;忽略编组选择
             )
             (progn  ;恢复
                    (setvar "Clayer" Old_Lay) ;恢复原先图层
                    (setvar "Cecolor" Old_Col) ;恢复颜色特性
                    (setvar "PICKSTYLE" Old_UNG) ;恢复编组状态
             )
           )
         )
         (defun *error* (msg)
           (if sn (command "erase" sn ""))
           (K:UNDO) ;参数恢复
           (K:DeleteLay BrdLay T) ;清理并删除图层
           (command "._undo" "e")
           (princ)
         )
         (defun New_ss (elast / obj ss2)  ;
           (if elast
             (progn
               (setq ss2 (ssadd))
               (setq obj (entnext elast))
               (while obj
                 (if
                   (not
                     (member (cdr (assoc 0 (entget obj)))
                             '("ATTRIB" "VERTEX" "SEQEND")
                     )
                   )
                   (setq ss2 (ssadd obj ss2))
                 )
                 (setq obj (entnext obj))
               )
               ss2
             )
           )
           ss2
         )
         (defun ptsbox (pts)
           (list (apply 'mapcar (cons 'min pts)) (apply 'mapcar (cons 'max pts)))
         )
         (defun K:DeleteLay (LayNam Flags / LayObj ss i)  ;清理图层/清理并删除
           (setq LayObj (vlax-ename->vla-object (tblobjname "LAYER" LayNam)))
           (vla-put-layeron LayObj :vlax-true) ;打开
           (vla-put-lock LayObj :vlax-false) ;解锁
           (vla-put-freeze LayObj :vlax-false) ;解冻
           ;--------
           (setq i -1) ;删除层内对象
           (if (setq ss (ssget "X" (list (cons 8 LayNam))))
             (repeat (sslength ss)
               (vla-erase (vlax-ename->vla-object (ssname ss (setq i (1+ i)))))
             )
           )
           (if Flags (vl-catch-all-apply 'vla-delete (list LayObj))) ;删除图层
         )
  )
  (setq Old_CMD (getvar "Cmdecho")) ;记录命令行
  (setvar "Cmdecho" 0) ;关闭回显
  (command "._undo" "be")
  ;--------
  (setq BrdLay "TC-填充边界线"
        BrdCol 1
        P      0
  ) ;设置边界线图层
  (if (not (tblsearch "LAYER" BrdLay))  ;如果图层不存在则新建
    (entmake
      (list
        (cons 0 "LAYER")
        (cons 100 "AcDbSymbolTableRecord")
        (cons 100 "AcDbLayerTableRecord")
        (cons 70 0) ;层可见性
        (cons 2 BrdLay) ;图层名称
        (cons 62 BrdCol) ;图层颜色
        (cons 290 P) ;是否打印(0不打印，1打印)
      )
    ) ;entmake
    (progn
      (if (= (getvar "Clayer") BrdLay) (command "Clayer" 0)) ;避免边界线图层占用
      (K:DeleteLay BrdLay Nil) ;清理图层
    )
  )
  (K:UNDO) ;参数记录
  (command "Clayer" BrdLay "cecolor" BrdCol) ;置为当前图层
  ;--------
  (if (not ss) (setq ss (ssget)))
  (if ss
    (progn
      ;排除外部参照
      (repeat (setq n (sslength ss))
        (setq ent (ssname ss (setq n (1- n)))
              obj (vlax-ename->vla-object ent)
        )
        (if
          (and (= (vla-get-objectname obj) "AcDbBlockReference")
               (vlax-property-available-p obj 'path)
          )
          (ssdel ent ss)
        )
      )
      ;排除外部参照
      (command "move" ss "" (list 0 0) (list 0 0))
      (setq ss (ssget "p"))
      (setq stc (ssget "p" '((0 . "HATCH"))))
      (if (not stc)
        (command ".STRETCH" ss "" pause pause)
        (progn
          ;(command "move" stc "" (list 0 0) (list 0 0))(setq stc (ssget "p"))
          (setq e0 (entlast))
          (repeat (setq n (sslength stc))
            (setq en (ssname stc (setq n (1- n))))
            ; (Command "HATCHEDIT" en "_DI")
            (Command "HATCHEDIT" en "" "DI")
          )
          (setq i (sslength stc))
          (while (setq e (ssname stc (setq i (1- i))))
            ; (command "-hatchedit" e "b" "p" "y")
            (command "-hatchedit" e "" "b" "p" "y")
          )
          (setq sn (New_ss e0))
          (setq lst3 (vl-remove-if-not '(lambda (x) (< (car x) 0)) (ssnamex ss)))
          (command "SELECT")
          (foreach xx lst3
            (setq bx (ptsbox (mapcar 'cadr (cdr xx))))
            (setq x1 (trans (car bx) 0 1)
                  y1 (trans (cadr bx) 0 1)
            )
            (command "c" "non" x1 "non" y1)
          )
          (command "")
          (command "move" "p" "" (list 0 0) (list 0 0))
          (setq ss1 (ssget "p"))
          (command "select" ss1 "r" ss sn "")
          (setq sd (ssget "p"))
          (if (/= (sslength ss1) (sslength sd))
            (command ".STRETCH" ss1 "r" sd stc "" pause pause)
            (command ".STRETCH" ss1 "r" stc "" pause pause)
          )
          (if sn (command "erase" sn ""))
        )
      )
    )
  )
  (K:UNDO) ;参数恢复
  (K:DeleteLay BrdLay T) ;清理并删除图层
  (command "._undo" "e")
  ;--------
  (setvar "Cmdecho" Old_CMD) ;恢复回显
  (princ "\n★★★ 拉伸完毕！★★★")
  (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=94063][color=Red]法拉利膜材中国代理商 - 膜结构网[/color][/size][/url]

星益达膜材代理商

星益达膜材中的PVDF（聚偏二氟乙烯）污水膜材是一种在污水处理领域具有广泛应用的高性能材料。以下是对该产品的详细介绍：
[b]一、产品概述[/b]
星益达膜材是国内知名的膜材料生产商之一，其PVDF污水膜材采用高质量的聚偏二氟乙烯树脂为主要原料，经过特殊工艺加工而成。该膜材具有优异的耐化学腐蚀性、耐候性、高强度和自洁性能，特别适用于污水处理等恶劣环境。
[b]二、主要特点[/b]
耐化学腐蚀性：PVDF污水膜材能够抵抗多种化学物质的侵蚀，包括酸、碱、盐等，确保在污水处理过程中膜材的稳定性和耐久性。
耐候性：该膜材具有良好的耐候性，能够抵御紫外线、高温、低温、雨雪等自然环境的侵蚀，从而保持长久的色彩鲜艳和材料性能。
高强度：PVDF污水膜材具有较高的机械强度，能够承受较大的拉伸力和撕裂力，确保在污水处理过程中膜材结构的完整性和稳定性。
自洁性能：膜材表面经过特殊处理，具有优异的自洁性能，能够减少污物附着，降低清洗频率和成本。
透光性：在保持高强度和耐候性的同时，PVDF污水膜材还具有一定的透光性，有助于提升污水处理设施的整体美观度。
[b]三、应用领域[/b]
PVDF污水膜材广泛应用于污水处理厂的膜生物反应器（MBR）、超滤系统、反渗透系统等水处理工艺中。它能够有效去除水中的悬浮物、有机物、细菌等污染物，提高出水水质，满足国家及地方的水质排放标准。
[b]四、产品优势[/b]
性能卓越：星益达PVDF污水膜材凭借其优异的耐化学腐蚀性、耐候性和高强度等特点，在污水处理领域具有显著的优势。
使用寿命长：该膜材具有较高的耐用性，能够长期保持稳定的性能，降低更换频率和成本。
维护简便：膜材的自洁性能减少了清洗频率和成本，同时其高强度和稳定性也降低了维护难度。
环保节能：PVDF污水膜材的应用有助于提升污水处理效率和水质标准，促进环保事业的发展。
[b]五、总结[/b]
星益达膜材的PVDF污水膜材是一种在污水处理领域具有广泛应用前景的高性能材料。其优异的性能特点、广泛的应用领域以及显著的产品优势使得该产品在市场上具有较高的竞争力。未来，随着环保事业的不断发展和水处理技术的不断进步，PVDF污水膜材将在更多领域发挥重要作用。