Thaistreetz
-
Số lượng nội dung
905 -
Đã tham gia
-
Lần ghé thăm cuối
-
Ngày trúng
30
Bài đăng được đăng bởi Thaistreetz
-
-
tìm pass (hay đúng hơn là CDkey) và crack có khác nhau gì đâu nhỉ. nếu mình ko nhầm thì hình nhu bạn sử dụng WinHex
-
Bạn lấy gì để thương lượng với tác giả vậy?
Không lẽ lại là: "anh bày cho tôi cách gỡ bỏ việc bị treo giò thì tôi không tung hê cách bẻ khóa phần mềm của anh cho mọi người biết"
cách gỡ bỏ việc bị "treo giò" này tốt hơn bạn nên hỏi google, mình nhớ là có người bày rồi đấy. Bạn "thương lượng" với tác giả sẽ chỉ khiến bác ấy bực mình thôi. trừ khi bạn chấp nhận bỏ tiền ra mua phần mềm của bác ấy.
-
Các bác cho em hỏi. Có biến hệ thống kiểm soát việc bật/tắt chế độ Polar không?
Em đã kiểm tra với biến Polarmode nhưng không fải.
Edit: À em tìm thấy rồi. Biến autosnap <8> = Polar ON ; <0> = polar OFF
-
Mình đang cần file bản vẽ bản đồ địa hình hoặc bình đồ địa chính của các xã thuộc Huyện Ba Vì - Hà Nội (Bình đồ cũ cũng được)
Đặc biệt là xã Phú Đông - Ba vì. Bác nào có share cho mình với. Mình xin cảm ơn và hậu tạ :cheers:
-
Có anh em nào đã sử dụng Nova trên nền Cad 2007 ko? có thể được, xin các anh em chia sẻ cho tôi với! tôi đang cần quá! máy tính bị nhiễm virús nên mất hết dữ liệu và bộ cài! cám ơn anh em!:cheers:email: vietanh.pt@gmail.com
0904.703.004 "Arial Black"]
Hài Hòa ra bản R16 cho cad2005 là thôi không fát triển PM này nữa. Làm gì có bản cho cad2007.
-
Thật khó tin bạn là dân khảo sát đấy. Paste to original coordnates bạn không biết ah? :cheers:
-
Mình không hiểu lệnh này lắm, mong được anh chỉ giúpCó nghĩa là bạn copy những gì bạn cần sang một bản vẽ mới và lưu bản vẽ này với một tên mới. Ý của anh Thanh Bình là vậy. Chỉ thêm một vài cái click chuột so với yêu cầu trên của bạn :cheers:
-
1
-
-
Nhờ Anh viết hộ cho em Lisp thêm các mẩu nhà sauhttp://www.cadviet.com/upfiles/2/mau_nha.rar
Rất cám ơn.
Chào bạn khaosat2009
Yêu cầu của bạn có thể nói là tương đương phần mềm vẽ. thực tế bản vẽ của bạn có lẽ cũng đã được bạn vẽ bằng một phần mềm nào đó. Việc này mình có thể làm được nhưng sẽ tốn rất nhiều thời gian của mình. vì thế mình không thể hứa giúp bạn ngay được, bạn có thể nhờ thêm nhiều cao thủ khác trên diễn đàn.
-
Các bạn ạ. Mình có vài lời góp ý thế này. Nếu có gì không fải mong các bạn bỏ qua cho.
Topic này tương lai sẽ giống như topic Viết lisp theo yêu cầu P1. nó sẽ rất dài và rất nặng cho diễn đàn. Mặt khác, đây là topic cho mọi người có thể tìm thấy những công cụ hỗ trợ tốt hơn cho công việc nên hằng ngày số người truy cập vào tương đối lớn. Vẫn biết diễn đàn có chức năng tìm kiếm, nhưng không phải lúc nào chúng ta cũng dễ dàng tìm thấy thứ mình muốn bằng cách này. Nếu đã một lần tìm lisp trong topic Viết lisp theo yêu cầu P1 bạn sẽ hiểu được sự khó khăn và mệt mỏi vì những bài viết kiểu như trên.
Vì vậy, nếu các bạn không fiền, xin hạn chế đến mức tối đa có thể việc post những bài viết vô bổ vào topic này. OK chứ?
@Trang: hi vọng bạn hiểu.
-
2
-
-
Góc SPAM đây!!!
trong Thư giãn
Sáng nay đi thang máy lên văn phòng, tự nhiên nghĩ ra 1 giả định:-Giả định là thang máy lên tới tầng 10 thì đột nhiên đứt cap và rơi tự do, có người khăng khăng là nếu khi nó rơi gần chạm đất thì nhảy lên là sẽ không sao cả :cheers: theo bạn thì sao?
Chiều hết giờ hành chính. 2 thằng chui vô thang máy chuồn sớm. thằng kia bảo "giờ thang máy đứt cáp rơi xuống thì mình chịu lực thế nào nhỉ?" - "Thì bằng chính lực cái sàn này fải chịu thôi" - "Không, chắc chắn là nhẹ hơn chứ" ...
Tự cười, rõ là công việc biến 2 thằng thành ngớ ngẩn
-
1
-
-
Em đang cần một Lít yêu cầu như sau:- Em có các số là 2, 4, 6, 8, 10, 12, ...., XXXX. (từng số đó có thể là Mt hoặc Dt)
Em muốn chèn sau những con số đó là "PN", hay "P" hay "..."
Các Bác giúp em với. Thanks!
http://www.cadviet.com/forum/index.php?sho...991&hl=text
Mình nghĩ Lisp của anh Duy chính là thứ bạn cần. lần sau bạn chịu khó tìm kiếm một chút bằng vài từ khóa khả dĩ trước đi nhé. Box này là cả một thư viện lisp rất lớn cho bạn rồi. nếu vấn đề của bạn chưa đc đề cập tới mọi người sẽ giúp bạn.
-
Nếu mình không lầm thì file số liệu cao độ này được làm bằng topo 2005, bạn có thể dùng phần mềm này để xuất số liệu ra file txt, file txt này chính là thứ bạn cần tùy vào mục đích sử dụng. Trong nova, bạn gõ CDTEP để load số liệu địa hình từ file txt này.
-
Một người giờ đã về với cát bụi dạy tôi biết rằng: Mỗi người trong đời đều cần tìm cho mình một lý tưởng, một mục đích để theo đuổi. Nếu bạn đủ can đảm và nghị lực để theo đuổi nó cho đến hết cuộc đời và trao được lý tưởng đó cho một người khác - bạn là người có bản lĩnh.
-
2
-
-
thôi nào 2 bạn. muộn rồi, topic này cũng lạc chủ đề rồi đấy. mỗi người một quan điểm. các bạn cứ giữ lấy quan điểm riêng của mình vì các bạn tranh luận với nhau ở đây không giúp ích gì đc cho mọi người cả.
@Trang: Mình biết là văn hóa người nam và người bắc có nhiều nét khác nhau, tuy nhiên chúng ta là những người làm kỹ thuật, trong công việc chúng ta chỉ cần biết 2 điều cơ bản nhất là đúng và sai. mình mong bạn đừng fân biệt mọi người trong 4r này theo kiểu như vậy nữa nhé.
-
2
-
-
Chào bác ThaiStreetz,Bác thử dùng cái này thay vào cái vòng lặp While của bác xem có đúng ý bác không nhé.
OK rồi ạ. em cảm ơn anh Gia Bách và anh Thanh Bình nhé. đoạn code của anh Gia Bách rất gọn gàng :cheers:
-
Đây là một ý tưởng hay nhưng tìm mãi mà hình như không có ai viết thì phải, có thể bổ sung thêm phần Gap tolerance (lỡ phần cần tính diện tích có khoảng hở nhỏvẫn có thể hatch được). Mình thử viết được 1 đoạn nhưng ko bít viết típ như thế nào ?? Ai có thế giúp mình cách lấy diện tích phần hatch ??
(defun c:aa () (command "-hatch" "Properties" "solid" "Advanced" "Gap" pause "")
(command "list" "p" "")
)
có rồi, bạn tham khảo tại đây, và tại đây không cần hatch :cheers:
-
Chào bác ThaiStreetz,Mìnhchưa hiểu ý bác lắm.Chào anh Thanh Bình :cheers:
Đúng là anh chưa hiểu ý em thật. bài toán đánh số thứ tự của em như trên chỉ là để diễn đạt ý muốn của em thôi anh. anh có thể hiểu như thế này:
- Em có một tập hợp text, em muốn đánh số thứ tự vào các text đó
- nhưng em lười, ko muốn pick từng text một mà chỉ cần quét chuột qua tập hợp text bằng ssget một nhát là xong luôn
- Lisp sẽ đánh số thứ tự tăng dần vào các text theo quy luật: text có tọa độ X nhỏ hơn thì đánh trước, nếu trường hợp có 2 hay nhiều text có cùng tọa độ X thì tọa độ Y sẽ được xét đến, text có tọa độ Y lớn hơn sẽ đc đánh trước.
Đây là đoạn code của em, anh chạy thử với 1 tập hợp text sẽ hiểu được ý em ngay thôi.
(defun ss2ent (ss / sodt index lstent)(setq sodt (if ss (sslength ss) 0)
index 0)
(repeat sodt
(setq txt_ent (ssname ss index)
index (1+ index)
lstent (cons txt_ent lstent)
);setq
);repeat
(reverse lstent)
)
(defun c:tt()
(setq oldos (getvar "osmode"))
(setq ss (ssget '((0 . "*TEXT")))
n (sslength ss)
lst (ss2ent ss)
lst (vl-sort lst '(lambda (e1 e2) (< (cadr (assoc 10 (entget e1))) (cadr (assoc 10 (entget e2))))))
lst (vl-sort lst '(lambda (e1 e2) (> (caddr (assoc 10 (entget e1))) (caddr (assoc 10 (entget e2))))))
);setq
(command "undo" "begin")
(setq i 0)
(while (< i n)
(setq txt_ent (entget (nth i lst)))
(setq pti (cdr(assoc 10 txt_ent)))
(command "text" pti 1 0 (1+ i))
(setq i (1+ i))
);while
(command "undo" "end")
(Princ)
)
trong đó đoạn in đẩm là đoạn bỏ đi và cần xử lý để ghi giá trị (i+1) trực tiếp vào text. (đoạn này chính là đoạn em đang mắc) :cheers:
Đây chỉ là một ví dụ của em cho dễ hiểu, thực tế em cần sử dụng cho nhiều mục đích khác anh ạ.
-
May quá anh Tuệ online sớm.
Anh giải đáp cho em cái này với.
Em có một tập hợp text được chọn bằng SSGET. sau đó em dùng vl-sort để sắp xếp lại các đối tượng text trong tập hợp đó theo tọa độ X và Y của mỗi text tăng dần. Cái này em đã giải quyết xong.
Bây giờ em muốn dùng vòng lặp While để gán lần lượt các giá trị khác vào tập hợp text đó. nhưng em đang mắc ở đoạn tô đậm này. Anh ra tay giúp em đoạn này với. hic! em đánh vật với nó cả đêm, mụ mẫm hết cả đầu rồi :cheers:
Anh có thể hiểu yêu cầu của em bằng một bài toán đơn giản như sau:
Chọn 1 tập hợp text trên bản vẽ và đánh số thứ tự vào các text đó theo thứ tự ưu tiên, text nào có tọa độ X nhỏ đánh trước, nếu X bằng nhau thì text nào có Y nhỏ đánh trước.
Edit: Hiện giờ em đang giải quyết nó bằng cách lấy tọa độ của mỗi text, xóa nó đi rồi ghi một text mới thay vào đúng tọa độ đó với giá trị mong muốn. nhưng cách này quả thực củ chuối quá, đồng thời có vài hạn chế khiến em ko hài lòng lắm.
-
có cao thủ nào giúp mình viết 1 lisp đếm số block được chọn, mục đích để đếm số block được nhanh hơn. thank you!Topic này hằng ngày không chỉ có một mình bạn vào, vì thế không fải mọi người không ai thấy việc bạn đang nhờ. vì vấn đề của bạn nêu nó đã được mọi người nói đi nói lại đến nhàm chán. bạn đừng post nhiều bài cùng một nội dung như vậy nữa mà hãy chịu khó tìm kiếm, thế cũng hơn là ngồi chờ đợi.
bạn dùng properties mà đếm block hay bất kỳ nhóm đối tượng nào. việc này đơn giản vậy sao fải dùng lisp?
-
Ý tưởng của bạn Trang rất hay, mình nghĩ nên viết cái lisp mở rộng hơn chút nữa là có mặt bằng rồi thì nó cho ra mặt cắt, ghi chú, kích thước, ngoài ra thì cho ra thêm luôn cả kết cấu, điện, nước, thuyết minh tính toán, phụ lục, dự toán là hay nhất. Như thế ko những tiết kiệm được ối thời gian mà còn tiết kiệm được cả tiền chi phí cho các bộ môn khác, đồng thời tiết kiệm được con người (chỉ cần kts) và kéo theo là tiết kiệm được không gian làm việc, đỡ tốn tiền thuê văn phòng.Bạn thấy hay như thế. vậy bạn làm bắt tay vào làm đi.
-
Chào Thaistreetz và Nataca,Hàm SSGET với sel-method là "I" sẽ chọn các đối tượng do người dùng chọn trước khi phát lệnh. Đây là 1 mã ví dụ:
(defun c:ssI (/ ss p1 p2) (setq ss (ssget "I")) (if (null ss) (alert "\nban chua chon doi tuong truoc \nhoac da chon truoc \nnhung chua trung doi tuong nao" ) (progn (setq p1 (getvar "lastpoint")) (setq p2 (ACET-SS-DRAG-MOVE ss p1 "di chuyên cac doi tuong vua chon dên diêm:" 0)) (command ".move" ss "" p1 p2) ) ) (princ) )Hãy chú ý hàm ACET-SS-DRAG-MOVE, rất có ích cho các bạn đó.
Thaistreetz ứng dụng hàm này vào lisp GHI TOA DO CAC DIEM VA THONG KE THANH BANG xem!
ACET-SS-DRAG-MOVE Rất hay anh Thiệp ạ. Nó cho ta một cái nhìn rất trực quan về kết quả trước khi vẽ. Bản thân em cũng nhiều lần tự hỏi vì sao một số chương trình làm được điều này. Thanks anh nhiều :s_big:
-
Cho mình hỏi có lisp tính chiều dài dai xoắn trong cọc khoan nhồi ko vậy,giúp mình với minh dang cần gấp!
Ai biết cái cọc khoan nhồi của bạn mặt mũi nó thế nào đâu mà giúp. cần gấp thì fải đê mọi người hiểu được bạn cần cái gì thì mới giúp đc chứ. bạn đọc lại cái này đi
-
Uh trường hợp thứ nhất thì mình hơi lười thật, mình đang dùng cad 2002 không có layiso.Giúp mình trường hợp thứ hai nhé.
Mình dùng cad14 còn có express tool, không lẽ cad2002 lại không có? bạn chưa cài thôi.
code của bạn đây:
(defun c:stn() (command "undo" "begin") (setq oldos (getvar "osmode")) (setq olcol (getvar "CEColor")) (setq ollay (getvar "Clayer")) (setq olstyle (getvar "textstyle")) (setq ssdt (ssget (list (cons 0 "LINE,text")))) (command "osmode" 2) (setq pt1 (getpoint "\nPick trung diem line chan dau\n")) (setq pt2 (getpoint "\nPick trung diem line chan cuoi\n" pt1)) (setq di (distance pt1 pt2)) (setq pt3 (polar pt1 0 (* di 0.5)) tong 0 i 0) (repeat (sslength ssdt) (setq txt_ent (entget (ssname ssdt i))) (setq txt_val (cdr(assoc 1 txt_ent))) (if txt_val (progn (setq tong (+ tong (atof txt_val))) (setq txt_h (cdr(assoc 40 txt_ent))) (setq txt_st (cdr(assoc 7 txt_ent))) (setq txt_lay (cdr(assoc 8 txt_ent))) (setq txt_clr (cdr(assoc 62 txt_ent)))) );if (setq i (+ i 1)) );repeat (command "erase" ssdt "") (command "clayer" txt_lay "textstyle" txt_st "color" txt_clr "osmode" 0) (command "text" "mc" pt3 txt_h 0 (rtos tong 2 2)) (setvar "textstyle" olstyle) (setvar "Clayer" ollay) (setvar "CECOLOR" olcol) (setvar "osmode" oldos) (prompt"\n[EDIT TRAC NGANG] by Thaistreetz - huuthais@yahoo.com\n") (command "undo" "end") );defun
- chọn các đối tượng gồm text và các line cần xoá.
- Pick trung điểm 2 đường line chắn 2 đầu -> OK
Ngoài lề 1 chút: về bảng trắc ngang của bạn. Thông thường người ta để cao độ và khoảng cách lẻ thiết kế bên trên, cao độ tự nhiên và khoảng cách lẻ tự nhiên bên dưới. Bạn nên sửa lại bảng trắc ngang nova, mặc định nova nó sắp xếp bị ngược.
-
2
-
-
Các cao thủ trong cadviet ơi viết cho mình hai lisp thực hiện công việc như này được không, đây là file thành phẩm.Bạn là một minh chứng cụ thể nhất cho trường hợp không biết tận dụng những công cụ cad cung cấp để xử lý công việc mà phải thụ động nhờ mọi người viết lisp.
Với yêu cầu thứ nhất của bạn, mình chỉ cần sử dụng Layiso và hộp thoại Properties là mọi việc được giải quyết đơn giản. mất không quá 1 phút cho dù bản vẽ của bạn có bao nhiêu trắc ngang đi nữa.
Còn yêu cầu thứ 2 thì mình có thể giúp bạn được.
-
1
-
Hỏi về Lisp (thuật toán, ý tưởng, coding,...)
trong AutoLisp
Đã đăng · Trả lời báo cáo
Anh Thanh Bình giải thích cho bạn như thế là quá cụ thể rồi. fần còn lại bạn fải tự thân vận động. Đây là những câu lệnh lisp đơn giản nhất mà bất cứ ai mới học đều có thể dễ dàng hiểu được. bạn nên đọc các tài liệu tự học autolisp để có thể tự viết cho đúng ý mình.
Bạn chạy đoạn code này để hiểu đoạn lisp trên của bạn.
(defun c:hcn ()
(setq P0 (getpoint "\npick diem can ve HCN"))
(setq P1 (Polar P0 0 20))
(setq P2 (Polar P0 (/ pi 2) 10))
(setq P3 (list (car P1) (cadr P2)))
(Command "text" "R" P0 1 0 "P0"
"text" P1 2 0 "P1"
"text" "M" P2 3 45 "P2"
"text" "M" P3 4 90 "P3"
"pline" P0 P1 P3 P2 "C")
);end
Trong đoạn code trên thì:
- điểm gốc P0 là người dùng tự chọn
- P1, P2 là 2 điểm góc của HCN xác định bằng tọa độ cực
- P3 là điểm góc HCN xác định bằng hệ tọa độ góc vuông.
Mình nghĩ thế này là đơn giản nhất có thể để bạn hiểu rồi, mọi người chắc không thể giúp gì thêm cho bạn được nữa.
chúc bạn thành công.