Ðề: Visual Lisp

Nếu bác nào không thích cài đặt rắc rối mà vẫn cộng đươc các số chọn trong thống kê thép chỉ bằng lisp thì tui cho file lisp về add vô mà xài khỏi cài chi ráo mà vẫn thống kê nhanh chóng

Ðề: Visual Lisp

"delaunay triangulation" mà làm bằng lisp thì đỉnh thật đấy.... .

Ðề: Visual Lisp

Có bác nào viết "delaunay triangulation" bằng ngôn ngữ Lisp không? hoặc bác nào biết giải thuật của nó không?

Ðề: Visual Lisp

Start > settings > Control Panel > Fonts >
Vào menu: File > Install New Font...
Chọn thư mục chứa bộ cài dự toán, tìm xem có Fonts không (thường là có)
Nhấn Select All rồi OK.
Log Off hoặc Khởi động lại Windows.
TCVN Fonts cho dự toán 2002:

Ðề: Visual Lisp

Minh co mua dia Dutoan2002 tren nen Excel ve, co *****, nhung khong hieu sao khong lam the nao giai ma Fonts duoc. Co ai biet khong mach gium voi. Minh cam on nhieu.

Ðề: Visual Lisp

Cac ban oi! Tai sao to Download thong ke cot thep xuong nhung khong thuc hien duoc. Co gi nhan giup nhe! Xin cam on!

Ðề: Visual Lisp

Mục này hay thế mà ít người quan tâm thật !

Ðề: Visual Lisp

Chào bạn Minh!
Trước tiên: xin lỗi vì đã làm bạn phải "bực mình", sau là: xin cảm ơn vì bạn đã quan tâm đến chương trình!
Để khỏi phải "bực mình", bạn nên thực hiện như sau:
1/ Trong khi đang vẽ bảng thống kê thì xin "tuyệt đối không dùng đến các chức năng sửa chữa"!
2/ Chỉ sau khi đã vẽ xong bảng TKT rồi, vẽ bảng tổng hợp, lưu nó (save file) lại, đóng nó vào, rồi... lại mở nó ra (!), khởi động lại chương trình thống kê thép, đánh lệnh tkt, chọn bất cứ chức năng nào (sửa chữa, tổng hợp thép theo từng cấu kiện...) đều được cả, nhưng nhớ là "tuyệt đối không được đụng đến 02 chức năng đầu (vẽ bảng thống kê, vẽ bảng tổng hợp) trước và đang khi dùng các chức năng khác"! Hình như nó bị bệnh "trùng biến" hay sao đó!
Nếu bạn thích, tôi sẽ gởi đến bạn các tập tin nguồn của nó (chủ nhân của nó đã gởi cho tôi, cũng với ý định như bạn), tuy nhiên, chỉ có những tập tin cũ thôi, những tập tin cuối cùng (được dịch ra để sử dụng) đã "qua đời trong một cơn bạo bệnh" rồi (định dạng lại ổ cứng để cài lại hệ thống)! Nhưng mà... nhức đầu lắm, nó có hàng... "đống" biến, không biết đâu mà rờ! Mong rằng bạn kiên nhẫn hơn tôi!
Bởi vậy, dựa trên mẫu có sẵn, tôi đang viết một chương trình khác bằng VBA thông qua Excel (cũng đã gởi lên để các bạn tham khảo, nhưng mới chỉ là thử nghiệm).
Thân.
Tái bút: nếu bạn chỉnh sửa tốt hơn thì nhớ gởi lên cho anh em cùng dùng nhé!

Ban QT ơi, sao không dùng được các chức năng định dạng chữ?!! (làm đậm, nghiêng, gạch dưới chữ)

Ðề: Visual Lisp

Tiện ích anh YaLang Post. Em đao về chạy rồi. Chạy ACAD rất hay, chỉ sau bị lổi, ko cho phép chỉnh sữa, cứ báo là "bad number..:nil" gì đó hoài. Anh chỉnh sửa lại nhé anh. Rất hay anh ạ. Nếu anh Open sourse ra, em có thể giúp anh chỉnh sửa lại những lổi đó.
Xài mà cứ bị lổi hòai, bực mình lắm anh ạ.!

Ðề: Visual Lisp

Bác nào có ý tưởng về lệnh scale đối tượng của CAD theo hai chiều chưa, liệu có thể thực hiện được không. Tui đang nghiên cứu viết bằng Lisp nhưng ý tưởng trình bày...

Ðề: Visual Lisp

Tôi thấy, về cơ bản không có vấn đề gì. Do điều kiện lọc đối tượng chưa rõ ràng -> dẽ dẫn đến lỗi bắt đối tượng.
Đoạn mã lệnh của cậu chỉ có thể cộng được số dạng Text nguyên bản. Các đối tượng khác như Mtext, Dim Text... thì sẽ cho ra kết quả = 0.000

Đây là đoạn mã chuẩn của lệnh trên. Lệnh có thể cộng được Text và Mtext.
Bạn có thể so sánh rồi tìm hiểu.

Chúc thành công !
;-------------------------------
;Cong Text, Mtext
;-------------------------------
(defun C:CONG (/ cnt enam ent pnt s1 tot v1 val)
(setvar "CMDECHO" 0)
(prompt "\nChon cac so muon cong: ")
(setq s1 (ssget '((0 . "*Text")) ))
(setvar "cmdecho" 0)
(setq tot 0)
(if s1
(progn
(setq cnt (1- (sslength s1)))
(while (>= cnt 0)
(setq enam (ssname s1 cnt))
(setq ent (entget enam))
(if (or (= (cdr (assoc 0 ent)) "TEXT")
(= (cdr (assoc 0 ent)) "MTEXT"))
(progn
(setq v1 (assoc 1 ent))
(setq val (atof (cdr v1)))
(if (and (numberp val) (/= val 0))
(progn
(setq tot (+ val tot))
)
)
)
)
(setq cnt (1- cnt))
))
)
(if(and tot (setq pnt(getpoint(strcat "\nDiem dat ket qua <"(setq tot (rtos tot 2 3))">: "))))
(command "_.Text" pnt "" "" tot)
(princ tot))
(princ)
)

Ðề: Visual Lisp

;;;
;;; Cong don cac so chon
; ****************************************************************
(defun C:CO (/ cnt enam ent pnt s1 tot v1 val)
(setvar "CMDECHO" 0)
(prompt "\nChon cac so muon cong: ")
(setq s1 (ssget))
(prompt "\nDiem dat ket qua: ")
(setq pnt (getpoint))
(setvar "cmdecho" 0)
(setq tot 0)
(if s1
(progn
(setq cnt (1- (sslength s1)))
(while (>= cnt 0)
(setq enam (ssname s1 cnt))
(setq ent (entget enam))
(if (= (cdr (assoc 0 ent)) "TEXT")
(progn
(setq v1 (assoc 1 ent))
(setq val (atof (cdr v1)))
(if (and (numberp val) (/= val 0))
(progn
(setq tot (+ val tot))
)
)
)
)
(setq cnt (1- cnt))
))
)
(setq tot (rtos tot 2))
(command "text" pnt "" "" tot)
(princ)
(setvar "cmdecho" 1)
)
Xin các anh chỉ giúp : Đoạn Lisp này có gì sai mà em thể thực hiện được.
Sau khi đánh lệnh, chọn đối tượng cần cộng thì kết quả là 0.000

Gởi bạn ttkh
1/ Xin lưu ý với bạn là: chỉ sau khi cài đặt thành công mới có file tkct.fas. Để cài đặt, bạn cứ thực hiện đúng như hướng dẫn trong huongdan.txt là được. Tuy nhiên, có thể là sẽ không biết được tập tin tkct.fas đó nằm ở đâu thôi (nó nằm trong thư mục LSP thuộc đường dẫn mặc định của ACAD, mà đường dẫn này thì mỗi phiên bản ACAD lại khác nhau!)! Bạn có thể dùng chức năng tìm kiếm (Search hoặc Find Files) của Windows hoặc của một trình quản lý tập tin nào đó cũng được (ví dụ: Norton Commander, Total Commander...). Khi đã biết nó nằm ở đâu rối thì chỉ cần tải nó lên (trong ACAD) là chạy được thôi (tất nhiên là phải đánh lệnh tkt).
2/ Ổ mềm là ổ A thì vẫn cài được, không có vấn đề gì.
Xin lỗi bạn nhé: tôi đã nhận được thắc mắc của bạn trên diễn đàn mấy hôm trước, nhưng khi trả lời cho bạn thì không thể nào được (bị từ chối gởi bài!), hôm nay thử gởi lại xem sao!
Cảm ơn bạn đã quan tâm, và chúc bạn thành công. Nếu có gì thắc mắc xin bạn cứ liên hệ với tôi qua diễn đàn hoặc email.
Thân chào

Trên là bài của anh YALANG
Cho em hoi tí
Trong lile huongdan.txt của anh có đoạn
6/ Thực hiện theo hướng dẫn
Lưu ý:
+ Cài đặt từ ổ A.
+ Ổ A: Hệ thống gọi ổ đĩa nào là A thì phải chép thư mục LSP lên đó để cài đặt.

Sử dụng Thống Kê trong ACAD:
1/ Tải (load) file "tkct.fas"
2/ Đánh lệnh "tkt" rồi nhấn nút ENTER
em chỉ tìm thấy caidat.fas và cailai.fas trong lile LSP.zip mà thôi không thấy tkct.fas đâu cả
Nếu ổ A là ổ mềm thì có cài được không. Xin anh chỉ giup.

[QUOTE=YaLang]
Tôi cũng đồng tình với taotao395, xin chỉ giúp: làm cách nào có thể chèn nhiều trang Excel sang ACAD một cách tiện lợi nhất mà không phải "sì ca le" (scale)?! Tôi cũng đã chèn nhưng thấy cực quá!
Hiện tôi đang dùng một chương trình viết bằng LSP, hàng mĩ chính gốc đó (mĩ phiến: miễn phí), thấy cũng "tiềm tiệm", gởi taotao395 và qúy huynh_đệ_tỳ_muội cũng "xơi" thử.
Hàng trên là của đi xin, tôi cũng có ý định như các bạn: dùng Excel để hỗ trợ tinh tóan, dùng ACAD để vẽ, nên có viết một chương trình nhỏ, chỉ mới tạm xong (vì chưa bao quát hết tình huống khi sử dụng) phần tính, còn phần vẽ thì chưa xong, cũng xin gởi để qúy huynh_đệ_tỳ_muội góp ý!
Thân chào
File Kèm Theo LSP.zip (191.2 KB, 90 lần tải)
THONGKE.zip (415.9 KB, 96 lần tải)
huongdan.txt (8.5 KB, 65 lần tải)
Cho em hoi tí
Trong lile huongdan.txt của anh có đoạn
6/ Thực hiện theo hướng dẫn
Lưu ý:
+ Cài đặt từ ổ A.
+ Ổ A: Hệ thống gọi ổ đĩa nào là A thì phải chép thư mục LSP lên đó để cài đặt.

Sử dụng Thống Kê trong ACAD:
1/ Tải (load) file "tkct.fas"
2/ Đánh lệnh "tkt" rồi nhấn nút ENTER
em chỉ tìm thấy caidat.fas và cailai.fas trong lile LSP.zip mà thôi không thấy tkct.fas đâu cả
Nếu ổ A là ổ mềm thì có cài được không. Xin anh chỉ giup.