Đến nội dung


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

Viết Lisp theo yêu cầu


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

#2741 Thaistreetz

Thaistreetz

    biết lệnh adcenter

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

Đã gửi 01 September 2009 - 01:59 PM

@ Thaistreetz
1. Lệnh Miline
2. lệnh quick select hay lệnh filter : Có thể chọn đối tượng có màu là Bylayer. Nhưng không phân biệt được màu, cái nào là màu xanh, cái nào là màu vàng ......


Có lựa chọn theo màu được mà anh. trong hộp thoai filter mình chọn đối tượng là Color, bên cạnh có nút Select, bấm vào đó để chọn màu. Ví dụ với màu đỏ thì ta sẽ có Object selection là: Color = 1-red
Edit: Ah em nhầm. Nếu layer có màu trùng với màu đc chọn thì sẽ không nhận diện đc.
Có lần anh Duy viết hộ em cái lisp xóa đói tượng theo màu cũng gặp fải vấn đề này. bg em mới nhớ :s_big:
  • 0

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


#2742 Tuynh

Tuynh

    biết vẽ arc

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

Đã gửi 01 September 2009 - 02:20 PM

Bạn Thaistreetz giúp tớ được không? trong cột thống kê toạ độ điểm nút có thêm cột ghi chú.
http://www.cadviet.c.../lay_toa_do.lsp
  • 0

#2743 duy782006

duy782006

    PHẠM QUỐC DUY

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

Đã gửi 01 September 2009 - 02:25 PM

Có lựa chọn theo màu được mà anh. trong hộp thoai filter mình chọn đối tượng là Color, bên cạnh có nút Select, bấm vào đó để chọn màu. Ví dụ với màu đỏ thì ta sẽ có Object selection là: Color = 1-red
Edit: Ah em nhầm. Nếu layer có màu trùng với màu đc chọn thì sẽ không nhận diện đc.
Có lần anh Duy viết hộ em cái lisp xóa đói tượng theo màu cũng gặp fải vấn đề này. bg em mới nhớ :s_big:

Mình nhớ là cải thiện được việc này rồi mà! Cái đoạn đó thì Tue_NV cũng biết rồi đấy thôi.
  • 1

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


#2744 Tuynh

Tuynh

    biết vẽ arc

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

Đã gửi 01 September 2009 - 02:28 PM

Bạn Tue_NV ơi bạn có thể viết giúp mình lisp chuyển đường 2d poline thành đường 3d poline không. Mục đích là mình làm đường đứt gẫy khi san nền
  • 0

#2745 Thaistreetz

Thaistreetz

    biết lệnh adcenter

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

Đã gửi 01 September 2009 - 02:32 PM

Bạn Thaistreetz giúp tớ được không? trong cột thống kê toạ độ điểm nút có thêm cột ghi chú.
http://www.cadviet.c.../lay_toa_do.lsp

Giúp thì tớ giúp đc thôi, nhưng bạn post bài lần đầu tiên đã sai chỗ nên tớ cũng nhờ bạn giúp lại tớ là đọc lại hộ tớ 1 lượt nội quy của diễn đàn cũng như nội quy của box này. những gì cần nói tớ cũng đã viết trong tin nhắn cho bạn. fiền bạn trả lời tớ bằng tin nhắn theo nick này để tránh làm ảnh hưởng đến nội dung topic này nhé.
  • 1

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


#2746 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 01 September 2009 - 02:43 PM

Mình nhớ là cải thiện được việc này rồi mà! Cái đoạn đó thì Tue_NV cũng biết rồi đấy thôi.

Chào anh Duy. Đoạn Code mà anh Duy cải thiện nó nằm ngay ở đây :
http://www.cadviet.c...?showtopic=7493
và bạn Thaistreetz đã tick thanks cho anh Duy. bạn Thaistreetz có biết về nó. Và bài viết trên của Tue_NV là để trả lời cho bài viết của bạn Thaistreetz

- Lisp 2: bạn có thể dụng lệnh qick select hay lệnh filter


sử dụng lệnh quick select hay lệnh filter : Có thể chọn đối tượng có màu là Bylayer. Nhưng không phân biệt được màu, cái nào là màu xanh, cái nào là màu vàng ......

+> Tức ý của Tue_NV muốn nói : không thể sử dụng lệnh quick select hay lệnh filter để phân biệt các đối tượng có màu là ByLayer, cái nào màu xanh, cái nào màu vàng...... và chỉ có thể dùng Lisp

@Tuynh : Mọi người không ngại giúp bạn. Chỉ cần bạn post bài với nội dung đúng chủ đề thì sẽ có người giúp bạn.

Bạn Tue_NV ơi bạn có thể viết giúp mình lisp chuyển đường 2d poline thành đường 3d poline không. Mục đích là mình làm đường đứt gẫy khi san nền

Bạn có thể upload file lên đây và nói rõ hơn được không?
Chào bạn. Chúc vui
  • 2

#2747 tnmtpc

tnmtpc

    biết dimcontinue

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

Đã gửi 01 September 2009 - 02:49 PM

load thì đươc nhưng nó ko chạy gi hết...mình ko biết tại sao lại như vậy...bạn nào biết chỉ dùm..cám ơn :s_big:

Để lisp hoạt động được , yêu cầu các point phải ở trên layer có tên là DIEM, tương tự tên điểm thuộc layer TENDIEM, mã điểm thuộc layer CODE
  • 1

#2748 tomboy

tomboy

    biết vẽ polygon

  • Members
  • PipPip
  • 72 Bài viết
Điểm đánh giá: 20 (tàm tạm)

Đã gửi 01 September 2009 - 03:42 PM

các bác viết giúp em lisp như này nhé: trên bản vẽ có rất nhiều text là các số với nhiều giá trị khác nhau. Em cần lọc ra tất cả các số có giá trị lớn hơn( hoặc có cả lựa chọn : nhỏ hơn_do người dùng chọn lựa khi dùng lệnh) 1 giá trị cố định nào đó bằng cách nhập giá trị này vào khi dùng lệnh. ví dụ: em cần tìm tất cả các số lớn hơn 5.00, số 5 là do mình nhập vào.sau khi dùng lệnh xong bản vẽ sẽ hiển thị tất cả các giá trị vừa lọc được. thanks hiu các bác nhìu trước! :s_big: em đang rất cần......

bạn xài thử cái này: http://www.cadviet.c...files/2/loc.lsp
lệnh là: LOC
  • 0

#2749 Tuynh

Tuynh

    biết vẽ arc

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

Đã gửi 01 September 2009 - 05:49 PM

Mình đưa file lên đây
http://www.cadviet.c...iles/2/2d3d.dwg
đường 2d poline có cao độ là 10, đường 3d poline có cao độ khác nhau tại các điểm point, bạn có lisp nào mà khi pick vào đường
2d poline thì tại các điểm point hiện cao độ cho mình nhập theo ý muốn và đường 2d poline chuyển thành 3d poline.
  • 0

#2750 t031285

t031285

    biết vẽ rectang

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

Đã gửi 01 September 2009 - 10:03 PM

Nhờ các bạn viết giùm mình đoạn lisp gọi bảng DIMENSION STYLE MANAGER vì mình không muốn vào chỉnh trong acad.pgp vì mỗi lần cài lại cad phải chỉnh lại mất công lắm.Chân thành cảm ơn trước.
  • 0

#2751 Kai_16-11

Kai_16-11

    biết lệnh offset

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

Đã gửi 01 September 2009 - 10:19 PM

Nhờ các bạn viết giùm mình đoạn lisp gọi bảng DIMENSION STYLE MANAGER vì mình không muốn vào chỉnh trong acad.pgp vì mỗi lần cài lại cad phải chỉnh lại mất công lắm.Chân thành cảm ơn trước.

Bạn có thể copy file pgp đã thay đổi lại và lưu lại trong ổ nào mà không phải ổ C.khi nào cài lại cad thì chỉ cần paste lại là xong thôi mà.Nếu viết lisp cho DIMENSION STYLE MANAGER thì còn các thay đổi khác thì sao.Và nữa là nếu bạn muốn viết yêu cầu viết lisp thì nên nó rõ ràng ra để mọi người trên diễn đàn có thể giúp bạn nữa chứ.
  • 0

#2752 t031285

t031285

    biết vẽ rectang

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

Đã gửi 01 September 2009 - 10:29 PM

Bạn có thể copy file pgp đã thay đổi lại và lưu lại trong ổ nào mà không phải ổ C.khi nào cài lại cad thì chỉ cần paste lại là xong thôi mà.Nếu viết lisp cho DIMENSION STYLE MANAGER thì còn các thay đổi khác thì sao.Và nữa là nếu bạn muốn viết yêu cầu viết lisp thì nên nó rõ ràng ra để mọi người trên diễn đàn có thể giúp bạn nữa chứ.

Mình chỉ cần đoạn lisp khi ta gõ DD thì bảng này hiện lên thôi vì mình đã có 1 lisp các lệnh tắt theo ý mình rồi nên mình không muốn sử dụng acad.pgp.
Thanks
  • 0

#2753 Tuynh

Tuynh

    biết vẽ arc

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

Đã gửi 02 September 2009 - 01:42 AM

Nhờ mọi người giúp mình một lisp này.
Bản vẽ của mình có các point có toạ độ x,y,z cao độ có thể bằng không mình muốn lisp quét chọn các point đó và ghi toạ độ độ cao tại các point hiện lên màn hình và xuất thành bản thống kê toạ độ và độ cao
  • 0

#2754 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 02 September 2009 - 04:51 AM

Nhờ các bạn viết giùm mình đoạn lisp gọi bảng DIMENSION STYLE MANAGER vì mình không muốn vào chỉnh trong acad.pgp vì mỗi lần cài lại cad phải chỉnh lại mất công lắm.Chân thành cảm ơn trước.

Mất công ở chổ nào hở bạn? Có lâu không hở bạn? Bạn chỉnh 1 lần trong acad.pgp rồi sử dụng cho nhiều lần về sau hoặc bạn làm theo cách của bạn Kai_16-11 thì sao có thể gọi là mất công hở bạn?
  • 0

#2755 t031285

t031285

    biết vẽ rectang

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

Đã gửi 02 September 2009 - 07:35 AM

Mất công ở chổ nào hở bạn? Có lâu không hở bạn? Bạn chỉnh 1 lần trong acad.pgp rồi sử dụng cho nhiều lần về sau hoặc bạn làm theo cách của bạn Kai_16-11 thì sao có thể gọi là mất công hở bạn?

Mình chỉ cần đoạn lisp khi ta gõ DD thì bảng này hiện lên thôi vì mình đã có 1 lisp các lệnh tắt theo ý mình rồi nên mình không sử dụng acad.pgp.Thanks
  • 0

#2756 kamezoko

kamezoko

    biết vẽ line

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

Đã gửi 02 September 2009 - 09:01 PM

Để lisp hoạt động được , yêu cầu các point phải ở trên layer có tên là DIEM, tương tự tên điểm thuộc layer TENDIEM, mã điểm thuộc layer CODE

cám ơn bạn,mình vẩn ko làm được....đây là file mẩu của mình,mong các bạn giúp đở.. :s_big:
http://www.cadviet.c...pfiles/2/vd.dwg
:cheers:
  • 0

#2757 Gatesi

Gatesi

    biết vẽ arc

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

Đã gửi 02 September 2009 - 11:09 PM

Mình có 1 thắ mắc mong mọi ng giúp đỡ. Mình có 1 File nền hiện trạng chứa các text cao độ, nhưng các text cao độ này đã bị làm hỏng, tức là ví dụ như 3.14 thì nó bị phá thành 3 thành phần : ( số 3, dấu . và số 14 riêng rẽ). Làm thế nào để chuyển nó lại thành số 3.14 như mong muốn vậy ! E đã thử dùng lệnh txt2mtxt nhưng ko đc, bởi vì làm rất lâu,mỗi lần thỉ làm cho đc 1 số mà trên bình đồ của e có cả vạn số,với lại nó còn làm xuất hiện dấu cách giữa 2 số 3 và 14, phải chỉnh lại,thế thà viết lại text còn nhanh hơn.
Đây là file mẫu, mong mọi ng giúp đỡ
File mẫu
  • 0

#2758 nvc

nvc

    biết pan

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

Đã gửi 03 September 2009 - 09:27 AM

- Lisp 1: Đề thiếu: Khoảng cách giữa 2 đường bằng bao nhiêu? điểm pick để vẽ nằm ở vị trí nào: giữa 2 đường hay thuộc 1 trong 2 đường.
Mà mình nhớ không nhầm thì cad cũng đã có lệnh vẽ các đường song song với nhau. tuy nhiên mình không nhớ lệnh. Với lại việc này có thể vẽ bình thường rồi offset cũng đâu có mất thời gian mấy đâu bạn?
- Lisp 2: bạn có thể dụng lệnh qick select hay lệnh filter.



@ Thaistreetz :
Cám ơn các bác quan tâm.Em xin chi tiết thêm 1 chút :
- Lisp 1 : Khoảng cách giữa 2 đường em đã nói ngay từ đầu là có thể thay đổi theo người dùng mà nên trong LISP mặc định là bao nhiêu không quan trọng, miễn là có hộp setting để người dùng có thể thay đổi được.Còn về điểm PICK thì em đã bảo ngay là lisp này để vẽ 2 đường line , hay polyline song song giống như lệnh mutiline thế có nghĩa là điểm pick cũng có thể thay đổi theo người dùng.Vấn đề em cần là vẽ 1 lần ta có 2 đường song song cùng 1 lớp nhưng khác màu ( có thể 1 đường là màu bylayer, 1 đường là màu số 8 chẳng hạn )
- Lisp 2 : lệnh quick select hay filter em đã dùng rồi nhưng không hiệu quả lắm nên mới nhờ các bác viết giùm em lisp này.Lisp khi dùng có thể chọn tất cả các đổi tượng cùng màu với nhau -----> để chuyển sang 1 lớp khác.
THANK
  • 1

#2759 nvc

nvc

    biết pan

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

Đã gửi 03 September 2009 - 09:28 AM

- Lisp 1: Đề thiếu: Khoảng cách giữa 2 đường bằng bao nhiêu? điểm pick để vẽ nằm ở vị trí nào: giữa 2 đường hay thuộc 1 trong 2 đường.
Mà mình nhớ không nhầm thì cad cũng đã có lệnh vẽ các đường song song với nhau. tuy nhiên mình không nhớ lệnh. Với lại việc này có thể vẽ bình thường rồi offset cũng đâu có mất thời gian mấy đâu bạn?
- Lisp 2: bạn có thể dụng lệnh qick select hay lệnh filter.



@ Thaistreetz :
Cám ơn các bác quan tâm.Em xin chi tiết thêm 1 chút :
- Lisp 1 : Khoảng cách giữa 2 đường em đã nói ngay từ đầu là có thể thay đổi theo người dùng mà nên trong LISP mặc định là bao nhiêu không quan trọng, miễn là có hộp setting để người dùng có thể thay đổi được.Còn về điểm PICK thì em đã bảo ngay là lisp này để vẽ 2 đường line , hay polyline song song giống như lệnh mutiline thế có nghĩa là điểm pick cũng có thể thay đổi theo người dùng.Vấn đề em cần là vẽ 1 lần ta có 2 đường song song cùng 1 lớp nhưng khác màu ( có thể 1 đường là màu bylayer, 1 đường là màu số 8 chẳng hạn )
- Lisp 2 : lệnh quick select hay filter em đã dùng rồi nhưng không hiệu quả lắm nên mới nhờ các bác viết giùm em lisp này.Lisp khi dùng có thể chọn tất cả các đổi tượng cùng màu với nhau -----> để chuyển sang 1 lớp khác.
THANK
  • 0

#2760 nvc

nvc

    biết pan

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

Đã gửi 03 September 2009 - 09:37 AM

@ Thaistreetz
1. Lệnh Miline
2. lệnh quick select hay lệnh filter : Có thể chọn đối tượng có màu là Bylayer. Nhưng không phân biệt được màu, cái nào là màu xanh, cái nào là màu vàng ......



@Tue_NV :
1. Lệnh mutiline hay ML có thể vẽ được 2 đường song song, điều chỉnh được khoảng cách nhưng lại cùng màu với nhau, cái mình cần là 2 đường song song,điều chỉnh được khoảng cách nhưng khác màu.
2. lệnh quick select và lệnh filter chỉ làm việc với những đối tượng có màu là bylayer thì chuẩn thôi, với đối tượng có màu khác, vd : màu số 8, hay số ... là không hiệu quả.
@ all :
Mình không biết trong DĐ có nhiều KTS không nhưng nếu có 2 lisp này thì mình nghĩ các KTS nhà mình sẽ nhàn hơn trong khi bổ kỹ thuật đó, bớt được 1 số thao tác không cần thiết nữa.
  • 0