Follow us on Facebook Follow us on Twitter Linked In Flickr Watch us on YouTube My Space Blogger
التسجيل

مشاهدة نتائج الإستطلاع: ايه رايك فى الليسب ده

المصوتون
1. أنت لم تصوت في هذا الإستطلاع
  • جامد

    0 0%
  • جامد جدا

    0 0%
  • جامد طحن

    1 100.00%
إستطلاع متعدد الإختيارات.
النتائج 1 إلى 8 من 8

أفضل ليسب لعمل ال FILIXPLE

هذا الموضوع : أفضل ليسب لعمل ال FILIXPLE داخل Autodesk AutoCadالتابع الي قسم البعد الثالث | 3D Programs : الليسب ده جامد جدا لعمل الFLIXPLE كل اللى عليك انك تحمله فى الكاد وبعدين تكتب الإختصار ده FX وتختار الLINE ...

  1. #1
    الصورة الرمزية ayman cad2010
    مصمم مشارك

    الحالة
    غير متصل
    تاريخ التسجيل
    May 2010
    الدولة
    مصر
    المشاركات
    148
    Thanks
    0
    Thanked 1 Time in 1 Post
    معدل تقييم المستوى
    15

    Thumbs up أفضل ليسب لعمل ال FILIXPLE

    الليسب ده جامد جدا لعمل الFLIXPLE كل اللى عليك انك تحمله فى الكاد وبعدين تكتب الإختصار ده FX وتختار الLINE اللى عايز تعمل عليه ال الFLIXPLE هاتلاقى ال الFLIXPLE اتعمل ولاسحر ولا شعوزة
    الليسب موجود فى الرابط ده

    4shared.com - free file sharing and storage

    AYMAN_CAD2010@YAHOO.COM


  2. #2

    احباب طريق الجرافيك

    الحالة
    غير متصل
    تاريخ التسجيل
    Jun 2007
    الدولة
    alexandria
    المشاركات
    1,610
    Thanks
    0
    Thanked 0 Times in 0 Posts
    معدل تقييم المستوى
    47

    رد: أفضل ليسب لعمل ال FILIXPLE

    شكرا جزيلا على الليسب
    بس الرابط منتهى الصلاحيه
    ارجو وضع رابط جديد

  3. #3
    الصورة الرمزية mhm_mhm
    مصمم مشارك

    الحالة
    غير متصل
    تاريخ التسجيل
    Jan 2010
    الدولة
    المدينة المنورة
    المشاركات
    78
    Thanks
    0
    Thanked 0 Times in 0 Posts
    معدل تقييم المستوى
    11

    رد: أفضل ليسب لعمل ال FILIXPLE

    جزاك الله خيرا ماشاء الله موضوع رائع ولكن الرابض مفقود أو منتهي كما قال صديقنا فأرجو رتجديد الرابط

  4. #4
    الصورة الرمزية ayman cad2010
    مصمم مشارك

    الحالة
    غير متصل
    تاريخ التسجيل
    May 2010
    الدولة
    مصر
    المشاركات
    148
    Thanks
    0
    Thanked 1 Time in 1 Post
    معدل تقييم المستوى
    15

    Thumbs up رد: أفضل ليسب لعمل ال FILIXPLE

    السلام عليكم
    أعتذر لإخوانى على تأخر الرد بسبب أعطال فى النت عندى
    المهم السطور القادمة سأضع بها الليسب حتى لا نتعرض لموضوع صلاحية الرابط
    كل ماعليك تعمل copy للكلمات الموجودة باللون الأخضر وتنزلها فى file notepad وتغير امتداده منtxt إلىlsp

    --------------------------------------------------------------------------------------------------------------

    (defun dtr(d)
    (/ (* d pi) 180)
    )

    (defun rtd(r)
    (/ (* r 180) pi)
    )

    (defun C:FX ()
    (setvar "osmode" 0)
    (command "ucs" "w")
    (setq ar_ents (ssget))
    (setq d_sz (getreal "\nDuct size : "))
    (setq flex_ctr 0 flex_len (sslength ar_ents))
    (repeat flex_len
    (setq ar_ent (ssname ar_ents flex_ctr))
    (setq ar_data (entget ar_ent)
    e_typ (cdr (assoc 0 ar_data)) j_d 50 pt1_lst '() pt2_lst '())
    (if (= e_typ "ARC") (progn
    (setq ar_rad (cdr (assoc 40 ar_data))
    ar_cpt (cdr (assoc 10 ar_data))
    s_ang (rtd (cdr (assoc 50 ar_data)))
    e_ang (rtd (cdr (assoc 51 ar_data)))
    ar_ang (+ (- e_ang s_ang) 360))
    (if (>= ar_ang 360) (setq ar_ang (- ar_ang 360)))
    (setq a_len (/ (* 2 pi ar_rad ar_ang) 360.0))
    (setq n_jo (atoi (rtos (/ a_len j_d) 2 0)))
    (setq di_ang (/ ar_ang n_jo 2.0) st_ang s_ang)
    (repeat n_jo
    (setq pt_1 (polar ar_cpt (dtr st_ang) (- ar_rad (/ d_sz 2.0))))
    (setq pt1_lst (append pt1_lst (list pt_1)))
    (setq pt_2 (polar ar_cpt (dtr st_ang) (+ ar_rad (/ d_sz 2.0))))
    (setq pt2_lst (append pt2_lst (list pt_2)))
    (setq st_ang (+ st_ang di_ang))
    (setq pt_3 (polar ar_cpt (dtr st_ang) (+ (- ar_rad (/ d_sz 2.0)) (/ j_d 2.0) )))
    (setq pt1_lst (append pt1_lst (list pt_3)))
    (setq pt_4 (polar ar_cpt (dtr st_ang) (- (+ ar_rad (/ d_sz 2.0)) (/ j_d 2.0) )))
    (setq pt2_lst (append pt2_lst (list pt_4)))
    (setq st_ang (+ st_ang di_ang))
    ) (setq pt_1 (polar ar_cpt (dtr st_ang) (- ar_rad (/ d_sz 2.0))))
    (setq pt1_lst (append pt1_lst (list pt_1)))
    (setq pt_2 (polar ar_cpt (dtr st_ang) (+ ar_rad (/ d_sz 2.0))))
    (setq pt2_lst (append pt2_lst (list pt_2)))
    ))
    (if (= e_typ "LINE") (progn
    (setq l_stpt (cdr (assoc 10 ar_data))
    l_enpt (cdr (assoc 11 ar_data))
    l_leng (distance l_stpt l_enpt)
    n_jo (atoi (rtos (/ l_leng j_d) 2 0))
    j_dis (/ l_leng n_jo 2.0)
    f_ang (angle l_stpt l_enpt) lpt_1 l_stpt)
    (repeat n_jo
    (setq jpt_1 (polar lpt_1 (+ (dtr 90) f_ang) (/ d_sz 2.0)))
    (setq pt1_lst (append pt1_lst (list jpt_1)))
    (setq jpt_2 (polar lpt_1 (+ (dtr 270) f_ang) (/ d_sz 2.0)))
    (setq pt2_lst (append pt2_lst (list jpt_2)))
    (setq lpt_1 (polar lpt_1 f_ang j_dis))
    (setq jpt_3 (polar lpt_1 (+ (dtr 90) f_ang) (- (/ d_sz 2.0) (/ j_d 2.0))))
    (setq pt1_lst (append pt1_lst (list jpt_3)))
    (setq jpt_4 (polar lpt_1 (+ (dtr 270) f_ang) (- (/ d_sz 2.0) (/ j_d 2.0))))
    (setq pt2_lst (append pt2_lst (list jpt_4)))
    (setq lpt_1 (polar lpt_1 f_ang j_dis)))
    (setq jpt_1 (polar lpt_1 (+ (dtr 90) f_ang) (/ d_sz 2.0)))
    (setq pt1_lst (append pt1_lst (list jpt_1)))
    (setq jpt_2 (polar lpt_1 (+ (dtr 270) f_ang) (/ d_sz 2.0)))
    (setq pt2_lst (append pt2_lst (list jpt_2)))))
    (command "pline" (foreach n pt1_lst (command n)))
    (command "pline" (foreach n pt2_lst (command n))) (setq l_ctr 0)
    (repeat (+ (* n_jo 2) 1)
    (command "line" (nth l_ctr pt1_lst) (nth l_ctr pt2_lst) "")
    (setq l_ctr (1+ l_ctr)))
    (setq flex_ctr (1+ flex_ctr))
    );repeat
    )

    ------------------------------------------------------------------------------------------------------------------

  5. #5
    مصمم مشارك

    الحالة
    غير متصل
    تاريخ التسجيل
    Aug 2006
    الدولة
    libya
    المشاركات
    69
    Thanks
    0
    Thanked 0 Times in 0 Posts
    معدل تقييم المستوى
    15

    رد: أفضل ليسب لعمل ال FILIXPLE

    SORRY .. BUT WHAT IS IT ???? FILXPLE???? THNX

  6. #6
    الصورة الرمزية صالح رواسي
    احباب طريق الجرافيك

    الحالة
    غير متصل
    تاريخ التسجيل
    Sep 2008
    الدولة
    الأردن
    المشاركات
    2,168
    Thanks
    0
    Thanked 0 Times in 0 Posts
    معدل تقييم المستوى
    74

    رد: أفضل ليسب لعمل ال FILIXPLE

    أخي أيمن واضح أن خبرتك في الأوتوكاد كبيرة وأتمنى من الله أن نستفيد منها ولاكن أنا حاولت أن أعمل كما
    قلت ولاكن لم أنجح ، والصراحة موضوع اللسبات ما عندي فيه خبرة وأتمنا لو تقوم بشرح سريع عنه أذا كان
    عندك وقت كافي لذلك . جزاك الله خير ا.

  7. #7
    الصورة الرمزية ayman cad2010
    مصمم مشارك

    الحالة
    غير متصل
    تاريخ التسجيل
    May 2010
    الدولة
    مصر
    المشاركات
    148
    Thanks
    0
    Thanked 1 Time in 1 Post
    معدل تقييم المستوى
    15

    Thumbs up رد: أفضل ليسب لعمل ال FILIXPLE

    السلام عليكم
    اخوانى الكرام الأمر بسيط ان شاء الله
    1-نعمل
    copy لليسب (الموجود باللون الاخضر فى المشاركة الأصلية)
    2-ثم نفتح فايل
    note pad أوword ونعمل paste ونسيف الملف ده على ال disk top
    3-نغير امداد الملف من txt أو doc إلى lsp
    4-نفتح الcad ثم
    نفتح فائمة tools ثم نختار load application اونكتب فى سطر الأوامر load application
    5-تظهر نافذة
    load application نختار علامة الحقيبة الموجودة فى الاسفل الى اليسار
    6-نختار add ثم نذهب الى الdisk top ثم نختار الملف السابق حفظه ثم close ثم ok
    7- نكتب fxفى سطر الاوامر ثم نختار الobject فيطلب مقاس الدكت duct size نعطى اى قيمة فيتم عمل ال felex


  8. #8
    الصورة الرمزية koky55
    مصمم مشارك

    الحالة
    غير متصل
    تاريخ التسجيل
    Jan 2008
    الدولة
    egypt
    العمر
    35
    المشاركات
    274
    Thanks
    0
    Thanked 3 Times in 2 Posts
    معدل تقييم المستوى
    17

    رد: أفضل ليسب لعمل ال FILIXPLE

    ايه هو الفليكسبل ؟
    و الدكت سايز بناء علي ايه؟

    مش فارقة ويانا..طول محنا عايشينها..نغلبها لو كنا مع بعضنا واقفين

 

 

المواضيع المتشابهه

  1. أفضل الدروس لعمل التأثيرات 3D علي الكلمات ببرنامج الفوتوشوب cs6 رابط مباشر
    بواسطة خيالووو في المنتدى الدورات والدروس التعليمية | Photoshop Tutorials & Tips
    مشاركات: 2
    آخر مشاركة: 17 / 05 / 2013, 50 : 06 PM
  2. ليسب حكاية ادخل وادعيلى
    بواسطة ayman cad2010 في المنتدى Autodesk AutoCad
    مشاركات: 7
    آخر مشاركة: 14 / 06 / 2010, 51 : 11 AM
  3. ليسب قلاووظ لحبايب ميكانيكا
    بواسطة سامح صبرى في المنتدى Autodesk AutoCad
    مشاركات: 3
    آخر مشاركة: 22 / 05 / 2010, 56 : 07 PM
  4. ماهي أفضل مواصفات كمبيوتر لعمل المونتاج والمؤ ثرات
    بواسطة moonface في المنتدى طلبات واستفسارات الأفتر افيكت | Requests and Inquiries
    مشاركات: 4
    آخر مشاركة: 16 / 09 / 2009, 38 : 06 PM

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

المفضلات

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

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •  
الساعة الآن 36 : 12 PM
Powered by vBulletin® Version 4.2.3
Copyright © 2017 vBulletin Solutions, Inc. All rights reserved.
Search Engine Optimization by vBSEO