Đến nội dung


Hình ảnh
- - - - -

chọn đối tượng trong trong vung kin


  • Please log in to reply
15 replies to this topic

#1 dnhqs

dnhqs

    biết vẽ ellipse

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

Đã gửi 18 July 2011 - 10:24 AM

Bạn nào chữa giúp tôi với:
Mình muốn chọn những point nằm trong pline kín và tính bình quân các Z của point
http://www.cadviet.c...es/3/lisph1.rar
  • 0

#2 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 18 July 2011 - 02:51 PM

Bạn nào chữa giúp tôi với:
Mình muốn chọn những point nằm trong pline kín và tính bình quân các Z của point
http://www.cadviet.c...es/3/lisph1.rar

Đây là đoạn chọn các point trong pline dược chọn.

(setq plst (acet-geom-vertex-list (car (entsel "\n Chon pline khep kin"))))
(setq SS (ssget "wp" plst (list (cons 0 "point"))))


Đã tìm cách sửa tiêu đề topic đã hiện phần cho sửa nhưng khi sửa xong chọn cập nhật thì báo là ko có quyền sửa.
  • 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


#3 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 18 July 2011 - 04:38 PM

Đây là đoạn chọn các point trong pline dược chọn.

(setq plst (acet-geom-vertex-list (car (entsel "\n Chon pline khep kin"))))
(setq SS (ssget "wp" plst (list (cons 0 "point"))))


Đã tìm cách sửa tiêu đề topic đã hiện phần cho sửa nhưng khi sửa xong chọn cập nhật thì báo là ko có quyền sửa.

Hình như cái này chỉ đúng với Pline không chứa Arc phải không bác Duy782006?
  • 2

* 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.


#4 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 19 July 2011 - 10:59 PM

Tự nhiên đọc lại chủ đề này chợt nghĩ đến 2 từ "Vùng kín" mà cười thầm, nhớ là có bạn nào đó đề nghị sửa lại từ khác để tránh vấn đề nhạy cảm. Nhờ đó mà nhớ đến mình đã post từ CadViet một lsp rất hay về nó, của tác giả nước ngoài, sau đó về mông-má và thay bằng tiếng Việt không dấu để dễ sử dụng. Ai ngờ bây giờ có dịp hầu chủ topic và các bạn nào chưa có.
Bạn nào có rồi thì thôi, bạn nào chưa có thì post về dùng, tôi đánh giá là cực hay.
Từ lsp này có thể sáng tác thêm các lsp khác, như: chọn các point trong vùng kín (à quên) của chủ topic, hoặc delete, copy, move... các đối tượng đó.
http://www.cadviet.c..._tuong_vung.lsp
  • 1

* 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.


#5 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 19 July 2011 - 11:29 PM

Lisp của CAB, cũng là 1 cao thủ lisp trong các diễn đàn thesamp, augi, cadtutor..^^
Phải nói là đọc những lisp này nhọc cái đầu lắm ^^
P/S : kêu gọi anh em không trả lời bài sai quy định ^^
  • 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


#6 whatcholingon

whatcholingon

    biết lệnh break

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

Đã gửi 07 August 2015 - 09:03 AM

Tự nhiên đọc lại chủ đề này chợt nghĩ đến 2 từ "Vùng kín" mà cười thầm, nhớ là có bạn nào đó đề nghị sửa lại từ khác để tránh vấn đề nhạy cảm. Nhờ đó mà nhớ đến mình đã post từ CadViet một lsp rất hay về nó, của tác giả nước ngoài, sau đó về mông-má và thay bằng tiếng Việt không dấu để dễ sử dụng. Ai ngờ bây giờ có dịp hầu chủ topic và các bạn nào chưa có.
Bạn nào có rồi thì thôi, bạn nào chưa có thì post về dùng, tôi đánh giá là cực hay.
Từ lsp này có thể sáng tác thêm các lsp khác, như: chọn các point trong vùng kín (à quên) của chủ topic, hoặc delete, copy, move... các đối tượng đó.
http://www.cadviet.c..._tuong_vung.lsp

Mr. Doan Van Ha cho mình hỏi mình chạy lsp trên cad 2004 và cad 2014 báo lỗi như này là bị sao ạ?

cad 2004:

Command: CHON
_.undo Enter the number of operations to undo or
[Auto/Control/BEgin/End/Mark/Back] <1>: _begin
Command:
Chon cac doi tuong Trong vung, Ngoai vung hay Giua 2 vung? <T/N/G>: T
Xet den cac doi tuong giao voi duong bao [Co,Khong]? <C/K>: C
Chon duong bao...
Select objects:

Calculating Break Points, Please Wait.

None to be broken._.undo Enter the number of operations to undo or
[Auto/Control/BEgin/End/Mark/Back] <1>: _end
Command:

 

Cad2014:

Command: CHON
_.undo Current settings: Auto = On, Control = All, Combine = Yes, Layer = Yes
Enter the number of operations to undo or [Auto/Control/BEgin/End/Mark/Back] <1>: _begin
Command:
Chon cac doi tuong Trong vung, Ngoai vung hay Giua 2 vung? <T/N/G>: T
Xet den cac doi tuong giao voi duong bao [Co,Khong]? <C/K>: K
Chon duong bao...
Select objects:
_.undo Current settings: Auto = On, Control = All, Combine = Yes, Layer = Yes
Enter the number of operations to undo or [Auto/Control/BEgin/End/Mark/Back] <1>: _end

 

Thanks!

P/S: Xin lỗi Mr. Ketxu nhé.

(P/S : kêu gọi anh em không trả lời bài sai quy định ^^)


  • 0

#7 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 07 August 2015 - 10:05 AM

Bạn gởi file bản vẽ ấy lên xem thử.

Đây là lisp gốc của nước ngoài nên tôi chưa dám khẳng định sẽ giúp được bạn.


  • 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.


#8 whatcholingon

whatcholingon

    biết lệnh break

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

Đã gửi 07 August 2015 - 10:39 AM

File đây bạn:

http://www.cadviet.c...new_block_1.dwg


  • 0

#9 xuanhuy2011

xuanhuy2011

    biết zoom

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

Đã gửi 07 August 2015 - 11:39 AM

File sua day ban. chi luu y ban la o day ta phai chon pline 3D thay vi vung kin vi neu cac diem la 3D thi ko tao duoc pline tu lenh BO.http://www.cadviet.c..._nhom_point.lsp


  • 0

#10 whatcholingon

whatcholingon

    biết lệnh break

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

Đã gửi 07 August 2015 - 03:54 PM

File sua day ban. chi luu y ban la o day ta phai chon pline 3D thay vi vung kin vi neu cac diem la 3D thi ko tao duoc pline tu lenh BO.http://www.cadviet.c..._nhom_point.lsp

Cám ơn bạn nhiều:

khi mình thực hiện lsp thì báo lỗi sau:

Pick point diem in:
Chon pline 3D kin:
Select object: .text
Current text style:  "Standard"  Text height:  0.2000  Annotative:  No  Justify:  Left
Specify start point of text or [Justify/Style]:
Specify height <0.2000>: 0
Value must be positive and nonzero.
; error: Function cancelled
Specify height <0.2000>:
Specify rotation angle of text <0>: *Cancel*

bạn xem lại giùm mình ah.


  • 0

#11 xuanhuy2011

xuanhuy2011

    biết zoom

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

Đã gửi 07 August 2015 - 04:29 PM

Không phải lỗi đâu bạn.Chọn 3D pline kín là xong rồi. chỉ có điều kiểu chữ hiện hành chiều cao  0.2 quá nhỏ nên bạn không thấy. sau đó bạn lại nhấn enter nên cad lặp lại lệnh text là lệnh cuối cùng của chương trình li sp. Bạn chọn chiều cao chữ hiện hành to lên sẽ thấy


  • 0

#12 xuanhuy2011

xuanhuy2011

    biết zoom

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

Đã gửi 07 August 2015 - 04:33 PM

Bạn chọn chiều cao chữ hiện hành khác không là được.nếu là không sẽ lỗi


  • 0

#13 xuanhuy2011

xuanhuy2011

    biết zoom

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

Đã gửi 07 August 2015 - 04:49 PM

Lỗi này là do chiều cao Te xt hiện hành = 0 nên lệnh te xt cuối cùng của li sp sẽ hỏi thêm chiều cao, thì khi đó câu lệnh của li sp sẽ thiếu tham số này nên lỗi. ta cho chiều cao khác 0 là được


  • 0

#14 whatcholingon

whatcholingon

    biết lệnh break

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

Đã gửi 07 August 2015 - 05:07 PM

Lỗi này là do chiều cao Te xt hiện hành = 0 nên lệnh te xt cuối cùng của li sp sẽ hỏi thêm chiều cao, thì khi đó câu lệnh của li sp sẽ thiếu tham số này nên lỗi. ta cho chiều cao khác 0 là được

mình làm như lời bạn nói xong thì chỉ xuất hiện  chữ 0.000 trong vùng kín thôi bạn ah.

chứ không chọn được đối tượng trong đó.

Pick point diem in:
Chon pline 3D kin:
Select object: .text
Current text style:  "Standard"  Text height:  1.0000
Specify start point of text or [Justify/Style]:
Specify rotation angle of text <0>: 0
Enter text: 0.000
Command:
Command:
 Chuc mot buoi lam viec vui ve.

Thanks!


  • 0

#15 xuanhuy2011

xuanhuy2011

    biết zoom

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

Đã gửi 07 August 2015 - 05:23 PM

Đề bài là tính chiều cao trung bình các điểm của 3Dpline (Z). Bạn vẽ pline các đỉnh có Z=0 hết thì nó chả hiện ra 000000000


  • 1

#16 whatcholingon

whatcholingon

    biết lệnh break

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

Đã gửi 07 August 2015 - 05:34 PM

Ồ, vậy là từ sáng tới giờ chúng mình cứ ông nói gà bà nói vịt ah, chẳng trách làm 1 đằng lại ra 1 lẻo.

Đề bài của tớ là chọn vùng kín cơ mà.


  • 0