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í

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

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!

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

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 :