Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
25 replies to this topic

#21 ngtiens

ngtiens

    biết zoom

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

Đã gửi 11 November 2014 - 12:19 PM

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

 

mình là mem mới nên không bít phải làm với số liệu đó như thế nào. e mới đi làm được các a chị trong cơ quan dạy sơ sơ về cad. nên nhìn như thế e không hiểu được. mới vô diễn đàn nửa. có j thì nhờ các bác chỉ dạy thêm. do đặc thù của công việc nên e rất cần chương trình đánh code như thế hic. nếu làm được thì e sẽ hoàn thành hồ sơ nhanh hơn rất nhìu


  • 0

#22 latungkts

latungkts

    biết zoom

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

Đã gửi 15 August 2015 - 11:03 PM

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

+bạn @ketxu mình tìm thấy 1 lsp khác của bạn về đánh cốt ở đây http://www.cadviet.c...nh-ve-kem-theo/bài viết #12 cái lsp đó với mình có ưu điểm là nó tự động cộng giá trị chênh cao dộ theo dạng +3.300 >>>+3.600 hoặc - 0.500 ( tức là có dấu chấm ngăn cách giữa hàng nghìn và hàng trăm )

cái lsp bạn share ở đây lại có ưu điểm là hoạt động với 1 cụm giá trị cốt ( cái này hay cho việc đánh cốt tự động của ký hiêu cốt hoàn thiện/cốt thô ) nhưng với mình lại bị nhược điểm là không hoạt động với ký hiệu cốt có dấu chấm ngăn cách như lsp trên ( hay là mình ko biết cách làm ở lsp này nhỉ ) bạn có thể giúp mình add ưu điểm ở topic kìa vào lsp này đc không.

+khi mình thử sử dụng lsp này bên layout ( với những bản vẽ dim và ghi cốt trên layout ) thì lsp này mình thấy ko hoạt động đúng, mình đã thử sử dụng option tỷ lệ thì cũng không đc


  • 0

#23 namgiangduy89

namgiangduy89

    biết vẽ pline

  • Members
  • PipPip
  • 61 Bài viết
Điểm đánh giá: -19 (hơi kém)

Đã gửi 14 November 2015 - 06:07 PM

sử dụng thế nào mọi người chỉ dùm với, làm hoài mà cao độ không nhảy


  • 0

#24 vodoifx

vodoifx

    biết zoom

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

Đã gửi 08 February 2017 - 10:17 AM

bác ket cho thêm thêm phía chèn nữa là ok rồi. Em là em dùng hàm mirror để tạo phía chèn. 

Nhân tiên em muốn cho field vào bock att để thuộc tính thay đổi theo cao độ block , bác có hứng thú không giúp em với.

 

http://www.cadviet.c...y-doi/?p=412905

 

(defun ss-mirror (ss p1m p2m flag / ent ss1 num ind)

(if (null ss)
(setq ss1 NIL)
(progn
(if (= flag 0) ; Co co 2 gia tri 0 or 1
(progn
(command "._mirror" ss "" p1m p2m "y" )
(setq ss1 ss)
)
(progn
(setq ss1 (ssadd))
(setq num (sslength ss))
(setq ind 0)
(while (< ind num)
(setq ent (ssname ss ind))
(command ".mirror" ent "" p1m p2m "N")
(ssadd (entlast) ss1)
(setq ind (1+ ind))
) ) ) ) )
ss1
)

 

 

 

31960984223_fd869244b2_o.gif


  • 0

#25 Danh Cong

Danh Cong

    biết dimdiameter

  • Members
  • PipPipPipPipPip
  • 334 Bài viết
Điểm đánh giá: 67 (tàm tạm)

Đã gửi 08 February 2017 - 10:36 AM

bác ket cho thêm thêm phía chèn nữa là ok rồi. Em là em dùng hàm mirror để tạo phía chèn. 

Nhân tiên em muốn cho field vào bock att để thuộc tính thay đổi theo cao độ block , bác có hứng thú không giúp em với.

 

 

Có cái này trên Youtube " Block Cao độ tự động" : 


  • 1

             ***  Vô lo - Vô nghĩ - Vô sầu hận  ***

***  Chẳng thương - Chẳng giận - Chẳng đau lòng  ***


#26 vodoifx

vodoifx

    biết zoom

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

Đã gửi 08 February 2017 - 10:56 AM

Mấy cái này  tạo thủ công bằng tay or copy từ bản vẽ khác là cách truyền thống rồi bác ạ. dù sao em cũng cám ơn bác, 

Ý em là đưa field bằng công cụ lisp và áp dụng cho lisp đánh cốt tự động.

Có cái này trên Youtube " Block Cao độ tự động"


  • 0