Đến nội dung


Hình ảnh
* * * - - 8 Bình chọn

Viết lisp theo yêu cầu [phần 2]


  • Chủ đề bị khóa Chủ đề bị khóa
3783 replies to this topic

#2901 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 20 December 2010 - 04:40 PM

:undecided: bác Thaiztress giúp em được không ạ???

không chỉ mình có thể giúp, nhiều người khác cũng có thể giúp bạn. nhưng bạn đưa cái đề bài thế kia thì biết giúp bạn kiểu gì?
yêu cầu nêu rõ nhé:
- Bạn dùng nova bản nào?
- nguyên nhân nào khiến bạn phải đổi tên cọc, và phải đổi như thế nào?
  • 1

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#2902 VUVUZELA

VUVUZELA

    biết lệnh chamfer

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

Đã gửi 20 December 2010 - 05:36 PM

:leluoi: bác Thaiztress giúp em được không ạ???


bác í chỉ giỏi hút thuốc thôi, bít j mà hỏi (mà có trả lời cũng vòng vo chập bác mệt mỏi à)
Phải hỏi tui nè. Cái vấn đề của bác cũng đơn giản thôi, không cần Lisp liết j cả đâu. Bác làm theo thứ tự tui bày nhé :
1. Mở file Nova
2. Bấm lệnh SSLT ==> ra hộp thoại nova
3. Save as ra file khác ==> ví dụ tuyen1.ntd
4. Mở file mới
5. Bấm lệnh RTDN
6. Mở lại file tuyen1.ntd ==> sửa tên cọc theo ý muốn cho nhẹ hều
7. Save as hoặc save luôn file đó luôn
8. Đổi tên xong ==> Bấm lệnh T ==> chạy nova ngon lành luôn
Đảm bảo thành công 100%
(nếu bác muốn nâng cao hơn nữa như tự động đổi tên cọc, xoá các điểm mia trên trắc ngang gần nhau quá (vd như :undecided:
  • 1

Hệ thống Liên Kết, Thiết Kế Tự Động

ttps://www.facebook...etThietKeTuDong


#2903 uce46

uce46

    biết zoom

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

Đã gửi 20 December 2010 - 06:53 PM

$$$ gì, dùng Topo đi bạn
  • 1

#2904 VUVUZELA

VUVUZELA

    biết lệnh chamfer

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

Đã gửi 20 December 2010 - 08:37 PM

Topo độ số là biết liền à
Vì giữa nhập trắc ngang bằng cách đo đạc ngoài hiện trường và p2 nội suy trên bình đồ khác nhau hoàn toàn
Dân chuyên nghiệp nhìn vào khoảng cách le và chênh cao là biết cái nào độ liền à
Hay là chỗ đó : không biết thực hay giả
hihi
  • 0

Hệ thống Liên Kết, Thiết Kế Tự Động

ttps://www.facebook...etThietKeTuDong


#2905 uce46

uce46

    biết zoom

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

Đã gửi 20 December 2010 - 11:28 PM

Sợ quá, dân "chuyên nghiệp" thì sợ rồi. Tuổi tý à?
  • 0

#2906 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 20 December 2010 - 11:50 PM

bác í chỉ giỏi hút thuốc thôi, bít j mà hỏi (mà có trả lời cũng vòng vo chập bác mệt mỏi à)
Phải hỏi tui nè. Cái vấn đề của bác cũng đơn giản thôi, không cần Lisp liết j cả đâu. Bác làm theo thứ tự tui bày nhé :
1. Mở file Nova
2. Bấm lệnh SSLT ==> ra hộp thoại nova
3. Save as ra file khác ==> ví dụ tuyen1.ntd
4. Mở file mới
5. Bấm lệnh RTDN
6. Mở lại file tuyen1.ntd ==> sửa tên cọc theo ý muốn cho nhẹ hều
7. Save as hoặc save luôn file đó luôn
8. Đổi tên xong ==> Bấm lệnh T ==> chạy nova ngon lành luôn
Đảm bảo thành công 100%
(nếu bác muốn nâng cao hơn nữa như tự động đổi tên cọc, xoá các điểm mia trên trắc ngang gần nhau quá thì liên hệ với tui .... $$$)

Người ta muốn sửa hàng loạt mà bạn hướng dẫn người ta sửa thủ công
Hê hê. không những giỏi hút thuốc, tớ còn biết là thà sửa bằng lệnh STC còn nhanh hơn cách làm của bạn đấy anh bạn "dân chuyên nghiệp" ạ <_<
  • 0

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#2907 VUVUZELA

VUVUZELA

    biết lệnh chamfer

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

Đã gửi 21 December 2010 - 09:28 AM

Người ta muốn sửa hàng loạt mà bạn hướng dẫn người ta sửa thủ công
Hê hê. không những giỏi hút thuốc, tớ còn biết là thà sửa bằng lệnh STC còn nhanh hơn cách làm của bạn đấy anh bạn "dân chuyên nghiệp" ạ <_<


Nhanh hay không thì cũng tuỳ ng à
Như chuyện con rùa và con thỏ í
Con rùa chạy thì nó thấy nó là số 1 rồi, nhanh nhất rồi, tụ xem mình là nhứt ... rồi
Nhưng đối với con thỏ thì khác bác ạ ...
:undecided:
  • 0

Hệ thống Liên Kết, Thiết Kế Tự Động

ttps://www.facebook...etThietKeTuDong


#2908 vietha209

vietha209

    biết zoom

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

Đã gửi 21 December 2010 - 09:37 AM

Sợ nhất cái bệnh nổ, lúc nào cũng tưởng mình là đệ của Binladen
  • 0

#2909 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 21 December 2010 - 09:58 AM

Xin bạn giúp mình giới thiệu rỏ hơn cho mình hiểu và chọn được;
Khi chọn K, L, M, D mình phải chọn như thế nào ? Mình làm mãi không chọn được đối tượng tách ra để đưa ra lớp mới.
Mong được bạn giúp.

Hề hề hề,
Thế này nhá, mình vốn văn dốt vũ dát, nói năng thì nhăng cuội, hơi khó hiểu hử??? Vậy thì nhanh nhất và đơn giản nhất là bạn post cái bản vẽ cũa bạn lên đây và nói rõ bạn cần chọn những cái gì, chọn thế nào và đưa vào lớp nào, khi đó mình sẽ làm thử một phát cho bạn thấy, còn hiểu thì từ từ hiểu sau vậy bạn ạ. Chớ mình chả biết phải nói sao cho nó dễ hiểu hơn nữa cả.
Chờ file của bạn.
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.

#2910 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 21 December 2010 - 10:12 AM

Haiza.Tranh thủ đang nhìu người đọc e hỏi nhanh đáp xoáy 1 phát.Có bác nào bít biến nào liên quan đến việc quy định khoảng extend,trim không ạ.Không bít e mần răng nghịch ngơm nàm sao mà sau 1 đêm ngủ dậy nó lại chỉ cho trim(ex) đoạn 1 đoạn 1 ngắn ngắn (lớn hơn con chít 1 tí) chứ hok còn là giới hạn giữa 2 giao điểm nữa.THành thử trim 1 đoạn mà e cứ phải làm mấy phát.E định search trên mạng n nhớ ra là...k biết dùng từ khóa nào để diễn giải cả
^^
P/S : e đã reset lại opt và okie r,n vẫn cay nó lắm ^^
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#2911 ngocnam.cad

ngocnam.cad

    biết vẽ ellipse

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

Đã gửi 21 December 2010 - 10:49 AM

bác í chỉ giỏi hút thuốc thôi, bít j mà hỏi (mà có trả lời cũng vòng vo chập bác mệt mỏi à)
Phải hỏi tui nè. Cái vấn đề của bác cũng đơn giản thôi, không cần Lisp liết j cả đâu. Bác làm theo thứ tự tui bày nhé :
1. Mở file Nova
2. Bấm lệnh SSLT ==> ra hộp thoại nova
3. Save as ra file khác ==> ví dụ tuyen1.ntd
4. Mở file mới
5. Bấm lệnh RTDN
6. Mở lại file tuyen1.ntd ==> sửa tên cọc theo ý muốn cho nhẹ hều
7. Save as hoặc save luôn file đó luôn
8. Đổi tên xong ==> Bấm lệnh T ==> chạy nova ngon lành luôn
Đảm bảo thành công 100%
(nếu bác muốn nâng cao hơn nữa như tự động đổi tên cọc, xoá các điểm mia trên trắc ngang gần nhau quá (vd như :undecided:

Cám ơn các bác nhiều nha ! đúng là em cũng dùng sslt ,nhưng tuyến dài thì em lại phải sửa nhiều lần . VD: có 400 cọc thì em sửa thành 4 lần , mỗi lần sửa 100 cọc, sửa hết trong một lần thì đơ máy bác à. cám ơn cách của bác nhé.
  • 0

#2912 ngocnam.cad

ngocnam.cad

    biết vẽ ellipse

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

Đã gửi 21 December 2010 - 10:57 AM

bác VUVUZELA sửa trắc ngang chắc nhanh lắm nhỉ.
  • 0

#2913 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3805 (đỉnh cao)

Đã gửi 21 December 2010 - 11:04 AM

Haiza.Tranh thủ đang nhìu người đọc e hỏi nhanh đáp xoáy 1 phát.Có bác nào bít biến nào liên quan đến việc quy định khoảng extend,trim không ạ.Không bít e mần răng nghịch ngơm nàm sao mà sau 1 đêm ngủ dậy nó lại chỉ cho trim(ex) đoạn 1 đoạn 1 ngắn ngắn (lớn hơn con chít 1 tí) chứ hok còn là giới hạn giữa 2 giao điểm nữa.THành thử trim 1 đoạn mà e cứ phải làm mấy phát.E định search trên mạng n nhớ ra là...k biết dùng từ khóa nào để diễn giải cả
^^
P/S : e đã reset lại opt và okie r,n vẫn cay nó lắm ^^

Biến Edgemode
  • 2

#2914 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 21 December 2010 - 11:50 AM

Như chuyện con rùa và con thỏ í
Con rùa chạy thì nó thấy nó là số 1 rồi, nhanh nhất rồi, tụ xem mình là nhứt ... rồi
Nhưng đối với con thỏ thì khác bác ạ ...

Hê hê. Chuẩn men. bao nhiêu bài viết của bác cuối cùng cũng chốt về đuợc 1 câu này. :undecided:
@ngocnam.cad: Lisp làm thưa trắc ngang mình đã post trong topic này rồi. Bạn chịu khó tìm trong khoảng 20trang trước trang này sẽ thấy
Còn về việc sửa tên cọc: Nếu muốn làm theo cách của vuvuzela huớng dẫn thì bạn làm đến buớc 3.
4. Mở file tuyen1.ntd bằng excel
5. Ctrl+A, dùng công cụ Fitter để lọc lấy các dòng có giá trị mô tả ở cột đầu tiên là POLE
(trong excel 2007 thì vào thẻ data. bấm nút Fitter -> bấm vào mũi tên ở ô A1 và bỏ chọn tất cả các mục trong đó chỉ để lại mục POLE)
6. Giờ thì thích sửa thế nào tùy bạn
Dùng cách này bạn có thể sửa tên cọc hàng loạt bằng các hàm của excel. cũng nhẹ nhàng hơn khi dùng nova nhiều. sửa xong lưu kết quả lại ở định dạng *.ntd.
Hê hê, nhanh, gọn, nhẹ :leluoi:
  • 1

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#2915 VUVUZELA

VUVUZELA

    biết lệnh chamfer

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

Đã gửi 21 December 2010 - 01:49 PM

bác VUVUZELA sửa trắc ngang chắc nhanh lắm nhỉ.


Bác cứ gửi tui file *dwg (hoặc *.ntd càng tốt) nguyên bản (chưa chỉnh sửa) tui thử cho bác xem
30 giây sau là có kết quả liền à
Đảm bảo không đẹp không lấy tiền

đây nè thử 1 cái chỉnh sửa theo ý bác
http://www.cadviet.c...a_chinh_sua.rar

nếu bác muốn thì gửi tiếp tui thử cho

:undecided:
  • 1

Hệ thống Liên Kết, Thiết Kế Tự Động

ttps://www.facebook...etThietKeTuDong


#2916 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 21 December 2010 - 01:56 PM

Minh muốn tách text ra lớp, đường màu ra lớp, kí hiệu ra lớp, màu ra lớp.
Khi chọn đối tượng mẫu, xong chon tất cả trong đó có các đtượng mẫu, ---> xuất ra lớp mới mình đặt tên . Ok
http://www.cadviet.c...g_mau_block.rar

Chào bạn ocinaqua,
Với bản vẽ bạn post và cái lisp của bác NguyenNdait, bạn làm theo đúng các bước như sau nhé:
1/- Xóa khỏi lisp các phần thừa không cần thiết như các hàm luuBHT và traBHT, xóa các đoạn code (setvar "blipmode"...) và (setvar "osmode"...)
2/- load lisp
3/- nhập lệnh loc để chạy lisp
4/- chọn một đối tượng mẫu
5/- khi lisp hỏi bạn nhập một trong bốn ký tự K L M D
nếu nhập k thì lisp sẽ chọn tất cả các đối tượng có kiểu đối tượng trùng với đối tượng mẫu của bạn
nếu nhập L thì lisp sẽ chọn tất cả các đối tượng có cùng lớp với đối tượng bạn chọn
nếu nhập m thì lisp sẽ chọn tất cả các đối tượng có màu cùng với màu của đối tượng bạn chọn.
nếu nhập D thì li1sp sẽ chọn tất cả các đối tượng có linetype như đối tượng bạn chọn.
nếu không nhập ký tự nào mà nhấn ẻnter thì lisp sẽ chọn tất cả các đối tượng có cùng kiểu đối tượng, cùng màu, cùng lớp và cùng dạng linetype như đối tượng bạn chọn
6/- Chọn đối tượng theo vùng chọn . Có thể dùng cửa sổ, pick từng thằng hay ... tùy ý.
7/- Nhấn enter lisp sẽ trả cho bạn tất cả các đối tượng trong vùng chọn thỏa mản điều kiện chọn của bạn
8/- Dùng lệnh change của CAD để đưa tất cả các đối tượng này về cái lớp nào mà bạn thích (tất nhiên lớp đó phải được tạo trước trên bản vẽ của bạn.)

Mình đã làm như vầy và đã có được cái mình muốn, còn bạn thì chưa hiểu bạn có muốn hay không, hề hề hề...
Bạn hãy thử coi và nếu có gì không thích hãy post lên nhé.
Mình chả làm cái gì cả, chỉ mót cái của bác NguyenNdait về xài cho cái của bạn xem sao thôi nên bạn cũng không cần phải cám ơn làm chi. Cứ cám ơn bác NguyenNdait là đủ rồi. Hề hề hề....

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

#2917 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 21 December 2010 - 01:58 PM

Bác cứ gửi tui file *dwg (hoặc *.ntd càng tốt) nguyên bản (chưa chỉnh sửa) tui thử cho bác xem
30 giây sau là có kết quả liền à
Đảm bảo không đẹp không lấy tiền
:undecided:

Hề hề hề,
Bác quên rồi, đẹp cũng chửa chắc có tiền..... 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.

#2918 VUVUZELA

VUVUZELA

    biết lệnh chamfer

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

Đã gửi 21 December 2010 - 02:03 PM

Hề hề hề,
Bác quên rồi, đẹp cũng chửa chắc có tiền..... Hề hề hề....


bác này chỉ đưọc cái
Hề hề hề
bữa nào rãnh em viết cho bác Bộ thiết kế tự động nhà dân dụng+công nghiệp nhé
Hề hề hề
:undecided:
  • 0

Hệ thống Liên Kết, Thiết Kế Tự Động

ttps://www.facebook...etThietKeTuDong


#2919 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1359 (rất tốt)

Đã gửi 21 December 2010 - 02:13 PM

bác này chỉ đưọc cái
Hề hề hề
bữa nào rãnh em viết cho bác Bộ thiết kế tự động nhà dân dụng+công nghiệp nhé
Hề hề hề
:undecided:

Ông Bình ông í làm bên cơ khí đấy bác để ông í yên :leluoi:
  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#2920 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 21 December 2010 - 03:09 PM

Biến Edgemode

Hí hí.. :undecided: .E đã mò ra cách nông dân là Trim triếc -> edge ->no/extend rồi mà lại hok biết ra cái biến ấy..Tks bác ^^
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC