دورات هندسية

 

 

وتعاونوا على البر والتقوى

النتائج 1 إلى 5 من 5
  1. [1]
    الصورة الرمزية المقترب
    المقترب
    المقترب غير متواجد حالياً

    عضو فعال جداً

    تاريخ التسجيل: Jan 2007
    المشاركات: 385
    Thumbs Up
    Received: 74
    Given: 8

    وتعاونوا على البر والتقوى

    السلام عليكم أيها الكرام ورحمة الله
    انا اخوكم الزى تشرف بالانضمام لمنتداكم م/المقترب مهندس مساحه ( العمل مهندس مدنى )
    تشرفت بكم جدا وشعرت بأنه ماذال هناك خير فى المهندسين المسلمين وأنهم لم يتخلفوا بسبب دين الاسلام كمايزعم الزاعمون ووالله انكم ذدتم عن غيركم بكريم أخلاقكم وحبكم فى الله من غير شىء اخر
    أرجو ان تقبلون تحياتى وسلامى وانضمامى لكم
    وأود أن أشارك ببعض الفائده ولكنها غير كامله حيث انه عندى عدد لابأس به من ال lisps ولكنى لا أدرى وظيفتها فأن أردتم سأنزلها لكم ليقوم الاخوان مشكورين ببيان عملها وفائدتها
    مرة اخرى أحييكم جميعا وخصوصا السادة القائمين على هذا العمل الرائع المتقن وأيضا الساده المشرفين عمروعلى وابوبكر
    والسلام منى لكم جميعا ورحمة الله

    المقترب

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


    تاريخ التسجيل: Jan 2007
    المشاركات: 385
    Thumbs Up
    Received: 74
    Given: 8

    Talking مرحبا بى وأهلا وسهلا ونورت الملتقى كله

    يبدو اننى سأحشر نفسى بينكم وهذا من أجل مصلحتكم فقط
    المهم هذا ليسب لحساب طول خطوط البولى لاين فى الرسم

    ; ----------------------------------------------------------------------
    ; (Returns the length of a selected polyline)
    ; Copyright (C) 1998 DotSoft, All Rights Reserved
    ; Website: www.ikhwan.net
    ; ----------------------------------------------------------------------
    ; DISCLAIMER: DotSoft Disclaims any and all liability for any damages
    ; arising out of the use or operation, or inability to use the software.
    ; FURTHERMORE, User agrees to hold DotSoft harmless from such claims.
    ; DotSoft makes no warranty, either expressed or implied, as to the
    ; fitness of this product for a particular purpose. All materials are
    ; to be considered ‘as-is’, and use of this software should be
    ; considered as AT YOUR OWN RISK.
    ; ----------------------------------------------------------------------
    (defun c:polydis ()
    (setq cmdecho (getvar "CMDECHO"))
    (setvar "CMDECHO" 0)
    (setq tmp (entsel "\nSelect Polyline: "))
    (if (/= tmp nil)
    (progn
    (setq hnd (car tmp))
    (command "_.AREA" "_E" hnd)
    (princ "\nPolyline Length: ")
    (princ (getvar "PERIMETER"))
    )
    )
    (setvar "CMDECHO" cmdecho)
    (princ)
    )






    طبعا لا شكر على واجب ولاداعى للاطراء أكثر من ذلك

    0 Not allowed!



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


    تاريخ التسجيل: Jan 2007
    المشاركات: 385
    Thumbs Up
    Received: 74
    Given: 8
    مشكووووووووووووووووووووووووووور يا المقترب ودائما توافينا من ليسباتك
    وطبعا المنتدى لايستغنى عنك أبدا بتاتا جدا استحاله لايمكن.............الخ
    ممكن تعمل لنا ليسب للتهانى والمناسبات يوفر المجهود عليك

    0 Not allowed!



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


    تاريخ التسجيل: Jan 2007
    المشاركات: 385
    Thumbs Up
    Received: 74
    Given: 8

    Thumbs down كالأسد فى العرين لايساكنه أحد..........المقترب!!!!!!!!

    السلام على ورحمة الله
    وعلى السلام ورحمة الله

    أقدم لنفسى هذا الليسب الممتاذ بخصوص العمل على ال layer
    وأى غزاله أو أرنب هو مسؤل عن نفسه فى هذه الصفحه

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


    ; ----------------------------------------------------------------------
    ; (Copy selected object to a layer)
    ; Copyright (C) 1998 DotSoft, All Rights Reserved
    ; Website: www.qoqaz.com
    ; ----------------------------------------------------------------------
    ; DISCLAIMER: DotSoft Disclaims any and all liability for any damages
    ; arising out of the use or operation, or inability to use the software.
    ; FURTHERMORE, User agrees to hold DotSoft harmless from such claims.
    ; DotSoft makes no warranty, either expressed or implied, as to the
    ; fitness of this product for a particular purpose. All materials are
    ; to be considered ‘as-is’, and use of this software should be
    ; considered as AT YOUR OWN RISK.
    ; ----------------------------------------------------------------------
    (defun c:cpy2layr ()
    (setq sset (ssget))
    (if sset
    (progn
    (setvar "CMDECHO" 0)
    (setq pt (list 0.0 0.0))
    (setq nl (getstring "\nTarget Layer: "))
    (if (/= nl "")
    (progn
    (command "_.UNDO" "_G")
    (command "_.LAYER" "_N" nl "")
    (command "_.COPY" "_P" "" pt pt)
    (command "_.CHPROP" "_P" "" "_LA" nl "")
    (command "_.UNDO" "_E")
    )
    )
    (setvar "CMDECHO" 1)
    )
    )
    (setq sset nil)
    (princ)
    )





    هاهاهاهاهاهاهاهاهاهاه هل احد تجرأ واقترب
    وبعدين فى الحكايه دى
    الناس ماتت ولا ايه
    شو بيعملوا الزملا
    بيكون فرح وما أدرى!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!

    0 Not allowed!



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


    تاريخ التسجيل: Jan 2007
    المشاركات: 385
    Thumbs Up
    Received: 74
    Given: 8
    اذا انا المبتعد

    احسن برضه


    0 Not allowed!



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

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

RSS RSS 2.0 XML MAP HTML