Đến nội dung


Hình ảnh
- - - - -

Lisp số hóa bình đồ


  • Please log in to reply
16 replies to this topic

#1 xuantran15

xuantran15

    biết lệnh ddedit

  • Members
  • PipPipPipPip
  • 295 Bài viết
Điểm đánh giá: 112 (tàm tạm)

Đã gửi 09 January 2009 - 08:45 AM

Hiện nay công việc của em hay phải thực hiện một công việc đơn giản nhưng cực tốn thời gian đó là gán cao độ cho các đường đồng mức. Vì vậy để tiết kiệm thời gian nên em mạnh dạn post lên đây mong được các bác giúp đỡ:
Bác nào có thể giúp em cái lisp gán cao độ cho bình đồ như sau.

1/ Gõ lệnh VD: cc enter
2/ Nhập vào cao độ ban đầu enter
3/ nhập vào độ chênh cao giữa các đường dồng mức (có thể là một số âm hoặc dương VD: +1 hơặc -1) enter
4/ Cuối cùng pick chuột lên các đường đồng mức cần gán cao độ và nó sẽ tự động gán vào cao độ cho đường đồng mức này (Cao độ được gán có trị số được tính theo hình thức công dồn VD: cao đọ xuất phát ban đầu là 100 với chênh cao là 1 thì đường đồng mức được pick đầu tiện là 101, đường dc pick tiếp theo là 102......).
5/ Việc gán cao độ đuợc khống chế sao cho an toàn vì cái này liên quan đến Khối lượng công trình rất lớn (Chỉ tác động đến Elevation của đường ĐM mà thôi mọi thuộc tinh khác sẽ đựoc giữ lại)
6/ Sau khi gán cao độ đường được gán sẽ được chuyển về một layer mới VD: DM da so hoa.
http://www.cadviet.c...untitled_53.bmp
Yêu cầu của em có phần dài dòng vì cố gắng diễn đạt cho các bác hiểu :D Cám ơn các bác nhiều vì đã lắng nghe. ^_^ Mong được sự giúp đỡ xủa các bác :D
  • 0
Hình đã gửi
Thu đi cho lá vàng bay
Lá rơi cho đám cưới về......

#2 xuantran15

xuantran15

    biết lệnh ddedit

  • Members
  • PipPipPipPip
  • 295 Bài viết
Điểm đánh giá: 112 (tàm tạm)

Đã gửi 09 January 2009 - 11:59 AM

Có ai không giúp em với. Bác Hoành ơi giúp em với. cám ơn các bác nhiều. ^_^
  • 0
Hình đã gửi
Thu đi cho lá vàng bay
Lá rơi cho đám cưới về......

#3 meohoang

meohoang

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 811 Bài viết
Điểm đánh giá: 342 (khá)

Đã gửi 09 January 2009 - 01:01 PM

Có ai không giúp em với. Bác Hoành ơi giúp em với. cám ơn các bác nhiều. ^_^

Có cái này của bạn tnmtpc tổng hợp chắc là đúng ý bạn rùi
Link đây nhé
  • 0

#4 thiep

thiep

    biết dimbaseline

  • Members
  • PipPipPipPipPip
  • 369 Bài viết
Điểm đánh giá: 260 (khá)

Đã gửi 09 January 2009 - 01:39 PM

Có cái này của bạn tnmtpc tổng hợp chắc là đúng ý bạn rùi
Link đây nhé

Quả là tuyệt, nhưng lệnh thì không cái nào thực hiện được. Phải làm sao đây tnmtp và meohoang?
  • 0

#5 tnmtpc

tnmtpc

    biết dimcontinue

  • Members
  • PipPipPipPipPip
  • 370 Bài viết
Điểm đánh giá: 206 (khá)

Đã gửi 09 January 2009 - 02:46 PM

Quả là tuyệt, nhưng lệnh thì không cái nào thực hiện được. Phải làm sao đây tnmtp và meohoang?

Bạn vào topic mylisp-Tổng hợp các file lisp thường dùng, đọc kỹ sẽ biết cách sử dụng
  • 0

#6 xuantran15

xuantran15

    biết lệnh ddedit

  • Members
  • PipPipPipPip
  • 295 Bài viết
Điểm đánh giá: 112 (tàm tạm)

Đã gửi 10 January 2009 - 08:10 AM

Command:
Command:
Command: okh3 *Cancel*
no function definition: C:OKH3
Command:
Command:
Command: dm *Cancel*
no function definition: C:DM
Command:
Command:
Command: tl
Vao ty le ban ve 1/x. x=(Pick/<100.0>): *Cancel*

Command:
Command: GHIDT *Cancel*
no function definition: C:GHIDT
Command:
Command:
Command: TGRAPH *Cancel*
no function definition: C:TGRAPH


Không thể dùng được, em đã cài thử vào cad2004 nhưng vẫn bó tay. cad không hiểu được lệnh. nhờ bác xem lại dùm nhé, Tiện đây cũng hỏi bác trong cái Mylisp của bác có cái lênh nào thực hiện được những yêu cầu như trên của em không, Thanks bác nhiều

1/ Gõ lệnh VD: cc enter
2/ Nhập vào cao độ ban đầu enter
3/ nhập vào độ chênh cao giữa các đường dồng mức (có thể là một số âm hoặc dương VD: +1 hơặc -1) enter
4/ Cuối cùng pick chuột lên các đường đồng mức cần gán cao độ và nó sẽ tự động gán vào cao độ cho đường đồng mức này (Cao độ được gán có trị số được tính theo hình thức công dồn VD: cao đọ xuất phát ban đầu là 100 với chênh cao là 1 thì đường đồng mức được pick đầu tiện là 101, đường dc pick tiếp theo là 102......).
5/ Việc gán cao độ đuợc khống chế sao cho an toàn vì cái này liên quan đến Khối lượng công trình rất lớn (Chỉ tác động đến Elevation của đường ĐM mà thôi mọi thuộc tinh khác sẽ đựoc giữ lại)
6/ Sau khi gán cao độ đường được gán sẽ được chuyển về một layer mới VD: DM da so hoa.
Reduced: 93% of original size [ 768 x 540 ] - Click to view full image


  • 0
Hình đã gửi
Thu đi cho lá vàng bay
Lá rơi cho đám cưới về......

#7 meohoang

meohoang

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 811 Bài viết
Điểm đánh giá: 342 (khá)

Đã gửi 10 January 2009 - 08:43 AM

Không thể dùng được, em đã cài thử vào cad2004 nhưng vẫn bó tay. cad không hiểu được lệnh. nhờ bác xem lại dùm nhé, Tiện đây cũng hỏi bác trong cái Mylisp của bác có cái lênh nào thực hiện được những yêu cầu như trên của em không, Thanks bác nhiều

Bạn cài xong vào thư mục C:\Mylisp (có thể khác khi bạn chọn lại đường dẫn) sẽ thấy file acad.lsp bạn dùng lệnh app load file này lên thì sẽ dùng được bộ lệnh mylisp.
Trong menu có lệnh "Gán cao độ cho Pline" đúng yêu cầu của bạn. Bạn nên đọc kỹ Topic của bạn tnmtpc sẽ hiểu rõ hơn. Bộ mylisp chạy được với Cad2008 mặc dù vẫn còn có 1 vài lỗi nhưng ko quan trọng xài khá tốt
  • 0

#8 xuantran15

xuantran15

    biết lệnh ddedit

  • Members
  • PipPipPipPip
  • 295 Bài viết
Điểm đánh giá: 112 (tàm tạm)

Đã gửi 10 January 2009 - 04:32 PM

Cám ơn mèo hoang nhé, mình làm được rồi và cũng đã thử dùng lênh gán text cao độ cho pl. đây là một lệnh rất hay nhưng mới chỉ đáp ứng được một phần yêu cầu của minh mà thôi. Lệnh này nhanh so với cách làm củ của mình chỉ khoảng 1,5 lần thôi. (Tất nhiên thế cũng tốt lắm rồi). :D Nhưng nếu bác nào có hảo ý giúp cho em một cái lisp như trên thì tốt biết mấy. Cám ơn các bác nhiều. ^_^
  • 0
Hình đã gửi
Thu đi cho lá vàng bay
Lá rơi cho đám cưới về......

#9 Flex

Flex

    biết lệnh erase

  • Members
  • PipPipPip
  • 104 Bài viết
Điểm đánh giá: 22 (tàm tạm)

Đã gửi 10 January 2009 - 10:31 PM

Cám ơn mèo hoang nhé, mình làm được rồi và cũng đã thử dùng lênh gán text cao độ cho pl. đây là một lệnh rất hay nhưng mới chỉ đáp ứng được một phần yêu cầu của minh mà thôi. Lệnh này nhanh so với cách làm củ của mình chỉ khoảng 1,5 lần thôi. (Tất nhiên thế cũng tốt lắm rồi). :D Nhưng nếu bác nào có hảo ý giúp cho em một cái lisp như trên thì tốt biết mấy. Cám ơn các bác nhiều. :D

Cái này ( ^_^) có nghĩa là gì vậy? :D
  • 0
Phần mềm và Tiện ích trên AutoCAD
->SHD- Phần mềm TK nhà xưởng thép tiền chế
->Nhận hợp tác thiết kế nhà thép tiền chế
website: www.cad-app.com
email: flexnet@cad-app.com
ym: flex_tools

#10 xuantran15

xuantran15

    biết lệnh ddedit

  • Members
  • PipPipPipPip
  • 295 Bài viết
Điểm đánh giá: 112 (tàm tạm)

Đã gửi 10 January 2009 - 11:59 PM

Cái này có nghĩa là nếu bác ở gần đây em sẽ mời bác một chầu bí tỉ ^_^
  • 0
Hình đã gửi
Thu đi cho lá vàng bay
Lá rơi cho đám cưới về......

#11 tbhv

tbhv

    biết vẽ circle

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

Đã gửi 11 January 2009 - 12:40 AM

Bác xuantran chỉ giáo cho cách làm với,trên cad 2004 có làm dc ko vậy
  • 0

#12 Flex

Flex

    biết lệnh erase

  • Members
  • PipPipPip
  • 104 Bài viết
Điểm đánh giá: 22 (tàm tạm)

Đã gửi 11 January 2009 - 08:39 AM

Cái này có nghĩa là nếu bác ở gần đây em sẽ mời bác một chầu bí tỉ ^_^

Hay nhất câu này, Flex ở HN nếu gần thì giao lưu....
  • 0
Phần mềm và Tiện ích trên AutoCAD
->SHD- Phần mềm TK nhà xưởng thép tiền chế
->Nhận hợp tác thiết kế nhà thép tiền chế
website: www.cad-app.com
email: flexnet@cad-app.com
ym: flex_tools

#13 xuantran15

xuantran15

    biết lệnh ddedit

  • Members
  • PipPipPipPip
  • 295 Bài viết
Điểm đánh giá: 112 (tàm tạm)

Đã gửi 11 January 2009 - 10:24 AM

Hay nhất câu này, Flex ở HN nếu gần thì giao lưu....

Thế thì em pó tay thôi. em ở tận Nha Trang kia mà. tiếc quá tiếc quá ^_^

Bác xuantran chỉ giáo cho cách làm với,trên cad 2004 có làm dc ko vậy


Ý bạn là sao mình chưa hiểu lắm:
1/ Nếu bạn hỏi cách gán cao độ cho PL thì chỉ việc làm như hình ở trên.
2/ Nếu bạn muốn dùng cách gán cao độ bằng Mylisp của bác tnmtpc thì bạn phải cài mylisp lên sau đó tạo 1 text ghi cao độ băng chính cao độ mà bạn muốn gán cho PL và....... cứ như yêu cầu của lệnh bạn sẽ làm được.
http://www.cadviet.com/upfiles/vv.bmp
Cái này chỉ có thể gán cao độ cho PL một theo text đã có sẵn thôi, không thể tự động hóa nhanh hơn được, Mấy bác nhiệt tình giúp em cái lisp này thì tốt quá.

Hiện nay công việc của em hay phải thực hiện một công việc đơn giản nhưng cực tốn thời gian đó là gán cao độ cho các đường đồng mức. Vì vậy để tiết kiệm thời gian nên em mạnh dạn post lên đây mong được các bác giúp đỡ:
Bác nào có thể giúp em cái lisp gán cao độ cho bình đồ như sau.

1/ Gõ lệnh VD: cc enter
2/ Nhập vào cao độ ban đầu enter
3/ nhập vào độ chênh cao giữa các đường dồng mức (có thể là một số âm hoặc dương VD: +1 hơặc -1) enter
4/ Cuối cùng pick chuột lên các đường đồng mức cần gán cao độ và nó sẽ tự động gán vào cao độ cho đường đồng mức này (Cao độ được gán có trị số được tính theo hình thức công dồn VD: cao đọ xuất phát ban đầu là 100 với chênh cao là 1 thì đường đồng mức được pick đầu tiện là 101, đường dc pick tiếp theo là 102......).
5/ Việc gán cao độ đuợc khống chế sao cho an toàn vì cái này liên quan đến Khối lượng công trình rất lớn (Chỉ tác động đến Elevation của đường ĐM mà thôi mọi thuộc tinh khác sẽ đựoc giữ lại)
6/ Sau khi gán cao độ đường được gán sẽ được chuyển về một layer mới VD: DM da so hoa.


  • 0
Hình đã gửi
Thu đi cho lá vàng bay
Lá rơi cho đám cưới về......

#14 daotac541

daotac541

    biết vẽ circle

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

Đã gửi 15 January 2009 - 02:52 PM

Cái lips này em thấy có trong diễn đàn rồi mà. Em xin up lại vì em tìm ko ra ( lệnh là ep và mep )
http://www.cadviet.c.../doi_cao_do.lsp
  • 0

#15 Flex

Flex

    biết lệnh erase

  • Members
  • PipPipPip
  • 104 Bài viết
Điểm đánh giá: 22 (tàm tạm)

Đã gửi 16 January 2009 - 05:15 PM

To xuantran15. bác dùng cad version nào (2004,2006,2007,2008,2009 ???) mai T7 rảng viết cho bác cái tool này đơn giản thôi. Bác nhắn tin YM cho tôi để chắc chắn nhé.
  • 0
Phần mềm và Tiện ích trên AutoCAD
->SHD- Phần mềm TK nhà xưởng thép tiền chế
->Nhận hợp tác thiết kế nhà thép tiền chế
website: www.cad-app.com
email: flexnet@cad-app.com
ym: flex_tools

#16 xuantran15

xuantran15

    biết lệnh ddedit

  • Members
  • PipPipPipPip
  • 295 Bài viết
Điểm đánh giá: 112 (tàm tạm)

Đã gửi 16 January 2009 - 10:09 PM

Cám ơn các bạn nhiều, hôm trước mình nhờ bác nataca viet giúp rồi. lần nữa cám ơn các bác nhiều nghe. ^_^
ps/ Thanks Flex nhé. rồi sẽ có lúc phải làm phiền tới bác thôi. :D
  • 0
Hình đã gửi
Thu đi cho lá vàng bay
Lá rơi cho đám cưới về......

#17 thiep

thiep

    biết dimbaseline

  • Members
  • PipPipPipPipPip
  • 369 Bài viết
Điểm đánh giá: 260 (khá)

Đã gửi 17 January 2009 - 05:45 PM

Cái lips này em thấy có trong diễn đàn rồi mà. Em xin up lại vì em tìm ko ra ( lệnh là ep và mep )
http://www.cadviet.c.../doi_cao_do.lsp

Chỉ tại xuantran không chịu khó tìm trên cadviet thôi. Nên nhớ khi dùng lệnh mep, phải dùng cách chọn đối tượng là f, nó mới gán độ cao theo gia số theo ý nuốn
  • 0