درخواست اتولیسپ جهت درج مختصات

[محمد سهرابي]

با سلام خدمت دوستان عمراني
من مي توانم مثلا صد نقطه را با دستور point و از طريق اكسل وارد اتوكد نمايم لكن دوست دارم شماره نقاط را هم از طريق اكسل يا هر روش ديگر بطور يكجا وارد اتوكد نمايم .يعني با نمايش نقطه شماره ان نيز ديده شود ! بايد چكار كنم ؟

 

[rohalahmadani]

سلام
اتوكد يك نرم افزار نقشه كشي است كه جهت ترسيم نقشه ها در عمران استفاده مي شود. كارايي آن در حال حاضر بسيار زياد و مهم است . اين نرم افزار توسط شركت auto desk نوشته شده است. اين شركت نرم افزارهاي ديگري دارد كه براي طراحي ها نيز مناسب است . پيشنهاد من يادگيري آن براي تمام مهندسان است. در حال حاضر ما براي كارهاي سازه و راه خيلي از آن بهره مي گيريم.

 

[m_k]

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

 

[sshayan59]

درخواست اتولیسپ جهت درج مختصات

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

 

[saeedstudent]

سلام txt پایین رو با فرمت lsp توی notepad ذخیره کن کارتو راه میندازه


; Limitation
; ----------
; Will use current leader style and current units setting

(defun c:lb (/ p x y ptcoord textloc)
(while
(setq p (getpoint "
Pick Point: "))
(setq textloc (getpoint "
Pick Label Location: "))
(setq x (rtos (car p)))
(setq y (rtos (cadr p)))
(setq z (rtos (caddr p)))
(setq ptcoord (strcat x ", " y ", " z))
(command "_LEADER" p textloc "" ptcoord "")
)
)

 

[sshayan59]

سلام txt پایین رو با فرمت lsp توی notepad ذخیره کن کارتو راه میندازه


; Limitation
; ----------
; Will use current leader style and current units setting

(defun c:lb (/ p x y ptcoord textloc)
(while
(setq p (getpoint "
Pick Point: "))
(setq textloc (getpoint "
Pick Label Location: "))
(setq x (rtos (car p)))
(setq y (rtos (cadr p)))
(setq z (rtos (caddr p)))
(setq ptcoord (strcat x ", " y ", " z))
(command "_LEADER" p textloc "" ptcoord "")
)
)

سلام
بعد از لود کردن چه دستوری را باید برای اجرای فرمان تایپ کنم؟
دستور leader که فقط فلش میکشه

 

[saeedstudent]

سلام
بعد از لود کردن چه دستوری را باید برای اجرای فرمان تایپ کنم؟
دستور leader که فقط فلش میکشه

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

 

[industrail zone]

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

سلام به همه
میشه بصورت ابتدایی و کمی مفصل توضیح بدید که این متن را کجا باید تایپ کنیم و چطوری و با چه فرمتی و کجا ذخیری کنیم

 

[sshayan59]

سلام به همه
میشه بصورت ابتدایی و کمی مفصل توضیح بدید که این متن را کجا باید تایپ کنیم و چطوری و با چه فرمتی و کجا ذخیری کنیم

1-چند خطی که دوستمون زحمت کشیده نوشتن رو COPY و بعد NOTEPAD را باز کن و داخلش PAST کن و این فایل رو در انتها با نام دلخواه و با پسوند LSP در محل نصب اتوکد در پوشه SUPPORT ذخیره کن
2-اتوکد رو باز کن و دستور AP رو در خط فرمان (COOMAND LINE) تایپ و اینتر کن
3-در صفحه باز شده به پوشه SUPPORT رفته و فایلی که با پسوند LSP ذخیره کرده بودید رو پیدا کرده 1بار کلیک میکنید و گزینه LOAD در سمت راست صفحه را کلیک میکنید تا این دستور LOAD شود
4-حالا این صفحه را بسته و در خط فرمان اتوکد دستور LB را تایپ میکنید و اینتر.حالا هر نقطه ای را که کلیک کنید مختصات ان نقطه برای شما در محلی که با کلیک دوم انتخاب میکنید تایپ میشه
دیگه ابتدایی تر از این نتونستم بگم

 

[Ali_Babaie]

سلام از این لیسپ هم میتونی استفاده کنی
(defun *error* (msg) (princ "error: ") (princ msg) (terpri))
(defun ang ()
(setq a1 (getangle "Angle block:"))
(setq p1 (getpoint "Select a point:"))
(setq a2 (angtos a1 0 2))
)
(defun c:idc ()
(setvar "cmdecho" 0)
(command "blipmode" "on")
(setq lu (getvar "luprec"))
(setq hi (getvar "textsize"))
(initget "Angle")
(setq p1 (getpoint "Angle/<Select a point>:"))
(if (= p1 "Angle") (ang))
(command "blipmode" "off")
(setq d1 (* hi 3))
(setq d2 (* hi 6))
(setq p2 (getpoint "Select a point:"))
(setq a3 (angle p1 p2))
(if (= a1 nil) (setq a1 0))
(if (= a2 nil) (setq a2 0))
(if (<= 0.0 a3 (* pi 0.5)) (progn
(setq a4 (+ a1 (* pi 0.25)))
(setq a5 a1)
(setq p3 (polar p1 a4 d1))
(setq p4 (polar p3 a5 d2))
(setq p5 p3)
))
(if (< (* pi 0.5) a3 pi) (progn
(setq a4 (+ a1 (* pi 0.75)))
(setq a5 (+ a1 pi))
(setq p3 (polar p1 a4 d1))
(setq p4 (polar p3 a5 d2))
(setq p5 p4)
))
(if (<= pi a3 (* pi 1.5)) (progn
(setq a4 (+ a1 (* pi 1.25)))
(setq a5 (+ a1 pi))
(setq p3 (polar p1 a4 d1))
(setq p4 (polar p3 a5 d2))
(setq p5 p4)
))
(if (< (* pi 1.5) a3 (* pi 2)) (progn
(setq a4 (+ a1 (* pi 1.75)))
(setq a5 a1)
(setq p3 (polar p1 a4 d1))
(setq p4 (polar p3 a5 d2))
(setq p5 p3)
))
(command "pline" p1 p3 p4 "")
(setq a6 (+ a1 (/ pi 2)))
(setq a7 (- a1 (/ pi 2)))
(setq d3 (* hi 0.5))
(setq d4 (* hi 1.4))
(setq p6 (polar p5 a6 d3))
(setq p7 (polar p5 a7 d4))
(setq x1 (rtos (car p1) 2 lu))
(setq y1 (rtos (cadr p1) 2 lu))
(setq x2 (strcat "X=" x1))
(setq y2 (strcat "Y=" y1))
(command "text" p6 hi a2 x2)
(command "text" p7 hi a2 y2)
)


 

[TITY7]

با تشکر از دوستان عزیز
میخواستم ببینم آیا میشه از اتولیسپ برای نمایش ارتفاعات هم استفاده کرد؟

 

[sshayan59]

با تشکر از دوستان عزیز
میخواستم ببینم آیا میشه از اتولیسپ برای نمایش ارتفاعات هم استفاده کرد؟

سلام
اگه با civil 3d آشنایی جزیی هم داشته باشی براحتی مختصات کامل نقاط رو با 1 کلیک و تنظیمات ساده براتون انجام میده
در مورد اتولیسپ اگر نقطه شما دارای ارتفاع باشه و اتولیسپی که استفاده میکنید برای درج ارتفاع نقاط هم باشه حتما این کار رو انجام میده
اگر اتولیسپی که در همین تاپیک هست (اتولیسپی که saeedstudent لطف کردن و گذاشتن) استفاده کنید اکار شما رو راه میندازه

 

[re.jamalizade]

سلام با چه دستوری اجرا میشود