Đến nội dung


Hình ảnh
- - - - -

[Hỏi về Lisp] Về việc tạo mới Dimension bằng Lisp


  • Please log in to reply
6 replies to this topic

#1 avi612

avi612

    biết lệnh move

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

Đã gửi 03 January 2012 - 04:18 PM

Mình có một thắc mắc như sau:
Khi làm việc mình thường hay sử dụng tới nhiều tỷ lệ khác nhau và layer cho từng đối tượng khác nhau. Nên việc tạo mới các tỷ lệ và layer đó mình thường phải làm liên tục. Nêu mình muốn làm cách nào đó để có thể tối ưu các thao tác này sao cho một cách nhanh nhất.
_ Về vấn đề layer thì mình đã cơ bản giải quyết được bằng cách tạo một file *.lsp với cấu trúc là các câu lệnh command đơn giản.
_ Còn về dimmension thì mình cũng tìm được file tạo mới các dimmension bằng câu lệnh command nhưng trong cấu trúc câu mình không nắm được một số hàm có ý nghĩa gì. Ví dụ như những chổ mình tô đậm như bên dưới:


(defun c:D20()
(command "-style" "DIM" "VNI-Helve-Condense" "" "0.8" "" "" "" "")
(command "DIMSCALE" 20)
(command "DIMDLE" 0.5 "DIMDLI" 0.5 "DIMEXE" 0.5 "DIMEXO" 0.5 "DIMBLK1" "_ARCHTICK" "DIMBLK2" "_ARCHTICK" "DIMASZ" 0.5 "DIMSAH" "ON" "DIMCEN" 0.5)
(command "DIMTXSTY" "DIM" "DIMCLRT" 7 "DIMGAP" 1 "DIMDEC" 0 "DIMTOH" "ON" "DIMTIX" "ON")
(command ".-dimstyle" "s" "1-20")


_ Và câu hỏi mình muốn được giúp là: giải nghĩa giúp mình phần mình tô đậm có ý nhĩa gì và nằm ở đâu trong khâu tạo mới 1 Dimmension. Và nó còn những phần nào khác nữa không. Nếu có các bạn cho mình xin một file nói rõ về vấn đề này. Ví dụ như muốn tác động đến phần định dạng cao chữ thì mình sẽ có tên hàm là gì để tác động đến nó.

_ Giúp mình 1 lisp như sau: (để mình có thể tham khảo và hơn nữa là cũng đang cần mà chưa làm được).
---- Thay đổi Dim "Standard" theo một kiểu Dimmension Iso nào đó. (cái này mình sẽ có 1 bảng vẽ mẫu)
---- Lấy Dim "Standard" làm góc và thay đổi thông số ở Tag "Fit" mục "Use overall scale of: " theo tỉ lệ mong muốn. (Mình dùng cad 2007). (Nếu được hướng dẫn mình thay đổi luôn thông số Scale factor ở Tag "Primary Units". Vì mình thường tác động đến 2 thằng này.
---- Và cuối cùng là cấu trúc của hàm lisp này mình muốn nó hoạt động như sau:

Command: tmd (Tạo mới Dim: thay đổi các thông số trong "Standard") Enter.
Command: Tỷ lệ 1-10 (Dim được tạo mới sẽ có tên này)
Command: Use overall scale of: (cho mặc định là 10)
Command: Scale factor: (cho mặc định là 1)
-----------------------------------------------------------------------
Dưới đây là File mẫu để các bạn tham khảo kiểu dim. (Mình muốn kiểu Dim tạo mới giống với Dim trong bản vẽ này).
http://www.cadviet.c...am_khao_dim.dwg

Bài viết đã được chỉnh sửa nội dung bởi avi612: 03 January 2012 - 04:46 PM

  • 0

#2 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 03 January 2012 - 04:51 PM

_ Và câu hỏi mình muốn được giúp là: giải nghĩa giúp mình phần mình tô đậm có ý nhĩa gì và nằm ở đâu trong khâu tạo mới 1 Dimmension. Và nó còn những phần nào khác nữa không. Nếu có các bạn cho mình xin một file nói rõ về vấn đề này. Ví dụ như muốn tác động đến phần định dạng cao chữ thì mình sẽ có tên hàm là gì để tác động đến nó.

Bạn vào trong biến hệ thống để nghiên cứu về các chữ tô đậm: Express => Tools => System Variable Editor.
  • 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.


#3 avi612

avi612

    biết lệnh move

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

Đã gửi 03 January 2012 - 11:43 PM

Cảm ơn bạn, chắc mò cũng hơi lâu đây ^_^ ....... Toàn là tiếng Anh :angry: ... nhìn nhứt đầu quá.. :angry2:
  • 0

#4 Luxury037

Luxury037

    biết vẽ point

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

Đã gửi 04 January 2012 - 06:43 AM

Cảm ơn bạn, chắc mò cũng hơi lâu đây ^_^ ....... Toàn là tiếng Anh :angry: ... nhìn nhứt đầu quá.. :angry2:

Bác xem tạm cái này nhé, tuy không nhiều nhưng các biến trong này cũng đủ cho bác thiết lập một Dim .
http://www.cadviet.c...lisp_tap4_n.pdf

Còn bác muốn xem nhiều hơn thì mời xem tạm giáo trình :
http://123.30.191.27...u-loc-1416.html
  • 1

Cái gì mua không được bằng tiền, sẽ mua được bằng rất nhiều tiền !!!
nhq08ql_KTD
YH: conthuyenkhongben0511


#5 avi612

avi612

    biết lệnh move

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

Đã gửi 04 January 2012 - 08:37 AM

Rất hay, tài liệu này mình đang rất cần. Thank bạn nhìu... Mà phải chi mình load được cái giáo trình kia nhỉ, nó đòi tiền... :blush:
  • 0

#6 avi612

avi612

    biết lệnh move

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

Đã gửi 04 January 2012 - 12:57 PM

Chán thật, mất hết mấy chục tiền điện thoại mà vẫn không load được... Bực mình quá.... :angry:
  • 0

#7 avi612

avi612

    biết lệnh move

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

Đã gửi 05 January 2012 - 10:50 AM

Ui, sao hông thấy ai giúp mình hết vậy. Có ai có thể giúp mình cái Lisp tạo mới Dim như mình nói ở phía trên hông, tại đang cần mà khả năng tự làm lấy thì chưa được.... :wacko:
  • 0