Đến nội dung


Hình ảnh
- - - - -

Đánh cốt tự động bằng lisp DC


  • Please log in to reply
93 replies to this topic

#61 nguyentuyen6

nguyentuyen6

    biết lệnh chamfer

  • Advance Member
  • PipPipPipPip
  • 213 Bài viết
Điểm đánh giá: 124 (tàm tạm)

Đã gửi 26 November 2010 - 08:25 PM

anh cho em hỏi, khi muốn thay đổi cốt 0,000 thì như thế nào. có nghĩa là 1 bản vẽ em có nhiêu hình, mỗi hình ở 1 vị trí, khi đó em muốn thay đổi cốt 0,000 cho phùi hợp

Bạn đánh lệnh cot00 để nhập cost 0.000 mới
  • 0

Lisp In bản vẽ hàng loạt:
http://www.cadviet.c...ndpost&p=139860


#62 hungbabahung

hungbabahung

    biết vẽ line

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

Đã gửi 28 April 2011 - 04:02 PM

Cao độ của bác ghi là m. 1 units = 1mm . Em muốn 1cm=1units. Em xửa (Rtos(*caodo 10) 2 0) giống bài ở trên mà không được. Nhờ bác chỉnh xửa giúp !
  • 0

#63 ason

ason

    Chưa sử dụng CAD

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

Đã gửi 28 April 2011 - 04:57 PM

bác hoành ơi.em dùng lisp đánh cốt nhưng đằng trước cốt đó có chữ sl ở đằng trước.em ko thể xoá dc bác ag.bác giúp em với.thank bác trước.
  • 0
(*_*)..............

#64 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 696 (tốt)

Đã gửi 28 April 2011 - 06:39 PM

Cao độ của bác ghi là m. 1 units = 1mm . Em muốn 1cm=1units. Em xửa (Rtos(*caodo 10) 2 0) giống bài ở trên mà không được. Nhờ bác chỉnh xửa giúp !

(Rtos(*caodo 10) 2 0) bạn sửa lại thành (Rtos(* caodo 10) 2 0) có dấu cách sau dấu *.
  • 0
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#65 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 696 (tốt)

Đã gửi 28 April 2011 - 06:40 PM

bác hoành ơi.em dùng lisp đánh cốt nhưng đằng trước cốt đó có chữ sl ở đằng trước.em ko thể xoá dc bác ag.bác giúp em với.thank bác trước.

Có ai bị giống như của bạn đâu nhỉ.
  • 0
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#66 hungbabahung

hungbabahung

    biết vẽ line

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

Đã gửi 05 May 2011 - 10:44 AM

Em muốn xửa font chữ mặc định của lisp mà không phải kích double và chỉnh option, như thế rất lâu và em muốn chuyển blog về dạng blog mà em hay dung. Nhờ các bác giúp đỡ, lisp này rất hữu ích, tks các bác nhiều.

Bài viết đã được chỉnh sửa nội dung bởi hungbabahung: 05 May 2011 - 10:58 AM

  • 0

#67 hungbabahung

hungbabahung

    biết vẽ line

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

Đã gửi 06 May 2011 - 12:38 PM

Sau một hồi ngồi đọc blog tìm ra cái lệnh battman điều chỉnh thuộc tính blog cho thằng này, còn blog thì xửa thằng đánh cốt trong support cad là ok. Nhưng còn về số đằng sau dấu , là 3 chữ số thành 2 chữ số thì chịu , xửa được thành 2 = cách thay dòng lisp "." so sau ,=1 thì nó lại ra số gần đúng.844.58 = 844.80 hix! Các bác giúp hộ chút để em hoàn thiện lisp này.
  • 0

#68 canh.hn

canh.hn

    Chưa sử dụng CAD

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

Đã gửi 06 May 2011 - 01:08 PM

Chào amin ạ!
Em mới bước vào nghề, sử dụng cad chưa được thành thạo cho lắm. Có gì các anh trong diễn đàn giúp đỡ em với.
Thank....
  • 0

#69 vminh_ct

vminh_ct

    biết lệnh stretch

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

Đã gửi 23 May 2011 - 12:04 PM

Bác Hoành có thể đánh với cốt ghốc là cốt bất kỳ khác cốt 0 được không ạ.
  • 0
" Sống trên đời cần có 1 tấm lòng,để gió mãi cuốn đi"

#70 quockhanh2008

quockhanh2008

    biết zoom

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

Đã gửi 08 July 2011 - 09:45 AM

anh hoành em muồn bỏ chữ Sl thì làm sao.
có lấy biểu tượng khác được không
  • 0

#71 thanhhuyen7789

thanhhuyen7789

    biết pan

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

Đã gửi 23 August 2011 - 11:38 PM

[lisp tính cao độ] giành cho hoàn công công trình.
Thưa các bác em rất muốn có một cái lisp đánh cốt mà không phải đánh cốt từ cốt +0.00 mà nó nhận bất cứ số nào trên bản vẽ trở thành cao độ gốc dau đó nó được tìm đến điểm mới để ghi cao độ. tuy nhiên chiều cao chữ phải được định dạng theo tỷ lệ từng file trong từng bản vẽ, bởi mỗi file ta sử dụng tỷ lệ khác nhau, nhất là trong công tác làm hoàn công, thì những đơn vị thi công thường được cung cấp cá bản vẽ từ nhiều nhà thiết kế khác nhau để phục vụ cho công tác hoàng công. nên ý em ở đây là mong các bác giúp em lập giúp một lips tính cao độ định điểm chèn, co Blook thuộc tính đi theo. và có đủ các yếu tố em vừa nêu trên.
  • 0

#72 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 24 August 2011 - 07:11 AM

@thanhhuyen7789 đừng bắt mình nhắc nhở quá nhiều lần như thế
  • 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


#73 risusu

risusu

    biết vẽ circle

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

Đã gửi 07 October 2011 - 11:16 AM

em muốn sửa hình vẽ giống như bản vẽ được không bác hoanh. file kèm theo:
Hình đã gửi
file cad: http://www.cadviet.com/upfiles/3/xin_lisp_nhu_hinh_ve_2.dwg
  • 0
^_^0905-0988.782004^_^

#74 iris

iris

    biết zoom

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

Đã gửi 07 October 2011 - 10:16 PM

Bạn đã bao giờ mệt vì phải tính toán để đánh cốt cao độ của mặt cắt và mặt đứng hay chưa?
vừa phải tính xem từ điểm cần tính đến cốt 0.00 có khoảng cách h bao nhiêu, rồi lại nhập vào bản vẽ.

Bây giờ, bạn có thể làm điều này một cách nhanh chóng và tự động nhờ vào lisp dc của cadviet.
với lisp này, bạn chỉ cần gõ lệnh dc, chương trình sẽ hỏi bạn điểm bạn cần đánh cốt, sau đó chương trình sẽ chèn ký hiệu cốt vào đúng vị trí và giá trị mà bạn cần. Bạn dùng lệnh cot00 để định nghĩa điểm có cao độ là cot00.

Để sử dụng lệnh, trước tiên phải copy file cot.dwg vào thư mục support - Đây là file chứa nội dung của ký hiệu cốt. Sau đó appload file danhcot.lsp để sử dụng lệnh.

(defun c:cot00 ()
(setq Cot00 (cadr (getpoint "\nDiem co cot 0.000: ")))
(princ)
)
(defun c:dc (/ diem caodo dau giatri dodaichuoi)
(if (not cot00)
(progn
(alert "chua co cot 0.000")
(c:cot00)
)
)
(grdraw (list (+ (car (getvar "VIEWCTR")) (* -1.0 (getvar "VIEWSIZE")))
cot00
)
(list (+ (car (getvar "VIEWCTR")) (* 1.0 (getvar "VIEWSIZE")))
cot00
)
1
1
)
(setq
diem (getpoint "\nVao diem can danh cot: ")
caodo (- (cadr diem) cot00)
dau (cond
((equal caodo 0.0 0.01) "%%p")
((> caodo 0.0) "+")
(t "-")
)
giatri (rtos caodo 2 0)
)
(if (= "-" (substr giatri 1 1))
(setq giatri (substr giatri 2))
)
(while (< (strlen giatri) 4)
(setq giatri (strcat "0" giatri))
)
(setq dodaichuoi (strlen giatri)
giatri (strcat (substr giatri 1 (- dodaichuoi 3))
"."
(substr giatri (- dodaichuoi 2))
)
)
(command ".insert" "danhcot" diem 100.0 100.0 0.0 dau giatri)
(redraw)
)
file danhcot.lsp: http://www.cadviet.c...les/danhcot.lsp
file danhcot.dwg: http://www.cadviet.c...les/DANHCOT.zip

Lưu ý: Với mỗi file DWG mà bạn vẽ, bạn phải đặt lại biến ATTDIA về 0 trước khi dùng lệnh DC (chỉ cần đặt 1 lần cho mỗi file).

Rất mong có được sự phản hồi.
Cảm ơn.

thanks bác kú.khà khà.
  • 0

#75 mr.trunghd

mr.trunghd

    biết lệnh mirror

  • Advance Member
  • PipPipPip
  • 150 Bài viết
Điểm đánh giá: 46 (tàm tạm)

Đã gửi 18 March 2012 - 05:32 PM

Bạn đã bao giờ mệt vì phải tính toán để đánh cốt cao độ của mặt cắt và mặt đứng hay chưa?
vừa phải tính xem từ điểm cần tính đến cốt 0.00 có khoảng cách h bao nhiêu, rồi lại nhập vào bản vẽ.

Bây giờ, bạn có thể làm điều này một cách nhanh chóng và tự động nhờ vào lisp dc của cadviet.
với lisp này, bạn chỉ cần gõ lệnh dc, chương trình sẽ hỏi bạn điểm bạn cần đánh cốt, sau đó chương trình sẽ chèn ký hiệu cốt vào đúng vị trí và giá trị mà bạn cần. Bạn dùng lệnh cot00 để định nghĩa điểm có cao độ là cot00.

Để sử dụng lệnh, trước tiên phải copy file cot.dwg vào thư mục support - Đây là file chứa nội dung của ký hiệu cốt. Sau đó appload file danhcot.lsp để sử dụng lệnh.

(defun c:cot00 ()
(setq Cot00 (cadr (getpoint "\nDiem co cot 0.000: ")))
(princ)
)
(defun c:dc (/ diem caodo dau giatri dodaichuoi)
(if (not cot00)
(progn
(alert "chua co cot 0.000")
(c:cot00)
)
)
(grdraw (list (+ (car (getvar "VIEWCTR")) (* -1.0 (getvar "VIEWSIZE")))
cot00
)
(list (+ (car (getvar "VIEWCTR")) (* 1.0 (getvar "VIEWSIZE")))
cot00
)
1
1
)
(setq
diem (getpoint "\nVao diem can danh cot: ")
caodo (- (cadr diem) cot00)
dau (cond
((equal caodo 0.0 0.01) "%%p")
((> caodo 0.0) "+")
(t "-")
)
giatri (rtos caodo 2 0)
)
(if (= "-" (substr giatri 1 1))
(setq giatri (substr giatri 2))
)
(while (< (strlen giatri) 4)
(setq giatri (strcat "0" giatri))
)
(setq dodaichuoi (strlen giatri)
giatri (strcat (substr giatri 1 (- dodaichuoi 3))
"."
(substr giatri (- dodaichuoi 2))
)
)
(command ".insert" "danhcot" diem 100.0 100.0 0.0 dau giatri)
(redraw)
)
file danhcot.lsp: http://www.cadviet.c...les/danhcot.lsp
file danhcot.dwg: http://www.cadviet.c...les/DANHCOT.zip

Lưu ý: Với mỗi file DWG mà bạn vẽ, bạn phải đặt lại biến ATTDIA về 0 trước khi dùng lệnh DC (chỉ cần đặt 1 lần cho mỗi file).

Rất mong có được sự phản hồi.
Cảm ơn.

Thanks bác cái! :)
  • 0

Đừng bao giờ mất kiên nhẫn, đó chính là chiếc chìa khoá cuối cùng mở được cửa.

-Saint Exupery-


#76 dovananh.xd

dovananh.xd

    biết lệnh offset

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

Đã gửi 19 March 2012 - 09:01 AM

em muốn sửa hình vẽ giống như bản vẽ được không bác hoanh. file kèm theo:
Hình đã gửi
file cad: http://www.cadviet.c...u_hinh_ve_2.dwg

Bạn dùng thử lisp này xem, hình cao độ tự bạn định nghĩa, lisp này mình lấy trên diễn đàn nhưng không nhớ nằm ở topic nào. Tham khảo nhé:
http://www.cadviet.c...pfiles/3/89140_
  • 1

#77 quoctuan903

quoctuan903

    biết vẽ arc

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

Đã gửi 24 March 2012 - 11:34 PM

các anh ơi, túm lại có lisp nào hoạt động như view trên chưa vậy ạ, cho em xin với!
  • 0

#78 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 24 March 2012 - 11:57 PM

các anh ơi, túm lại có lisp nào hoạt động như view trên chưa vậy ạ, cho em xin với!

Có rồi! Search trên 4rum sẽ thấy.
  • 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.


#79 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 25 March 2012 - 07:57 AM

các anh ơi, túm lại có lisp nào hoạt động như view trên chưa vậy ạ, cho em xin với!

http://www.cadviet.c...showtopic=56086
  • 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


#80 quoctuan903

quoctuan903

    biết vẽ arc

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

Đã gửi 26 March 2012 - 09:17 PM

cám ơn anh ketxu nhiều ạ, nhưng em chưa dùng được nó, anh giúp thì giúp cho trót, hi, anh làm ơn hưogns dẫn sơ sơ cách dùng cho em với được khôgn ạ!
(http://www.cadviet.c...20)
  • 0