Trang Chính
Tìm kiếm
Đăng ký
Đăng NhậpSimilar topics
Đăng Nhập
Latest topics
Statistics
Diễn Đàn hiện có 6562 thành viênChúng ta cùng chào mừng thành viên mới đăng ký: vanngubkdn
Tổng số bài viết đã gửi vào diễn đàn là 1668 in 419 subjects
Vận tải Xây dựng
Social bookmarking
Liên kết Website
- Cầu đường Online
- Nhà đất Online
- Bất động sản
- Công ty Cổ phần Tư vấn Xây dựng 533
- Việt Lisp
- Bộ Giao thông vận tải
- Bộ xây dựng
- Diễn đàn CADViet
- Diễn đàn giao thông ZiZu
- Khoa XD Cầu đường ĐHBK Đà Nẵng
- Học tiếng Anh Online
Bookmark and share the address of Cầu đường Online on your social bookmarking website
Số lượt truy cập
Xuất cao độ - toạ độ đường đồng mức ra tệp txt
3 posters
Trang 1 trong tổng số 1 trang
Xuất cao độ - toạ độ đường đồng mức ra tệp txt
by Admin Thu Aug 26, 2010 12:03 pm
XCD.lsp là chương trình Autolisp cho phép người dùng có thể trích xuất
dữ liệu (bao gồm: toạ độ - cao độ) đường đồng mức ra tệp txt để kễt
xuất với các chương trình khác.
[You must be registered and logged in to see this link.]
dữ liệu (bao gồm: toạ độ - cao độ) đường đồng mức ra tệp txt để kễt
xuất với các chương trình khác.
[You must be registered and logged in to see this link.]
Admin- Admin
- Posts : 362
Points : 665
Reputation : 55
Join date : 17/08/2010
Age : 40
Đến từ : Đà Nẵng -
Re: Xuất cao độ - toạ độ đường đồng mức ra tệp txt
by xuanthu Sat Mar 26, 2011 8:33 pm
a ơi ! làm cách nào để chuyển điểm point sang tệp txt băng lisp ấy vây.
a chp em xin cái phần mềm autolisp ây đi.
a chp em xin cái phần mềm autolisp ây đi.
xuanthu- Binh nhì
- Posts : 8
Points : 8
Reputation : 0
Join date : 10/03/2011
Re: Xuất cao độ - toạ độ đường đồng mức ra tệp txt
by xuanthu Fri Apr 22, 2011 11:53 am
nhưng làm sao để chạy được nó đây? e k hiểu mong các anh chỉ dùm.
xuanthu- Binh nhì
- Posts : 8
Points : 8
Reputation : 0
Join date : 10/03/2011
Re: Xuất cao độ - toạ độ đường đồng mức ra tệp txt
by Admin Tue Jul 19, 2011 10:37 pm
Mình share code đấy, nếu bạn biết ít ít về autolisp thì chỉ cần thay đổi tí tẹo là đúng theo mục đích của bạn ngayxuanthu đã viết:a ơi ! làm cách nào để chuyển điểm point sang tệp txt băng lisp ấy vây.
a chp em xin cái phần mềm autolisp ây đi.
Admin- Admin
- Posts : 362
Points : 665
Reputation : 55
Join date : 17/08/2010
Age : 40
Đến từ : Đà Nẵng -
Re: Xuất cao độ - toạ độ đường đồng mức ra tệp txt
by xuanthu Fri Feb 10, 2012 4:49 pm
chao các thành viên trên diễn đàn
minh hiện đang tìm việc
co anh nao biết công viêc nao liên quan đến ngành quản lý đất đai xin giới thiệu mình với.
cảm ơn !
minh hiện đang tìm việc
co anh nao biết công viêc nao liên quan đến ngành quản lý đất đai xin giới thiệu mình với.
cảm ơn !
xuanthu- Binh nhì
- Posts : 8
Points : 8
Reputation : 0
Join date : 10/03/2011
Re: Xuất cao độ - toạ độ đường đồng mức ra tệp txt
by hongquan88 Wed Mar 06, 2013 3:57 pm
Anh admin có thể nói rõ chút được không? Xuất cao độ, tọa độ đường đồng mức dạng pline sang text hay chỉ đơn thuần là các cao độ sẵn có? Có lisp nào có thể đưa bình đồ toàn đường đồng mức về bình đồ dạng cao độ không? Cám ơn anh nhiều.
hongquan88- Khám tuyển
- Posts : 2
Points : 2
Reputation : 0
Join date : 28/02/2013
Re: Xuất cao độ - toạ độ đường đồng mức ra tệp txt
by Admin Fri Mar 08, 2013 9:54 am
Được, cái này mình mới vừa viết một đoạn code nhỏ phục vụ ý của mình, bạn xem dùng được thi dùng nhá.hongquan88 đã viết:Anh admin có thể nói rõ chút được không? Xuất cao độ, tọa độ đường đồng mức dạng pline sang text hay chỉ đơn thuần là các cao độ sẵn có? Có lisp nào có thể đưa bình đồ toàn đường đồng mức về bình đồ dạng cao độ không? Cám ơn anh nhiều.
Lệnh : TCD
Lưu ý: Code này chỉ tạo cao độ cho đường pline và các điểm cao độ là các đỉnh (vertex) của đường polyline, nên đường polyline càng mịn thì càng nhiều cao độ xuất ra, thử rồi biết nhá
Chúc thành công.
- Code:
;;; ghi cao do nhan duong dong muc theo 1 duong polyline
(defun c:tcd (/ ss c ssn ent ssp ssl i pt com)
(SAVE_MODE)
(prompt "\nChon duong polyline : ")
(setq ss (ssget (list (cons 0 "*POLYLINE"))))
(setq c 0)
(repeat (sslength ss)
(setq ssn (ssname ss c)
ent (entget ssn))
(setq sspt (getVert ssn))
(setq ssl (length sspt)
i 0)
(repeat ssl
(setq pt (nth i sspt))
(setq com (nth 2 pt))
(MAKE_TEXT (rtos com 2 2) pt 0.5 0.7 0.0 2 0 0)
(setq i (1+ i))
);while
(setq c (1+ c))
);while
(RESTORE)
(princ)
);defun
(defun getVert (e / i L)
(setq i -1 L nil)
(repeat (fix (1+ (vlax-curve-getEndParam e) ))
(setq i (1+ i) L (append L (list (vlax-curve-getPointAtParam e i))))
)
)
;;; =======================================================================================
;;; =========================== CAC HAM CON THONG DUNG_TAUNV ==============================
;;; =======================================================================================
; HAM LUU VA TRA LAI CAC THONG SO BAN DAU
(DEFUN SAVE_MODE ()
(COMMAND "UNDO" "BEGIN")
(SETQ OLD_OSMODE (GETVAR "OSMODE")
OLD_CECOLOR (GETVAR "CECOLOR")
OLD_AUTOSNAP (GETVAR "AUTOSNAP")
OLD_ORTHOMODE (GETVAR "ORTHOMODE")
OLD_LAYER (GETVAR "CLAYER")
OLD_TEXTSTYLE (GETVAR "TEXTSTYLE")
OLD_ERROR *ERROR*
TIME (GETVAR "MILLISECS")
)
(SETVAR "CMDECHO" 0)
)
(DEFUN RESTORE ()
(COMMAND "UNDO" "END")
(SETVAR "OSMODE" OLD_OSMODE)
(SETVAR "AUTOSNAP" OLD_AUTOSNAP)
(SETVAR "ORTHOMODE" OLD_ORTHOMODE)
(SETVAR "CLAYER" OLD_LAYER)
(SETVAR "TEXTSTYLE" OLD_TEXTSTYLE)
(COMMAND "CECOLOR" OLD_CECOLOR)
(SETVAR "CMDECHO" 1)
(PROMPT (STRCAT "\nWrite by Nguyen Van Tau-0982.767.231 >>> " (RTOS (/ (- (GETVAR "MILLISECS") TIME) 1000.0)) "s Completed!"))
(PRINC)
)
; HAM TRINH BAY LOI
(DEFUN *ERROR* (MSG)
(COND
((= MSG "QUIT / EXIT ABORT")
(PRINC)
)
( (/= MSG "FUNCTION CANCELLED")
(PRINC)
)
)
(SETQ *ERROR* OLD_ERROR)
(PRINC)
)
; HAM TAO TEXT
(DEFUN MAKE_TEXT (COM PT HT WI AG CO D72 D73)
(IF (/= PT NIL)
(ENTMAKE (LIST
(CONS 0 "TEXT")
(CONS 10 PT) ;POINT
(CONS 40 HT) ;HEIGHT
(CONS 1 COM) ;VALUE
(CONS 41 WI) ;WIDTH
(CONS 50 AG) ;ANGLE
(CONS 62 CO) ;COLOR
(CONS 7 (GETVAR "TEXTSTYLE")) ;TEXTSTYLE
(CONS 72 D72) ;0 = Left;1= Center;2 = Right;3 = Aligned (if vertical alignment = 0);
;4 = Middle (if vertical alignment = 0);5 = Fit (if vertical alignment = 0)
(CONS 11 PT) ;POINT
(CONS 73 D73) ;0 = Baseline; 1 = Bottom; 2 = Middle; 3 = Top
)
)
)
)
Admin- Admin
- Posts : 362
Points : 665
Reputation : 55
Join date : 17/08/2010
Age : 40
Đến từ : Đà Nẵng -
Re: Xuất cao độ - toạ độ đường đồng mức ra tệp txt
by hongquan88 Fri Mar 08, 2013 10:20 am
Admin đã viết:Được, cái này mình mới vừa viết một đoạn code nhỏ phục vụ ý của mình, bạn xem dùng được thi dùng nhá.hongquan88 đã viết:Anh admin có thể nói rõ chút được không? Xuất cao độ, tọa độ đường đồng mức dạng pline sang text hay chỉ đơn thuần là các cao độ sẵn có? Có lisp nào có thể đưa bình đồ toàn đường đồng mức về bình đồ dạng cao độ không? Cám ơn anh nhiều.
Lệnh : TCD
Lưu ý: Code này chỉ tạo cao độ cho đường pline và các điểm cao độ là các đỉnh (vertex) của đường polyline, nên đường polyline càng mịn thì càng nhiều cao độ xuất ra, thử rồi biết nhá
Chúc thành công.
- Code:
;;; ghi cao do nhan duong dong muc theo 1 duong polyline
(defun c:tcd (/ ss c ssn ent ssp ssl i pt com)
(SAVE_MODE)
(prompt "\nChon duong polyline : ")
(setq ss (ssget (list (cons 0 "*POLYLINE"))))
(setq c 0)
(repeat (sslength ss)
(setq ssn (ssname ss c)
ent (entget ssn))
(setq sspt (getVert ssn))
(setq ssl (length sspt)
i 0)
(repeat ssl
(setq pt (nth i sspt))
(setq com (nth 2 pt))
(MAKE_TEXT (rtos com 2 2) pt 0.5 0.7 0.0 2 0 0)
(setq i (1+ i))
);while
(setq c (1+ c))
);while
(RESTORE)
(princ)
);defun
(defun getVert (e / i L)
(setq i -1 L nil)
(repeat (fix (1+ (vlax-curve-getEndParam e) ))
(setq i (1+ i) L (append L (list (vlax-curve-getPointAtParam e i))))
)
)
;;; =======================================================================================
;;; =========================== CAC HAM CON THONG DUNG_TAUNV ==============================
;;; =======================================================================================
; HAM LUU VA TRA LAI CAC THONG SO BAN DAU
(DEFUN SAVE_MODE ()
(COMMAND "UNDO" "BEGIN")
(SETQ OLD_OSMODE (GETVAR "OSMODE")
OLD_CECOLOR (GETVAR "CECOLOR")
OLD_AUTOSNAP (GETVAR "AUTOSNAP")
OLD_ORTHOMODE (GETVAR "ORTHOMODE")
OLD_LAYER (GETVAR "CLAYER")
OLD_TEXTSTYLE (GETVAR "TEXTSTYLE")
OLD_ERROR *ERROR*
TIME (GETVAR "MILLISECS")
)
(SETVAR "CMDECHO" 0)
)
(DEFUN RESTORE ()
(COMMAND "UNDO" "END")
(SETVAR "OSMODE" OLD_OSMODE)
(SETVAR "AUTOSNAP" OLD_AUTOSNAP)
(SETVAR "ORTHOMODE" OLD_ORTHOMODE)
(SETVAR "CLAYER" OLD_LAYER)
(SETVAR "TEXTSTYLE" OLD_TEXTSTYLE)
(COMMAND "CECOLOR" OLD_CECOLOR)
(SETVAR "CMDECHO" 1)
(PROMPT (STRCAT "\nWrite by Nguyen Van Tau-0982.767.231 >>> " (RTOS (/ (- (GETVAR "MILLISECS") TIME) 1000.0)) "s Completed!"))
(PRINC)
)
; HAM TRINH BAY LOI
(DEFUN *ERROR* (MSG)
(COND
((= MSG "QUIT / EXIT ABORT")
(PRINC)
)
( (/= MSG "FUNCTION CANCELLED")
(PRINC)
)
)
(SETQ *ERROR* OLD_ERROR)
(PRINC)
)
; HAM TAO TEXT
(DEFUN MAKE_TEXT (COM PT HT WI AG CO D72 D73)
(IF (/= PT NIL)
(ENTMAKE (LIST
(CONS 0 "TEXT")
(CONS 10 PT) ;POINT
(CONS 40 HT) ;HEIGHT
(CONS 1 COM) ;VALUE
(CONS 41 WI) ;WIDTH
(CONS 50 AG) ;ANGLE
(CONS 62 CO) ;COLOR
(CONS 7 (GETVAR "TEXTSTYLE")) ;TEXTSTYLE
(CONS 72 D72) ;0 = Left;1= Center;2 = Right;3 = Aligned (if vertical alignment = 0);
;4 = Middle (if vertical alignment = 0);5 = Fit (if vertical alignment = 0)
(CONS 11 PT) ;POINT
(CONS 73 D73) ;0 = Baseline; 1 = Bottom; 2 = Middle; 3 = Top
)
)
)
)
Rất cám ơn về lisp của bạn, rất hữu ích đối với mình.
Bạn cho mình hỏi thêm là có lisp nào điền cao độ cho đường đồng mức 1 cách nhanh nhất không, không cần gán cao độ cho từng đường một ấy, vì bản vẽ của mình toàn đường đồng mức bị đứt khúc, ko có cao độ, lại hơi dày đặc quá. Nếu có thê, mong được bạn giúp đỡ. Cám ơn bạn nhiều.
hongquan88- Khám tuyển
- Posts : 2
Points : 2
Reputation : 0
Join date : 28/02/2013
Re: Xuất cao độ - toạ độ đường đồng mức ra tệp txt
by Admin Fri Mar 08, 2013 1:35 pm
có phải ý bạn "điền cao độ cho đường đồng mức" là gán cao độ cho đường polyline? Nếu vậy thì cũng có nhưng ko thực sự hay lắm.
Tốt nhất là nên nối các đường đồng mức đó lại trước rồi sau đó gán cao độ cho nó. Chứ để lộn xộn thì khó mà có cái gì làm được, vì phần mềm chẳng qua thay chúng ta thực hiện các thao tác thôi mà, đâu thể hiểu cái này cái kia khi tất cả đều giống nhau được
Tốt nhất là nên nối các đường đồng mức đó lại trước rồi sau đó gán cao độ cho nó. Chứ để lộn xộn thì khó mà có cái gì làm được, vì phần mềm chẳng qua thay chúng ta thực hiện các thao tác thôi mà, đâu thể hiểu cái này cái kia khi tất cả đều giống nhau được
Admin- Admin
- Posts : 362
Points : 665
Reputation : 55
Join date : 17/08/2010
Age : 40
Đến từ : Đà Nẵng -
Similar topics» Lisp ghi nhãn cho đường đồng mức
» phân phối và sản xuất đèn pha
» HIKARU sản xuất và phân phối tủ điện
» phân phối và sản xuất đèn pha
» HIKARU sản xuất và phân phối tủ điện
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết
» Phần mềm bản đồ địa hình TOPO - San nền HS
» Khai giảng lớp bảo quản, tu bổ phục hồi di tích tại Hà Nội
» Học chứng chỉ quản lý, vận hành nhà chung cư ở đâu tốt nhất
» Đối tượng thi sát hạch chứng chỉ hành nghề giám sát, thiết kế hạng 1
» Địa điểm làm chứng chỉ năng lực xây dựng nhanh nhất
» Học nhanh chứng chỉ quản trị sản xuất tại Đà Nẵng ngày 14-7
» Địa điểm học nhanh chứng chỉ an toàn hóa chất theo TT 36
» Đăng tải thông tin năng lực nhà thầu giá rẻ
» Tại sao cần làm chứng chỉ năng lực xây dựng?
» Lịch thi sát hạch chứng chỉ hành nghề giám sát, khảo sát, thiết kế tháng 6
» Đăng tải hồ sơ năng lực xây dựng
» Thói quen thay dầu máy xe ô tô không đúng cách là nguyên nhân khiến động cơ ôtô nhanh xuống cấp
» Chăm sóc bảo dưỡng bảo trì ôtô đúng cách
» Khi nào cần thay nhớt động cơ xe hơi - ôtô