ယင်းကိုသြဒိနိတ်ဇယားကွက်ဖန်တီးရန်ကဘယ်လို

ငါ LISP ချင်တယ်, နားလည်မှုမထားဘူးသောအချို့သော Legs ရှိပါတယ်ရှင်းလင်းသောကွက်လပ်စကားပြော, အစီအစဉ် OK ကိုမီးစက်ယေဘုယျဖို့ DOWNLOADED? သငျသညျအကြှနျုပျကိုပိုမိုနှစ်သက်လိမ့်မည် ... ကျေးဇူးတင်ပါတယ်

ဟေ့ငါပြုသောအမှုဖွင့်ကိုဘယ်လိုရှင်းပြနိုင်မည်နည်း ငါကရှင်းပြနိုင်ပါတယ်ငါ APPLOAD နှင့်အတူတင်နှင့်ကြိုးစားခဲ့ပေမယ့်ငါတစ်ယောက်ယောက်ကိုက q ငါ့ကိုချန်မထားသလဲ? ငါတကယ်အကြှနျုပျ၏အလုပ်လုပ်ဖို့လိုအပ်ပါကတန်ဖိုးထားလိမ့်မည်။
ကျေးဇူးတင်ပါသည်များနှင့်ပတ်သတ်ပြီး

AutoCAD တစ် LISP လုပ်ရိုးလုပ်စဉ်တွေနဲ့လေဆာရောင်ခြည်ထဲမှာဇယားကွက်, ငါသည် 10 လွန်ခဲ့တဲ့နှစ်ပေါင်းထက်ပိုမိုအသုံးပြုရန်

ဒီနေရာတွင်ကဖြစ်ပါသည်:

(Defun strpto (aa / ရှည်လျားသော)
(Long က setq (strlen aa))
(အခြေအနေ ((= x ကို minX))
(Setq ဌ (ဌ Append (စာရင်းက x)))
)
(Setq စာရင်း (CDR စာရင်း))
)
(စာရင်း (မိ (ကားတစ်စီးဌ) (ကေဒါဌ)) (max ကို (ကားတစ်စီးဌ) (ကေဒါဌ)))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; က X cordenada ပေးထားလမ်းဆုံ
;;
(Defun CalculaY (ABCX)
(လျှင် (= 0.0 ခ); လမ်းဆုံမရှိ
nil
(/ (- က c (* ပုဆိန်)) ခ)
)
)

(Defun IntersecY (/ L ကိုစာရင်း)
(Setq ဌ ()
စာရင်း (စာရင်း (CalculaY a1 b1 c1 startX) (CalculaY a2 b2 c2 startX)
(CalculaY a3 b3 c3 startX) (CalculaY a4 b4 c4 startX)
)
)
(စဉ်တွင် (/ = nil စာရင်း)
(Setq နှင့် (ကားတစ်စီးစာရင်း))
()) = y က Mini ((နှင့် (/ = y က nil) အကယ်.
(Setq ဌ (ဌ Append (စာရင်းက y)))
)
(Setq စာရင်း (CDR စာရင်း))
)
(စာရင်း (မိ (ကားတစ်စီးဌ) (ကေဒါဌ)) (max ကို (ကားတစ်စီးဌ) (ကေဒါဌ)))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; အဓိကပရိုဂရမျ
;;
(Defun က c: quadri (/ p1 p2 p3 p4 paux incx incy maldato အခြေခံ lhn
alpha startX startY minX Mini MAXX Maxi)
(setvar “CMRIGHT” 0)
(command “LAYER” “M” “grid” “C” “8” “””)))
(setq p1 (getpoint “\nဒေသ vertex” ကိုထည့်ပါ)
p2 (getpoint p1 “\nအခြား vertex ကို ထည့်ပါ”)
)
(“LINE” p1 p2 “” ဟူသော အမိန့်)
(လျှင် (> (cadr p1) (cadr p2)); အမြဲတမ်း p1 ကိုချသည်
(Setq paux p1 p1 p2 p2 Paux)
)
(setq p3 (getpoint p1 “\n Region Width” အတွက် အမှတ်ထည့်ပါ)
ဌ (အကွာအဝေး p1 p3); စင်ပြိုင်အချက်များ p3 နှင့် p4 ၏တွက်ချက်မှု
alpha (ထောင့် p1 p2); အကွာအဝေးဌမှာ p1 နှင့် p2 ရန်
alpha (+ (/ pi 2) alpha)
)
(အကယ်၍ (> (ကားအမှတ်3) (ကားအမှတ် ၁))
(Setq alpha (alpha + pi))
)
( အကယ်. (= (ကား p1) (ကားတစ်စီး p3))
( အကယ်. ((- Maxi startY) (* မြင့်သော 2))
(အမိန့်စာ “TEXT” (စာရင်း (+ x1 dl) (+ startY dh)) မြင့်မားသော 0 coordY)
(အမိန့်စာ “TEXT” “R” (စာရင်း (- x2 dl) (+ startY dh)) မြင့်မားသော 0 coordY)
)
)
(Setq startY (+ startY incy))
)
(စဉ်တွင် ((- startX Minx) (* မြင့်သော 2))
(command “TEXT” (စာရင်း (- startX dh) (+ y1 dl)) high 100 coordX)
(command “TEXT” “R” (စာရင်း (- startX dh) (- y2 dl)) high 100 coordX)
)
)
(Setq startX (+ startX incx))
)
(လျှင် (> (အကွာအဝေး p1 p3) (အကွာအဝေး p1 p2))
(Setq angP1P3 alpha)
(Setq angP1P2 alpha)
)
( အကယ်. (သို့မဟုတ် (/ = alpha pi () / = alpha 0.0))
(Setq alfarad (* -1 alpha)
alpha (* -1 (/ (* 180 alpha) pi))
p4 (စာရင်း (- alfarad cos (* (ကား p4) () () * (ကေဒါ p4) (အဘယ်သူမျှမ alfarad)))
(() alfarad cos + (* (ကား p4) (အဘယ်သူမျှမ alfarad)) (* (ကေဒါ p4)))
)
p1 (စာရင်း (- alfarad cos (* (ကား p1) () () * (ကေဒါ p1) (အဘယ်သူမျှမ alfarad)))
(() alfarad cos + (* (ကား p1) (အဘယ်သူမျှမ alfarad)) (* (ကေဒါ p1)))
)
အခြေစိုက်စခန်း (စာရင်း 0.0 0.0); မူလအစ
)
)
)

ဘာပဲဖြစ်ဖြစ် Jejejej ကျေးဇူးတင်စကား

သမ္မာတရားကိုငါစိတ်ဝင်စားခဲ့တာကြောင့်, တူညီတဲ့မြေပုံနှင့်အတူလုပ်ဆောင်နိုင်တယ်သလဲ?

AutoCAD Civil 3D ကိုသုံးလို့မရပါဘူး၊ ဘာဖြစ်လို့လဲဆိုတော့အဲ့တာအတွက်ပရိုဂရမ်က projection system ကိုကိုင်တွယ်ဖို့ဂရုစိုက်ပါတယ်။ သို့သော်ဟုတ်ကဲ့ AutoCAD Map 3D ဖြင့်သင်အလားတူလုပ်နိုင်သည်။

3 ၏ AutoCAD မြို့ပြ 2009D နှင့်ဖွဲ့စေခြင်းငှါဒါကြောင့်ပရိုဂျက်ကိုထောကျပံ့ဖို့ထင်နေသည်ဒါကြောင့်ဒီအားလုံးပါဝင်နိုင်, Google Earth ကိုချိတ်ဆက်နိုင်သောကြောင့်ငါမှန်းဆ။