Đến nội dung


Hình ảnh

AutoLISP cho kỹ sư xây dựng


  • Please log in to reply
21 replies to this topic

#1 Jin Yong

Jin Yong

    biết lệnh group

  • Vip
  • PipPipPipPipPipPip
  • 498 Bài viết
Điểm đánh giá: 334 (khá)

Đã gửi 29 January 2007 - 05:01 PM

Xin mở đầu mục này bằng một tiện ích được viết bởi thành viên của chúng tôi.
Tiện ích viết từ Autolisp nhắm tiện dụng hoá phần thống kê thanh dàn , lệnh được gọi là tktd

(defun c:tktd( / lstThanh ss pp)
(defun sudung (ham ss / sodt index entdt soapp)
(setq sodt (cond
(ss (sslength ss))
(t 0)
)
soapp 0
index 0
)
(repeat sodt
(setq entdt (ssname ss index)
index (1+ index)
)
(if (ham entdt)
(setq soapp (1+ soapp))
)
)
soapp
) 
(defun prone(ent / tt p1 p2 L cothem)
(defun them(dt)
(if (equal L (car dt) 1.0) 
(progn
(setq cothem t)
(list L (1+ (cadr dt)))
) 
dt
)
)
(setq
tt (entget ent)
p1 (cdr (assoc 10 tt))
p2 (cdr (assoc 11 tt)) 
L (distance p1 p2) 
cothem nil
lstThanh (mapcar 'them lstThanh)
)
(if (not cothem)
(setq lstThanh
(append lstThanh (list (list L 1))
)
)
) 
)
;;-------- Main ------------------
(princ "\nHay chon thanh: ")
(setq
ss (ssget '((0 . "LINE")))
lstThanh nil
)
(sudung prone ss) 
(princ "\nSo luong cac thanh:")
(foreach pp lstThanh
(princ (strcat "\nThanh dai " (rtos (car pp)) ": " (itoa (cadr pp)))) 
)
(princ) 
)

<a href="http://www.cadviet.com/upfiles/TKTD.lsp" target="_blank">http://www.cadviet.com/upfiles/TKTD.lsp</a>
  • 1

Phát triển phần mềm thiết kế Kết cấu Việt Nam - http://www.ketcausoft.com


#2 Jan

Jan

    biết pan

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

Đã gửi 29 January 2007 - 08:59 PM

Cho mình xin cái lisp vẽ đường hàn với ?
  • 0

#3 Jin Yong

Jin Yong

    biết lệnh group

  • Vip
  • PipPipPipPipPipPip
  • 498 Bài viết
Điểm đánh giá: 334 (khá)

Đã gửi 29 January 2007 - 09:03 PM

Đây, lisp vẽ đường hàn, các lệnh được sử dụng là h1 ; h2 ; h3 ; h4
mỗi lệnh tương ứng với các loại đường hàn khác nhau, bạn hãy thử đi sẽ biết

http://www.cadviet.com/upfiles/DHan.lsp
  • 0

Phát triển phần mềm thiết kế Kết cấu Việt Nam - http://www.ketcausoft.com


#4 trantrung78

trantrung78

    biết zoom

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

Đã gửi 22 March 2007 - 11:20 AM

Mình có một list dùng để thống kê thép trong bản vẽ xây dựng mới sưu tầm được nhưng kiến thức về lisp của mình thì kém quá nhờ các bác chỉ giáo cách sử dụng dùm tôi! xin cám ơn nhiều!
link: http://www.cadviet.com/upfiles/dthke_1.zip
  • 0

#5 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 22 March 2007 - 03:22 PM

Nghe mâu thuẫn nhỉ, không biết sử dụng sao lại biết lisp rất hay. :lol:

Cách sử dụng lisp trên:
Bạn copy file thongke.dcl vào thư mục support của autocad.
Sau đó, upload file thongke.lsp lên và dùng lệnh dthke.

Trước khi sử dụng lệnh dthke, bạn phải đặt height cho text style hiện hành khác 0 (nếu không, lisp này sẽ chạy sai).
http://www.cadviet.c.../Untitled_5.txt

Khi gọi lệnh dthke, màn hình welcome sẽ xuất hiện như sau:
http://www.cadviet.c.../Untitled_1.txt

nhấn ok, sẽ có màn hình hỏi tỷ lệ bản vẽ như sau:
http://www.cadviet.c.../Untitled_2.txt

Chọn tỷ lệ và ok, màn hình sẽ xuất hiện chương trình chính:
http://www.cadviet.c.../Untitled_3.txt
Để kết thúc công việc, bỏ check tạo ô thống kê tiếp.

Sau khi thống kê, kết quả sẽ như:
http://www.cadviet.c...ntitled_4_1.txt
  • 3

#6 trantrung78

trantrung78

    biết zoom

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

Đã gửi 23 March 2007 - 04:31 PM

Bác Jin Jong oi! cái lệnh đường hàn bị sao đó! gõ lệnh h1 vào nó nói là
"; error: no function definition: _SAVE" vậy là sao hả bác! chỉ giáo gíup tôi với!
  • 0

#7 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 23 March 2007 - 04:49 PM

Bạn tìm dòng lệnh
(_save) và (_restore) ở trong file lisp trên để xóa đi hoặc thêm dấu chấm phẩy [;] vào đằng trước thì sẽ dùng lệnh ngon.

Đây là 2 lệnh save và restore cấu hình nhưng không ảnh hưởng đến lệnh.
  • 0

#8 eng-hiep

eng-hiep

    biết lệnh erase

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

Đã gửi 11 May 2007 - 08:26 PM

Bạn tìm dòng lệnh
(_save) và (_restore) ở trong file lisp trên để xóa đi hoặc thêm dấu chấm phẩy [;] vào đằng trước thì sẽ dùng lệnh ngon.

Đây là 2 lệnh save và restore cấu hình nhưng không ảnh hưởng đến lệnh.


* Em mới tìm hiểu về AUTOLISP , Em có một số file AUTOLISP nhưng em không biết sử dụng nó bằng cách nào ( Tức là THỰC THI (RUN) nó ấy .)
Em chỉ biết VẼ thôi , mấy cái này thì em “gật gù” lắm – Mong các bác giúp em ( xin hướng dẫn cho em từng bước, từ từ thôi nhé !). Xin cám ơn các bác nhiều .


  • 0

#9 Jin Yong

Jin Yong

    biết lệnh group

  • Vip
  • PipPipPipPipPipPip
  • 498 Bài viết
Điểm đánh giá: 334 (khá)

Đã gửi 11 May 2007 - 08:32 PM

* Em mới tìm hiểu về AUTOLISP , Em có một số file AUTOLISP nhưng em không biết sử dụng nó bằng cách nào ( Tức là THỰC THI (RUN) nó ấy .)
Em chỉ biết VẼ thôi , mấy cái này thì em "gật gù" lắm – Mong các bác giúp em ( xin hướng dẫn cho em từng bước, từ từ thôi nhé !). Xin cám ơn các bác nhiều .

Autolisp được bàn bạc tại diễn đàn con: AutoLisp và VBA
Cách thực thi (run) cũng đã được nói trong một chủ đề thuộc diễn đàn con đó: Cách sử dụng Lisp
Ngoài ra, diễn đàn cũng có phần hướng dẫn lập trình với Lisp tại đây: AutoLisp.
Nếu hứng thú, bạn hãy thử viết cho mình những chương trình và chia sẻ, sẽ rất thúc vị đấy :lol:
  • 1

Phát triển phần mềm thiết kế Kết cấu Việt Nam - http://www.ketcausoft.com


#10 eng-hiep

eng-hiep

    biết lệnh erase

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

Đã gửi 11 May 2007 - 08:43 PM

Autolisp được bàn bạc tại diễn đàn con: AutoLisp và VBA
Cách thực thi (run) cũng đã được nói trong một chủ đề thuộc diễn đàn con đó: Cách sử dụng Lisp
Ngoài ra, diễn đàn cũng có phần hướng dẫn lập trình với Lisp tại đây: AutoLisp.
Nếu hứng thú, bạn hãy thử viết cho mình những chương trình và chia sẻ, sẽ rất thúc vị đấy :lol:

Cám ơn anh đã trả lời giúp em nhé . Do em mới gia nhập Thành viên nên không biết , Muốn post hình lên bài viết như các anh thì Click vào đâu vậy anh ? Em tìm mãi mà không có thấy như các Forum khác . Xin anh thông cảm .
  • 0

#11 Jin Yong

Jin Yong

    biết lệnh group

  • Vip
  • PipPipPipPipPipPip
  • 498 Bài viết
Điểm đánh giá: 334 (khá)

Đã gửi 11 May 2007 - 10:32 PM

Cám ơn anh đã trả lời giúp em nhé . Do em mới gia nhập Thành viên nên không biết , Muốn post hình lên bài viết như các anh thì Click vào đâu vậy anh ? Em tìm mãi mà không có thấy như các Forum khác . Xin anh thông cảm .


Muốn post hình lên, tốt nhất bạn hãy tạo cho mình một tài khoản ở Photobucket.com, sau khi post lên, nó sẽ cung cấp cho bạn các link của bức ảnh, trong đó có link dạng

|IMG|http://....|/IMG|

Hãy copy linh này vào bài viết, tức thì ảnh sẽ hiện lên!
  • 0

Phát triển phần mềm thiết kế Kết cấu Việt Nam - http://www.ketcausoft.com


#12 eng-hiep

eng-hiep

    biết lệnh erase

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

Đã gửi 12 May 2007 - 10:36 AM

Muốn post hình lên, tốt nhất bạn hãy tạo cho mình một tài khoản ở Photobucket.com, sau khi post lên, nó sẽ cung cấp cho bạn các link của bức ảnh, trong đó có link dạng

|IMG|http://....|/IMG|

Hãy copy linh này vào bài viết, tức thì ảnh sẽ hiện lên!

Ôi , cũng khá phức tạp nhỉ ( không giống như các FORUM khác ) nhưng em sẽ cố gắn . Cám ơn anh nhiều nhé .
  • 0

#13 cuong49x5

cuong49x5

    biết vẽ pline

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

Đã gửi 01 January 2008 - 12:37 PM

Đây, lisp vẽ đường hàn, các lệnh được sử dụng là h1 ; h2 ; h3 ; h4
mỗi lệnh tương ứng với các loại đường hàn khác nhau, bạn hãy thử đi sẽ biết

http://www.cadviet.c...pfiles/DHan.lsp

Bạn Jin Jong ơi cho mình xin cái líp đường hàn !Link mà bạn đưa nó dẫn tới đâu ý ,không có chỗ download !
  • 0

#14 Jin Yong

Jin Yong

    biết lệnh group

  • Vip
  • PipPipPipPipPipPip
  • 498 Bài viết
Điểm đánh giá: 334 (khá)

Đã gửi 02 January 2008 - 08:26 AM

Bạn Jin Jong ơi cho mình xin cái líp đường hàn !Link mà bạn đưa nó dẫn tới đâu ý ,không có chỗ download !


Link down mới đây :)
  • 0

Phát triển phần mềm thiết kế Kết cấu Việt Nam - http://www.ketcausoft.com


#15 cuong49x5

cuong49x5

    biết vẽ pline

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

Đã gửi 02 January 2008 - 09:49 AM

Link down mới đây :)

Cám ơn bạn nhé !Bạn còn lisp nào hay về vẽ bản vẽ thép thì cho mình xin nhé !Mình đang vẽ bản vẽ thép mà!
  • 1

#16 kokono939

kokono939

    biết vẽ line

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

Đã gửi 08 December 2010 - 12:24 AM

Đây, lisp vẽ đường hàn, các lệnh được sử dụng là h1 ; h2 ; h3 ; h4
mỗi lệnh tương ứng với các loại đường hàn khác nhau, bạn hãy thử đi sẽ biết

<a href="http://www.cadviet.c...files/DHan.lsp" target="_blank"><a href="http://www.cadviet.c...files/DHan.lsp" target="_blank"><a href="http://www.cadviet.c...files/DHan.lsp" target="_blank">http://www.cadviet.com/upfiles/DHan.lsp</a></a></a>




Mình đang cần lisp vẽ đường hàn này, có phải lisp tạo đường hàn là các block ko, link die rồi, bạn up lại giúp được ko!
  • 0

#17 nguyenkhoadng

nguyenkhoadng

    biết vẽ line

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

Đã gửi 14 September 2011 - 08:46 AM

Mình đã tìm được linetype cần, nên nhờ mod xóa giúp phần trả lời này.
cảm ơn!
  • 0

#18 thay10

thay10

    Chưa sử dụng CAD

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

Đã gửi 17 September 2011 - 03:46 PM

minh save as 1 file tren cad 2007 ko dc các bác ơi! nó ẩn mất đường dẫn, ko thấy ổ đĩa ở dòng save in, mình chỉ đường dẫn khác thi hiện họp thoại: Autocad Error Aborting vói dòng thông báo: FATAL ERROR: Unhandled Access Violation Writing 0x0014 Exception at 77678c39h.
Bác nào biết cách xử lý chỉ em với
thank!
  • 0

#19 Hoang Van An

Hoang Van An

    biết zoom

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

Đã gửi 28 October 2011 - 09:57 PM

Muốn post hình lên, tốt nhất bạn hãy tạo cho mình một tài khoản ở Photobucket.com, sau khi post lên, nó sẽ cung cấp cho bạn các link của bức ảnh, trong đó có link dạng

|IMG|http://....|/IMG|

Hãy copy linh này vào bài viết, tức thì ảnh sẽ hiện lên!

Uh bác này hướng dẫn đúng đấy nhưng cơ bản là có link rồi thì past vào chỗ nào ở bài viết vậy bác.
  • 0

#20 Hoang Van An

Hoang Van An

    biết zoom

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

Đã gửi 28 October 2011 - 10:00 PM

Link down mới đây :undecided:

Chào bác Jin bác có vẽ cũng là cao thủ Cad nhỉ. Có nhận đồ đệ không cho em bái kiếm với???
  • 0