对图工具，同一dwg内两张图纸不同之处亮显

admin1

;;; 一个简单的对图工具，同一dwg内两张图纸不同之处亮显（有修改的地方）。仅支持直线/多段线/圆/圆弧/单行文本/标注。

;;;不是太完美，将就着用巴。


(defun c:dt (/ arc1 arc2 ent i j ls1 ls2 lst na name pc pd pt pt1 pt2 s1 s2 ss ss0 ss1 ss2 ssarc1 ssarc2 sscir1 sscir2

               ssdim1 ssdim2 ssline1 ssline2 sslw1 sslw2 sstex1 sstex2 ty x
            )
  (defun draw (ss i / j)               ; 亮显子函数
    (repeat (setq j (sslength ss))
      (redraw (ssname ss (setq j (1- j))) i)
    )
  )
  (defun db (s1 s2 ss / i j ls1 ls2 na pd) ; 对比子函数
    (repeat (setq i (length s1))
      (setq ls1 (nth (setq i (1- i))
                     s1
                )
      )
      (setq pd nil)
      (repeat (setq j (length s2))
        (setq ls2 (nth (setq j (1- j))
                       s2
                  )
        )
        (if (equal (cdr ls1) (cdr ls2) 0.00001)
          (setq pd t
                na ls2
          )
        )
      )
      (if pd
        (setq s2 (vl-remove na s2))
        (setq ss (ssadd (car ls1) ss))
      )
    )
    (repeat (setq j (length s2))
      (setq ss (ssadd (car (nth (setq j (1- j))
                                s2
                           )
                      ) ss
               )
      )
    )
    ss
  )
  (defun ja (pt)                       ; 将点去掉z坐标
    (list (car pt) (cadr pt))
  )
  (defun js (pt pc)                    ; 将点减掉基点差
    (list (- (car pt) (car pc)) (- (cadr pt) (cadr pc)))
  )
  (vl-load-com)
  (setvar "cmdecho" 0)
  (princ "\n选择第一张图：")
  (if (setq ss1 (ssget ":S" '((0 . "LINE,CIRCLE,ARC,TEXT,LWPOLYLINE,DIMENSION"))))
    (progn
      (draw ss1 3)
      (if (setq pt1 (getpoint "\n指定第一张图基点："))
        (progn
          (draw ss1 4)
          (princ "\n选择第二张图：")
          (if (setq ss2 (ssget ":S" '((0 . "LINE,CIRCLE,ARC,TEXT,LWPOLYLINE,DIMENSION"))))
            (progn
              (draw ss2 3)
              (if (setq pt2 (getpoint "\n指定第二张图基点："))
                (progn
                  (setq ss0 (ssadd))
                  (draw ss2 4)
                  (setq pc (list (- (car pt2) (car pt1)) (- (cadr pt2) (cadr pt1))))
                  (repeat (setq i (sslength ss1))
                    (setq ent (entget (setq name (ssname ss1 (setq i (1- i))))))
                    (setq ty (cdr (assoc 0 ent)))
                    (cond
                      ((= ty "LINE")
                        (setq ssline1 (cons (list name (ja (cdr (assoc 10 ent))) (ja (cdr (assoc 11 ent)))) ssline1))
                      )
                      ((= ty "CIRCLE")
                        (setq sscir1 (cons (list name (ja (cdr (assoc 10 ent))) (cdr (assoc 40 ent))) sscir1))
                      )
                      ((= ty "ARC")
                        (setq ssarc1 (cons (list name (ja (cdr (assoc 10 ent))) (cdr (assoc 40 ent)) (cdr (assoc 50 ent))
                                                 (cdr (assoc 51 ent))
                                           ) arc1
                                     )
                        )
                      )
                      ((= ty "TEXT")
                        (setq sstex1 (cons (list name (ja (cdr (assoc 10 ent))) (cdr (assoc 1 ent))) sstex1))
                      )
                      ((= ty "LWPOLYLINE")
                        (setq ls1 (mapcar
                                    'cdr
                                    (vl-remove-if-not '(lambda (x)
                                                         (= (car x) 10)
                                                       ) ent
                                    )
                                  )
                        )
                        (setq ls1 (cons name (cons (cdr (assoc 70 ent)) ls1)))
                        (setq sslw1 (cons ls1 sslw1))
                      )
                      ((= ty "DIMENSION")
                        (if (/= (cdr (assoc 1 ent)) nil)
                          (setq x (cdr (assoc 1 ent)))
                          (setq x (cdr (assoc 42 ent)))
                        )
                        (if (member (cdr (assoc 100 (reverse ent))) '("AcDbDiametricDimension" "AcDbRadialDimensio"))
                          (setq ssdim1 (cons (list name x (ja (cdr (assoc 10 ent))) (ja (cdr (assoc 11 ent)))) ssdim1))
                          (setq ssdim1 (cons (list name x (ja (cdr (assoc 10 ent))) (ja (cdr (assoc 11 ent)))
                                                   (ja (cdr (assoc 13 ent))) (ja (cdr (assoc 14 ent)))
                                             ) ssdim1
                                       )
                          )
                        )
                      )
                    )
                  )
                  (repeat (setq i (sslength ss2))
                    (setq ent (entget (setq name (ssname ss2 (setq i (1- i))))))
                    (setq ty (cdr (assoc 0 ent)))
                    (cond
                      ((= ty "LINE")
                        (setq ssline2 (cons (list name (js (cdr (assoc 10 ent)) pc) (js (cdr (assoc 11 ent)) pc)) ssline2))
                      )
                      ((= ty "CIRCLE")
                        (setq sscir2 (cons (list name (js (cdr (assoc 10 ent)) pc) (cdr (assoc 40 ent))) sscir2))
                      )
                      ((= ty "ARC")
                        (setq ssarc2 (cons (list name (js (cdr (assoc 10 ent)) pc) (cdr (assoc 40 ent)) (cdr
                                                                                                             (assoc 50
                                                                                                                    ent
                                                                                                             )
                                                                                                        ) (cdr
                                                                                                               (assoc 51 ent)
                                                                                                          )
                                           ) arc2
                                     )
                        )
                      )
                      ((= ty "TEXT")
                        (setq sstex2 (cons (list name (js (cdr (assoc 10 ent)) pc) (cdr (assoc 1 ent))) sstex2))
                      )
                      ((= ty "LWPOLYLINE")
                        (setq ls1 (mapcar
                                    'cdr
                                    (vl-remove-if-not '(lambda (x)
                                                         (= (car x) 10)
                                                       ) ent
                                    )
                                  )
                        )
                        (setq ls2 '())
                        (foreach i ls1
                          (setq ls2 (cons (js i pc) ls2))
                        )
                        (setq ls2 (reverse ls2))
                        (setq ls2 (cons name (cons (cdr (assoc 70 ent)) ls2)))
                        (setq sslw2 (cons ls2 sslw2))
                      )
                      ((= ty "DIMENSION")
                        (if (/= (cdr (assoc 1 ent)) nil)
                          (setq x (cdr (assoc 1 ent)))
                          (setq x (cdr (assoc 42 ent)))
                        )
                        (if (member (cdr (assoc 100 (reverse ent))) '("AcDbDiametricDimension" "AcDbRadialDimensio"))
                          (setq ssdim2 (cons (list name x (js (cdr (assoc 10 ent)) pc) (js (cdr (assoc 11 ent)) pc))
                                             ssdim2
                                       )
                          )
                          (setq ssdim2 (cons (list name x (js (cdr (assoc 10 ent)) pc) (js (cdr (assoc 11 ent)) pc)
                                                   (js (cdr (assoc 13 ent)) pc) (js (cdr (assoc 14 ent)) pc)
                                             ) ssdim2
                                       )
                          )
                        )
                      )
                    )
                  )
                  (setq ss0 (db ssline1 ssline2 ss0)) ; 对比直线
                  (setq ss0 (db sscir1 sscir2 ss0)) ; 对比圆
                  (setq ss0 (db ssarc1 ssarc2 ss0)) ; 对比圆弧
                  (setq ss0 (db sstex1 sstex2 ss0)) ; 对比文字
                  (setq ss0 (db sslw1 sslw2 ss0)) ; 对比多段线
                  (setq ss0 (db ssdim1 ssdim2 ss0)) ; 对比标注
                  (if (< (sslength ss0) 100) ; 两图不同之处小于100个夹点亮显，大于则普通亮显
                    (sssetfirst nil ss0)
                    (draw ss0 3)
                  )
                )
              )
            )
          )
        )
      )
    )
  )
  (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=95148][color=Red]法拉利膜材中国代理商 - 膜结构网[/color][/size][/url]

麦柏膜材代理商

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