اتوکد

[شفیعی]

چگونه می توان توسط ویژوال بیسیک با اتوکد 14 ارتباط برقرار نمود از دوستان خواهشمندم اگر دراین زمینه نمونه برنامه دارند برایم به ادرس زیر ارسال نمایند
naser_shafiei@yahoo.com

[Vahid_Nasiri]

اوتوکد 14 را نمی دانم ولی 2000 به بالای آن امکان استفاده از VBA مانند برنامه های آفیس در آن وجود دارد. خیلی هم جالب است.
برای دیدن فایلهای اوتوکد اگر منظور شما است بهتر است در گوگل یک سرچی در این زمینه بکنید. حتما جواب خواهید گرفت ( در مورد کامپوننت های حاضر و آماده )

[Erfanian]

با سلام
برای استفاده کدهای زیر را استفاده کنید:
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

[شفیعی]

دوستان سلام
از همه عزیز تشکر می کنم که به سوالات بنده جواب می دهند وبنده را شرم می کنند
با جوابهایم مشکل تا حدودی حل شده است فقط یک سوال داشتم وآن این است که پس از اینک در اتوکد نقطه را ترسیم می کنم می توانم صفحه کد را از برنامه زوم نماییم در زیر کمکی اتوکد را نوشتم در برنامه از آن استفاده می کنم ولی برنامه متغر را نمی شناسد لطفا بنده را راهنماپی نمایید
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]

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

[شفیعی]

دوستان عزیز سلام
اگر در مورد مطالب بالا نمونه برنامه وبا سایتی را میشناسید که بتوان از اطلاعات بدست آورد لطفا بنده را درجریان قرار دهید
NASER_SHAFIEI@YAHOO.COM

[شفیعی]

دوستان عزیز سلام
اگر در مورد مطالب بالا نمونه برنامه وبا سایتی را میشناسید که بتوان از اطلاعات بدست آورد لطفا بنده را درجریان قرار دهید
NASER_SHAFIEI@YAHOO.COM

[kia1349]

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

[شفیعی]

دوست عزیز سلام
آدرسهای را که دادی مطالعه کردم فقط یک سوال داشت بعضی از برنامه ها را که باز می کردی فایلهای با پسوند DVB داشت می خواستم بدانم این فایلها چه نوع هستند وچگونه از آنها می توان استفاده نمود

[شفیعی]

سلام
لطفا بنده را راهنمائی نماید در این برنامه گیر افتاده ام نه را پس دارم ونه راه پیش . :twisted:

[Erfanian]

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

[شفیعی]

دوست عزیز سلام
در اتوکد منوی ماکرو را پیدا نکردم :twisted:

[Erfanian]

با سلام
منظور من در اتوکد 2000 به بعد است
C:\Documents and Settings\Administrator\My Documents\acad.jpg
:lol:

[شفیعی]

سلام
اقای عرفانیان در اتوکد دستوری هست که بتوان یک محدود باز را خطاگیری نماید

[Erfanian]

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