ليسب لكتابه الاحداثيات علي الاوتوكاد

ahmed_egy_74

عضو جديد
إنضم
15 فبراير 2010
المشاركات
23
مجموع الإعجابات
3
النقاط
0
(defun c:COP (/)
;;;==================================================
(alert "\n شكرا لاستخدام هذا البرنامج \n مكتــب أميال لأعمـــال المـســـاحه \n 01002891368")
(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 X (car px))
(setq Y (cadr px))
(setq z(last px))
(if(null z)
(setq z z))

(setvar "osmode"0)
(setvar"textstyle" "standard")

(command "_qleader" px pt""""(strcat"E="(rtos X 2 3 ))
(strcat"N="(rtos Y 2 3 )) 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)

)
)
(PRINC "**** BY ENG / ALAA MOHAMMED AHMED ZAYED ****")
 

مواضيع مماثلة

motee-z

عضو
إنضم
19 مارس 2009
المشاركات
103
مجموع الإعجابات
19
النقاط
18
من الجميل اذا حصلت على برنامج واستفدت منه ان تفيد الاخرين فيه ولكن ان تقوم بسرقته ونسبه اليك فهذا عمل غير اخلاقي
اطلب من السيد علاء محمود واحمد زياد ازالة هذا اللسيب او نسبه الى كاتبه الصحيح كما في المصدر الاساسي
وشكرا
 
أعلى