دورات هندسية

 

 

ليسب مفيد لكتابة الاحداثيات في الاوتو كاد

صفحة 1 من 7 12 3 4 5 ... الأخيرةالأخيرة
النتائج 1 إلى 10 من 69
  1. [1]
    الصورة الرمزية medhat omar
    medhat omar
    medhat omar غير متواجد حالياً

    عضو

    تاريخ التسجيل: Dec 2008
    المشاركات: 13
    Thumbs Up
    Received: 18
    Given: 0

    ليسب مفيد لكتابة الاحداثيات في الاوتو كاد

    اليكم ليسب بسيط لكتابة الاحداثيات مباشرة علي الاوتوكاد الشرقيات والشماليات والمنسوب ايضا
    كل ما عليك هونسخ الليسب الي جهازك ثم تحميل الليسب من داخل الاوتوكاد عن طريق قائمة
    Tools ----> autolisp -------> load application
    ثم تحمل الليسب وتضغط موافق
    وبعدها تكتب في سطر الاوامر الاتي :-
    wrco
    وتضغط ( enter)

  2. [2]
    medhat omar
    medhat omar غير متواجد حالياً
    عضو
    الصورة الرمزية medhat omar


    تاريخ التسجيل: Dec 2008
    المشاركات: 13
    Thumbs Up
    Received: 18
    Given: 0
    ها هو اللسيب

    ;writing coordinates and description prepared by eng Motee Malazee 1/2003
    ;(syria-lattakia-tel 437033 b.o.box 2886 (e.mail:[email protected])
    ;load program then enter wrco at command line
    (defun c:wrco (/)
    (setq obm (getvar "blipmode"))
    (setq oom (getvar "osmode"))
    (setq andr(getvar"angdir"))
    (setvar "angdir"1)
    (setq andb(getvar"angbase"))
    (setvar "angbase"(/ pi 2))
    (setq aunt(getvar"aunits"))
    (setvar "aunits"2)
    (setvar "dimaunit"2)
    (setvar"dimadec"4)

    (while
    (setq osmd (getvar "osmode"))
    (initget 1)
    (setq px (getpoint "\n click the point "))
    (setq osmd (getvar "osmode"))
    (initget 1)
    (setq pt (getpoint px "\n click for place for writing"))
    (setq y (cadr px))
    (setq x (car px))
    (setq z(last px))
    (if(null z)
    (setq z z))
    (setq znew(getreal(strcat"\n enter level or fix reading level<"(rtos z 2 3)">:")))
    (if znew(setq z znew))
    (setvar "osmode"0)
    (setvar"textstyle" "standard")
    (setq dscrp (getstring 1"\n description of the point(press enter for nothing):"))
    (if(null dscrp)(progn
    (command "_qleader" px pt""""(strcat"x="(rtos x 2 3 ))
    (strcat"y="(rtos y 2 3 ))(strcat"z="(rtos z 2 2 )) "" "")));end of if
    (command "_qleader" px pt""""(strcat"x="(rtos x 2 3 ))
    (strcat"y="(rtos y 2 3 ))(strcat"z="(rtos z 2 2 )) dscrp"" "")
    (setq tds(entlast))
    (if (null sca)
    (setq sca 1)
    )
    (initget 6)
    (setq scan (getreal (strcat"\n enter scale factor<"(rtos sca 2 3)">:")))
    (if scan(setq sca scan))
    (command"scale"tds"" pt sca)
    (setvar"angbase"andb)
    (setvar "angdir"andr)
    (setvar"aunits"aunt)
    (setvar"osmode"osmd)

    )
    )

    3 Not allowed!



  3. [3]
    qop100
    qop100 غير متواجد حالياً
    عضو


    تاريخ التسجيل: Jul 2009
    المشاركات: 20
    Thumbs Up
    Received: 0
    Given: 0
    مشكور اخى على العمل النافع واجرك من الله ـــــجزاك الله خيرا.

    0 Not allowed!



  4. [4]
    qop100
    qop100 غير متواجد حالياً
    عضو


    تاريخ التسجيل: Jul 2009
    المشاركات: 20
    Thumbs Up
    Received: 0
    Given: 0
    نطلب المزيد من الاعمال النافعه ............................ م الخطيب

    0 Not allowed!



  5. [5]
    garary
    garary غير متواجد حالياً
    عضو متميز جداً
    الصورة الرمزية garary


    تاريخ التسجيل: Jun 2006
    المشاركات: 1,484
    Thumbs Up
    Received: 20
    Given: 1
    مشكور ....................................

    0 Not allowed!



  6. [6]
    خضر سالم
    خضر سالم غير متواجد حالياً
    انتظار
    الصورة الرمزية خضر سالم


    تاريخ التسجيل: Sep 2007
    المشاركات: 113
    Thumbs Up
    Received: 2
    Given: 0
    اخي الليسب لا ينزل ........................

    0 Not allowed!



  7. [7]
    عبدالعزيزالشرقاوي
    عبدالعزيزالشرقاوي غير متواجد حالياً
    عضو متميز
    الصورة الرمزية عبدالعزيزالشرقاوي


    تاريخ التسجيل: Nov 2009
    المشاركات: 520
    Thumbs Up
    Received: 35
    Given: 4
    اين هذا اللسب

    0 Not allowed!



  8. [8]
    اسماءمحمدعبدالكريم
    اسماءمحمدعبدالكريم غير متواجد حالياً
    عضو


    تاريخ التسجيل: Sep 2009
    المشاركات: 31
    Thumbs Up
    Received: 0
    Given: 0
    شكرا كثيرااااااااااااااااااا ااااااااااااااااا ااااااااااااا

    0 Not allowed!



  9. [9]
    يوسف المرعي
    يوسف المرعي غير متواجد حالياً
    عضو


    تاريخ التسجيل: Feb 2008
    المشاركات: 25
    Thumbs Up
    Received: 0
    Given: 1
    لا يوجد ليسب اصلا برجاء من اداراه المنتدي التاكد من ذلك ورفع هذا الموضوع من علي الموقع ياريت صوتنا يوصل

    0 Not allowed!



  10. [10]
    احمدالهنيدى
    احمدالهنيدى غير متواجد حالياً
    عضو


    تاريخ التسجيل: Sep 2008
    المشاركات: 14
    Thumbs Up
    Received: 0
    Given: 6
    مشكووووووووووووووووور اخى الكريم

    0 Not allowed!



  
صفحة 1 من 7 12 3 4 5 ... الأخيرةالأخيرة
الكلمات الدلالية لهذا الموضوع

عرض سحابة الكلمة الدلالية

RSS RSS 2.0 XML MAP HTML