Đến nội dung


Hình ảnh
- - - - -

[Hỏi] Lisp thao tác trong 3D


  • Please log in to reply
115 replies to this topic

#41 haanh

haanh

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2875 Bài viết
Điểm đánh giá: 1554 (rất tốt)

Đã gửi 15 September 2014 - 09:28 PM

@ Chị Hà: Theo em, nếu kết quả ra được 2 found ( 1found gồm 6 cái cút + 1 found gồm 7 đoạn ống , có thể EXPLODE thành nhiều found dời dạc giống như khi sử dụng lệnh Array trên AutoCAD2012)  thao tác zoom, pan, và orbit  sẽ dễ hơn và nhanh hơn là việc để nhiều found dời dạc.
 

@ Hoằn!

Trên diễn đàn, chỉ có Lisp viết cho dân Xây dựng là đại gia và đại tỷ phú thôi! :) :) :)

Lisp viết cho dân Cơ khí và dân Cấp tốc thoát nước, vẫn còn đang đói dài ngày. Không thể xóa đói giảm nghèo bằng cách đi tắt đón đầu như thế được, gặp chỗ lầy lội, dễ bị chết lụt lắm đó!

 

Không ghẹo đâu, em nhờ anh Nhóc viết cho em một cái lisp vẽ đường ống 3D. Nếu anh sợ khó thì "em sẽ nhiệt tình giúp đỡ anh" bằng cách ra đầu bài từ dễ đến khó để anh luyện tay nghề nhé:

Bài 1: Lisp vẽ đường ống 3D, path theo đường 3dpoly được vẽ bất kỳ trong không gian như hình vẽ:

 

11837_sssa.png

 

Gõ lệnh lisp >>> Chọn đường kính ống >>> Chọn đường 3dpoly >>> ra được khối 06 cái cút + 07 đoạn ống như ảnh trên.

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

CÚT VẼ THEO TIÊU CHUẨN ĐỨC:

11837_zfasfaa.jpg

 

Xin mời anh Nhóc, anh Hiệp, cùng các bác "Blispge" tham gia thư giãn bằng trò chơi viết lisp cho bà con dân làng Vẽ đường ống 3D!

Trân trọng!

Em: Trần Hà Anh


  • 0

“Sống trong đời sống cần có một tấm lòng / Để làm gì em biết không ? / Để gió cuốn đi, để gió cuốn đi...”


#42 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 15 September 2014 - 09:53 PM

Lisp vẽ đường ống như trên không phải là khó, nhưng hơi mất công tí. Nếu mọi người thấy nó thực sự cần thì lúc nào rảnh tôi viết cho.


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


#43 nhoclangbat

nhoclangbat

    Edu level: li10

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

Đã gửi 15 September 2014 - 10:29 PM

- Chị Hoằn với chị Hà Anh ráng chờ chục năm nữa nhoc sẽ viết 2 bộ chương trình vẽ cho cơ khí, và cấp thoát nước  :P

P/s: nghe nói ngoài Bắc đang có bão ^^


  • 2
"...................][)e\/i][_ /\/\@Y CrY....................."

(defun THỔ_DÂN_HỌC_CAD (xxxx) ...) ^_^








#44 haanh

haanh

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2875 Bài viết
Điểm đánh giá: 1554 (rất tốt)

Đã gửi 15 September 2014 - 10:49 PM

Lisp vẽ đường ống như trên không phải là khó, nhưng hơi mất công tí. Nếu mọi người thấy nó thực sự cần thì lúc nào rảnh tôi viết cho.

 

Rất cần thiết bác ạ!

Em xin mô tả công việc vẽ đường ống 3D để bác hiểu nội dung công việc:

Cút và ống vẽ theo tiêu chuẩn của Đức hoặc Nhật bản đều có chiều dầy ống. Vẽ 3D đường ống, chỉ cần vẽ ống và cút đặc cho giản tiện. Vì nếu vẽ cả chiều dầy ống thì dung lượng file bản vẽ sẽ tăng lên rất nhiều.

Bước 1: Em vẽ được 6 cái cút + 7 đoạn ống có layer mầu xanh

Bước 2: Em thay đổi layer 6 cái cút thành layer mầu tím

..............................................................................

Bước ... : Em tắt tất cả các layer chỉ còn lại layer đường ống mầu xanh

Bước...: Em dùng lệnh Union để dính các đoạn ống thành một đối tượng >>> Massprop ... để biết được tổng thể tích của các đoạn ống dời dạc >>> Lấy tổng thể tích chia cho diện tích ống >>> Tổng chiều dài đường ống DN50

Bước:...: Em tắt hết tất cả các layer, chỉ để lại layer cút mầu tím >>> Chon đối tượng tất cả các cút > Gõ lênh m trên dòng command sẽ xuất hiện:

Command: m
MOVE 69 found

69 found chính là tổng số lượng cút DN50

Bữa nào rảnh, bác Hà viết lisp cũng được, em cảm ơn bác Hà và cảm ơn anh Nhóc nhiều nhiều nhé! :) :) :)


  • 0

“Sống trong đời sống cần có một tấm lòng / Để làm gì em biết không ? / Để gió cuốn đi, để gió cuốn đi...”


#45 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 16 September 2014 - 09:24 AM

K code được nhưng ket chém góp vui với.

- Viết nó liền tù tì cả cút và đường ống thì chắc code nhanh hơn nhiều so với tách ra từng đoạn ^^

- Chỉ sợ bạn phải làm j đó khác, hoặc nhu cầu phải thế, chứ nếu toàn cút 90 độ thế kia thì đâu có khó ta, cần gì vẽ ra vẫn có kết quả mà.

+ Số cút thì bằng số vertex Polyline - 2 đầu rồi.  (n)

+ Tổng chiều dài ống không tính cút rõ ràng bằng chiều dài cả Polyline - (n x D).

Phải không ta ?? Thấy dễ mà haanh làm nhiều bước thế kia Ket cũng hoang mang k biết mình nhầm chỗ nào k, vì ket dốt hình lắm :(


  • 2

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


#46 Hoan1111

Hoan1111

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2587 Bài viết
Điểm đánh giá: 692 (tốt)

Đã gửi 16 September 2014 - 11:07 AM

@Bác Ketxu: Chị Hà em vẽ hình minh họa hơi bị đặc biệt, thực tế trong hệ thống đường ống, các đoạn ống thẳng thường có chiều dài khác nhau. Sau khi vẽ xong bản vẽ hệ thống thiết bị mới tiến hành thống kê tổng chiều dài ống và số lượng cút

- Viết oẳn tù tì cả cút lẫn ống,  em sợ là không chỉnh sửa được. Bởi trong cả một hệ thống máy móc thiết bị, có rất nhiều phân đoạn ống DN50 chứ không phải là 1 phân đoạn duy nhất. Mỗi phân đoạn lại có nhiều đoạn ống DN50 dài ngắn khác nhau, hướng đi của đường ống ngang dọc lên xuống cũng khác nhau.

- Nếu tất các các phân đoạn đều phải vẽ bằng lệnh 3dpoly rồi mới dùng lisp để đi ống và cút thì sẽ rất mất thời gian. Cách vẽ thông thường là đi được vài phân đoạn ống là đủ để vẽ các phân đoạn tiếp theo >>> Chỉ cần copy phân đoạn đã vẽ sang phân đoạn đang định vẽ rồi chỉnh sửa bằng cách kéo dài hoặc co ngắn bớt các đoạn ống hoặc xóa bớt các đoạn ống hoặc cút sẽ được phân đoạn mới.

- Có trường hợp lôi cả hệ thống thiết bị đường ống cũ ra, rồi chỉnh sửa co kéo thành hệ thống thiết bị mới. Vì nó giống nhau về công suất thiết bị nhưng khác nhau về mặt bằng lắp đặt.

- Khi vẽ xong ống đường phải xóa bỏ  đường 3dpoly để giảm dung lượng

-Với cút thì có thể vẽ được bằng lệnh Extrude hoặc Sweep đều được . Với đoạn ống thẳng nếu vẽ bằng lệnh Extrude hoặc Sweep hoặc Revolve hoặc presspull thì chỉ có thể chỉnh sửa kéo dài hoặc co dãn được 1 đầu hoặc không co kéo được. Do vậy yêu cầu lisp phải vẽ ra được đoạn ống có "cấu hình" như dùng lệnh Cylinder mới dễ dàng co giãn theo hai đầu của đoạn ống:

114276_untitled_9.png

 

Hình ảnh minh họa hệ thống đường ống, bác có thể xem thêm ở đây: http://www.cadviet.c...-autocad/page-2

- Cái khó khăn và mất thời gian nhất vẫn  là tỉ lệ giữa chiều cao tâm cút và đường kính ống không phải là hằng số. (Bác xem bảng thống kê chiều cao tâm cút theo tiêu chuẩn Đức và tiêu chuẩn Nhật bản, Đài loan ở trên).

- Trong một hệ thống đường ống thì dùng cả hai loại ống A và ống DN chứ không phải chỉ dùng duy nhất một loại ống DN như chị Hà em đã viết...

Hy vọng một ngày gần đây nhất, Lisp xóa đói giảm nghèo  cho bà con dân làng Cơ khí và Cấp tốc thoát nước sẽ được tung hoành trên khắp mọi miền thân yêu của Tổ Quốc:

Cảm động biết bao

Lisp ta đi khắp mọi miền đất nước!

Từ Lạng Sơn đến Minh Hải thân yêu.

Lisp vượt Trường Sơn sang tận nước Lào

Sang Căm-pu-chia dựng xây tình hữu nghị....

 

(Xin mời anh Nhóc tiếp tục tùy hứng... viết nối tiếp mấy câu thơ viết theo thể thơ tự do của Hoằn)


  • 1

66 Câu Phật Học Cho Cuộc Sống : http://ngocchinh.com...-cho-cuoc-song/

Gió đưa cây cải về trời / Rau răm ở lại chịu lời đắng cay...

 

 


#47 nhoclangbat

nhoclangbat

    Edu level: li10

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

Đã gửi 16 September 2014 - 01:54 PM

" Đến Thailand dẹp yên bạo động

Ra biển đảo đem lại yên bình

Qua China xoá bỏ hận thù, tranh chấp

Vươn tới Mỹ xứng tầm thế giới,

..........."

- Vậy đc rùi bay cao quá hết oxi ^^


  • 1
"...................][)e\/i][_ /\/\@Y CrY....................."

(defun THỔ_DÂN_HỌC_CAD (xxxx) ...) ^_^








#48 Hoan1111

Hoan1111

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2587 Bài viết
Điểm đánh giá: 692 (tốt)

Đã gửi 17 September 2014 - 11:06 AM

:) :) :) Thơ của anh Nhóc mang tính định hướng và chỉ đạo cao quá, em chi lo vài năm nữa, khi anh  làm sếp lớn, anh sẽ chôn nhời đã hứa với bà con:

 

- Chị Hoằn với chị Hà Anh ráng chờ chục năm nữa nhoc sẽ viết 2 bộ chương trình vẽ cho cơ khí, và cấp thoát nước  :P

P/s: nghe nói ngoài Bắc đang có bão ^^

 

Đêm qua mưa to quá anh Nhóc ơi! Lụt hết cả chợ rồi! ^_^ -_- <_<

Theo quy luật bão thường ghé thăm Bắc bộ vào mùa hạ:

 Hạt gạo làng ta

Có bão tháng bẩy có mưa tháng ba

Giọt mồ hôi sa giữa trưa tháng sáu

Nước như ai nấu chết cả cá cờ

Cua ngoi lên bờ mẹ em xuống cấy…(Thơ Trần Đăng Khoa)

Sang mùa thu bão sẽ di chuyển vào Trung Bộ và Nam bộ.

Có thể nói mùa thu là món đặc sản đầy thi hứng mà thiên nhiên đã ưu ái ban tặng cho miền Bắc :

Trời thu xanh ngắt mấy tầng cao

 Cần trúc lơ phơ gió hắt hiu.

Nước biếc trông như tầng khói phủ,

 Song thưa để mặc bóng trăng vào…(Thơ Nguyễn Khuyến)

Ngày vào tiết Lập Thu : 7/8/2014 , giờ đang là tiết thu phân, sắp đến tiết sương giáng, sao miền bắc lại có bão nhỉ???

Phải chăng chỉ vì sự lầm tưởng chị Hà em đã trêu ghẹo mình mà anh Nhóc đã định hướng và chỉ đạo bão phải quay  trở lại miền Bắc ???

 

Anh Nhóc đã đọc chuyện cổ tích GỌI NẮNG VÀO NAM  của anh cadviet244 chưa???

 

Thơ em viết giữa công trình
Thân tặng anh Cadviet

Ở Sài Gòn có nhiều nắng không anh?
Quê em giờ đang vào mùa nắng hạ
Nắng cháy lên cho thêm xanh mầu lá
Cho da em đen sạm sắc tâm tình

Thơ anh viết vào rạng sáng binh minh
Thơ em viết giữa công trình đầy nắng
Tình cảm em vô tư và trong trắng
Như mây trời miền Bắc nhở nhơ bay
........................................................

Hôm wa đọc những dòng thơ em làm anh thật xúc động và cảm thấy rất vui khi có một người em gái phương xa đã nghỉ tới mình. Và chiều qua tan sở anh cũng có làm một bài thơ để tặng em nhưng kịp post lên, nay post lên cho em nà

Sài gòn ơi! hãy gắt nắng hơn nữa đi
Cho em tôi ngoài trời kia dịu nắng
Đám mây kia xin đừng ham chơi nữa
Hãy đến bên em che nắng dùm tôi

Cảm động sao khi trưa hè nắng cháy
Giữa công trường em nâng bút làm thơ
Nguyện thân này xin làm cơn gió mát
Thổi làn gió cho má em ửng hồng
.......................................................
Sài gòn Ngày 24/06/2009_ Trinhhien244


Bài thơ này em chưa biết đặt tên?
Thân tặng anh Cadviet!

Cảm ơn anh đã gọi nắng về Nam
Và xua đuổi mây đen ra miền Bắc
Anh thương em giữa trưa hè nắng gắt
Ra công trình để chụp ảnh, làm thơ

Em không buồn mà em chỉ ước mơ
Có một dịp vào thăm anh Cácviệt
Để nỗi nhớ thôi không còn da diết
Để niềm thương lan toả đến vô cùng

Đọc thơ anh em bỗng thấy rưng rưng
Xúc động quá cảm ơn anh CácViệt
Anh Mr_ Vui làm sao em không biết
Đang yên lành sao lại bán nick đi ???

Đời rộng dài chuyện cũ hãy quên đi
Mở rộng lòng đón ngày mai tươi sáng
Người với người chúng mình đều là bạn
Là anh em là đồng chí – đồng bào...!

Ngày 24 tháng 6 năm Em Trần Hà Anh


  • 0

66 Câu Phật Học Cho Cuộc Sống : http://ngocchinh.com...-cho-cuoc-song/

Gió đưa cây cải về trời / Rau răm ở lại chịu lời đắng cay...

 

 


#49 nhoclangbat

nhoclangbat

    Edu level: li10

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

Đã gửi 17 September 2014 - 11:23 AM

- chị Hoằn nghĩ sâu xa phết ^^, cái p/s của nhoc ý là nhoc chém gê quá thành bão thui ^^, đọc tin thấy ngoài Bắc đang bão nên nhoc mượn sự kiện ấy mà :)


  • 1
"...................][)e\/i][_ /\/\@Y CrY....................."

(defun THỔ_DÂN_HỌC_CAD (xxxx) ...) ^_^








#50 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 17 September 2014 - 12:01 PM

Ở bên này cũng có nhiều bài thơ hay:

www.ThoViet.com


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


#51 haanh

haanh

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2875 Bài viết
Điểm đánh giá: 1554 (rất tốt)

Đã gửi 18 September 2014 - 12:16 AM

@: Bác Doan Van Ha: www.ThoViet.com có rất nhiều thơ hay nhưng giá mắc quá, bác ạ! :) :) :)

 

K code được nhưng ket chém góp vui với.

- Viết nó liền tù tì cả cút và đường ống thì chắc code nhanh hơn nhiều so với tách ra từng đoạn ^^

- Chỉ sợ bạn phải làm j đó khác, hoặc nhu cầu phải thế, chứ nếu toàn cút 90 độ thế kia thì đâu có khó ta, cần gì vẽ ra vẫn có kết quả mà.

+ Số cút thì bằng số vertex Polyline - 2 đầu rồi.  (n)

+ Tổng chiều dài ống không tính cút rõ ràng bằng chiều dài cả Polyline - (n x D).

Phải không ta ?? Thấy dễ mà haanh làm nhiều bước thế kia Ket cũng hoang mang k biết mình nhầm chỗ nào k, vì ket dốt hình lắm :(

 

Lisp cho ra sản phẩm cút và ống liền một khối  cũng được, bác ạ! Với điều kiện:

1- Lisp phải thống kê được số lượng cút = [n đoạn ống - 1]

2- Lisp phải Stretch được hình 3D để co ngắn hoặc kéo dài các đoạn ống, theo ý muốn

3- Bà con Cơ khí và Cấp tốc thoát đang đói dài, bác Hà chưa có thời gian rảnh, nên em chỉ dám nhờ bác Hà làm món luộc thôi. Còn vài món tiếp theo như: Tần thuốc bắc, nướng ống vầu ...em sẽ cập nhật  sau, bác ạ!

 

 

" Đến Thailand dẹp yên bạo động

Ra biển đảo đem lại yên bình

Qua China xoá bỏ hận thù, tranh chấp

Vươn tới Mỹ xứng tầm thế giới,

..........."

- Vậy đc rùi bay cao quá hết oxi ^^

 

@anh Nhóc: Anh đã nối thơ cao cấp quá...Cho em ké theo ý tưởng của anh một tí cho vui  nhé!

Hy vọng một ngày gần đây nhất, Lisp xóa đói giảm nghèo  cho bà con dân làng Cơ khí và Cấp tốc thoát nước sẽ được tung hoành trên khắp mọi miền thân yêu của Tổ Quốc:

Cảm động biết bao

Lisp ta đi khắp mọi miền đất nước!

Từ Lạng Sơn đến Minh Hải thân yêu.

Lisp vượt Trường Sơn sang tận nước Lào

Sang Căm-pu-chia dựng xây tình hữu nghị....

(Xin mời anh Nhóc tiếp tục tùy hứng... viết nối tiếp mấy câu thơ viết theo thể thơ tự do của Hoằn)

Tới châu phi  rồi tạt qua châu Mỹ
Qua thổ nhĩ kỳ  vòng lại Chi- na

Lisp ngậm ngùi về quần đảoTrường Sa

Nơi biên ải gió tung khăn bay váy…


  • 0

“Sống trong đời sống cần có một tấm lòng / Để làm gì em biết không ? / Để gió cuốn đi, để gió cuốn đi...”


#52 hiepttr

hiepttr

    Edu level: li10

  • Members
  • PipPipPipPipPipPipPip
  • 1298 Bài viết
Điểm đánh giá: 518 (tốt)

Đã gửi 18 September 2014 - 05:44 PM

Rảnh đc tí, xin đc đặt cục gạch đầu tiên (m[í chỉ vẽ ống) :D

Lệnh là VE

;lisp ve duong ong 3d
(defun c:VE(/ var old D lst_ver pt_w lst_w i n len dau cuoi dau_use cuoi_use)
(setq var '("osmode" "cmdecho")
	  old (mapcar 'getvar var))
(mapcar 'setvar var '(0 0)) 
(setq D (getdist "\nNhap duong kinh ong: ")
	  lst_TC_DUC '((12 . 26) (13 . 26) (18 . 35) (19 . 35) (22 . 40) (23 . 40) (28 . 50))
	  cao_tam_cut (cdr (assoc D lst_TC_DUC)))
(prompt "\nChon 3DPOLY: ")
(setq lst_ver (acet-geom-vertex-list (car(entsel))))
(foreach pt lst_ver
	(setq pt_w (trans pt 1 0)
		  lst_w (append lst_w (list pt_w))))
(setq i 0)
(repeat (setq n (1- (length lst_w)))
	(setq len (distance (setq dau (nth i lst_w)) (setq cuoi (nth (1+ i) lst_w))))
	(command "UCS" "za" (trans dau 0 1) (trans cuoi 0 1))
	(cond
		((= i 0) (command "CYLINDER" (setq dau_use (trans dau 0 1)) (setq R (/ D 2.0)) (- len cao_tam_cut)))
		((= i (1- n)) (command "CYLINDER" (setq dau_use (mapcar '+ (list 0 0 cao_tam_cut) (trans dau 0 1))) R (- len cao_tam_cut)))
		(t (command "CYLINDER" (setq dau_use (mapcar '+ (list 0 0 cao_tam_cut) (trans dau 0 1))) R (- len (* 2 cao_tam_cut))))
		)
	(setq i (1+ i))
	)
(mapcar 'setvar var old)
)

  • 1

Có vợ dù dữ dù hiền , bạn đều có lợi
_ Nếu vợ hiền, bạn sẽ là người đàn ông sung sướng
_ Nếu vợ dữ, bạn sẽ thành ... triết gia !

Bergson


#53 haanh

haanh

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2875 Bài viết
Điểm đánh giá: 1554 (rất tốt)

Đã gửi 18 September 2014 - 11:55 PM

Em vừa đi Thái Thụy -  Thái Bình về! Đi từ mờ sáng, trời mưa như thác đổ, đến Thái Bình nắng và nóng như rang lạc, tối mịt mới về lại gặp mưa như giời bị vỡ đường ống nước, mệt quá trời!

Rất vui khi được anh Hiệp đặt cục gach đầu tiên! :) :) :)

Thân tặng anh Hiệp bức ảnh ngồ ngộ này:

Untitled_zps46aad835.png

Mệt quá trời, em đi ngủ đây, mai mới thử lisp của anh được, em cảm ơn anh nhiều nhé!


  • 0

“Sống trong đời sống cần có một tấm lòng / Để làm gì em biết không ? / Để gió cuốn đi, để gió cuốn đi...”


#54 haanh

haanh

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2875 Bài viết
Điểm đánh giá: 1554 (rất tốt)

Đã gửi 19 September 2014 - 10:59 AM

Sau một hồi đắn đo, em quyết định để dành ăn dè bằng cách "hoãn cái sự sung sướng lại", nhờ anh Nhóc và các bác "Blispge" mở hàng thử lisp của anh Hiệp  trước giúp em và đưa ra ý kiến phản hồi...(nếu có). Em xin cảm ơn!


  • 0

“Sống trong đời sống cần có một tấm lòng / Để làm gì em biết không ? / Để gió cuốn đi, để gió cuốn đi...”


#55 hiepttr

hiepttr

    Edu level: li10

  • Members
  • PipPipPipPipPipPipPip
  • 1298 Bài viết
Điểm đánh giá: 518 (tốt)

Đã gửi 19 September 2014 - 12:07 PM

Hàng nóng hổi đây ! :D :D :D

 

Để chiều, nếu ko có ý kiến gì thì mình sẽ gom ống thành 1 cục, cút thành 1 cục theo ý của Hoằn

 

;lisp ve duong ong 3d
(defun c:VE(/ var old D lst_TC_DUC cao_tam_cut R path cut base_w lst_ver lst_w obj i n len dau cuoi)
(setq var '("osmode" "cmdecho")
	  old (mapcar 'getvar var))
(mapcar 'setvar var '(0 0))
(setq D (getdist "\nNhap duong kinh ong: ")
	  lst_TC_DUC '((12 . 26.0) (13 . 26.0) (18 . 35.0) (19 . 35.0) (22 . 40.0) (23 . 40.0) (28 . 
50.0) (29 . 50.0) (35 . 55.0) (34 . 55.0) (40 . 60.0) (52 . 70.0) (53 . 70.0) 
(70 . 80.0) (69 . 80.0) (85 . 90.0) (84 . 90.0) (104 . 100.0) (129 . 187.5) 
(154 . 225.0) (204 . 300.0) (254 . 375.0))
	  cao_tam_cut (cdr (assoc D lst_TC_DUC))
	  )	;setq
;=================
;ve cut mau:
(command "arc" "c" '(0 0 0) (list cao_tam_cut 0 0) (list 0 cao_tam_cut 0))
(setq path (entlast))
(command "circle" '(0 0 0) (setq R (/ D 2.0)))
(command "sweep" (entlast) "" path)
(setq cut (entlast))
(setq base_w (mapcar '(lambda (x) (trans x 1 0)) (list (list cao_tam_cut 0 0) (list cao_tam_cut cao_tam_cut 0) (list 0 cao_tam_cut 0))))
;== xong cut mau ==
(prompt "\nChon 3DPOLY: ")
(setq lst_ver (acet-geom-vertex-list (setq ename (car(entsel))))
	  lst_w (mapcar '(lambda (x) (trans x 1 0)) lst_ver)
	  obj (vlax-ename->vla-object ename))
(setq i 0)
(repeat (setq n (1- (length lst_w)))
	(setq len (distance (setq dau (nth i lst_w)) (setq cuoi (nth (1+ i) lst_w))))
	(command "UCS" "za" (trans dau 0 1) (trans cuoi 0 1))
	(cond
		((= i 0) (command "CYLINDER" (trans dau 0 1) R (- len cao_tam_cut))
				 (command "_3dalign" cut "" "c" 
					(trans (car base_w) 0 1) 
					(trans (cadr base_w) 0 1) 
					(trans (last base_w) 0 1) 
					(trans (vlax-curve-getPointAtDist obj (- (vlax-curve-getDistAtParam obj 1) cao_tam_cut)) 0 1) 
					(trans (vlax-curve-getPointAtParam obj 1) 0 1) 
					(trans (vlax-curve-getPointAtDist obj (+ (vlax-curve-getDistAtParam obj 1) cao_tam_cut)) 0 1))
				 )
		((= i (1- n)) (command "CYLINDER" (mapcar '+ (list 0 0 cao_tam_cut) (trans dau 0 1)) R (- len cao_tam_cut)))
		(t (command "CYLINDER" (mapcar '+ (list 0 0 cao_tam_cut) (trans dau 0 1)) R (- len (* 2 cao_tam_cut)))
				(command "_3dalign" cut "" "c" 
					(trans (car base_w) 0 1) 
					(trans (cadr base_w) 0 1) 
					(trans (last base_w) 0 1) 
					(trans (vlax-curve-getPointAtDist obj (- (vlax-curve-getDistAtParam obj (1+ i)) cao_tam_cut)) 0 1) 
					(trans (vlax-curve-getPointAtParam obj (1+ i)) 0 1) 
					(trans (vlax-curve-getPointAtDist obj (+ (vlax-curve-getDistAtParam obj (1+ i)) cao_tam_cut)) 0 1)))
		)
	(setq i (1+ i))
	)
(mapcar 'entdel (list cut path))
(mapcar 'setvar var old)
)
(vl-load-com)

  • 2

Có vợ dù dữ dù hiền , bạn đều có lợi
_ Nếu vợ hiền, bạn sẽ là người đàn ông sung sướng
_ Nếu vợ dữ, bạn sẽ thành ... triết gia !

Bergson


#56 Hoan1111

Hoan1111

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2587 Bài viết
Điểm đánh giá: 692 (tốt)

Đã gửi 19 September 2014 - 01:46 PM

Thật tuyệt vời  nếu  anh Anh Hiệp thân mến gom được các found cô đơn thành hiệp hội! :) :) :)

Trong một hệ thống máy móc thiết bị, có rất nhiều phân đoạn ống  chứ không phải là 1 phân đoạn duy nhất. Bởi vậy sau khi "gom ống thành 1 cục, cút thành 1 cục theo ý của Hoằn", bằng giá nào anh cũng phải gom các hiệp hội cô đơn thành một tập đoàn lớn, nếu không thì chị Haanh sẽ mắng em té tát như vỡ đường ống cấp nước sông Đà  cho mà xem! (Gom được thành 1 cục lớn mới dễ tính tổng chiều dài cút và ống  và tiện lợi cho các thao tác zoom, pan và orbit, move, copy...)

@Chị Hà: Bữa nào thử lisp chị thịt mấy con gà mái đang đẻ trứng con so nhé! Em sẽ a-lô anh Nhóc đến làm gà tinh tươm sạch sẽ, còn em sẽ đạo diễn món gà luộc cách thủy, chị không cần phải mó tay vào làm việc gì mà lo nhé!

P/s: Em chỉ thích ăn tràng và trứng non thôi, còn cái gọi là "nhất thủ nhì vĩ" em sẽ dành riêng cho  anh Nhóc, các cụ bảo gái có công chồng không phụ là thế, anh Nhóc ạ! :) :) :)


  • 0

66 Câu Phật Học Cho Cuộc Sống : http://ngocchinh.com...-cho-cuoc-song/

Gió đưa cây cải về trời / Rau răm ở lại chịu lời đắng cay...

 

 


#57 hiepttr

hiepttr

    Edu level: li10

  • Members
  • PipPipPipPipPipPipPip
  • 1298 Bài viết
Điểm đánh giá: 518 (tốt)

Đã gửi 19 September 2014 - 04:24 PM

@Hoằn: Để mà giống cad2012 thì khó quá, thôi thì block lại nhé !


  • 2

Có vợ dù dữ dù hiền , bạn đều có lợi
_ Nếu vợ hiền, bạn sẽ là người đàn ông sung sướng
_ Nếu vợ dữ, bạn sẽ thành ... triết gia !

Bergson


#58 nhoclangbat

nhoclangbat

    Edu level: li10

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

Đã gửi 19 September 2014 - 07:14 PM

hehe kêu nhoc ăn con gà tinh tươm sạch sẽ thi đc ^^, sao nhoc thử lsp bạn Hiep ko đc nhỉ


  • 1
"...................][)e\/i][_ /\/\@Y CrY....................."

(defun THỔ_DÂN_HỌC_CAD (xxxx) ...) ^_^








#59 hiepttr

hiepttr

    Edu level: li10

  • Members
  • PipPipPipPipPipPipPip
  • 1298 Bài viết
Điểm đánh giá: 518 (tốt)

Đã gửi 19 September 2014 - 09:32 PM

Nhoc nhap duong kinh la nhung dk da dc liet ke trong list lst_TC_DUC thi lisp moi chay dung, nhap dk tuy y thi se ko chay dc
  • 2

Có vợ dù dữ dù hiền , bạn đều có lợi
_ Nếu vợ hiền, bạn sẽ là người đàn ông sung sướng
_ Nếu vợ dữ, bạn sẽ thành ... triết gia !

Bergson


#60 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 19 September 2014 - 09:40 PM

Nhoc nhap duong kinh la nhung dk da dc liet ke trong list lst_TC_DUC thi lisp moi chay dung, nhap dk tuy y thi se ko chay dc

Vậy thì thể hiện tài nghệ thêm chút nữa đi: bắt user nhập dk chừng nào đúng trong list mới chịu. Như thế sẽ hoàn hảo hơn, mà 99% là Hiepttr làm được.


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