Jump to content
InfoFile
Tác giả: ketxu
Bài viết gốc: 153376
Tên lệnh: rtt
Quay Text và các đối tượng khác

- Quay tập đối tượng được chọn gồm Text (đầu tiên) và các đối tượng khác


Filename: 153376_rtt.lsp
Tác giả: vbtxd06
Bài viết gốc: 153285
Tên lệnh: tl
lisp dimension giùm em
Để dấu mũi tên Closed filled lớn theo tỉ lệ thì bạn này có thể chỉnh thêm như sau:
Mình có chỉnh lisp của bạn này 1 tí. Xin lỗi nha:


Thanhks với!

Filename: 153285_tl.lsp
Tác giả: 3d.decor
Bài viết gốc: 153369
Tên lệnh: wall
Viết lisp theo yêu cầu [phần 2]
pro nào rỗi tẩy xoá hộ mình đoạn lisp ofset đường trục giữa của tường
chỉ giữ lại doạn sau là trim các điểm giao nhau của tường được không
lisp WALL
rất cám ơn ạ

Filename: 153369_wall.lsp
Tác giả: vbtxd06
Bài viết gốc: 152890
Tên lệnh: t3t
Sửa lổi file Lisp giup em.
Cảm ơn anh Hà,File chạy tốt lắm.Người ta có câu "Được nước làm tới". Vậy em xin anh Hà sửa lỗi dùm em đoạn lisp này luôn nha.Em cám ơn anh.Đoạn lisp của em chạy được hết nhưng không hiểu sao cứ chạy xong là nó báo "Unknown command "T3T""Nên em thấy rất bực mình. Mong anh giải quyết dùm em.
Lisp này dùng để vẽ tên đường trục ah.

Filename: 152890_t3t.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 152777
Tên lệnh: copnh
Nhờ các bác pro viết dùm đoạn lisp copy này với

Hề hề hề,
Nếu đúng vậy thì bạn có thể dùng cái lisp của bác Đoan Van Ha hay xài thử cái ni coi có ưng cái bụng không hè????

Hề hề hề,'
Chúc bạn vui.

Filename: 152777_copnh.lsp
Tác giả: pdle
Bài viết gốc: 152840
Tên lệnh: tmn
lisp tạo menu những lệnh cơ bản
Chà, bây giờ em mới biết tạo menu như thế nào. Nhưng cơ mà có một số thứ vẫn chưa hiểu. Chẳng hạn em có một cái menu như thế này:


Ở đây có: (menugroup "DSlenh") chắc là tìm xem menu DSlenh đã được load chưa?
còn: (menucmd "....") chắc là xác định vị trí cho menu này, nhưng P14=+DSlenh.pop1 thì em chưa hiểu rõ lắm, để tìm hiểu sau vậy!

Thấy hay...
>>
Chà, bây giờ em mới biết tạo menu như thế nào. Nhưng cơ mà có một số thứ vẫn chưa hiểu. Chẳng hạn em có một cái menu như thế này:


Ở đây có: (menugroup "DSlenh") chắc là tìm xem menu DSlenh đã được load chưa?
còn: (menucmd "....") chắc là xác định vị trí cho menu này, nhưng P14=+DSlenh.pop1 thì em chưa hiểu rõ lắm, để tìm hiểu sau vậy!

Thấy hay nên em nghịch tí :)
<<

Filename: 152840_tmn.lsp
Tác giả: vbtxd06
Bài viết gốc: 152527
Tên lệnh: cpt
Sửa lổi file Lisp giup em.

Em đã nhấn thanks như anh Ha chỉ rồi nhưng em xin cám ơn anh 1 lần nữa, đúng là "đi 1 ngày đàng học 1 sàng khôn".Sẵn nhân tiện đây anh có thể cải tiến dùm em file Lisp này không? File Lisp này em viết để thay đổi các tính chất của Text, Nhưng em rất là khó chịu vì nó chỉ thay đổi tính chất của 1 Text chọn mà thôi. Mong anh giúp em cải tiển lệnh này trở thành thay đổi all các đối...
>>
Em đã nhấn thanks như anh Ha chỉ rồi nhưng em xin cám ơn anh 1 lần nữa, đúng là "đi 1 ngày đàng học 1 sàng khôn".Sẵn nhân tiện đây anh có thể cải tiến dùm em file Lisp này không? File Lisp này em viết để thay đổi các tính chất của Text, Nhưng em rất là khó chịu vì nó chỉ thay đổi tính chất của 1 Text chọn mà thôi. Mong anh giúp em cải tiển lệnh này trở thành thay đổi all các đối tượng Text mà mình chọn bằng cửa sổ.Em cảm ơn và chúc anh vui vẻ và giúp đỡ em nhiều hơn.
Sau đây là đoạn lisp của em:



Nhắc nhở bạn vbtxd06 lần 2 : Chú ý cho code vào trong thẻ CODE
<<

Filename: 152527_cpt.lsp
Tác giả: pdle
Bài viết gốc: 152743
Tên lệnh: bou
Đặc trưng hình học của hình phẳng phức tạp!

Em không biết là code anh viết như thế nào, vì em không xem được. Nếu không có gì bí mật thì anh có thể share lên được không ạ ?

Bằng cách sử dụng một số hàm trên diễn đàn của anh gia-bach, và gợi ý của anh ketxu, em đã viết ra lisp sau để tính các thông số tiết diện cho vùng bị khoét lỗ, như sau:



Em kiểm tra thì chạy trên CAD 2010 rất ổn.
>>

Em không biết là code anh viết như thế nào, vì em không xem được. Nếu không có gì bí mật thì anh có thể share lên được không ạ ?

Bằng cách sử dụng một số hàm trên diễn đàn của anh gia-bach, và gợi ý của anh ketxu, em đã viết ra lisp sau để tính các thông số tiết diện cho vùng bị khoét lỗ, như sau:



Em kiểm tra thì chạy trên CAD 2010 rất ổn.

Mong anh và mọi người cho ý kiến!
<<

Filename: 152743_bou.lsp
Tác giả: beba
Bài viết gốc: 152320
Tên lệnh: n
lisp tính Diện tích

Lisp tính diện tích thì rất nhiều nhưng em thấy cái lisp tính DT này dùng được, em thích.
nhưng nó vẫn bắt nhập tỉ lệ bản vẽ sau mỗi lần lặp lại, với lại không có phần nhập cao chữ
Nhờ mấy anh sửa lại dùm em :
- Thêm phần nhập cao chữ
- Chỉ nhập tỉ lệ bản vẽ lúc đầu, những lần sau không cần nhập nữa
Cảm ơn



Filename: 152320_n.lsp
Tác giả: pdle
Bài viết gốc: 152418
Tên lệnh: tb
lisp mv/L/on or off trên layout

Không biết cái này có chuẩn ý anh không?


Filename: 152418_tb.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 152449
Tên lệnh: n
lisp tính Diện tích


Hề hề hề,
Bạn dùng thử cái ni xem sao hỉ???


Hy vọng bạn hài lòng.

Filename: 152449_n.lsp
Tác giả: phamngoctukts
Bài viết gốc: 152291
Tên lệnh: ton
Vẽ mặt cắt của tấm tôn.

Vẽ mặt cắt của tấm tôn.


Filename: 152291_ton.lsp
Tác giả: ssg
Bài viết gốc: 15231
Tên lệnh: cb
Thay đổi entity ?

Có 2 lỗi (đánh dấu đỏ):
1) Thiếu dấu cách
2) Không thể dùng entmod trong trường hợp này vì nó không phải là entity!
Bạn cần phân biệt rõ:
- Bản thân đối tượng mà bạn chọn (car (entsel)) là entity
- Cái mà bạn muốn thay đổi không phải entity mà thuộc Symbol Table Group
Diễn giải":
Khi bạn định nghĩa 1 block (Block Definition) có tên là "ABC", một Symbol Table "ABC"...
>>

Có 2 lỗi (đánh dấu đỏ):
1) Thiếu dấu cách
2) Không thể dùng entmod trong trường hợp này vì nó không phải là entity!
Bạn cần phân biệt rõ:
- Bản thân đối tượng mà bạn chọn (car (entsel)) là entity
- Cái mà bạn muốn thay đổi không phải entity mà thuộc Symbol Table Group
Diễn giải":
Khi bạn định nghĩa 1 block (Block Definition) có tên là "ABC", một Symbol Table "ABC" được tạo thành. Bạn có thể dùng lệnh Insert để tạo ra rất nhiều Entity (ví dụ E1, E2, E3, E4....) mang các đặc tính của "ABC". Xét về quan hệ, mỗi một "thằng" E vừa nói là con của "ABC" -> không thể đại diện cho "ABC" -> không thể dùng các function dạng ENTxxx để tác động đến "ABC" được.

Đơn giản bạn chỉ cần gọi command "Rename" là xong. Như đoạn dưới đây:



Đề nghị:
1) Thay vì if, bạn dùng while, buộc user nhập tenM đến khi thoả mãn yêu cầu. Đoạn trên dùng biến OK để kiểm tra, khi nào OK = T (true) mới cho phép chạy tiếp.
2) Thân thiện hơn, thay vì "đóng mặt lạnh", người ta đưa ra cái gì cũng lắc, nghiêm mặt phán "cái này không được", bạn hãy liệt kê toàn bộ BlockName đang có để người ta biết mà tránh. Cái này mình không làm, để dành lại cho bạn!
Gợi ý: tìm hiểu về hàm Tblnext
<<

Filename: 15231_cb.lsp
Tác giả: duy782006
Bài viết gốc: 152197
Tên lệnh: md
Viết lisp theo yêu cầu [phần 2]

Thử cái này xem. Lệnh MD

Filename: 152197_md.lsp
Tác giả: hakhoailang
Bài viết gốc: 151983
Tên lệnh: os e1 %2B%2B%2B%2B%2B %2B%2B%2B%2B%2B%2B %2B%2B%2B%2B %2B%2B%2B %2B%2B %2B - -- --- ---- ----- ------ 1 2 3 4 5 6 7 8 9 10 11 0 goc tcd
Viết lisp theo yêu cầu [phần 2]
các bác ai có cái lisp tính khoảng cách cho em xin với
ý tưởng của em là :
1) pick vào điểm A
2) pick vào điểm B
3)pick vào text cần thay đổi ( nếu có bước 3 thì kết thúc luôn không cần bước 4 )
4) nếu không có text cầ thay đổi thì chọn điểm ghi text mới


và em có 1 cái lisp với nội dung như dưới đây , nhưng khi em dùng nó thì nó chống với các lisp khác ,...
>>
các bác ai có cái lisp tính khoảng cách cho em xin với
ý tưởng của em là :
1) pick vào điểm A
2) pick vào điểm B
3)pick vào text cần thay đổi ( nếu có bước 3 thì kết thúc luôn không cần bước 4 )
4) nếu không có text cầ thay đổi thì chọn điểm ghi text mới


và em có 1 cái lisp với nội dung như dưới đây , nhưng khi em dùng nó thì nó chống với các lisp khác , có cao thủ nào chỉnh sửa nó hộ em vơi .
cái lisp đó là lisp tính cao độ .

nội dung :



<<

Filename: 151983_os_e1_%2B%2B%2B%2B%2B_%2B%2B%2B%2B%2B%2B_%2B%2B%2B%2B_%2B%2B%2B_%2B%2B_%2B_-_--_---_----_-----_------_1_2_3_4_5_6_7_8_9_10_11_0_goc_tcd.lsp
Tác giả: ketxu
Bài viết gốc: 151990
Tên lệnh: kc
Pick 2 điểm và ghi chiều dài

Của bạn :

Filename: 151990_kc.lsp
Tác giả: pdle
Bài viết gốc: 151942
Tên lệnh: %2B%2B
Lisp chỉnh sửa nội dung text
1. Lisp này thì có ngoặc hay không, vẫn chạy tốt
2. Em đã phá tan tành cái lisp của anh ketxu rồi :P


Filename: 151942_%2B%2B.lsp
Tác giả: ketxu
Bài viết gốc: 151973
Tên lệnh: jj
Nối các *Line được chọn thành Pline

Bạn dùng tạm cái này. Lisp bạn post chủ đích của bác Hoành là làm nó nối tất mà chỉ cần chọn 1 Line đầu, giờ bạn lại muốn k xài cái đặc ích của nó thì quả không phù hợp, chi bằng viết cái khác :)

Filename: 151973_jj.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 151977
Tên lệnh: jj
Viết lisp theo yêu cầu [phần 2]

Hề hề hề,
Bạn thử xài cái này coi sao hỉ???

Hy vọng đúng ý bạn.

Filename: 151977_jj.lsp
Tác giả: gia_bach
Bài viết gốc: 151828
Tên lệnh: ment
Tìm lisp lấy tọa độ điểm midpoint của cung tròn

Lisp lấy tọa độ điểm midpoint của Curve (bao gồm cung tròn)

Filename: 151828_ment.lsp

Trang 34/312

34