PDA

View Full Version : اتوکد



شفیعی
دوشنبه 01 اردیبهشت 1382, 05:22 صبح
چگونه می توان توسط ویژوال بیسیک با اتوکد 14 ارتباط برقرار نمود از دوستان خواهشمندم اگر دراین زمینه نمونه برنامه دارند برایم به ادرس زیر ارسال نمایند
naser_shafiei@yahoo.com

Vahid_Nasiri
دوشنبه 01 اردیبهشت 1382, 13:22 عصر
اوتوکد 14 را نمی دانم ولی 2000 به بالای آن امکان استفاده از VBA مانند برنامه های آفیس در آن وجود دارد. خیلی هم جالب است.
برای دیدن فایلهای اوتوکد اگر منظور شما است بهتر است در گوگل یک سرچی در این زمینه بکنید. حتما جواب خواهید گرفت ( در مورد کامپوننت های حاضر و آماده )

Erfanian
دوشنبه 01 اردیبهشت 1382, 15:01 عصر
با سلام
برای استفاده کدهای زیر را استفاده کنید:
Global acadApp As AcadApplication
Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")
If Err Then
MsgBox Err.Description + Chr(13) + _
"Viewing In AutoCAD Disabled.", vbCritical + vbOKOnly, "Error!"
AcadView = False
Exit Function
End If
End If
If AcadView Then
acadApp.Visible = True 'Make AutoCAD visible
End If


پس از این کار می‌توانید از Object‌های کد -که در Help اتوکد توضیح داده شده- استفاده کنید نظیر مثال زیر:
Dim acadDoc As AcadDocument
Dim returnObj As AcadEntity
Dim basePnt As Variant

Set acadDoc = acadApp.ActiveDocument

acadDoc.Utility.GetEntity returnObj, basePnt, "Select Harmonic Line: "
If returnObj.ObjectName <> "AcDbPolyline" Then
MsgBox "You Must Select At Last One PolyLine!", vbCritical + vbOKOnly, "Warning"
End If

شفیعی
پنج شنبه 04 اردیبهشت 1382, 23:12 عصر
دوستان سلام
از همه عزیز تشکر می کنم که به سوالات بنده جواب می دهند وبنده را شرم می کنند
با جوابهایم مشکل تا حدودی حل شده است فقط یک سوال داشتم وآن این است که پس از اینک در اتوکد نقطه را ترسیم می کنم می توانم صفحه کد را از برنامه زوم نماییم در زیر کمکی اتوکد را نوشتم در برنامه از آن استفاده می کنم ولی برنامه متغر را نمی شناسد لطفا بنده را راهنماپی نمایید
ZoomExtents Example

Dim pViewport as Object 'Initialize this variable to either modelspace
'viewport or paper space viewport object. Note that
'these viewports needs to be active (current) in
'order to zoom
pViewport.ZoomExtents
با تشکر مجدد از آقای عرفانیان
فکر می کنم بیش از حد مزاحم ایشان شده ام

Erfanian
شنبه 06 اردیبهشت 1382, 08:12 صبح
با سلام خدمت آقا ناصر
اینجا محلی است برای رسیدن به پاسخها.....!
و همه باید بهمدیگر کمک کنیم. بهرحال ما در خدمتیم :lol:
مشکل شما اینست که متغیر جائی مقدار دهی نشده و برای رفع آن و همچنین جاهای دیگر
می‌توانید چنین بنویسید:
' ZoomExtents
MsgBox "Perform a ZoomExtents", , "ZoomExtents"
ThisDrawing.Application.ZoomExtents
مسعود

شفیعی
پنج شنبه 11 اردیبهشت 1382, 23:55 عصر
دوستان عزیز سلام
اگر در مورد مطالب بالا نمونه برنامه وبا سایتی را میشناسید که بتوان از اطلاعات بدست آورد لطفا بنده را درجریان قرار دهید
NASER_SHAFIEI@YAHOO.COM

شفیعی
پنج شنبه 11 اردیبهشت 1382, 23:59 عصر
دوستان عزیز سلام
اگر در مورد مطالب بالا نمونه برنامه وبا سایتی را میشناسید که بتوان از اطلاعات بدست آورد لطفا بنده را درجریان قرار دهید
NASER_SHAFIEI@YAHOO.COM

kia1349
چهارشنبه 17 اردیبهشت 1382, 08:31 صبح
www.infograph.com/support/DWGFreeViewerFAQ.htm
www.cad2cad.com/english/tv-ocx.htm
www.drdwg.com/products/Components/sampleViewer_ocx.html
www.contractcaddgroup.com/download

شفیعی
سه شنبه 23 اردیبهشت 1382, 22:09 عصر
دوست عزیز سلام
آدرسهای را که دادی مطالعه کردم فقط یک سوال داشت بعضی از برنامه ها را که باز می کردی فایلهای با پسوند DVB داشت می خواستم بدانم این فایلها چه نوع هستند وچگونه از آنها می توان استفاده نمود

شفیعی
پنج شنبه 15 خرداد 1382, 20:27 عصر
سلام
لطفا بنده را راهنمائی نماید در این برنامه گیر افتاده ام نه را پس دارم ونه راه پیش . :twisted:

Erfanian
شنبه 17 خرداد 1382, 13:18 عصر
با سلام
فایلهای با پسوند DVB‌ عبارتنداز AutoCAD VBA Source Code که از انها می‌توانید به‌این صورت
در محیط اتوکداستفاده کنید:
Tools > Macro > Load Project
مسعود :lol:

شفیعی
شنبه 17 خرداد 1382, 19:19 عصر
دوست عزیز سلام
در اتوکد منوی ماکرو را پیدا نکردم :twisted:

Erfanian
یک شنبه 18 خرداد 1382, 06:44 صبح
با سلام
منظور من در اتوکد 2000 به بعد است
C:\Documents and Settings\Administrator\My Documents\acad.jpg
:lol:

شفیعی
دوشنبه 06 مرداد 1382, 23:12 عصر
سلام
اقای عرفانیان در اتوکد دستوری هست که بتوان یک محدود باز را خطاگیری نماید

Erfanian
سه شنبه 07 مرداد 1382, 07:13 صبح
با سلام
منظور از محدوده باز و خطا گیری چیست؟
شاید جواب ، توضیح زیر باشد:
اتوکد دستوری بنام LIMITS دارد که درآن یک پنجره محدوده تعریف می‌شود(با دادن مختصات قطر پنجره) و بعد اگر LIMITS را ON کنید فقط باید داخل محدوده کار کنید و خارج از آن اجازه نمی‌دهد.
عرفانیان :lol: