السلام عليكم ورحمة الله وبرماته

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

الاخت

نفرض أن مسار ملف الاوتوكاد علي الايتم :file_path

اكتبي

declare
v_call PLS_INTEGER;
begin
v_call := DDE.App_Begin('C:\Program Files\autocad\cad.exe.EXE :file_path',DDE.APP_MODE_MAXIMIZED);
end;

حيث أن 'C:\Program Files\autocad\cad.exe.EXE هو المسار الصحيح لملف تشغيل الاوتوكاد وانا اضع بالمثال فقط

الأخ مجيد شكرا لك على ذوقك وردك

انا جربت كودك بس مانفعش معاي
انابقدر اوفتح الأتوكا نفسه بواسطة الحملة التاليه
host('C:\Program Files\AutoCAD 2007\acade.exe
بس انا عاو افتح ملف محدد من الأتوكاد مثلا d:\blocks\sofa.,وكمان الباث ياخذ من خلال حقل على الشاشه أتمنى ان اكون وصلتللك المطلوب وشاكره لكك تعاونك

طيب حضرتك هو ده اللى وضحه الباشمهندس أحمد فى المثال

خلينا نفصل الكود شوية .. بعد إذن أستاذى الباشمهندس أحمد .....

حضرتك مثلا عندك حقل على الشاشة يأخد مسار ملف الاتوكاد مثلا هذا الحقل اسمه text1 على الداتابلوك اللى اسمه مثلا control

ومسار تسطيب برنامج الاتوكاد عند حضرتك على المسار ده مثلا C:\Program Files\AutoCAD 2007\acade.exe

حضرتك تكتبى الكود كالتالى

declare
v_call PLS_INTEGER;
begin
v_call := DDE.App_Begin('C:\Program Files\AutoCAD 2007\acade.exe.EXE  :control.text1',DDE.APP_MODE_MAXIMIZED);
end;

أرجو أن أكون وضحت المطلوب

بالتوفيق ان شاء الله

تم تعديل 1 يونيو 201015 سنة بواسطة ENG_HOSSAM_WALLY

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

الكود declare
v_call PLS_INTEGER;
begin
v_call := DDE.App_Begin('C:\Program Files\AutoCAD 2007\acad.exe :DETMEDLABFUR.BOOK',DDE.APP_MODE_MAXIMIZED);
end;
EXCEPTION
WHEN NO_DATA_FOUND THEN MESSAGE('HHHHHHHHHHHH');MESSAGE(' ');
book اسم الحقل الموجود على الشاشه بجانب كل ركورد وبيكون فيها مسار املف كامل
شكرا واسفه للإزعاج

طيب ان شاء الله أجهز لحضرتك مثال على ذلك

بالتوفيق ان شاء الله

تمام أشكر للمهندس الفاضل حسام عمل نيتك الطيبة لعمل الشاشة لاختنا طالما انها حاولت فهي مثال لمن يجب علينا مساعدته كفاها شرف الحاولة

يمكن عمل جدول اعدادات وليكن engine_setup

ويشمل علي
engine name,engine_path
مثل
autocad
'C:\Program Files\AutoCAD 2007\acade.exe

في حال ارغبة في فتح ملف اوتوكاد

declar
v_engine path varchar2(200);
ev_call PLS_INTEGER;
begin
select engine path  into v_engine path   from   where 
engine name='autocad';

v_call := DDE.App_Begin(v_engine path   :item_contains file path',DDE.APP_MODE_MAXIMIZED);


end;

شاكر لك أخي حسام علي مجهودك وكان الله في عونك ما كنت في عون اخيك

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

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

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

يمكن غلبتكم معي بس عن جد الفكره مهمه لي علشان أطبقها وجزاكم الله خيرا

سوري أخواني الأعزاء

اللام سقطت سهوا


وأعتقد ان لا اقصد هيك شي لاسمح الله واستغفر الله


السلام عليكم ورحمة الله وبركاته


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

عذرا

الادارة : تم التعديل ...جزاك الله خيرا

السلام عليكم ورحمة الله وبركاته

لا عليك الاخت / MAJEDA

ان شاء الله أحاول أن أجد وقت لانفذ لكى طلبك

ولكن ممكن ترفقى الفورم التى توصلتى اليها ليتم التعديل عليها

موفقه بإذن الله

السلام عليكم ورحمة الله وبركاته

لا عليك الاخت / MAJEDA

ان شاء الله أحاول أن أجد وقت لانفذ لكى طلبك

ولكن ممكن ترفقى الفورم التى توصلتى اليها ليتم التعديل عليها

موفقه بإذن الله

سلام باش مهندس
انا بعثت الفورم على ايميلك لأني معرفش ارفعها على المنتدى ارجو تنظراليها وجزاك الله خيرا

الأخ حسام والأخ مجيد السلام عليكم ورحمة الله وبركاته

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

شكرا لكم كثيرا وجزاكم اله كل خير

مع تحياتي

موفقه والف مبروك

لكن هذا ما قلته لك من أول رد لي

وضع مسار الاوتوكاد مسافة مسار الملف المطلوب مناداته

انظري الكود مره ثانيه

v_call := DDE.App_Begin(v_engine path   :item_contains file path',DDE.APP_MODE_MAXIMIZED);

بالتوفيق وهذا دليل علي اجتهادك

موفقه والف مبروك

لكن هذا ما قلته لك من أول رد لي

وضع مسار الاوتوكاد مسافة مسار الملف المطلوب مناداته

انظري الكود مره ثانيه

v_call := DDE.App_Begin(v_engine path   :item_contains file path',DDE.APP_MODE_MAXIMIZED);

بالتوفيق وهذا دليل علي اجتهادك

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

d:\project\project1\buld1\floor1\rooms\romm1.dwg
\وده علشان لو تركت اليوزر ينشئ الفلودرات لوحده ونسي واحد من الموجود مش حيقدر ينادي ملف اjلأوكاد المطلوب

السلام عليكم
مشكورين على الموضوع المفيد..
وجزاكم الله كل خير..