Đến nội dung


Hình ảnh
- - - - -

[Đã xong] Lisp xuất-nhập toạ độ


  • Please log in to reply
59 replies to this topic

#41 bosstuyentn

bosstuyentn

    biết vẽ line

  • Members
  • PipPip
  • 24 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 23 March 2010 - 05:01 PM

Q. Còn ống cong bất kỳ thì sao + muốn ống rỗng thì làm như thế nào?
A. Thì phải vẽ 1 profile rồi dùng lệnh Xpipe hoặc Xtube.

dùng lệnh của bác em chỉ vẽ được hình trụ đặc thôi, ý em là em muốn vẽ 1 ống nó có độ dầy là x thì làm thế nào. em toàn vẽ 2 hình trùng tâm rùi Subtrạct nhưng như thế lâu quá.. mà cái lệnh xpipe và xtube dùng thế nào, em ko vẽ được theo 1 đường cong tùy ý cho trước
  • 0
Tiền không phải là tất cả nhưng ko có tiền chả làm được cái gì hết...

WinPower -Thiết bị ngành điện, trạm điện, an ninh, PCCC
Hình đã gửi

#42 Phiphi-

Phiphi-

    biết lệnh minsert

  • Members
  • PipPipPipPipPipPip
  • 434 Bài viết
Điểm đánh giá: 175 (tàm tạm)

Đã gửi 02 April 2010 - 07:35 PM

dùng lệnh của bác em chỉ vẽ được hình trụ đặc thôi, ý em là em muốn vẽ 1 ống nó có độ dầy là x thì làm thế nào. em toàn vẽ 2 hình trùng tâm rùi Subtrạct nhưng như thế lâu quá.. mà cái lệnh xpipe và xtube dùng thế nào, em ko vẽ được theo 1 đường cong tùy ý cho trước

TD: Vẽ đường ống có D=100, d=80 , Độ dày x=(D-d)/2
1. Vẽ dường tâm của đoạn ống (gọi là PROFILE = đường cong màu đỏ trong bài #49)
2. Load Xtube.lsp, đánh lệnh XTUBE:
Command: XTUBE
Specify external diameter <40.00>: 100
Specify internal diameter <37.00>: 80
<<< Select objects to extrude and press Enter >>>
Select objects: 1 found
Enter.
Chuyển sang 3D view để xem.
  • 1

#43 bosstuyentn

bosstuyentn

    biết vẽ line

  • Members
  • PipPip
  • 24 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 05 April 2010 - 08:46 AM

TD: Vẽ đường ống có D=100, d=80 (Độ dày x=D-d)
1. Vẽ dường tâm của đoạn ống (gọi là PROFILE = đường cong màu đỏ trong bài #49)
2. Load Xtube.lsp, đánh lệnh XTUBE:
Command: XTUBE
Specify external diameter <40.00>: 100
Specify internal diameter <37.00>: 80
<<< Select objects to extrude and press Enter >>>
Select objects: 1 found
Enter.
Chuyển sang 3D view để xem.

Cảm ơn bác PhiPhi nhiều. em làm được rồi
  • 0
Tiền không phải là tất cả nhưng ko có tiền chả làm được cái gì hết...

WinPower -Thiết bị ngành điện, trạm điện, an ninh, PCCC
Hình đã gửi

#44 kienpt_83

kienpt_83

    Chưa sử dụng CAD

  • Members
  • Pip
  • 1 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 26 May 2010 - 05:33 PM

+ Bác cứ unzip vào thẳng folder x:\Program Files\AutoCAD xxxx\Support.
+ Lệnh APPLOAD, chọn filename: IMPORTXYZ (double click)
+ Lệnh IMPORTXYZ, chọn file toạ độ.

file excel cần có định dạng như thế nào thì mới dùng được.em đã thử dùng nhưng khi bấm vào GetxyzCoord thì toàn báo lỗi và không thể load tọa độ điểm đc.Mong các pro giúp em với!!!!!!!!
  • 0

#45 tdkhoa

tdkhoa

    Chưa sử dụng CAD

  • Members
  • Pip
  • 3 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 12 August 2010 - 03:07 PM

Chào các bác.
Líps này tuy đã viết lâu rồi, tôi cũng đã dơnload về dùng thừ nhưng không thể sử dụng, nay tôi muốn quay lại vấn đề này một chút, mong các bác nhiệt tình giúp đỡ.
Thứ nhất: Khi thực hiện xong việc đưa tọa độ x,y và cao độ z vào thì khó có thể nối các điểm lại với nhau. Xem hình của bác Phiphi
http://www.cadviet.c...?showtopic=9019
Em muốn các bác viết giúp em cái lips nối các điểm giao nhau ấy lại chứ nối bằng tay thì lâu qua, hoặc có cách nào chỉ giúp em cụ thể tí.
Em là dân ngoại đạo mong các bác giúp đỡ. Chân thành cám ơn.
  • 0

#46 NguyenNgocSon

NguyenNgocSon

    biết dimbaseline

  • Members
  • PipPipPipPipPip
  • 368 Bài viết
Điểm đánh giá: 39 (tàm tạm)

Đã gửi 18 June 2011 - 11:08 AM

+ Lệnh TABCORD để vẽ bảng toạ độ trong CAD.

Lisp này rất hay. Mình muốn chỉnh tên các đỉnh Polyline xuất ra theo định dạng: A1, A2,...An. Chứ không phải theo định dạng A,B,..,M... (anphab)
Cám ơn nhiều !
  • 0

#47 nhatquyelec

nhatquyelec

    biết vẽ line

  • Members
  • PipPip
  • 29 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 21 October 2011 - 02:27 PM

Chào mọi người,
Mình vào diễn đàn thấy đề tài này có liên quan đến công việc mình đang làm, giờ hỏi không biết có còn ai trả lời không!
Mong mọi người giúp đỡ
  • 0

#48 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 21 October 2011 - 02:44 PM

Chào mọi người,
Mình vào diễn đàn thấy đề tài này có liên quan đến công việc mình đang làm, giờ hỏi không biết có còn ai trả lời không!
Mong mọi người giúp đỡ

Sao chưa hành động mà đã sợ thất bại? Yêu ai thì cứ tán đại đi chứ!
  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#49 tien05mt

tien05mt

    Chưa sử dụng CAD

  • Members
  • Pip
  • 1 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 04 August 2012 - 09:56 AM

PP xin upload các LISP và 1 bản vẽ để Bác nào quan tâm thì tham khảo thêm:
http://www.cadviet.c...nhap_toa_do.zip
PP sử dụng trong bản vẽ như sau:
+ Lệnh C2P trong C2P.lsp (do Bác Ssg viết) để chia Pline (màu green) cách khoảng 5 unit.
+ Lệnh COORN trong COORN.lsp để xuất các toạ độ trên Pline ra 1 file Excel/Text.
+ Lệnh TABCORD để vẽ bảng toạ độ trong CAD.
+ Lấy giá tri Z elevation trong bản vẽ để thay các Z trong file toa độ.
+ Lệnh IMPTS trong TAL_ImportPts.lsp đọc file text để vẽ các Points với cao độ Z.
+ Nối các Point lại với nhau.
LISP cần bổ sung thêm:
1. Lisp vẽ các Point tại các giao điểm của profile (màu vàng) rồi xuất ra file Excel/Text và 1 bảng toạ độ như COORN.lsp
2. Sửa lại TAL_ImportPts.lsp để có thể tự động vẽ line nối các point với nhau.
Xin các Bác help thêm. Thanks you
P/s: TAL_ImportPts.lsp > http://www.cadviet.c...?showtopic=8894

Hình đã gửi
Hình đã gửi

Cho mình hỏi tí. lệnh coorn xuất tọa độ sang txt or excel, mình ko xuất nhưng cao độ Z ko có. bạn có thế chỉ cho mình với ko? thank for you!
  • 0

#50 thanhsan57

thanhsan57

    Chưa sử dụng CAD

  • Members
  • Pip
  • 1 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 10 April 2013 - 05:02 PM

PP xin upload các LISP và 1 bản vẽ để Bác nào quan tâm thì tham khảo thêm:
http://www.cadviet.c...nhap_toa_do.zip
PP sử dụng trong bản vẽ như sau:
+ Lệnh C2P trong C2P.lsp (do Bác Ssg viết) để chia Pline (màu green) cách khoảng 5 unit.
+ Lệnh COORN trong COORN.lsp để xuất các toạ độ trên Pline ra 1 file Excel/Text.
+ Lệnh TABCORD để vẽ bảng toạ độ trong CAD.
+ Lấy giá tri Z elevation trong bản vẽ để thay các Z trong file toa độ.
+ Lệnh IMPTS trong TAL_ImportPts.lsp đọc file text để vẽ các Points với cao độ Z.
+ Nối các Point lại với nhau.
LISP cần bổ sung thêm:
1. Lisp vẽ các Point tại các giao điểm của profile (màu vàng) rồi xuất ra file Excel/Text và 1 bảng toạ độ như COORN.lsp
2. Sửa lại TAL_ImportPts.lsp để có thể tự động vẽ line nối các point với nhau.
Xin các Bác help thêm. Thanks you
P/s: TAL_ImportPts.lsp > http://www.cadviet.c...?showtopic=8894
 

Chào bạn Phiphi bạn có thể chỉ cho mình rõ hơn về lệnh IMPTS trong TALL_ImportPts.lsp không mình đang cần nối các points theo số thứ tự trong file txt lại với nhau, vì số lượng points rất nhiều trên 3000 điểm mà nối bằng tay thì ko biết đến khi nào mong bạn giúp đở cảm ơn bạn rất nhiều


  • 0

#51 muckinh

muckinh

    Chưa sử dụng CAD

  • Members
  • Pip
  • 4 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 15 October 2013 - 10:19 PM

Hi Nataca, PP chỉ làm công việc của 1 CADD drafter 3D cùng với nhóm thiết kế 1 hệ thống điện cao thế ngầm dưới đất từ nhá máy điện đến trung tâm phân phối trong thành phố (cách xa nhau hơn chục Km) Các đường cáp điện cao thế này sẽ nằm dưới các hệ thống đường ống Gas, Water, Sewer, Điện thoại, điện đường giao thông vv...đã có sằn rồi (hoặc lắp đặt thêm). Yêu cầu an toàn của các cáp cao thế rất chặt chẻ, cần phải cách xa các bề mặt bên trên và các hệ thống đưởng ống khác ngầm dưới đất những khoảng cách quy định, vì vậy bài toán này là vẽ các đường ống/cables 3D, các Profiles, mặt cắt ở những chổ sẽ giao nhau...Input là tập hợp các sơ đồ của các hệ thống Gas, Water, Sewer, Điện thoại, điện đường giao thông vv...Các bản vẽ khảo sát cũ và thuê cty khảo sát khi cần. Nói chung như vậy thì chắc Nataca sẽ hiểu.
Bây giờ PP xin up thêm Lisp khác:
+ Lệnh XDIV dùng chia đường cong, Lines, Pline 3D (chỉ vẽ các Points) theo các đoạn khác nhau do user nhập.
+ Lệnh PTEXPORT xuất các points hay Pline ra file .txt
+ Lệnh 3DOFFSET dùng offset các Pline 3D
+ Lệnh 3PEDIT chỉ dùng nối 2 Pline 3D với nhau. Lisp này cần sửa để có thể select nhiều Pline cùng 1 lúc.
http://www.cadviet.c..._bo_sung_2_.zip

Anh ơi, lick die rồi hay sao e tải ko về đc, mong a chia sẻ lại cho e với, e chân thành cám ơn, gmail e là dungsl711@gmail.com

thank a, mong nhận đc câu trả lời sớm từ a


  • 0

#52 conanqn

conanqn

    Chưa sử dụng CAD

  • Members
  • Pip
  • 1 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 29 March 2014 - 10:41 AM

" Lệnh IMPORTXYZ dùng đọc toạ độ từ file text rồi vẽ Points, Circle, Lines, Block ... vào b/v CAD.
Link down của LISP: http://www.jefferyps...m/IMPORTXYZ.zip
(Nhớ tạo đường dẩn để Lisp open file IMPORTXYZ.DCL)
Lisp của JefferyPSanders.com "

 

thanks bác vì đã chia sẻ lisp rất hay. Mình muốn nhờ mọi người có thể thêm lệnh ghi cao độ của điểm đó vào text đặt cạnh điểm đó được không? Mong mọi người giúp đỡ


  • 0

#53 tranchiksxd2000

tranchiksxd2000

    Chưa sử dụng CAD

  • Members
  • Pip
  • 2 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 29 March 2014 - 10:58 AM

Anh em nào có lisp coppy thông minh theo dạng tùy chọn điểm không ( VD có sẵn điểm  0.00 muốn coppy sang điểm B có khoảng cách 2.00 thi số 0.00 nhảy thành 2.00) trong khoảng cách cộng dồn trong bản vẽ đường hay thủy lợi đó. cam ơn cac bác nhé. mong chỉ cho em cái


  • 0

#54 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 29 March 2014 - 11:38 AM

Anh em nào có lisp coppy thông minh theo dạng tùy chọn điểm không ( VD có sẵn điểm  0.00 muốn coppy sang điểm B có khoảng cách 2.00 thi số 0.00 nhảy thành 2.00) trong khoảng cách cộng dồn trong bản vẽ đường hay thủy lợi đó. cam ơn cac bác nhé. mong chỉ cho em cái

Hề hề hề,

Gửi bản vẽ lên, mô tả rõ điều bạn cần. Nói như rứa thiệt khó hình dung. Nên nhớ một điểm trong Cad sẽ tùy từng trường hợp mà có thể có 2 hoặc 3 tọa độ kèm theo. Chọn cái nào để ghi??? Nếu là ghi khoảng cách thì sẽ có rất nhiều điểm có cùng giá trị ghi, vậy ghi thế nào???

Chỉ cho em cái thì hơi khó chứ còn chỉ cho em đực thì không phải là không thể....

Hề hề hề,...


  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#55 vantuan18nd

vantuan18nd

    biết vẽ rectang

  • Members
  • PipPip
  • 83 Bài viết
Điểm đánh giá: -3 (bình thường)

Đã gửi 29 March 2014 - 02:35 PM

+ Lệnh IMPORTXYZ dùng đọc toạ độ từ file text rồi vẽ Points, Circle, Lines, Block ... vào b/v CAD.
Link down của LISP: http://www.jefferyps...m/IMPORTXYZ.zip
(Nhớ tạo đường dẩn để Lisp open file IMPORTXYZ.DCL)
Lisp của JefferyPSanders.com

? Cấu trúc của file Text thế nào hả bác PP


  • 0

#56 badsboys111

badsboys111

    Chưa sử dụng CAD

  • Members
  • Pip
  • 2 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 29 August 2014 - 08:04 AM

Bác Phi Phi up lại link autolisp1 được không, mình đang rất cần lisp xpipe và xtube để vẽ đường ống cong bất lì mà vào link của bác thì ko down  được vì quá tải. Cảm ơn bác rất nhiều


  • 0

#57 vananconstruct

vananconstruct

    Chưa sử dụng CAD

  • Members
  • Pip
  • 1 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 30 April 2015 - 09:29 PM

http://www.cadviet.c.../4/77466_st.rar

Xuất text theo thứ tự tự. mời các bác tham khảo.


  • 0

#58 chuyenqh

chuyenqh

    Chưa sử dụng CAD

  • Members
  • Pip
  • 2 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 10 September 2015 - 06:58 PM

Hiện tại mình đang thi công đường, khi xuất các toạ độ điểm trên mặt cắt ngang ra excel thì có lisp xuất toạ độ nhưng phải kích vào từng điểm, với 1 đường dạng pline kiểu như đường tự nhiên, số lượng điểm rất lớn. Mình muốn xuất toạ độ theo toa độ tương đối
(giả sử tim đường đỏ), mà chỉ cần kích vào pl đó là xuất ra toa độ các điểm nằm trên pl đó, nhờ các bạn viết giúp lisp ( Trước nay,với các đường dạng pl, mình thường chuyển tọa độ UCS, sau đó dùng lẹnh Li để pick vào, rồi copy sang excel) Nhưng việc chuyển gốc tọdđộ hơi mất thời gian, nên muốn các bạn giúp mình viết lisp làm nhanh hơn


  • -1

#59 khanhdiaoc

khanhdiaoc

    Chưa sử dụng CAD

  • Members
  • Pip
  • 4 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 18 October 2016 - 12:01 AM

PP xin upload các LISP và 1 bản vẽ để Bác nào quan tâm thì tham khảo thêm:
http://www.cadviet.c...nhap_toa_do.zip
PP sử dụng trong bản vẽ như sau:
+ Lệnh C2P trong C2P.lsp (do Bác Ssg viết) để chia Pline (màu green) cách khoảng 5 unit.
+ Lệnh COORN trong COORN.lsp để xuất các toạ độ trên Pline ra 1 file Excel/Text.
+ Lệnh TABCORD để vẽ bảng toạ độ trong CAD.
+ Lấy giá tri Z elevation trong bản vẽ để thay các Z trong file toa độ.
+ Lệnh IMPTS trong TAL_ImportPts.lsp đọc file text để vẽ các Points với cao độ Z.
+ Nối các Point lại với nhau.
LISP cần bổ sung thêm:
1. Lisp vẽ các Point tại các giao điểm của profile (màu vàng) rồi xuất ra file Excel/Text và 1 bảng toạ độ như COORN.lsp
2. Sửa lại TAL_ImportPts.lsp để có thể tự động vẽ line nối các point với nhau.
Xin các Bác help thêm. Thanks you
P/s: TAL_ImportPts.lsp > http://www.cadviet.c...?showtopic=8894

profilecl2.jpg
w1080.png

Các bạn ơi. Minh cần cái này gấp lắm. Xuất tọa độ từ cad sang excel với các pline bằng lệnh "COORN" là ok lắm. Nhưng mấy đoạn cong mình muốn lấy 3 điểm tọa độ mà không được. Có pro nào giúp mình với. file của mình nè.


  • 0

#60 nhunha_pro279

nhunha_pro279

    biết zoom

  • Members
  • Pip
  • 17 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 30 November 2016 - 09:19 AM

+Lệnh IP dùng để insert các Points tại các giao điểm của các Line/Pline/Spline (trên mặt phằng XY) sau khi dùng mouse quét qua các objects.
Lisp do Trưởng lão Ssg viết:

;;;-----------------------------------------------------
(defun ss2ent (ss / i Le e) ;;;Convert ss to list of ename
(setq i 0)
(repeat (sslength ss)
(setq
e (ssname ss i)
Le (append Le (list e))
i (1+ i)
)
)
Le
)
;;;-----------------------------------------------------
(defun Inters (e1 e2 / ob1 ob2 g L i kq)
(vl-load-com)
(setq
ob1 (vlax-ename->vla-object e1)
ob2 (vlax-ename->vla-object e2)
g (vlax-variant-value (vla-IntersectWith ob1 ob2 acExtendNone))
)
(if (/= (vlax-safearray-get-u-bound g 1) -1) (setq L (vlax-safearray->list g)))
(setq i 0)
(repeat (/ (length L) 3)
(setq kq (append (list (list (nth i L) (nth (+ i 1) L) (nth (+ i 2) L))) kq))
(setq i (+ i 3))
)
kq
)
;;;-----------------------------------------------------
(defun C:IP ( / Le e0 e Lp p) ;;;Intersection Points
(setq Le (ss2ent (ssget '((0 . "LINE,POLYLINE,LWPOLYLINE,SPLINE")))))
(repeat (1- (length Le))
(setq Le (vl-remove (setq e0 (car Le)) Le))
(foreach e Le (setq Lp (append Lp (inters e0 e))))
)
(foreach p Lp (entmake (list (cons 0 "POINT") (cons 10 (list (car p) (cadr p) 0.0)))))
(princ)
)
;;;-----------------------------------------------------

Bác ơi có thể phát triển lisp này để đếm số lượng điểm point được không nhỉ?


  • 0