AutoDimension polylines

admin1

; AutoDimension polylines
; - draw dimension(s) from vertex to vertex for selected polylines
; - add arc length for arc segments.
; Stefan M. 10.11.2015 - for KimProjects.com

(defun C:AD ( / *error* a acdoc b c d dim e fd ht i o p1 p2 p3 pc pm rad sd space ss u isLine off)
(setq acDoc (vla-get-activedocument (vlax-get-acad-object))
       space (vlax-get acDoc (if (= (getvar 'cvport) 1) 'paperspase 'modelspace))
       dim (getvar 'dimstyle)
       ;ht  (* 1.0 (getvar 'dimtxt) (if (= 0 (getvar 'dimanno)) (getvar 'dimscale) (/ 1.0 (getvar 'cannoscalevalue))))
       )
(vla-startundomark acDoc)

(defun *error* (msg)
   (and
     msg
     (not (wcmatch (strcase msg) "*CANCEL*,*QUIT*,*BREAK*"))
     (princ (strcat "\nADError: " msg))
     )
   (vla-endundomark acdoc)
   (princ)
   )

(setq opt (mapcar
             '(lambda (a b)
                (cond
                  ((getdictvar "AD_otions" a))
                  ((setdictvar "AD_otions" a b))
                  )
                )
             '("Linear" "Arc" "offset")
             '("b0" "c0" "d0")
             )
       )
(setq kopt opt)

(initget "Options")
(if
   (eq (getkword "\nPress enter to continue or [Options]: ") "Options")
   (setq opt (AD_options opt))
   )
(setq a3 (nth 2 opt))
(setq off (* (1+ (read (substr a3 2 3))) 0.25))

(if
   (setq ss (ssget '((0 . "LWPOLYLINE,LINE,ARC"))))
   (repeat (setq i (sslength ss))
     (setq e (ssname ss (setq i (1- i)))
           o (vlax-ename->vla-object e)
           a (vlax-curve-getstartparam e)
           c (vlax-curve-getendparam   e)
           b nil
           isLine (wcmatch (vla-get-Objectname o) "AcDbLine,AcDbArc")
           )
     (while (<= (setq b (if isLine (if b (1+ b) c) (1+ a))) c)
       (setq p1 (vlax-curve-getpointatparam e a)
             p2 (vlax-curve-getpointatparam e b)
             u  (angle p1 p2)
             pm (vlax-curve-getpointatparam e (/ (+ a b) 2.0))
             sd (vlax-curve-getsecondderiv  e (/ (+ a b) 2.0))
             rad (distance '(0 0 0) sd)
             d  (cond (isLine) ((not (minusp (vla-getbulge o a)))))
             pc (mapcar (if d '+ '-) pm sd)
             p3 (if
                  (or (equal rad 0.0 1e- (eq (cadr opt) "c2"))
                  (if
                    (eq (car opt) "b0")
                    (polar pm (+ (atan (/ (sin u) (cos u))) (/ pi 2.0)) off)
                    (polar pm (- (atan (/ (sin u) (cos u))) (/ pi 2.0)) off)
                    )
                  (if
                    (eq (cadr opt) "c0")
                    (polar pm (angle pm pc) (if (<= 1e-4 (angle pc pm) pi) (* 1.75 off) off))
                    (polar pm (angle pc pm) (if (<= 1e-4 (angle pc pm) pi) off (* 1.75 off)))
                  )
                )
              )
       (if
         (equal rad 0.0 1e-
         (progn (vla-adddimaligned space (vlax-3d-point p1) (vlax-3d-point p2) (vlax-3d-point p3)))
         (progn (vla-adddimarc space (vlax-3d-point pc) (vlax-3d-point p1) (vlax-3d-point p2) (vlax-3d-point p3)))
         )
       (setq a (1+ a))
       )
     )
   )
(vla-endundomark acdoc)
(princ)
)

(defun AD_options (old / a1 a2 a3  b1 b2 b3 dcl dcl_id file r)
(setq
   kold old
   a1 (nth 0 old)
   a2 (nth 1 old)
a3 (nth 2 old)
   dcl (open (setq file (vl-filename-mktemp "AD" (getvar 'dwgprefix) ".dcl")) "w")
)
(write-line
   "AD: dialog { label = \"Dimension Polyline Options\" ;
   : boxed_radio_column { label = \"Linear dimension position\" ; key = \"a1\";
   : radio_button { label = \"Above line\" ; key = \"b0\";}
   : radio_button { label = \"Below line\" ; key = \"b1\";}}

   : boxed_radio_column { label = \"Arc dimension position\" ; key = \"a2\";
   : radio_button { label = \"Inside arc\" ; key = \"c0\";}
   : radio_button { label = \"Outside arc\" ; key = \"c1\";}
   : radio_button { label = \"As for lines\" ; key = \"c2\";}}

   : boxed_radio_column { label = \"dimension Offsit (meter)\" ; key = \"a3\";
   : radio_button { label = \"0.25\" ; key = \"d0\";}
   : radio_button { label = \"0.50\" ; key = \"d1\";}
   : radio_button { label = \"0.75\" ; key = \"d2\";}
: radio_button { label = \"1.00\" ; key = \"d3\";}
}

   ok_cancel ;}"
   dcl)
(close dcl)
(if
   (< 0 (setq dcl_id (load_dialog file)))
   (if
     (new_dialog "AD" dcl_id)
     (progn
       (action_tile "a1" "(setq b1 $value)")
       (action_tile "a2" "(setq b2 $value)")
        (action_tile "a3" "(setq b3 $value)")
       
       (set_tile "a1" (setq b1 a1))
       (set_tile "a2" (setq b2 a2))
        (set_tile "a3" (setq b3 a3))
       
       (setq r (start_dialog))
       (unload_dialog dcl_id)
       )
     )
   )
(if (findfile file) (vl-file-delete file))
(if
   (= r 1)
   (mapcar 'setdictvar
     '("AD_otions" "AD_otions" "AD_otions")
     '("Linear" "Arc" "offset")
     (list b1 b2 b3)
   )
   (list a1 a2 a3)
)
)
   
(defun getdictvar (dict var / dict_ename)
(if
   (setq dict_ename (cdr (assoc -1 (dictsearch (namedobjdict) dict))))
   (cdr (assoc 1 (dictsearch dict_ename var)))
)
)

(defun setdictvar (dict var val / dict_name record)
(or
   (setq dict_ename (cdr (assoc -1 (dictsearch (namedobjdict) dict))))
   (setq dict_ename (dictadd (namedobjdict) dict (entmakex '((0 . "DICTIONARY") (100 . "AcDbDictionary")))))
   )
(if
   (setq record (dictsearch dict_ename var))
   (entmod (subst (cons 1 val) (assoc 1 record) record))
   (dictadd
     dict_ename
     var
     (entmakex
       (list
         '(0 . "DICTIONARYVAR")
         '(100 . "DictionaryVariables")
         '(280 . 0)
         (cons 1 val)
       )
     )
   )
)
val
)

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

赛德乐膜代理商

赛德乐膜材作为一种高性能的技术织物产品，在建筑、工业等多个领域有着广泛的应用。以下是对赛德乐膜材的详细分析：
[b]一、公司背景与实力[/b]
公司性质：赛德乐是一个家族性的跨国集团公司，总部位于奥地利，拥有多个生产基地，包括位于奥地利南部城市格拉茨的Thondorf酒店大厦，以及位于奥地利Burgenland（布尔根兰州）省Rudersdorf（鲁德斯多夫）的工厂。此外，其总部还位于德国北莱茵西伐利亚省。
市场地位：作为欧洲技术织物产品的顶级制造商，赛德乐集团已成为全球性的技术织物的主要供应商。每年向全球市场提供超过两千万平方米的织布产品。
[b]二、产品特点[/b]
高性能材料：赛德乐膜材主要采用聚酯纤维等高强度材料制成，具有良好的抗拉强度和撕裂强度。在PVDF涂层上添加了特殊的改性助剂，与PVC层内添加剂协同作用，使PVDF与PVC涂层的结合更加牢固，不易剥离。
耐候性与耐久性：具有优异的耐候性，能够抵抗紫外线、高温、低温等极端天气条件的侵蚀。耐久性能强，使用寿命长，部分产品使用寿命可达10-15年，甚至更长。
自洁性能：独特的双面PVDF涂层设计，不仅提高了膜材的自洁性能，还消除了仅有一面涂层的膜材因底面吸附灰尘而产生的工程隐患。
环保与安全性：赛德乐膜材注重环保性能，部分产品可回收再利用，符合国际环保标准。具有良好的防火性能，部分产品达到B1级防火标准。
多功能性：具有防水、防潮、防污等多种功能，广泛应用于建筑、汽车、包装等多个领域。
[b]三、产品系列与型号[/b]
赛德乐膜材拥有多个系列和型号的产品，以满足不同客户的需求。常用型号包括SD1080(II)、S1200(II)、S1000(II)、S900E、S850等。这些型号在性能上略有差异，但均具备赛德乐膜材的高性能和耐用特点。
[b]四、应用领域[/b]
赛德乐膜材广泛应用于多个领域，包括但不限于：
建筑领域：作为屋顶、墙面、遮阳篷等建筑材料，提升建筑的美观性和实用性。
体育设施：如体育场、体育馆、游泳馆等，为运动员和观众提供舒适的环境。
商业设施：商场、购物中心、酒店、餐厅等商业场所的装饰和遮阳需求。
交通设施：机场、火车站、公交车站等交通枢纽的遮阳和装饰。
[b]五、技术创新与发展[/b]
赛德乐集团一直致力于技术创新和产品研发。通过引进先进的生产设备和技术，不断提升产品的质量和性能。同时，赛德乐还注重与国内外知名科研院校、膜结构公司等进行技术交流和合作，共同推动膜材行业的发展和进步。
[b]六、总结[/b]
赛德乐膜材以其高性能、耐候性、自洁性、环保性和多功能性等特点，在建筑、体育、商业等多个领域展现出广泛的应用前景。随着技术的不断进步和市场的不断发展，赛德乐膜材将继续保持其领先地位，为客户提供更加优质的产品和服务。