رفتن به مطلب

جستجو در تالارهای گفتگو

در حال نمایش نتایج برای برچسب های 'فارسی در اتوکد'.

  • جستجو بر اساس برچسب

    برچسب ها را با , از یکدیگر جدا نمایید.
  • جستجو بر اساس نویسنده

نوع محتوا


تالارهای گفتگو

  • انجمن نواندیشان
    • دفتر مدیریت انجمن نواندیشان
    • کارگروه های تخصصی نواندیشان
    • فروشگاه نواندیشان
  • فنی و مهندسی
    • مهندسی برق
    • مهندسی مکانیک
    • مهندسی کامپیوتر
    • مهندسی معماری
    • مهندسی شهرسازی
    • مهندسی کشاورزی
    • مهندسی محیط زیست
    • مهندسی صنایع
    • مهندسی عمران
    • مهندسی شیمی
    • مهندسی فناوری اطلاعات و IT
    • مهندسی منابع طبيعي
    • سایر رشته های فنی و مهندسی
  • علوم پزشکی
  • علوم پایه
  • ادبیات و علوم انسانی
  • فرهنگ و هنر
  • مراکز علمی
  • مطالب عمومی
  • مکانیک در صنعت مکانیک در صنعت Topics
  • شهرسازان انجمن نواندیشان شهرسازان انجمن نواندیشان Topics
  • هنرمندان انجمن هنرمندان انجمن Topics
  • گالری عکس مشترک گالری عکس مشترک Topics
  • گروه بزرگ مهندسي عمرآن گروه بزرگ مهندسي عمرآن Topics
  • گروه معماری گروه معماری Topics
  • عاشقان مولای متقیان علی (ع) عاشقان مولای متقیان علی (ع) Topics
  • طراحان فضای سبز طراحان فضای سبز Topics
  • بروبچ با صفای مشهدی بروبچ با صفای مشهدی Topics
  • سفيران زندگي سفيران زندگي Topics
  • گروه طرفدارن ا.ث.میلان وبارسلونا گروه طرفدارن ا.ث.میلان وبارسلونا Topics
  • طرفداران شياطين سرخ طرفداران شياطين سرخ Topics
  • مهندسی صنایع( برترین رشته ی مهندسی) مهندسی صنایع( برترین رشته ی مهندسی) Topics
  • گروه طراحی unigraphics گروه طراحی unigraphics Topics
  • دوستداران معلم شهید دکتر شریعتی دوستداران معلم شهید دکتر شریعتی Topics
  • قرمزته قرمزته Topics
  • مبارزه با اسپم مبارزه با اسپم Topics
  • حسین پناهی حسین پناهی Topics
  • سهراب سپهری سهراب سپهری Topics
  • 3D MAX 3D MAX Topics
  • سیب سرخ حیات سیب سرخ حیات Topics
  • marine trainers marine trainers Topics
  • دوستداران بنان دوستداران بنان Topics
  • ارادتمندان جليل شهناز و حسين عليزاده ارادتمندان جليل شهناز و حسين عليزاده Topics
  • مکانیک ایرانی مکانیک ایرانی Topics
  • خودرو خودرو Topics
  • MAHAK MAHAK Topics
  • اصفهان نصف جهان اصفهان نصف جهان Topics
  • ارومیه ارومیه Topics
  • گیلان شهر گیلان شهر Topics
  • گروه بچه های قمی با دلهای بیکران گروه بچه های قمی با دلهای بیکران Topics
  • اهل دلان اهل دلان Topics
  • persian gulf persian gulf Topics
  • گروه بچه های کرد زبان انجمن نواندیشان گروه بچه های کرد زبان انجمن نواندیشان Topics
  • شیرازی های نواندیش شیرازی های نواندیش Topics
  • Green Health Green Health Topics
  • تغییر رشته تغییر رشته Topics
  • *مشهد* *مشهد* Topics
  • دوستداران داريوش اقبالي دوستداران داريوش اقبالي Topics
  • بچه هاي با حال بچه هاي با حال Topics
  • گروه طرفداران پرسپولیس گروه طرفداران پرسپولیس Topics
  • دوستداران هامون سینمای ایران دوستداران هامون سینمای ایران Topics
  • طرفداران "آقایان خاص" طرفداران "آقایان خاص" Topics
  • طرفداران"مخربین خاص" طرفداران"مخربین خاص" Topics
  • آبی های با کلاس آبی های با کلاس Topics
  • الشتریا الشتریا Topics
  • نانوالکترونیک نانوالکترونیک Topics
  • برنامه نویسان ایرانی برنامه نویسان ایرانی Topics
  • SETAREH SETAREH Topics
  • نامت بلند ایـــران نامت بلند ایـــران Topics
  • جغرافیا جغرافیا Topics
  • دوباره می سازمت ...! دوباره می سازمت ...! Topics
  • مغزهای متفکر مغزهای متفکر Topics
  • دانشجو بیا دانشجو بیا Topics
  • مهندسین مواد و متالورژی مهندسین مواد و متالورژی Topics
  • معماران جوان معماران جوان Topics
  • دالتون ها دالتون ها Topics
  • دکتران جوان دکتران جوان Topics
  • ASSASSIN'S CREED HQ ASSASSIN'S CREED HQ Topics
  • همیار تاسیسات حرارتی برودتی همیار تاسیسات حرارتی برودتی Topics
  • مهندسهای کامپیوتر نو اندیش مهندسهای کامپیوتر نو اندیش Topics
  • شیرازیا شیرازیا Topics
  • روانشناسی روانشناسی Topics
  • مهندسی مکانیک خودرو مهندسی مکانیک خودرو Topics
  • حقوق حقوق Topics
  • diva diva Topics
  • diva(مهندسین برق) diva(مهندسین برق) Topics
  • تاسیسات مکانیکی تاسیسات مکانیکی Topics
  • سیمرغ دل سیمرغ دل Topics
  • قالبسازان قالبسازان Topics
  • GIS GIS Topics
  • گروه مهندسین شیمی گروه مهندسین شیمی Topics
  • فقط خودم فقط خودم Topics
  • همکار همکار Topics
  • بچهای باهوش بچهای باهوش Topics
  • گروه ادبی انجمن گروه ادبی انجمن Topics
  • گروه مهندسین کشاورزی گروه مهندسین کشاورزی Topics
  • آبروی ایران آبروی ایران Topics
  • مکانیک مکانیک Topics
  • پریهای انجمن پریهای انجمن Topics
  • پرسپولیسی ها پرسپولیسی ها Topics
  • هواداران رئال مادرید هواداران رئال مادرید Topics
  • مازندرانی ها مازندرانی ها Topics
  • اتاق جنگ نواندیشان اتاق جنگ نواندیشان Topics
  • معماری معماری Topics
  • ژنتیکی هااااا ژنتیکی هااااا Topics
  • دوستداران بندر لیورپول ( آنفیلد ) دوستداران بندر لیورپول ( آنفیلد ) Topics
  • group-power group-power Topics
  • خدمات کامپپوتری های نو اندیشان خدمات کامپپوتری های نو اندیشان Topics
  • دفاع دفاع Topics
  • عمران نیاز دنیا عمران نیاز دنیا Topics
  • هواداران استقلال هواداران استقلال Topics
  • مهندسین عمران - آب مهندسین عمران - آب Topics
  • حرف دل حرف دل Topics
  • نو انديش نو انديش Topics
  • بچه های فیزیک ایران بچه های فیزیک ایران Topics
  • تبریزیها وقزوینی ها تبریزیها وقزوینی ها Topics
  • تبریزیها تبریزیها Topics
  • اکو سیستم و طبیعت اکو سیستم و طبیعت Topics
  • >>سبزوار<< >>سبزوار<< Topics
  • دکوراسیون با وسایل قدیمی دکوراسیون با وسایل قدیمی Topics
  • یکم خنده یکم خنده Topics
  • راستی راستی Topics
  • مهندسین کامپیوتر مهندسین کامپیوتر Topics
  • کسب و کار های نو پا کسب و کار های نو پا Topics
  • جمله های قشنگ جمله های قشنگ Topics
  • مدیریت IT مدیریت IT Topics
  • گروه مهندسان صنایع گروه مهندسان صنایع Topics
  • سخنان پندآموز سخنان پندآموز Topics
  • مغان سبز مغان سبز Topics
  • گروه آموزش مهارت های فنی و ذهنی گروه آموزش مهارت های فنی و ذهنی Topics
  • گیاهان دارویی گیاهان دارویی صنایع غذایی شیمی پزشکی داروسازی
  • دانستنی های بیمه ای موضوع ها
  • Oxymoronic فلسفه و هنر

جستجو در ...

نمایش نتایجی که شامل ...


تاریخ ایجاد

  • شروع

    پایان


آخرین بروزرسانی

  • شروع

    پایان


فیلتر بر اساس تعداد ...

تاریخ عضویت

  • شروع

    پایان


گروه


نام واقعی


جنسیت


محل سکونت


تخصص ها


علاقه مندی ها


عنوان توضیحات پروفایل


توضیحات داخل پروفایل


رشته تحصیلی


گرایش


مقطع تحصیلی


دانشگاه محل تحصیل


شغل

  1. سلام در این تاپیک تایپ فارسی در محیط اتوکد آموزش داده میشه. ابتدا کُد زیر را کپی و در فایل acad2012doc.lsp (و یا هر ورژن دیگه ای- اینجا 2012 رو مثال زدم) که دایرتکتوری نصب نرم افزار و در خطر آخر Paste کنید. (princ "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n") (princ "\n*********** DEMO CO. PRESENT **LICENSE TO B.ESLAMI *********") (princ "\n\n FARSI interpreter Version 5.00 Is loading .") (defun r_t_d (d) (setq d (/ (* d 180.0) pi)) ) (defun lic_pr() (princ "This software is licensed to A.AMIRPOUR.\n") ) (defun lst (d) (setvar "lastpoint" st)) (princ ".") (defun d_t_r (d) (setq d (/ (* d pi) 180.0)) ) (princ ".") (setq charm1 (list 104 151 152 153 78 110 169 170 171 66 98 133 134 135 67 99 136 137 138 70 92 124 211 212 213 44 226 227 228 60 229 230 231 62 232 233 234 235 236 237 32 71 72 86 118 193 194 195 167 168)) (setq charm2 (list 32 33 35 36 37 38 40 41 42 43 45 46 47 48 49 50 51 52 53 54 55 56 57 61 63 64 94 127 128 129)) (setq charm (append charm1 charm2)) (setq charn (append charm2 (list 32 70 71 72))) (setq charo (list (list 96 126) (list 58 127) (list 59 127) (list 34 128) (list 39 128) (list 44 129) (list 60 131) (list 62 132) ) ) (setq charp (list 96 58 59 34 39 44 60 62)) (setq charq (list 104 110 98 99 118 124 129 130 131)) (defun mirp(a b) (setq x1 (car a) y1 (cadr a) x2 (car b) y2 (cadr b)) (setq pt3 (list (- (* 2 x1) x2) (- (* 2 y1) y2))) (setq an (angle a b)) ) (princ ".") (defun taviz (so) (setq l (strlen so)) (setq n 1) (setq nwo "") (while (<= n l) (if (= n 1) (setq ee " ") (setq ee (substr so (1- n) 1)) ) (setq f (substr so n 1)) (if (= n l) (setq g " ") (setq g (substr so (1+ n) 1)) ) (setq asce (ascii ee)) (setq ascff (setq ascf (ascii f))) (setq ascg (ascii g)) (if (= (member ascf charm2) nil) (if (= (member ascf (list 32 95 70 71 72)) nil) (progn (if (/= (and (> ascf 64) (< ascf 94)) nil) (setq ascff (setq ascf (+ ascf 32))) ) (if (/= (member ascf charp) nil) (setq ascf (car (cdr (assoc ascf charo)))) ) (if (/= (member asce charm) nil) (if (/= (member ascg charn) nil) (if (= (member ascf charq) nil) (setq ascf (+ (* (- ascf 97) 3) 132)) (setq ascf ascff) ) (setq ascf ascff) ) (if (/= (member ascg charn) nil) (if (= (member ascf charq) nil) (setq ascf (+ (* (- ascf 97) 3) 131)) (setq ascf (+ (* (- ascf 97) 3) 130)) ) (setq ascf (+ (* (- ascf 97) 3) 130)) ) ) ) ) ) (setq n (1+ n)) (setq nwo (strcat nwo (chr ascf))) ) (setq so nwo) ) (princ ".") (defun hr () (setq f_heigth (cdr (assoc 40 (tblsearch "style" (getvar "textstyle"))))) (if (= f_heigth 0.0) (progn (princ (strcat "\nHeight <" (rtos (getvar "textsize")) ">: ")) (setq ht (getdist st)) (if (/= ht nil) (setvar "textsize" ht) (setq ht "") ) ) ) (princ (strcat "\nRotation angle <" (angtos (getvar "userr1")) ">: ")) (setq ro (getangle st)) (if (/= ro nil) (setvar "userr1" ro) ) ) (princ ".") (defun *error* (ms) (if (= ms "Function cancelled") (progn (command) (command)) ) (princ "\nerror: ") (princ ms) (command "ERASE" ss "") (setvar "CMDECHO" 1) (setvar "HIGHLIGHT" 1) (setvar "BLIPMODE" 0) (prin1) ) (princ ".") (princ ".") (defun farsit(text_to_convert) (setvar "CMDECHO" 0) (if (/= passcode "passcode") (progn (code_control) (if (= (and (= fcode fcodm) (/= ucode nil) (= scode "10-248253") ) t ) (progn (setq passcode "passcode") (taviz text_to_convert) ) (progn (lic_pr) (prin1) ) ) ) (taviz text_to_convert) ) ) (princ ".") (defun c:k() (command "-style" "sharifnaskhd" "naskhd.shx" "" "" "" "y" "" "") (setvar "CMDECHO" 0) (setvar "HIGHLIGHT" 0) (princ (strcat "Current TEXT style is " (getvar "TEXTSTYLE") " !!\n")) (setq st (list 1 4)) (setq ss (ssadd)) (command "POINT" "0,0") (setq entl (entlast)) (ssadd entl ss) (setq rp "Style") (while (= rp "Style") (initget "Style Align Center Fit Middle Left") (setq rp (getpoint "Start point or Align/Center/Fit/Middle/Left/Style:")) (if (= rp "Style") (progn (setq sty (getstring (strcat "\nStyle name (or ?) <" (getvar "TEXTSTYLE") ">: ") ) ) (if (/= sty "") (progn (if (= sty "?") (progn (command "TEXT" "S" "?") (command) ) (progn (if (/= (tblsearch "style" sty) nil) (progn (command "TEXT" "S" (eval sty)) (command) ) (prompt "\nUnknown text style name.\n") ) ) ) ) ) ) ) ) (if (= (getvar "userr1") 0) (setvar "userr1" pi) ) (if (= rp nil) (setq st nil) ) (if (/= st nil) (progn (if (listp rp) (progn (setq st rp) (lst st) (hr) ) ) (if (= rp "Align") (progn (setq st (getpoint "\nFirst text line point:")) (lst st) (setq pt2 (getpoint st "\nSecond text line point:")) ) ) (if (= rp "Center") (progn (setq st (getpoint "\nCenter point:")) (lst st) (hr) ) ) (if (= rp "Fit") (progn (setq st (getpoint "\nFirst text line point:")) (lst st) (setq pt2 (getpoint st "\nSecond text line point:")) (setq f_heigth (cdr (assoc 40 (tblsearch "style" (getvar "textstyle"))))) (if (= f_heigth 0.0) (progn (princ (strcat "\nHeight <" (rtos (getvar "textsize")) ">: ")) (setq ht (getdist st)) (if (/= ht nil) (setvar "textsize" ht) (setq ht "") ) ) ) ) ) (if (= rp "Middle") (progn (setq st (getpoint "\nMiddle point:")) (lst st) (hr) ) ) (if (= rp "Left") (progn (setq st (getpoint "\nLeft point:")) (lst st) (hr) ) ) ) ) (setq ro (+ (getvar "userr1") pi)) (setq rl (getvar "AUNITS")) (cond ((= rl 0) (setq rog (angtos ro))) ((= rl 1) (setq rog (angtos ro))) ((= rl 2) (setq rog (atof (angtos ro)))) ((= rl 3) (setq rog (atof (angtos ro)))) ((= rl 4) (setq rog (r_t_d ro))) ) (princ "\nText:") (if (= st nil) (command "dtext" "") (progn (if (listp rp) (if (= f_heigth 0.0) (command "dtext" st ht rog) (command "dtext" st rog) ) ) (if (= rp "Align") (progn (mirp st pt2) (command "dtext" "a" st pt3) ) ) (if (= rp "Center") (if (= f_heigth 0.0) (command "dtext" "c" st ht rog) (command "dtext" "c" st rog) ) ) (if (= rp "Fit") (progn (mirp st pt2) (if (= f_heigth 0.0) (command "dtext" "f" st pt3 ht) (command "dtext" "f" st pt3) ) ) ) (if (= rp "Middle") (if (= f_heigth 0.0) (command "dtext" "m" st ht rog) (command "dtext" "m" st rog) ) ) (if (= rp "Left") (if (= f_heigth 0.0) (command "dtext" "r" st ht rog) (command "dtext" "r" st rog) ) ) ) ) (while (/= (entnext entl) nil) (setq txt (entnext entl)) (setq e (entget txt)) (if (or (= rp "Fit") (= rp "Align")) (progn(setq za (cdr (assoc 10 e))) (command "ROTATE" (ssadd txt) "" za "180")) ) (setq e (entget txt)) (setq s (cdr (setq as (assoc 1 e)))) (setq s (taviz s)) (setq e (subst (cons 1 nwo) as e)) (entmod e) (setq entl txt) ) (command "ERASE" ss "") (setvar "HIGHLIGHT" 1) (setvar "CMDECHO" 1) (setvar "BLIPMODE" 0) (prin1) ) (princ ".") (defun farsichange() (setvar "CMDECHO" 0) (command "UNDO" "M") (setvar "BLIPMODE" 0) (setq chm 0 p (ssget)) (if p (progn (setq cont t) (while cont (setq os (getstring "\n Type OLD text : " T)) (setq osl (strlen os)) (if (= osl 0) (princ "Null input invalid. Try again !?") (setq cont nil) ) ) (setq ns (getstring "\n Type NEW text : " T)) (setq os (taviz os)) (setq ns (taviz ns)) (setq nsl (strlen ns)) (setq l 0 n (sslength p)) (while (< l n) (if (= "TEXT" (cdr (assoc 0 (setq ec (entget (ssname p l))))) ) (progn (setq chf nil si 1) (setq sc (cdr (setq ass (assoc 1 ec)))) (while (= osl (setq sl (strlen (setq stc (substr sc si osl))))) (if (= stc os) (progn (setq sc (strcat (substr sc 1 (1- si)) ns (substr sc (+ si osl)))) (setq chf t) (setq si (+ si nsl)) ) (setq si (1+ si)) ) ) (if chf (progn (setq ec (subst (cons 1 sc) ass ec)) (entmod ec) (setq chm (1+ chm)) ) ) ) ) (setq l (1+ l)) ) )) (princ "Changed ") (princ chm) (princ " text lines.") (command "UNDO" "E") (setvar "CMDECHO" 1) (setvar "BLIPMODE" 0) (prin1) ) (princ ".") (defun c:chg() (setvar "CMDECHO" 0) (if (/= passcode "passcode") (progn (code_control) (if (= (and (= fcode fcodm) (/= ucode nil) (= scode "10-248253") ) t ) (progn (setq passcode "passcode") (farsichange) ) (progn (lic_pr) (prin1) ) ) ) (farsichange) ) ) (princ ". Completed.") (prin1) (defun c:lev (/ sc l1 l2 pnt pnt1 pnt2 pnt3 pnt4) (setq old_os (getvar "osmode")) (setvar "osmode" 0) (setq pnt (getpoint "\n pick a point:")) (setq sc (getdist "\n enter the level mark scale:")) (command "circle" pnt sc "") (setq l1 (- (car pnt) (* sc 2))) (setq l2 (+ (car pnt) (* sc 7))) (setq l3 (+ (cadr pnt) (* sc 2))) (setq l4 (- (cadr pnt) (* sc 2))) (setq pnt1 (list l1 (cadr pnt))) (setq pnt2 (list l2 (cadr pnt))) (setq pnt3 (list (car pnt) l3)) (setq pnt4 (list (car pnt) l4)) (command "line" pnt1 pnt2 "") (command "line" pnt3 pnt4 "") (setq level (getstring "\n enter level:")) (setq xtext (+ (car pnt) (* sc 1.2 ))) (setq ytext (+ (cadr pnt) (/ sc 2))) (setq xy (list xtext ytext)) (command "text" xy (/ sc 1.5) "" level "" ""); ) پس از این کار وارد محیط نرم افزار اتوکد شوید و با قسمت فرمان، دستور K رو تایپ کنید و کلید Enter رو بزنید. الان شما میتوانید با کلیک بر روی آیکون تایپ (A) در نوار ابزار به صورت فارسی تایپ کنید.
×
×
  • اضافه کردن...