Info | File | ||
Tác giả: ketxu Bài viết gốc: 212256 Tên lệnh: abc |
[yêu cầu] lisp tính ngược giá trị của mắt lưới san nền ?
Un-tested (defun c:abc(/ e->v ct tm)(vl-load-com) (setq e->v vlax-ename->vla-object ct (lambda(en)(atof(vla-get-textstring (e->v en)))) tm ((lambda(tl q s n / ss)(- (/ (* n q) s) tl)) (apply '+ (mapcar 'ct (acet-ss-to-list (setq ss (ssget (list (cons 0 "*TEXT"))))))) (ct (car (entsel "\nText khoi luong san nen :"))) (ct (car (entsel "\nText dien tich :"))) (sslength ss) )
| ||
Tác giả: Skywings Bài viết gốc: 212307 Tên lệnh: klg1 |
[yêu cầu] lisp tính ngược giá trị của mắt lưới san nền ?
ui sr, ko đọc kỹ đề bài ^^! Edit ... (defun GET-TEXT () (princ "\nChon cac cao trinh san lap <TEXT>: ") (while (null (setq Hsl (ssget '((0 . "TEXT"))))) (princ "\n**You selected NOTHING!**") ) ) (defun c:KLG1 (/ DT ENT HSL ID INDEX RESULT TXT VALUE KL) (GET-TEXT) (while (/= Hsl nil) (while (or (null (setq dt (car (entsel "\nDien tich o: ")))
| ||
Tác giả: bach1212 Bài viết gốc: 212401 Tên lệnh: dcd |
Nhờ các bác viết dùm Lisp đánh cao độ
Lisp đã wonderul. Đa tạ các cao nhân a hùng đã ra tay giúp đỡ. Đây là bản chỉnh sửa lần cuối, bạn nào cần lisp này như mình thì mời xơi ở đây nhé
| ||
Tác giả: Doan Van Ha Bài viết gốc: 212589 Tên lệnh: ha | |||
Tác giả: Tue_NV Bài viết gốc: 212648 Tên lệnh: xyz |
[Nhờ sửa list] list thêm dòng text vào dưới Text2
Vậy bạn sử dụng Lisp này xem thử ưng bụng không nhé! Bạn không thích nhập nữa thì để 1 chuỗi trắng và enter -> Kết thúc là xong
| ||
Tác giả: Tue_NV Bài viết gốc: 52791 Tên lệnh: lte |
Vẽ 1 đường Line(có 2 đoạn) sau đó cho phép người dùng nhập ký tự vào 2 text1, text2
Bạn chưa nói rõ thuộc tính của đường Line và text của bạn (Layer, color) Đoạn Lisp sau sẽ vẽ 2 đường Line cho bạn sau đó cho phép người dùng nhập ký tự vào 2 text1, text2 Text1 là text trên. Text2 là text dưới. Hy vọng bạn hài lòng. Chúc thành công
| ||
Tác giả: Tue_NV Bài viết gốc: 213008 Tên lệnh: stre |
[yêu cầu] Lisp stretch nhóm đối tượng 2 phía vào giữa và xung quanh vào tâm
TH1 : Làm 2 lần sẽ lâu hơn làm 1 lần. Nhưng lâu hơn chẳng bao nhiêu thời gian Nếu bạn thích thì code đây: TH2: Bạn dùng Block Dynamic hoặc dùng lệnh ARRAY của CAD2012 thì chỉ việc pick chọn, kéo và kéo là xong Nhanh hơn cả khi viết Lisp phải chọn tâm và lọc chọn đối tượng
| ||
Tác giả: girl Bài viết gốc: 212554 Tên lệnh: abc |
[yêu cầu] lisp tính ngược giá trị của mắt lưới san nền ?
Em sửa được trong trường hợp có 3 text được chọn thì lisp chạy đúng rồi. Nhưng trong trường hợp 2 text được chọn thì chạy sai, em không hiểu được. hic. Các anh sửa giúp em trường hợp có 2 text được chọn nhé ! ;; free lisp from cadviet.com ;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=66427&hl=&fromsearch=1 (defun c:abc(/ e->v ct tm)(vl-load-com) (setq...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 213133 Tên lệnh: ha | |||
Tác giả: vuminhchau Bài viết gốc: 213141 Tên lệnh: cc trr nh ch dc1 dcs dcq1 dcq dkt |
[Nhờ viết] mã code đường dẫn load lisp
Em trích 1 phần trong đó: nếu em đặt đoạn code trên lên như vậy thì có đúng không ạ! vì em muốn là lisp chỉ hiểu khi để đúng đường dẫn đó, còn để trỗ khác thì khi load lisp nó sẽ không hiểu lệnh! (if(findfile "W:\\MinhChau\\AutoCAD\\Tienich\\Thu Vien\\cadviet.lsp") (progn (load "W:\\MinhChau\\AutoCAD\\Tienich\\Thu Vien\\cadviet.lsp")) (progn (princ...
| ||
Tác giả: tien2005 Bài viết gốc: 213187 Tên lệnh: ha |
Nhờ viết lisp ghi đường dẫn file nguồn
Mình mạn phép lấy lisp của @Doan Van Ha sửa lại cho Bạn (defun C:HA( / lst) (load "julian.lsp") (setq lst (jtoc (getvar "date"))) (setq a (strcat (getvar "SAVENAME") "-//" (itoa (nth 2 lst)) "-" (itoa (nth 1 lst)) "-" (itoa (nth 0 lst)) "//" (itoa (nth 3 lst)) ":" (itoa (nth 4 lst)))) (ENTMAKE (LIST(CONS 0 "TEXT")(CONS 1 A)(CONS 40 300)(CONS 10...
| ||
Tác giả: quansla Bài viết gốc: 213147 Tên lệnh: cc trr nh ch dc1 dcs dcq1 dcq dkt |
[Nhờ viết] mã code đường dẫn load lisp
Không hiểu chủ pic hiểu ý anh Hà chưa, chủ pic mắc lỗi như thế này: đoạn code mình đưa cho bạn là dùng để làm chương trình con hoặc tự chạy để kiểm tra sự tồn tại của file ấn định sẵn tức (cadviet.lsp trong đường dẫn cố định cho sẵn) nếu có thì load lisp A,B,C nào đó(trong TH này là đồng thời là Cadviet.lsp luôn) nghĩa là toàn bộ phần "hồn" của lisp ( tức là "công...
| ||
Tác giả: ketxu Bài viết gốc: 213195 Tên lệnh: ha |
Nhờ viết lisp ghi đường dẫn file nguồn
Load Julian code sẽ lâu hơn Diesel code (defun C:HA( /) (entmake (list (cons 0 "TEXT") (cons 1 (strcat (getvar "dwgprefix") (getvar "dwgname") "-/" (menucmd "M=$(edtime, $(getvar, date),MO/DD/YY HH:MM AM/PM)"))) (cons 40 300)(cons 10 (getpoint "\nINSERT POINT")))))
| ||
Tác giả: ketxu Bài viết gốc: 213398 Tên lệnh: d50 |
[Yêu Cầu] lisp dim với layer và dimstyle mặc định
Bạn tạo được dimstyle tên 1:50 bằng cách nào ? Ví dụ mẫu cho bạn đây, mình đã ghi chú để bạn tự ý thêm, sửa những chỗ tong "" cho ưng Bài toán này có thể làm bằng Reactor cho unknown command nhưng sẽ gây rắc rối cho bạn (defun c:d50(/ ov) (setq ov (getvar 'clayer)) (setvar 'clayer "d50") ;d50 = ten layer trong ban ve (command "-dimstyle"...
| ||
Tác giả: ro88 Bài viết gốc: 213464 Tên lệnh: td1 |
These reviews will give you best understanding about how others experienced after buying these car gadgets and how they were served by their suppliers. These car DVD players are introduced with latest models and high definition picture quality which
Birthday card http://www.vowscard.com
| ||
Tác giả: ro88 Bài viết gốc: 213472 Tên lệnh: td1 |
| ||
Tác giả: Doan Van Ha Bài viết gốc: 213546 Tên lệnh: cbinil cbirnil | |||
Tác giả: avi612 Bài viết gốc: 213645 Tên lệnh: ttt |
We"re at university together mirapex 1 mg Ever heard of the SMS 7726 shortcode? Ask that question of the average UK mobile phone customer and the overwhelming majority will stare at you blankly
Chà! cũng khó đây...Tại mình chưa thạo lắm về thể loại "lisp vla..." này nên vận dụng cũng chưa tốt lắm. Dưới đây là đoạn lisp mình đã thử làm..nhưng sai cấu trúc...pác xem lại giùm e nó sai ở đâu với... Àh! cho mình hỏi thêm luôn là ngoài dùng những hàm lisp "vla.." này thì mình còn có thể làm cách khác được không, ví như những hàm đơn giãn hơn..
| ||
Tác giả: Tue_NV Bài viết gốc: 213684 Tên lệnh: cs |
[Yêu Cầu] Thay thế text hàng loạt
Lisp này mình đã viết từ lâu rồi. Link : http://www.cadviet.com/forum/index.php?showtopic=13203&st=700 Sửa theo ý bạn đây :
| ||
Tác giả: VoHoan Bài viết gốc: 213703 Tên lệnh: hskt |
[ Nhờ chỉnh sửa] Lisp xuất tọa độ
Mình chỉ sửa theo các ý của "ro88" và "hoangkimioanh" thôi, lisp chạy ra chắc chưa được đẹp lắm. Đế hoàn thiện hơn 2 ban nên nhờ trực tiếp bác "ketxu" nhé. Đây là lisp đã sửa: ;; free lisp from cadviet.com ;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=63922&pid=199638&st=0&#entry199638 ;; free lisp from cadviet.com ;;; this lisp...
|
Trang 105/330