arman23

arman23

عضو جدید
عضویت
آخرین بازدید
ارسال ها
426
پسندها
232
امتیاز
0

ارسال های پروفایل آخرین فعالیت ارسال ها درباره

  • mostafanokhodian
    سلام آرمان جان
    عیدت مبارک
    من تازه همین دیروز پریزوز ازاد شدم:دی
    ما مخلصیم، واقعا شرمنده عذر تقصیر
    babi charlton
    به به به سلام آقا آرمان :)
    ممنون
    شما خوبی؟از این ورا؟
    آقا عید شما مبارک
    arosak
    سلام...مرسی...
    شما خوبی؟
    ولی من شمارو یادم نیست....:D
    ITDeveloper
    سلام بفرمایید شما هم معرفی کنید

    معرفی ایران با شخصیت هاش
    azadehkind
    راستی تو ارتشتون مارو هم استخدام نمیکنین؟
    شاید بدردتون بخورما؟
    azadehkind
    بهتون تبریک و خسته نباشید میگم!
    تو جنگ نرم انشاالله پیروز بشیم!
    خیلی جالب بود
    mostafanokhodian
    محمد علی ابطحی پس از مصرف قرص های روانگردان حکومتی، وبلاگش را به روز کرد!
    Fathy
    سلام
    خوبین شما؟

    برنامه رو با ویژوال بیسیک فور اپلیکیشن ( VBA ) نوشتمش.
    (مطلب یه نرم افزار واسه انجام محاسبات ریاضی به صورت عددی و سمبولیک هستش مخصوصا واسه کار با ماتریس ها.)
    Fathy
    مثلا برای انتخاب نقاط محل ستونهای یه ساختمون با اسم نقاط C1, C2, C3, ... با اسم فایل col در درایو D تنظیمات برنامه اینجوریه:

    Const IDXFile = "D:\col.idx"
    Const PointHeader = "C"
    Const CounterStart = 1
    Const CounterInc = 1
    Const PointNoStart = 50001300

    اون خط آخر هم آی دی نقاط تو دوربین هستش که برای هر نقطه تو دوربین باید منحصر به فرد باشه، بعد هر بار اجرا کردن برنامه و انتخاب مثلا کمتر از 100 نقطه خودت دستی به رقم صدگانش یکی اضافه کن. (راستش واسه این قسمت هم یه کدی نوشتم که همیشه آی دی آخرین عدد رو تو یه فایل ذخیره می کنه و احتیاجی به این کار نیستش ولی به خاطر طولانی نشدن کدها اونو نفرستادم)

    موفق باشی
    Fathy
    نحوه استفاده از برنامه:

    1- اجرای برنامه
    دکمه Alt+F11 رو تو اتوکد (لند) بزن تا VBA Editor باز شه. حالا برنامه رو اونجا کپی پیست کن. با زدن دکمه F5 برنامه اجرا شده و تو محیط اتوکد توخط فرمان اعلان Enter a point: ظاهر می شه که با کلیک کردن رو هر نقطه ، اسم اون نقطه (با درج یه Single text ) در همون نقطه ظاهر می شه (که همزمان این نقطه در فایل خروجی هم ذخیره می شه).

    2- تنظیمات برنامه:
    چهار خط اول برنامه مربوط به تنظیمات برنامه هستش (4خط زیر):
    Const IDXFile = "C:\L.idx"
    Const PointHeader = "L"
    Const CounterStart = 3420
    Const CounterInc = 20
    Const PointNoStart = 50001300

    خط اول: اسم و مسیر فایل خروجی
    خط دوم: مربوط به پیشوند اسم نقاط هم تو فایل خروجی و هم تو اتو کد هستش. (نقاط دارای یه پیشوند + یه پسوند عددی هستن مثل M1)
    خط سوم: پسوند عددی اولین نقطه که انتخاب می کنین
    خط چهارم: مقدار افزایش دهنده عدد معرفی شده در خط سوم، برای نقاط بعدی انتخاب شده.
    Fathy
    سلام

    من برنامه رو کامل واستون فرستادم.
    آره مال من هم ویرایشگر مختصات داره، ولی با این برنامه خودم خیلی راحتم، در عرض یکی دو دقیقه فایل ورودی رو درست می کنه. تو همه جا هم می شه ازش استفاده کرد، از برداشت نقاط سرترانشه و پا ترانشه یه راه تا محل ستونهای ساختمون. چون با کلیک کردن رو هر نقطه این برنامه اسم نقطه رو هم تو نقشه کد درج می کنه، معمولا امکان بوجود اومدن اشتباه صفر می شه (با چاپ نقشه که نقاط نامگذاری شده توشه).
    ITDeveloper
    سلام
    کلا حال می کنم با ادبیاتت و خودت
    راستی مراقب باش به کسی توهین نکنی دوست عزیز
    ولی متلک های سنگینی می فرستی
    Fathy
    اینم بقیه اش
    (تعداد کاراکترهاش زیاد بود نمی شد یه بارکی بفرستم)

    Do
    p = ThisDrawing.Utility.GetPoint(, "Enter a point: ")
    PointName = PointHeader + Format(CC, "")
    Open IDXFile For Append As #1
    Print #1, cTab; cTab; PointNo; ","; cTab; cQut; PointName; cQut; ","; cTab; Format(p(0), "0.000"); ","; cTab; Format(p(1), "0.000"); ","; cTab; Format(p(2), "0.000") + "," + cTab + cQut + cQut + "," + cTab + cTab + "," + cTab + "FIX;"
    Close #1
    TS1 = PointName
    p(0) = p(0)
    Set objT1 = ThisDrawing.ModelSpace.AddText(TS1, p, TextHeight)
    PointNo = PointNo + 1
    CC = CC + CounterInc
    Loop
    End Sub
    Fathy
    این نصف اول برنامه

    Const IDXFile = "C:\L.idx"
    Const PointHeader = "L"
    Const CounterStart = 3420
    Const CounterInc = 20
    Const PointNoStart = 50001300
    Const TextHeight = 0.1
    Const TextGap = 0.04
    Sub point_out()
    Dim CC As Integer
    Dim cTab As String
    Dim cQut As String
    cTab = Chr(9)
    cQut = Chr(34)
    Dim PointName As String
    Dim PointNo
    Dim p As Variant
    Dim objT1 As AcadText
    Dim TS1 As String
    If Dir(IDXFile) = "" Then
    Open IDXFile For Output As #1
    Close #1
    Else
    If MsgBox("The file " + IDXFile + " Exist. Do you want to overwrite?" + Chr(13) + "Yes: Delete this file and create New file" + Chr(13) + "No: Exit", vbYesNo + vbQuestion, "Overwrite") = vbYes Then
    Open IDXFile For Append As #1
    Close #1
    Else
    End
    End If
    End If
    CC = CounterStart
    PointNo = PointNoStart
    Fathy
    سلام
    خوبین؟

    واقعیتش منم راه استانداردش رو نمی دونم، منم خیلی دنبال یه راه سریع واسه وارد کردن نقاط گشتم ولی پیدا نکردم. آخر سر هم خودم یه کد VBA تو کد (لند) نوشتم که بعد اجرا تو اتوکد رو هر نقطه ای که کلیک می کنی مختصات اون نقطه رو با فرمت فایل IDX خروجی می ده. خیلی ساده سریع. مثلا همین فایل قبلی که نقاط M12 تا M15 توش هستش، خروجی همین برنامه است که با چند کلیک درست شده.

    الان کد این برنامه رو واست می فرستمش.
    Fathy
    HEADER
    VERSION 1.20
    SYSTEM "TS06ultra-5\""
    UNITS
    ANGULAR DMS
    LINEAR METRE
    TEMP CELSIUS
    PRESS HPA
    TIME DMY
    END UNITS
    PROJECT
    NAME "MP"
    OPERATOR ""
    CREATION_DATE 28-08-2009/09:39:22.0
    END PROJECT
    END HEADER
    DATABASE
    POINTS (PointNo, PointID, East, North, Elevation, Code, Date, CLASS)
    60006502 , "M12", 242812.168, 3740888.303, 1626.320, "", , FIX;
    60006503 , "M13", 242836.085, 3740808.060, 1626.872, "", , FIX;
    60006504 , "M14", 242789.533, 3740766.715, 1625.948, "", , FIX;
    60006505 , "M15", 242759.092, 3740855.051, 1623.569, "", , FIX;
    END POINTS
    END DATABASE
    THEODOLITE
    INSTRUMENTS (Name, TheoNo, EDMNo, V_TYPE)
    "TS06ultra-5\"", 1300576, 0, ZENITH;
    END INSTRUMENTS
    END THEODOLITE
  • بارگذاری...
  • بارگذاری...
  • بارگذاری...
بالا