برش تصویر با هر موضوع بسته در اتوکد

فکر نمیکنم توضیح زیادی لازم باشد. پس از appload کردن برنامه و اجرای دستور Ipc در خط فرمان، ابتدا تصویر

وسپس پلی لاین موردنظررا انتخاب کنید . قسمت express اتوکد باید نصب شده باشد. فعلاً مجبورم این برنامه

رابه صورت vlx تقدیم دوستان نمایم. کد مربوطه در زمان مقتضی تقدیم خواهد گردید.

Image-Polyline-Clip.vlx

----> ابزار کمکی Id-From-Polyline

-----> برنامه اتولیسپ - افزودن یک عدد ثابت به textهای انتخابی در نقشه

نظر سنجی

با توجه به رویکرد جدید وبلاگ اتولیسپ دوستان و همکاران عزیز با نظرات و انتقاد های خود میتوانند بنده را در این زمینه یاری رسانند.

در حال حاضر جهت راحتی کاربران عزیزبه دنبال طراحی یک سایت استاندارد جهت خریدآنلاین وساده نرم افزارهای

کاربردی مورد نیازدوستان میباشم. که با توجه به طراحی قفل مناسب (البته با خضوع کامل در برابر هکران عزیز)این

پروسه مراحل نهائی خود را طی میکند.

بدیهی است یاری دوستان و خرید نرم افزارهای مورد نیاز ضمن اتوماسیون بهتر موارد تکراری در نقشه ها بنده را

نیز تشویق به ارائه نرم افزارهای کاربردی تر با قیمتهای مناسب خواهد نمود.

یک برنامه کوچک ولی کاربردی

ممکن است بارها با این مسئله روبرو شده باشید که شاخه مربوط به نقشه جاری اتوکد را لازم داشته

باشید.چاره چیست؟ رفتن به Mycomputer  وطی کردن یک فرآیند تکراری گاهاْ عذاب آور یا برنامه ای که

شما را براحتی به شاخه جاری رهنمون سازد؟

دقت در برنامه زیر و نحوه استفاده از Startapp و Dwgprefix میتواند نکات آموزشی خوبی برای کاربران

دقیق داشته باشد.

 

;;!****************************************
;; ! Current-Directory.lsp
;; ! ***************************************
;; ! BY     : ALireza Edalatipour From Iran-Mashad
;; ! e-mail : [e-mail]
;; ! Weblog : www.Autolisp.blogfa.com
;; ! ***************************************
(DEFUN C:cD (/)
  (STARTAPP "EXPLORER" (GETVAR "DWGPREFIX"))
  (PRINC)
)
(princ "By:edalatipour ...... Type \"CD\" in command line.")

برنامه اتولیسپ - افزودن یک عدد ثابت به textهای انتخابی در نقشه

ممکن است تا کنون به این مسئله برخورد کرده باشید که میخواستید عدد ثابتی را به کلیه عددهای موجود در

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

کیلومتراژ تصحیح گردد.

برنامه زیر به سادگی این امکان را برای کاربر فراهم میکند. البته برای سهولت از تابع acet-ss-to-list (ذخیره یک

مجموعه انتخاب بصورت لیست اشیا)استفاده شده که باید قسمت express اتوکد حتماً نصب شده باشد. البته

در صورتیکه برنامه نتواند عددی را به text اضافه کند رنگ آن text را به رنگ قرمز تبدیل خواهد کرد.

دانلود Add-Number-Text.lsp

ابزار کمکی Id-From-Polyline

برنامه ifp اولین برنامه ازسری برنامه های ابزارهای کمکی اتوکدمیباشد که به آسانی به کاربر

در جهت تشکیل جدول مختصات ودرج دراتوکدوهمچنین تشکیل فایلtext خروجی کمک میکند.

راهنماي استفاده از ابزار كمكي Id-From-Polyline

الف –فایل ifp.zip  را در محل مورد نظر extract نمائيد

ب-  برنامه AcadInst.exe   را اجرا وبه سئوالات پاسخ مثبت بدهيد.

ج- پس از اجراي برنامه Autocad   فرمان IFP   به فرامین اتوكد افزوده خواهد شد.

د-با انتخاب مسير مختصات مورد نظر درج خواهد گردید . مسير حتما بصورت چند خطي

(PolyLine-Lwpolyline ) باشد.

ه- با انتخاب گزینه Create Text file  مختصات در فایل مشخص شده ذخیره میگردد

نحوه رجیستر برنامه در ادامه مطلب .

دانلود

رویکرد جدید (درد دلی با دوستان)

متاسفانه علیرغم اینکه سعی داشتم این وبلاگ یک مرجع علمی برای توسعه علم برنامه نویسی در اتوکد باشد

بر اثر ناملایمتی های دوستان و مشاوران عزیز در مورد مقوله برنامه نویسی تصمیم به فروش و ارائه برنامه های

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

قیمت گذاری مناسب انجام خواهد پذیرفت.

سلامی دوباره

پس از دو سال دوری به خاطر مشغله کاری وفکری بار دیگر تصمیم گرفتم در خدمت دوستان عزیز باشم.

امیدوارم این بار بتوانم این وبلاگ یا در صورت نیاز سایتی دیگر را به پایگاه تبادل نظر و ارائه برنامه های اتولیسپ

 تبدیل نمایم.

حضور دوستان و نظرات آنها مرا در این امر یاری خواهد نمود.

یا حق

علیرضا عدالتی پور

ریز برنامه های چاپ شده در شماره جدید مجله Cadalyst (ژوئن 2007) که برنامه ارسالی توسط اینجانب را نیز درج کرده است جهت دانلود برایتان میگذارم .انشاءا.. بزودی با اتمام به روز رسانی شبکه شرکت مطالب جدیدتری تقدیم خواهم نمود

Slope Annotation Tool by Andrew Siddeley, p.0
Routine calculates the percentage slope from one point to another given the elevation spot data.

DIMASSOC Counter by W. Kirk Crawford, p.0
Routine looks at all the dimension objects in a drawing and counts up how many have the DIMASSOC variable set to 1 or 2.

Dynamic Fillet by Lloyd Beachy, p.0
Routine creates a fillet between two selected lines and/or arcs.

Add Tolerance Factor by S. Ramakrishna, p.0
Routine automatically appends tolerances based on your input to dimension objects you select.

Match Elevations by Pedro Ferreira, p.0
Utility changes/corrects elevation properties in AutoCAD objects that have embedded elevation properties, including hatches, polylines and sections.

Quick Snap Sets by Mitchel E. Thaxter, p.0
A quick and simple set of functions for establishing object snaps.

Curve Details by Alireza Edalatipour, p.0
Utility generates all the details you need to know about an arc in AutoCAD as text.

(دانلود)

مجموعه برنامه اتولیسپ شماره 3

برای شروع سال جدید یک سری برنامه کاربردی و فانتزی تقدیم دوستان میکنم

برنامه ترسیم بارکد                                                         barcode.lsp

ترسیم تقویم ماه جاری میلادی                                           calendar.lsp 

ساختن فایل pat از هاشور درج شده در یک نقشه                   gatpat.lsp 

درج بلوک در فاصله مشخص از مبدا پلی لاین                           put2.lsp

بازی troy  تحت اتوکد                                                       troy.lsp

دو برنامه زیر توسط مهندس استیلا برای این وبلاگ ارسال شده است

تبدیل پلی لاین انتخابی به منحنی مضرص (شبیه به ترسیم با دست)           Freehand.lsp

قفل زاویه ای در جهت خط انتخابی                                                             hvan.lsp

پاسخ به یک سئوال

آيا اين امكان در اتوليسپ وجود دارد كه فايل با مختصات را بخواند و بعد بتواند با استفاده از آن خطوط را رسم كند؟

- مطمئنا" چنین برنامه ای بسیار ساده خواهد بود البته قبل از تدوین برنامه مورد نظر میبایست تعریف اولیه درستی در این مورد داشته باشیم. معمولا" این مسئله در نقشه برداری کاربرد زیادی دارد و آن هم در جائیکه نقاطی که میخواهیم به هم وصل شوند دارای کد مشخص بوده وپشت سر هم قرار داشته باشند.اگر دوستان اجازه بدهند این مباحث در جای خود مطرح وراه حلهای ممکن ارائه خواهد شد.ولی شما میتوانید از تابع 2dpoly یا 3dpoly که قبلا" ارائه داده شده استفاده کنید  (http://www.autolisp.blogfa.com/post-4.aspx) با استفاده از تابع زیر شما میتوانید مختصات ذخیره شده در فایل که در قالب comma delimited یا Space delimited قرار گرفته باشد را در یک لیست ذخیره کنید

; File2list Function
; Save  x,y,z  or x y z format in file to list
; Kavosh Pay Mashad Consulting Engineers Co
; by Alireza Edalatipour
; http://www.autolisp.blogfa.com
;email  [e-mail]
(defun file2list (/ fi f outlist c ilin)
  (SETQ fi (GETFILED "Name of file to create pline" "" "" 16))
  (setq f (open fi "r")  outlist (list) )
  (while (setq ilin (read-line f))
    (setq c   (vl-string-subst " " "," (vl-string-subst " " "," ilin))
   c   (read (strcat "(" c ")"))
   outlist (append (list c) outlist)
    )
  )
  (setq outlist (reverse outlist))
  outlist
)

شما میتوانید باappload کردن این تابع وتابع 2dpoly  ودرج فرمان ((2dpoly (file2list)  در محل commandاتوکد مختصات موجود در فایل را با یک پلی لاین به هم متصل کنید. 

برنامه نویسی به زبان اتولیسپ - قسمت سوم

8- اعداد حقیقی و اعداد صحیح
اعداد حقیقی دارای ممیز  "." بوده در حالیکه اعداد صحیح بدون ممیز درج میگردند.دقت کنید که در هنگام نوشتن دستورات اتولیسپ عدم دقت به این مسئله ممکن است نتایج اشتباهی به بار آورد به مثالهای زیر توجه کنید:

(/  7  2)    =>  3
(/  7  2.0)   => 3.5
(+  1  2  3  4  5  6. ) => 21.0
(+  1  .5)  =>  invalid dotted pair    از نظر اتولیسپ غلط و پیغام مقابل درج میگردد    
(+  1  0.5)   =>  1.5

9- منظور از سمبل چیست؟
منظور همان نام یک متغیر است وبا مقادیری که به آنها نسبت میدهیم محاسبه میشوند به عبارت ساده تر فرمان (setq  co 1) ضمن افزودن  co به سمبلهای تعریف شده آنرا یک عدد صحیح در نظر خواهد گرفت و مقدار 1 را به آن استناد خواهد داد .
اسم سمبلها میتواند شامل همه کاراکترها بجز  ;   "    '    .   )   (  باشد.  این کاراکترها بهمراه space و (EOF)
پایان نام سمبل را رقم میزنند.
اسامی سمبلها (و توابع) را میتوانید از ترکیب کلیه کاراکترها بجز موارد ذکر شده ایجاد کنید ولی مجاز نیستید آنها را با یک عدد شروع کنید. حروف کوچک و بزرگ در نام سمبل از نظر اتولیسپ فرقی ندارد.
10- رشته چیست؟
مجموعهای از کاراکترها که مابین دو علامت نقل قول قرار گیرد   ---->      "abcd"   " alireza"  ""    "  " 
اگر از کاراکترهای ممنوع شده برای نام سمبل در رشته بخواهیم استفاده کنیم علامت \ را قبل از آنها قرار میدهیم علاوه بر این وجود این علامت به همراه چند کاراکتر دیگر کدهای زیر را تشکی میدهند که در برنامه های اتولیسپ کاربردهای زیادی دارند:
n\   به معنی خط جدید میباشد.
e\   به معنی  escape  میباشد.
\\   به معنی  \  میباشد.
r\   به معنی  retern  میباشد.
t\   به معنی tab  میباشد.
11- در برنامه های اتولیسپ بعضی خطوط با ; (سمی کالون) شروع میشوند.چرا؟
کلمه یا جمله ای که با ; شروع شوند عبارتی توضیحی هستندو در اجرای برنامه هیچ نقشی ندارند. از محل درج ; تا انتهای خط جزو برنامه محسوب نمیشود.
برای مثال در برنامه زیر دقت کنید:

; By: Alireza Edalatipour
; [e-mail]

(defun c:bt ()
  (command "break" pause "f" pause "@")
)

دو جمله ابتدای برنامه جزو فرمانهای اتولیسپ محسوب نمی شوند.

12-چرا در ویرایشگر ویژوال لیسپ خطوط به رنگهای مختلف درج میشوند؟
مطمئنا" این کار برای زیبائی نیست.رنگ آمیزی کدها شما را در تشخیص اشتباهات تایپی یاری میکنند بعضی از رنگهای مورد استفاده به شرح زیر میباشند:
رنگ سیاه      ->    متغیرهای ناشناخته
رنگ آبی        ->    توابع درونی اتولیسپ
رنگ بنفش     ->    رشته
رنگ سبز       ->    اعداد
بنابراین اگر بطور مثال در یک رشته علامت نقل قول انتهای رشته را فراموش کنید تا انتها رنگ نوشته ها بنفش خواهند بود که توجه شما را به اشتباه خود جلب مینماید. یا اگر نام یک تابع را اشتباه وارد کنید رنگ آن آبی نمیشود.

برتامه های اتولیسپ فانتزی (هدیه نوروزی)

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

چند برنامه مفید برای دانلود برایتان میگذارم امید که مقبول افتد.

 کلیه برنامه های زیر از سایت http://www.cadalyst.com   برداشته شده وتست گردیده اند.

- برنامه ای برای ایجاد درب بر روی دیوار با دیالوگ و برش دیوار (فایل DCL در مسیر اتوکد قرار گیرد)

DOORS.ZIP

- برنامه ای برای نمایش ساعت بر روی صفحه اتوکد

CLOCK.LSP

- برنامه ای فانتزی برای شکستن یک نوشته در نقطه دلخواه

BREAKTEXT.LSP

-فونتهای mudir.shx و mudirbig.shx (فونت فارسی نقشه های تبدیلی از میکرواستیشن)

Font

برنامه نویسی در اتوکد

فرض کنید بعنوان یک کاربر اتوکد و یا یک مهندس از شما بخواهند که مسئله ساده­ای را حل کنید. آن مسئله این است که می­خواهیم مختصات نقاط مشخصی از نقشه موجود در اتوکد را در نقشه درج نمائیم مطابق با استانداردهای موجود برای چنین مسئله­ای جداولی طراحی شده که در آن نسبت به درج مختصات نقاط مشخص اقدام می­کنید. بنابراین بطور مثال نقاط را بکمک دستور ID از نقشه استخراج نموده و آنها را با دستور Text در جدول درج می­نمایئد. حتی یک خطا که می­تواند از عوامل مختلفی ناشی شود و شاید تا مراحل پایانی کار مشخص نگردد می­تواند گاه همه چیز را بهم بریزد و باعث شود تا کل جدول زیر سئوال برود.

راه حل دیگر این است که برنامه درج مختصات فراخوانی شود برنامه از شما می­خوهد که نقطه را مشخص نمائید و با کلیک کردن ماوس مختصات در جدول مربوطه درج می­گردد و در کمتر از چند دقیقه نقشه و جدول نهائی آماده ارائه به کارفرمای مربوطه است.

اتوکد ابزاری است که گاه از آن فقط به عنوان یک میز رسم تمیز استفاده می­شود ولی بقدری قدرتمند است که می­تواند کل فرآیند طراحی شما را بعهد بگیرد و صحت آنرا کاملاً تضمین کند.

برنامه نویسی در اتوکد هم همان مزیت­هائی را دارد که در محیط­های دیگر برنامه نویسی به آنها دست می­یابیم می­توانید با استفاده از برنامه نویسی خطاهای ناشی از انسان در حل مسئله را حذف و برای حل چندین مسئله مشابه فقط یکبار از وقت و فکر خود استفاده کنید و بعلاوه سرعت انجام کار را به مقدار قابل ملاحظه­ای افزایش دهید. انجام چنین کاری تنها اختصاص به رشته عمران ندارد بلکه تمامی رشته­هائی که بنحوی باید نتیجه کار خود را با نقشه ارائه دهند می­توانند از مزایای آن بهره مند شوند.

قدرت برنامه نویسی در اتوکد به سال 1980 بر می­گردد و از زبانهای موجود از زبان Lisp به دلیل قابلیتهای منحصر بفرد انتخاب و با افزودن دستورات مرتبط با اتوکد و بنام Autolisp برای کار در اتوکد طراحی گردید. اما در اتولیسپ دشواری هائی در نوشتن کد و اشکال زدائی وجود داشت که آنرا کمی از رونق انداخت. وقتی کاربر می­خواست برنامه­ای بنویسد باید بوسیله یک ویرایشکر متن همچون EDIT یا PE2 اقدام به نوشتن کد اولیه می­نمود و در نهایت با برنامه اتوکد آنرا بارگذاری (Load) می­نمود. برای رفع اشکال نیز می­بایستی تغییراتی در برنامه ایجاد می­کرد تا منبع اشکال را پیدا کند و در نهایت با چندین بار سوئیچ بین اتوکد و ویرایشگر برنامه بدون خطا بدست می­آمد.

 

Visual – Lisp

آمدن ویژوال لیسپ­ حالتی شبیه به آمدن ویندوز بعد از Dos را تداعی می­کند و همه امکانات را برای نوشتن و اشکال زدایی یک برنامه Autolisp به عالی ترین وجه تدارک دیده است. ویژوال لیسپ از اتوکد 2000 به بعد در کنار محیط اتوکد قرار گرفت تا همه چیز را برای کاربرانی که به برنامه نویسی در اتوکد نیاز دارند مهیا کند.

یک محیط کامل شامل کامپایلر، اشکال زدا و ابزارهای دیگر که برای بهره گیری کامل شما از اتوکد از طریق برنامه نویسی چیزی کم ندارد.

ویژوال لیسپ محیطی مجزا اما الصاق شده به اتوکد است به این معنی که در پنجره اتوکد اجرا نمی­شود اما در عین حال با آن تعامل دارد اول باید اتوکد را اجرا کرده تا بتوانید ویژوال لیسپ را اجرا کنید و در عین مستقل بودن از اتوکد اگر پنجره اتوکد را ببندید پنجره ویژوال لیسپ هم بسته خواهد شد.

علاوه بر مزایای فوق ویژوال لیسپ با الصاق مکانیزم Activex به زبان اتولیسپ کارایی این زبان را در دستیابی به اجزای مختلف سند ترسیمی اتوکد دو چندان کرده است. Activex تنها به اتولیسپ اختصاص ندارد و چندین برنامه کاربردی (…., Word, Excel) و زبان برنامه نویسی (…., Delphi, VB) نیز از آن پشتیبانی می­کنند همین ویژگی است که امکان برقراری ارتباط برنامه Autolisp شما را با محیطهای کاربردی دیگری نظیر …, Excel, Word فراهم می­آورد.

مثلاً فرض کنید می­خواهید به شعاع یک دایره دست یابید با توابع استاندارد Autolisp ابتدا از طریق entget لیست وابسته موجودیت را بدست می­آورید و سپس با assoc خصوصیت مورد نظر یعنی شعاع دایره را    می­یابند.

(Setq radius (dr (assoc 40 (entget circle-object))))

در حالیکه در روش Activex با یک تابع شعاع دایره بدست می­آید.

(Setq radius (vla-get-radius circle-object))

برنامه نویسی به زبان اتولیسپ - قسمت دوم

5- تابع (Function ) چیست؟
به عملی که می خواهیم اتولیسپ برای ما انجام دهد تابع میگوئیم. توابع در اتولیسپ همیشه بعد از پرانتز قرار میگیرند

(defun c:lo ()
  (prompt "\npick entity on the layer you want offa:")
  (setq name (cdr (assoc 8 (entget (car (entsel))))))
  (command "layer" "off" name "")
  (princ)
)

بنابراین عملگرهای محاسباتی در اتولیسپ  ابتدای پرانتز قرار میگیرند:
5+1 <- ( 5  1 +)           2*3  <- (2 3 *)        8 - 12 <- (8 12 -)             15 / 36  <- (15 36 /)

6- متغیر (Argument) چیست؟
به مقادیری که توسط یک تابع ارزیابی میگردند متغیر میگوئیم. در فرمان  ( 5 1 +)  به "+" تابع وبه اعداد 1 و 5 متغیر میگوئیم. با دقت در مثالهای بالا در می یابیم که متغیرها خود میتوانند مجموعه ای از توابع ومتغیرهای دیگر باشند. در اتولیسپ متغیرهای متعددی وجود دارد که عبارتند از:
  - لیستها    ( 10  20   a )
  - سمبلها     a , A , Ctr
  - اعداد  (اعداد صحیح   Integer   و  اعداد حقیقی  Real )
  - رشته ها  String
  - مشخص کننده های فایل   File descriptors
  - نامهای اشیاء در اتوکد
  - مجموعه های منتخب موجود در اتوکد
  - توابع پیش ساخته  Subrs
  - توابع خارجی

7- نکات مهم در استفاده از متغیرها
  - اعداد صحیح در محدوده ی 32768- و 32768+ قرار دارند.
  - اعداد اعشاری به صورت دقت مضاعف تا 14 رقم معنی دار ذخیره میگردند.
  - رشته ها میتوانند دارای طول دلخواه باشند ولی در هنگام ورودی دادن تا 100 کاراکتر بیشتر قبول نمیشود که    میتوان با تابع داخلی Strcat  آنها را به هم متصل کرد.
  - لیستهای دارای دو مولفه عددی را میتوان بعنوان نقاط دو بعدی در نظر گرفت.
  - لیستهای دارای سه مولفه عددی را میتوان بعنوان نقاط سه بعدی در نظر گرفت.

آموزش اتولیسپ - قسمت اول

1- چرا اتولبسپ؟

- Autolisp ->  Autocad+List+Processor

- lisp   از جمله ساده ترین زبانهای برنامه نویسی (از نظر یادگیری و کسب مهارت ) میباشد.

-  این زبان جهت تحقیقات در زمینه هوش مصنوعی در تظر گرفته شده است.

- به دلیل قواعد بسیار ساده حجم آن بسیار کم است.

- اتوکد از آن پشتیبانی کرده و به عنوان یک زبان اصلی به آن مینگرد.

- با توجه به کارکرد Autocad  با مجموعه های نامتجانس و در گروههای مختلف  اتولیسپ در این زمینه عملکرد عالی دارد.

2- Visual lisp چیست ؟

- آمدن ویژوال لیسپ حالتی شیبه به آمدن ویندوز بعد از dos  است .در V.L  تمامی امکانات برای نوشتن و اشکال زدائی یک برنامه به بهترین وجه تدارک دیده شده است.

- با الصا ق مکانیزم ActiveX  به زبان اتولیسپ کارائی این زبان را در دستیابی به اجزای مغتلف سند ترسیمی اتوکد دو چندان کرده است. برای مثال شما تنها با استفاده از فرمان  vlax-curve-getarea   میتوانید به مساحت یک موضوع دسترسی پیدا کنید.

- برای اجرای V.L  میتوانید از پای command  فرمان vlisp  یا vlide  را صادر کنید. سپس با Ctrl+N   صفحه جدیدی باز کرده وپس از تایپ برنامه خود با Ctrl+Alt+E   آنرا اجرا نمائید. از میانبر Ctrl+Alt+F میتوانید برای قالب بندی برنامه و از میانبر Ctrl+F9  برای یافتن محل اشکال در برنامه خود استفاده کنید.

3- اصول اساسی اتولیسپ

- لیست ها                        - توابع                       - متغیرها

4- لیست چیست؟

- به هر گونه شئ که داخل پرانتز باشد لیست میگونیم:

( a b c d e)             (setq ctr 0)              (8 . “0”)          (entsel)     ( (21.3858 9.66277 0.0 ))