Đến nội dung


Hình ảnh
- - - - -

[Share]Đánh cos cao độ tự động


  • Please log in to reply
22 replies to this topic

#1 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 03 November 2014 - 10:53 AM

Thấy mấy bài gần đây về đánh cos cao độ, ket lục lại đống lisp cũ thấy đã viết 1 cái hơn 2 năm rồi vẫn để không, share bạn nào thấy phù hợp thì dùng nhé

- Cách làm thì cũng đơn giản :

+ Tự tạo ký hiệu cos của các bạn, bằng các nét vẽ + text cũng được, bằng block thuộc tính cũng được

+ Ap để load lisp DCCD.vlx

+ Sử dụng lệnh DCCD (đánh cos cao độ ^^)

+ Thiết đặt :

    * Chênh giá trị tính theo trục X, Y hay khoảng cách giữa 2 cụm cos

    * Tỉ lệ : điền mẫu số của tỉ lệ thôi nhé. Có nghĩa là chênh sẽ chia cho giá trị này

    * Số số thập phân đằng sau dấu ,

    * Chuỗi ký hiệu dương, âm , 0

         Trong chuỗi này ký tự %i sẽ là giá trị số. Các chữ còn lại là tiền tố hay hậu tố tùy các bác, nó tự thêm vào

 + Đặt xong thì Enter 1 cái, các giá trị trên đương nhiên được lưu lại

 + Chọn đám ký hiệu cao độ, pick điểm đặt và điểm tới như lệnh copy ý, rồi cảm nhận ạ :)

- Lưu ý hạn chế :

+ Ket lấy text, att đầu tiên trong tập chọn để xử lý cho nhanh. K viết hàm tìm text giá trị số, nên tiện nhất ký hiệu nên có 1 text thôi, đỡ bị nhầm

+ Ket k viết code strip mã Mtext, nên nếu làm ký tự cos thì nên làm bằng Dtext hoặc Att Single Line

+ Code loằm khoằm nên ket đóng mã lại.

Các bác dùng thử và ý kiến thêm bớt, hợp lý ket lại thêm vô, hoặc bác nào phát triển tiếp + debug thì pm ket gửi code

Thân ái ^^

 

Video :

http://youtu.be/yTeI0-7agZY

 

 

File V1.0 :

http://www.cadviet.c.../24067_dccd.rar

 

File V2.0 : cho phép tăng 1 text hoặc toàn bộ

https://www.mediafir...f6zwgxk8x61e2li


  • 6

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


#2 hdb

hdb

    biết vẽ ellipse

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

Đã gửi 03 November 2014 - 11:12 AM

Thank you.


  • 0

#3 phamhuy1

phamhuy1

    biết vẽ rectang

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

Đã gửi 03 November 2014 - 11:19 AM

Thank a Ket ! :)


  • 0

#4 proconeng86

proconeng86

    biết lệnh break

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

Đã gửi 07 November 2014 - 08:31 AM

Thấy mấy bài gần đây về đánh cos cao độ, ket lục lại đống lisp cũ thấy đã viết 1 cái hơn 2 năm rồi vẫn để không, share bạn nào thấy phù hợp thì dùng nhé

- Cách làm thì cũng đơn giản :

+ Tự tạo ký hiệu cos của các bạn, bằng các nét vẽ + text cũng được, bằng block thuộc tính cũng được

+ Ap để load lisp DCCD.vlx

+ Sử dụng lệnh DCCD (đánh cos cao độ ^^)

+ Thiết đặt :

    * Chênh giá trị tính theo trục X, Y hay khoảng cách giữa 2 cụm cos

    * Tỉ lệ : điền mẫu số của tỉ lệ thôi nhé. Có nghĩa là chênh sẽ chia cho giá trị này

    * Số số thập phân đằng sau dấu ,

    * Chuỗi ký hiệu dương, âm , 0

         Trong chuỗi này ký tự %i sẽ là giá trị số. Các chữ còn lại là tiền tố hay hậu tố tùy các bác, nó tự thêm vào

 + Đặt xong thì Enter 1 cái, các giá trị trên đương nhiên được lưu lại

 + Chọn đám ký hiệu cao độ, pick điểm đặt và điểm tới như lệnh copy ý, rồi cảm nhận ạ :)

- Lưu ý hạn chế :

+ Ket lấy text, att đầu tiên trong tập chọn để xử lý cho nhanh. K viết hàm tìm text giá trị số, nên tiện nhất ký hiệu nên có 1 text thôi, đỡ bị nhầm

+ Ket k viết code strip mã Mtext, nên nếu làm ký tự cos thì nên làm bằng Dtext hoặc Att Single Line

+ Code loằm khoằm nên ket đóng mã lại.

Các bác dùng thử và ý kiến thêm bớt, hợp lý ket lại thêm vô, hoặc bác nào phát triển tiếp + debug thì pm ket gửi code

Thân ái ^^

 

Video :

http://youtu.be/yTeI0-7agZY

 

 

File :http://www.cadviet.c.../24067_dccd.rar

 

 

Cám ơn bạn Ketxu đã chia sẻ, lisp rất hay và hữu dụng nhưng vẫn có 1 điểm là lisp chưa dùng được với dyanmic block. mình hay sử dụng dynamic block cho cốt cao độ (như file đính kèm). Do có nhiều trường hợp cốt cao độ có đến 2, 3 cốt ghi cùng lúc (như trong vẽ thang ...) nên sử dụng dynamic block sẽ thuận tiện hơn. Bạn sửa lại lisp chút nhé:

 - có thể sử dụng cho dynamic block

 - khi copy thì tất cả 3 cao độ trong block đều tự động nhảy hết kể cả khi mình lựa chọn hiện ra 1 cao độ

 - ngoài ra bạn cung cấp file lisp được không vì lệnh dài quá, file lisp thì mọi người có thể tự sửa tên lệnh cho phù hợp với từng người

Mình cám ơn nhiều

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


  • 0

#5 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 07 November 2014 - 09:09 AM

- Lisp vẫn dùng cho Dynamic bình thường đó chứ bạn. Chẳng qua bạn chưa để ý mình note là nó lấy cái Att đâù tiên mà nó lấy được, chứ k phải cái Att đầu tiên / duy nhất mà bạn thấy được. Bạn thử vơí 3 cos thì sẽ hiểu

- Làm được nhảy cả 3, nhưng để mình nghiên cứu có nên cho vào không, vì mình chưa muốn đổ đồng tăng tât cả mọi thứ mà nó thấy được

- Code mình đã gửi cho mấy bạn rồi, để phát triển thôi. Không biêts các bạn âý có nhã hứng chỉnh theo yêu cầu này không, vào giúp Ket vơí :(. Còn đổi tên lệnh thì k dùng đến code. Bạn chỉ cần viết như thế này :

 

(defun c:ten_lenh_cua_ban()(c:dccd))
 

P/s : nếu là mình, mình sẽ làm cos cao độ của bạn bằng Mtext, hoặc Dynamic Ảrray, chứ k giơí hạn 3 cos vâỵ đâu ^^


  • 1

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 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 07 November 2014 - 09:56 AM

P/s : đã sửa xong theo yêu cầu proconeng86, tối mình sẽ tìm cách gộp 2 lisp lại


  • 1

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


#7 nhoclangbat

nhoclangbat

    Edu level: li10

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

Đã gửi 07 November 2014 - 11:52 AM

- hi hay thật ^^, lâu lâu nhoc cũng vẽ vài bản nhà, có lsp anh Ket tiện thật  ^_^


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

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








#8 proconeng86

proconeng86

    biết lệnh break

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

Đã gửi 07 November 2014 - 02:42 PM

P/s : đã sửa xong theo yêu cầu proconeng86, tối mình sẽ tìm cách gộp 2 lisp lại

 

Rất mong tin bạn :D


  • 0

#9 proconeng86

proconeng86

    biết lệnh break

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

Đã gửi 08 November 2014 - 10:24 PM

P/s : đã sửa xong theo yêu cầu proconeng86, tối mình sẽ tìm cách gộp 2 lisp lại

 

Bạn ketxu ơi, lisp chưa sửa được ah bạn?


  • 0

#10 proconeng86

proconeng86

    biết lệnh break

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

Đã gửi 08 November 2014 - 11:03 PM

P/s : đã sửa xong theo yêu cầu proconeng86, tối mình sẽ tìm cách gộp 2 lisp lại

 

Bạn ketxu ơi, lisp chưa sửa được ah bạn?


  • 0

#11 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 09 November 2014 - 10:15 AM

Mình đang nghỉ cuối tuần bạn ạ ^^


  • 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


#12 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 10 November 2014 - 10:36 AM

Đã cập nhật v2.0 cho phép + tất cả giá trị các text  cos nếu pick chọn Tăng tất cả, nếu không chỉ đánh text đầu tiên tìm thấy . Link bài đầu

24067_bai_4_8222014122250_pm111020141034


  • 1

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


#13 proconeng86

proconeng86

    biết lệnh break

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

Đã gửi 10 November 2014 - 12:52 PM

Đã cập nhật v2.0 cho phép + tất cả giá trị các text  cos nếu pick chọn Tăng tất cả, nếu không chỉ đánh text đầu tiên tìm thấy . Link bài đầu

24067_bai_4_8222014122250_pm111020141034

 

Quá tuyệt vời, có cái này làm sẽ nhanh hơn nhiều. cám ơn bạn ketxu nhiều nhé :D


  • 0

#14 ngtiens

ngtiens

    biết zoom

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

Đã gửi 10 November 2014 - 02:34 PM

cho e hỏi nếu mình giới hạn code thì phải làm sao để nó hiện ra ạ, ví dụ như mình chỉ yêu cầu nó hiện random từ 1.0 - 1.20 thì phải làm sao ạ. bác ketxu có thể làm giùm e thêm 2 ô nữa được không ạ. 1 ô là cao độ bắt đầu. còn 1 ô là cao độ kết thúc. khi mình nhấp vào bất cứ điểm nào thì nó cũng hiện random từ 1.0 đến 1.20 . e xin cảm ơn ạ


  • 0

#15 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 10 November 2014 - 03:52 PM

Thì sang bài toán khác rồi bạn ơi :)


  • 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


#16 ngtiens

ngtiens

    biết zoom

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

Đã gửi 10 November 2014 - 04:41 PM

Thì sang bài toán khác rồi bạn ơi :)

bác có thể làm giúp e được không ạ. chỉ cần có 2 hàng đó thôi là được e không cần j hết. nhưng viết lisp thi e không bít viết. tức là chỉ cần 1 ô bắt đầu và một ô giới hạn. nhấp ở đâu là nó ra random trong khoảng đó ạ


  • 0

#17 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 10 November 2014 - 04:58 PM

Quick code xem đúng ý không, rồi edit sau.

P/S: srr vì đã lỡ post bài không đúng chủ đề làm loãng topic.


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


#18 ngtiens

ngtiens

    biết zoom

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

Đã gửi 10 November 2014 - 05:44 PM

Quick code xem đúng ý không, rồi edit sau.

 

;----- Random so trong khoang tu a den b.
(defun C:HA()
 (defun rand(a b)
;  (+ a (fix (* (- b a) (atof (strcat "0." (substr (rtos (getvar 'cdate) 2 18) 16 2)))))))
  (+ a (* (- b a) (atof (strcat "0." (substr (rtos (getvar 'cdate) 2 18) 16 2))))))
 (setq a (getreal "\nSo bat dau: "))
 (setq b (getreal "\nSo gioi han: ")) 
 (while (setq p (getpoint "\nPick point: "))
  (command "text" p "" "" (rtos (rand a b) 2 2) "")))

zị chắc được rồi ạ, nhưng không bít cách sử dụng làm sao. e không rành cái vụ này lắm. bây h làm sao load được cái file vlx để sử dụng trong cad dc :(


  • 0

#19 ngtiens

ngtiens

    biết zoom

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

Đã gửi 10 November 2014 - 08:38 PM

bác hà có thể giúp e được ko ạ


  • 0

#20 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 11 November 2014 - 08:25 AM

Bác H buồn bạn nên xóa luôn rồi. Chi mà bác ấy post code lisp rành rành mà bạn lại bảo là "được rồi", hồi lại nói "n k biết sử dụng vlx làm sao" :D Kỵ nhất là thế đó.

Bạn post lại yêu cầu ra 1 topic mới 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