چگونه می توان توسط ویژوال بیسیک با اتوکد 14 ارتباط برقرار نمود از دوستان خواهشمندم اگر دراین زمینه نمونه برنامه دارند برایم به ادرس زیر ارسال نمایند
naser_shafiei@yahoo.com
چگونه می توان توسط ویژوال بیسیک با اتوکد 14 ارتباط برقرار نمود از دوستان خواهشمندم اگر دراین زمینه نمونه برنامه دارند برایم به ادرس زیر ارسال نمایند
naser_shafiei@yahoo.com
اوتوکد 14 را نمی دانم ولی 2000 به بالای آن امکان استفاده از VBA مانند برنامه های آفیس در آن وجود دارد. خیلی هم جالب است.
برای دیدن فایلهای اوتوکد اگر منظور شما است بهتر است در گوگل یک سرچی در این زمینه بکنید. حتما جواب خواهید گرفت ( در مورد کامپوننت های حاضر و آماده )
با سلام
برای استفاده کدهای زیر را استفاده کنید:
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
با تشکر مجدد از آقای عرفانیان
فکر می کنم بیش از حد مزاحم ایشان شده ام
با سلام خدمت آقا ناصر
اینجا محلی است برای رسیدن به پاسخها.....!
و همه باید بهمدیگر کمک کنیم. بهرحال ما در خدمتیم :lol:
مشکل شما اینست که متغیر جائی مقدار دهی نشده و برای رفع آن و همچنین جاهای دیگر
میتوانید چنین بنویسید:
' ZoomExtents
MsgBox "Perform a ZoomExtents", , "ZoomExtents"
ThisDrawing.Application.ZoomExtents
مسعود
دوستان عزیز سلام
اگر در مورد مطالب بالا نمونه برنامه وبا سایتی را میشناسید که بتوان از اطلاعات بدست آورد لطفا بنده را درجریان قرار دهید
NASER_SHAFIEI@YAHOO.COM
دوستان عزیز سلام
اگر در مورد مطالب بالا نمونه برنامه وبا سایتی را میشناسید که بتوان از اطلاعات بدست آورد لطفا بنده را درجریان قرار دهید
NASER_SHAFIEI@YAHOO.COM
دوست عزیز سلام
آدرسهای را که دادی مطالعه کردم فقط یک سوال داشت بعضی از برنامه ها را که باز می کردی فایلهای با پسوند DVB داشت می خواستم بدانم این فایلها چه نوع هستند وچگونه از آنها می توان استفاده نمود
سلام
لطفا بنده را راهنمائی نماید در این برنامه گیر افتاده ام نه را پس دارم ونه راه پیش . :twisted:
با سلام
فایلهای با پسوند DVB عبارتنداز AutoCAD VBA Source Code که از انها میتوانید بهاین صورت
در محیط اتوکداستفاده کنید:
Tools > Macro > Load Project
مسعود :lol:
دوست عزیز سلام
در اتوکد منوی ماکرو را پیدا نکردم :twisted:
با سلام
منظور من در اتوکد 2000 به بعد است
[img] C:\Documents and Settings\Administrator\My Documents\acad.jpg [/img]
:lol:
سلام
اقای عرفانیان در اتوکد دستوری هست که بتوان یک محدود باز را خطاگیری نماید
با سلام
منظور از محدوده باز و خطا گیری چیست؟
شاید جواب ، توضیح زیر باشد:
اتوکد دستوری بنام LIMITS دارد که درآن یک پنجره محدوده تعریف میشود(با دادن مختصات قطر پنجره) و بعد اگر LIMITS را ON کنید فقط باید داخل محدوده کار کنید و خارج از آن اجازه نمیدهد.
عرفانیان :lol: