Info | File | ||
Tác giả: tdvn Bài viết gốc: 56150 Tên lệnh: wbr |
muốn chia 1 đoạn cong thành nhiều đoạn cong
Mình ðã sửa lại cho bạn ðây. Về các kiểu bắt dính thì bạn có thể chỉnh lại theo ý mình bằng cách. Ðánh lệnh ds, sau ðó chọn các kiểu thích hợp. chọn OK. Sau ðó tại dòng command: ðánh osmode. Ví dụ Command: osmode Enter new value for OSMODE <2600>: dùng giá trị 2600 ở trên nhập vào vị trí của dòng (setvar "osmode" 2600) trong lisp.
| ||
Tác giả: q288 Bài viết gốc: 56230 Tên lệnh: chk |
Nhờ các bạn lisp overshoot và undershoot
Bạn thử dùng code sau đây xem sao. Ten lệnh chk.
| ||
Tác giả: dunguss3581 Bài viết gốc: 199458 Tên lệnh: vtn |
vẽ pline theo danh sách.
tui dang dùng lisp viết lệnh vẽ trắc ngang. đọc file số liệu ntd. vì list được tạo ra sau nhiều vòng while và khi gặp điều kiện thỏa mãn thì thực hiện lệnh vẽ pline. tui còn đang làm dở dang nhưng cũng up lên cho bác hiểu ý tưởng của tui.http://www.cadviet.c..._dau_vaontd.txt http://www.cadviet.c...6914_ketqua.dwg
| ||
Tác giả: Tue_NV Bài viết gốc: 43373 Tên lệnh: dcen |
Xin mọi người giúp đỡ Lisp Center mark.
Hình vẽ bạn nên lưu dưới đuôi .jpg và khi upload lên diễn đàn bạn nên kiểm tra xem hình vẽ của bạn đã được upload chưa? Hình vẽ của bạn bấm vào không thấy gì cả. Chỉ thấy dòng chữ này : Concurrent download limit exceeded. bạn kiểm tra lại hình vẽ minh hoạ của bạn lại nhé. Mình mới viết được đoạn Code này, hy vọng nó chạy theo đúng ý bạn. Bạn có thể...
| ||
Tác giả: ketxu Bài viết gốc: 199565 Tên lệnh: ts |
lisp tự tăng tới số cho trước và lập lại tăng dần
File lỗi , yêu cầu chưa rõ ràng. Bạn chọn 1 dãy text, nhập số bắt đầu, nhập số tăng (101-> 148), vậy từ 148 ->201 là theo quy luật nào ? Số bắt đầu + thêm 100 à ? Bạn xem ví dụ : (defun c:ts(/ i0 ic inc it) (vl-load-com) (if (ssget '((0 . "*TEXT"))) (progn (setq ...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 199557 Tên lệnh: ha | |||
Tác giả: Doan Van Ha Bài viết gốc: 199651 Tên lệnh: xxx |
Sửa giúp lisp này
Bạn Truong_AAn: ngoài chuyện không cho vào thể code thì bạn còn mắc thêm 1 lỗi nữa là đặt tiêu đề topic không đúng. Sửa cho bạn boycodonxxxx đây. Lần sau có hỏi gì thì cứ post lên CV, chứ không cần nhắn tin đâu boycodonxxxx nhé (trừ những trường hợp quá đặc biệt), vì CV là trí tuệ tập thể.
| ||
Tác giả: Thaistreetz Bài viết gốc: 199681 Tên lệnh: var1nil%3Blenhnaychayobanvethunhat%0D%0A var2 |
- Lisp so sánh sự khác nhau giữa các biến hệ thống của 2 bản vẽ
Đôi khi chúng ta có nhu cầu cần so sánh các thiết lập biến hệ thống giữa 2 bản vẽ xem chúng khác nhau những gì. Đây là lisp mình fát triển từ lisp của bác Doan Van Ha trong bài viết số 2 topic Lisp theo dõi sự thay đổi biến hệ thống trong quá trình vẽ (Topic này cũng do mình lập - em kể công tí )
| ||
Tác giả: Nguyen Hoanh Bài viết gốc: 6091 Tên lệnh: dcl |
Viết Lisp theo yêu cầu
Tôi sửa dòng lệnh (setq dolondaucatt (getstring (strcat"\nDo lon mui ten <" dolondaucatt "> :"))) thành: (setq tmp (getstring (strcat"\nDo lon mui ten <" dolondaucatt "> :"))) Và thêm dòng lệnh (if (/= tmp "") (setq dolondaucatt tmp)) Có 2 dòng lệnh của bạn bị thừa (tôi đã cho dấu chấm phẩy ở trước). Sở dĩ thừa do bạn thừa từ hàm Initget (tôi cũng đã sửa lại). Đoạn...
| ||
Tác giả: ssg Bài viết gốc: 76348 Tên lệnh: poc |
tìm point của spl
Hình như bạn Thiep chưa hiểu đúng ý Duy? Duy tham khảo code sau và hoàn thiện thêm (kiểm tra giá trị user nhập vượt quá phạm vi curve...):
| ||
Tác giả: namnhim Bài viết gốc: 199793 Tên lệnh: ss |
Thêm node vào đường Pline
không biết mục đích của bạn có phải tạo thêm các nút trên pline để nắn mềm bình độ không, nếu phải thì mình có đoạn code này có thể giúp bạn được: ==================================== SUA DUONG BINH DO: ==================================== (defun C:SS (/ Thoi chon3 chon Chon1 ChonC Chon1 ZC S PTD PTC PL PTT DongMucGoc DongMucCuoi X Y Z XT YT XC YC Layer I D ...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 199699 Tên lệnh: ha |
- Lisp so sánh sự khác nhau giữa các biến hệ thống của 2 bản vẽ
Bác Thai! 1). Đã (if (getvar var)... rồi thì đâu còn sợ bị lỗi vì dư biến nữa nhỉ? Chỉ sợ thiếu thôi chứ? 2). Cái list_var của tôi lấy từ cad2007 nên nó hoặc thừa hoặc thiếu đối với các đời khác, chán thế! Tôi làm cái lisp này để lấy list_var, không phụ thuộc đời cad, và đã test trên 2007 thì OK, không biết nó có ổn định không. Nếu ổn định thì đưa vào lisp của...
| ||
Tác giả: lp_hai Bài viết gốc: 199877 Tên lệnh: ss |
Nhờ viết lisp chọn đối tượng theo cửa sổ tương đồng
Bạn chạy thử xem thế nào: (defun c:ss(/ dt lstp p01 p02 n id dtc p1 p2 stdc spt) (setq dt (ssadd)) (setq p01(getpoint "\nchon diem goc 1:")) (command "ucs" "n" p01) (while (setq p1(getpoint"\nchon doi tuong:")) (setq p2(getcorner p1) lstp (append (list p1 p2) lstp)) ) (setq spt (/(length lstp)2) n 0) (repeat spt (setq dtc (ssget "W"...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 200005 Tên lệnh: ha | |||
Tác giả: htqk9 Bài viết gốc: 200033 Tên lệnh: cd2 cd1 cs2 cs |
lisp vẽ cửa sổ-cửa đi
Mình đang dung lisp vẽ cửa đi, cửa sổ: CD1-cửa đi 1 cánh, CD2-cửa đi 2 cánh, CS-cửa sổ 1 lớp, CS2-cửa sổ 2 lớp...(Toàn bộ là khuôn cửa kép) Giờ Mình muốn nhờ các pro sửa và thêm các loại cửa như: CD1: cửa đi 1 cánh, khuôn kép CD2: cửa đi 2 cánh, khuôn kép CD4: cửa đi 4 cánh, khuôn kép CD1D: cửa đi 1 cánh, khuôn đơn CD2D: cửa đi 2 cánh, khuôn đơn CD4D: cửa...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 200211 Tên lệnh: ha | |||
Tác giả: phamthanhbinh Bài viết gốc: 200321 Tên lệnh: gdd |
"[Yêu cầu] Nhờ viết Lisp ghi chiều dài - độ dốc, hướng dốc
Hề hề hề, Bạn dùng thử cái này rồi cho ý kiến nhé. Với line và arc thì chắc là ổn, riêng với pline có thể bạn chưa thật ứng ý vì điểm đặt mũi tên và text. Về hướng mũi tên chỉ độ dốc do bạn không nói rõ điểm thứ nhất và điểm thứ hai được chọn ra sao nên mình chơi phương án cho bạn tự chọn vậy. Khi bạn thấy chiều mũi tên chưa đúng khi lisp hỏi bạn chỉ cần...
| ||
Tác giả: Snowman Bài viết gốc: 30805 Tên lệnh: av |
Viết Lisp theo yêu cầu
Bạn dùng đoạn code sau, lệnh AV, yêu cầu chọn nhiều text và cuối cùng chọn 1 text để ghi kết quả
| ||
Tác giả: ketxu Bài viết gốc: 200446 Tên lệnh: p2s |
Lisp vẽ một SPL trên một PL cho trước
Rất cần thì phải quick and dirty code thôi ^^ Của bạn đây, chọn hàng loạt Pline để chuyển thành SPline, giữ nguyên các thuộc tính Layer, Color,Linetype, LinetypeScale. Lisp có dùng hàm MakeSpline của bác Thái, 2 hàm của bộ Express (defun c:p2s(/ ss lstPro MakeSPline) (command "undo" "be") (prompt "\nChon Pline(s) :") (cond ((setq ss (ssget (list (cons 0...
| ||
Tác giả: ketxu Bài viết gốc: 200480 Tên lệnh: p2s |
Lisp vẽ một SPL trên một PL cho trước
Nếu muốn làm mịn đi thì loại bỏ các điểm ở giữa, bạn sử dụng thằng này. Độ làm mịn càng lớn thì số đỉnh của Pline bị loại bỏ càng lớn. Ở máy của mình lấy ví dụ tầm 30 là đẹp Lần sau chịu khó trình bày kỹ hơn chút nữa hén, do mình hơi dốt nên dễ hiểu nhầm (defun c:p2s(/...
|
Trang 90/330