النتائج 1 إلى 2 من 2

الموضوع: تقليل حجم الملف

           
   
  1. #1

    تقليل حجم الملف

    السلام عليكم

    في بعض الاحيان و نحن نعمل على ملف اوتوكاد نجد ان حجمه يتزايد باستمرار
    و محاولة منا لحل هذه المشكله لنتبع بعض الاخطوات البرمجيه التي قد تساعد في الحل
    - يوجد Dictionary اسمه DGN و هو يزيد حجم الملف بطريقه رهيبه فلنمسحه من الملف بهذا الكود
    شفرة:
    (if (vl-some (function (lambda (x) (and (eq (car x) 3) (eq (cdr x) "ACAD_DGNLINESTYLECOMP"))))                (entget (namedobjdict))
           )
      ((lambda (dict)
         (if (dictsearch (namedobjdict) dict)
           (progn
         (dictremove (namedobjdict) dict)
         (princ "\nDGN Line Styles Removed")
         )
           (princ "\nDGN Line Styles not found")
           )
         )
        "ACAD_DGNLINESTYLECOMP"
        )            ;Delete DGN
    
    
      )


    * توجد بعض العناصر الزائدة عن حاجة المستخدم موجوده بالملف لنستخدم بعض الاسطر البرمجيه لنتخلص منها

    - عند استقدام ملف من برامج غير الاوتوكاد ياتي معها ملفات تسمى Registered applications
    حسنا لنقم بحذفها
    شفرة:
    (vl-load-com) (vl-cmdf "_.-purge" "R" "*" "n")
    - توجد بعض النصوص الفارغة اي لا تحتوي على حروف
    حسنا لنقم بحذفها
    شفرة:
    (vl-load-com) (vl-cmdf "_.-purge" "E" "*" "n")
    - توجد بعض الخطوط طولها صفر
    حسنا لنقم بحذفها
    شفرة:
    (vl-load-com) (vl-cmdf "_.-purge" "Z" "*" "n")
    - توجد بعض الـ Annotation scale لا حاجة لها
    حسنا لنقم بحذفها
    شفرة:
    (vl-load-com) (vl-cmdf "_.-scalelistedit" "_r" "n" "_d" "*" "e")
    - توجد بعض البلوكات التي لا تحتوي على عناصر و ايضا التي بها اتربيوت و لكن لا يظهر
    لن نقوم بحذفها لكن لنرسم بداخلها مربع
    و بالنسبة للبلوكات التي بها اتربيوت يرسم خط من نقطة ادخال الاتربيوت الى النقطة ( 0.0 0.0 )
    ملحوظه
    -- تم الغاء خاصية رسم خطوط من الاتربيوت الى النقطة ( 0.0 0.0 ) و من يريد هذه الخاصية فليقم بمسح ;;; من الاربع اسطر وسط الليسب .
    -- يجب مراعات عدم وجود XREF في اللوحه لانه سيقوم بنفس المهمة في اللوحات المرجعيه
    شفرة:
    ;;-------------------------------------------;;;;  Author: Lee Mac, - www.lee-mac.com       ;;
    ;;-------------------------------------------;;
    
    
      (vl-load-com)
    
    
        (vlax-for blk (vla-get-blocks (setq doc (vla-get-activedocument (vlax-get-acad-object))))
            (if
                (and
                    (= :vlax-false (vla-get-islayout blk))
                    (= :vlax-false (vla-get-isxref blk))
                    (null (wcmatch (vla-get-name blk) "`**"))
                )
                (progn
                    (setq lst nil)
                    (vlax-for obj blk (setq lst (cons obj lst)))
                    (cond
                        (   (null lst)
                            (vla-put-closed
                                (vlax-invoke blk 'addlightweightpolyline
                                   '(0.0 0.0 1000000.0 0.0 1000000.0 1000000.0 0.0 1000000.0)
                                )
                                :vlax-true
                            )
                        )
    ;;;                    (   (vl-every '(lambda ( x ) (= "AcDbAttributeDefinition" (vla-get-objectname x))) lst)
    ;;;                        (foreach att lst
    ;;;                            (vlax-invoke blk 'addline '(0.0 0.0 0.0) (vlax-get att 'insertionpoint))
    ;;;                        )
    ;;;                    )
                    )
                )
            )
        )
        (vla-regen doc acallviewports)
    (princ)
    - يوجد بعض الت Groups التي لا حاجة لها
    لنقم بحذفها
    شفرة:
    (vlax-for grp (vla-get-groups (vla-get-activedocument (vlax-get-acad-object)))        (if (wcmatch (vla-get-name grp) "`**")
                (vl-catch-all-apply 'vla-delete (list grp))
            )
        )
    أوتوكاد 2014
    فوتوشوب 8

    قال الشافعي رحمه الله
    " آمنت بالله و بما جاء عن الله على مراد الله
    و آمنت برسول الله و بما جاء عن رسول الله على مراد رسول الله "

  2. #2
    ليسب الغاء الـ DGN جاهز للتحميل
    http://bit.ly/HasanCAD-DDGN

    طريقة تحميل الليسب ليعمل مع كل ملف اوتوكاد نفتحه
    الصور المرفقة الصور المرفقة
    • نوع الملف: png dc.png‏ (279.1 كيلوبايت, 7 مشاهدات)
    أوتوكاد 2014
    فوتوشوب 8

    قال الشافعي رحمه الله
    " آمنت بالله و بما جاء عن الله على مراد الله
    و آمنت برسول الله و بما جاء عن رسول الله على مراد رسول الله "

الكلمات الدلالية لهذا الموضوع

مواقع المفضلات الاجتماعية

مواقع المفضلات الاجتماعية

ضوابط المشاركة

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •