markdown:
#
[Nhờ viết lisp](http://duy782006.blogspot.com/2009/08/yeu-cau-viet-lisp.html)
[02:05](http://duy782006.blogspot.com/2009/08/yeu-cau-viet-lisp.html)
Được đăng bởi
Phạm Quốc Duy
-Nếu trong khả năng mình sẽ viết lisp giúp bạn và tạo bài mới trong mục
[Siêu thị lisp](http://duy782006.blogspot.com/search/label/Si%C3%AAu%20th%E1%BB%8B%20lisp)
-Khi yêu cầu bạn vui lòng mô tả rỏ cái mình muốn, tốt nhất là kèm theo file *.dwg
1.Mình đổi mục này từ yêu cầu thành nhờ vì quá nhiều bạn coi như mình có nghĩa vụ đáp ứng mọi yêu cầu của các bạn, khi nhờ thì liên tục gọi điện làm phiền không gian riêng tư của mình, khi viết xong thì ko nghe bất cứa phản hồi gì giống như ném hòn đá xuống vực sâu ko nghe vọng lại gì mãi đến khi cần nhờ quả khác thì mới nhân tiện cảm ơn mình phát.
2.Như đã nói trên mình có quyền từ chối từ đầu, viết nửa chừng xong cảm thấy ko ổn cũng từ chối, khi bận mình có quyền hẹn hoặc từ chối vì đây là mình giúp các bạn không không vậy thôi cả tiền net và điện thoại mình cũng phải lôi trong ví ra mà thanh toán đừng bao giờ kiêu réo mình bằng mọi hình thức.
3.Đừng bao giờ ném cho người giúp mình câu đại loại là
*"cái của ông như cứt ấy nhưng dù sao cũng cảm ơn".* ![ ](http://i219.photobucket.com/albums/cc49/duy782006/gachngang.jpg)
![ ](http://i219.photobucket.com/albums/cc49/duy782006/gachngang.jpg)
04:54 Ngày 09 tháng 12 năm 2009
Mình muốn sử dụng lệnh mpedit trong cadR14 .Bạn có thể viết giúp mình một lisp như thế không. Mình cảm ơn rất nhiều
16:54 Ngày 09 tháng 12 năm 2009
Lệnh mpedit trong cadR14 đã có rồi đó bạn. Nó nằm trong bộ Bonus. Khi cài thì bạn cài Full sẽ có.
05:44 Ngày 04 tháng 01 năm 2010
Chào bạn Duy,
Bạn có thể giúp mình viết Lisp cho đường thân khai và đuờng xicloit được không ạ !!!
Đây là hình cad kèm theo:
http://www.cadviet.com/upfiles/2/drawing1_18.dwg
Xin cảm ơn Duy >.<
01:15 Ngày 05 tháng 01 năm 2010
Bạn nêu rỏ cái đầu vào và đầu ra cái! Nguyên tắc dựng hình, thông số nhập vào?
07:37 Ngày 05 tháng 01 năm 2010
mình cần viết một cái lisp vẽ đường thân khai, nếu vẽ thủ công bình thường thì : vẽ đồ thị sao cho chu vi bằng 120( qua 12 điểm). Sau đó scale toàn bộ, sao cho đường kính = phi yêu cầu.
Vẽ circle : chu vi =120 --> vẽ 12tia và 12 đoạn dài 120
Vẽ " lưới": cắt mỗi tia 1 số đoạn theo yêu cầu ( cắt đi 10 cho dễ :-D
Nói thía ko bít Duy đã hình dung ra chưa nữa >.<
Có gì Duy liên lạc qua yahoo với mình được ko? baby_sanhdieu22@yahoo.com
Cảm ơn Duy nhé ~"~
07:40 Ngày 05 tháng 01 năm 2010
Còn cái hình Xicloit nữa T_T
03:00 Ngày 06 tháng 01 năm 2010
*Mình đọc cái diễn giải và cái hình của bạn có 1 số chổ không khớp.
-Bạn nói "Vẽ circle chu vi =120" nhưng mình coi trong hình thì như sau:
+Vẽ đoạn thẳng dài 50.
+Array nó thành 12 đối tượng theo hình tròn.
+Vẽ hình tròn tâm tại điểm giao 12 đoạn thẳng vừa array. (như vậy hình tròn này có bán kính là 50 và chu vi 314.1593).
+Từ giao điểm của các đoạn thẳng với đường tròn vẽ các đường thẳng nằm ngang.
+Copy đường tròn thành 12 đối tượng cách nhau 25
+Vẽ đường spline qua giao điểm của đường tròn và đường thẳng ngang.
-Bạn cần cái nào có chu vi là 120. Con số này bất biến hay lisp hỏi và bạn nhập vào.
**Cách yêu cầu viết lisp như sau:
-Bạn muốn lisp hỏi bạn những gì.
-Kết quả lisp xuất ra như thế nào (nguyên tắc cho ra kết quả)
07:39 Ngày 06 tháng 01 năm 2010
Ặc ặc, sorry anh. Cái bài hum trước là cua thằng bạn em vẽ theo trong sách. Nhưng thầy nói vẽ như thế thì sẽ khó cho bọn em nên thầy đã cho vẽ theo cách giống em nói .
http://www.cadviet.com/upfiles/2/bai5.dwg đây là bài em vẽ.
Còn về việc viết lisp thì em mún viết một cái lisp để nó hỏi mình nhập chu vi...
( cái đoạn này thầy nói mình mún viết sao cũng được miễn là nó ra cái hình đó là được >.<)
Anh chỉ giáo thêm cho em nhé ^^.
20:02 Ngày 06 tháng 01 năm 2010
http://www.cadviet.com/upfiles/2/thankhai_xicloit.dwg
Nó đây nè anh :-D
06:01 Ngày 07 tháng 01 năm 2010
Bạn tải file này về giải nén được 3 file. Chép tất cả vào thư mục cài đặt cad. Load file vehinh.lsp lên.
-Lệnh vethankhai và lệnh vexicloit.
-Lisp hỏi chọn điểm bắt đầu vẽ, và hỏi chu vu hình tròn.
http://www.4shared.com/file/190493114/4751bf9e/vehinh.html
00:35 Ngày 08 tháng 01 năm 2010
Em cám ơn anh nhìu :-(
19:27 Ngày 19 tháng 01 năm 2010
Anh Duy ơi, em lại làm phiền anh nữa nè ^^! Hum trước anh làm cho em đó, là nó insert một bản vẽ đã có sẵn. Nếu bản vẽ save as acad 2007 format thì chương trình sẽ bị lỗi nếu chạy trong Acad cũ hơn (ví dụ Acad 2004).
Giờ em mong anh giúp em viết cái lisp mà nó làm từ A đến Z được không ạ, anh giúp em với >.<
Cụ thể là em mún nó như này nè
-Nhập số liệu, điểm bắt đầu (tâm vòng tròn).
-Vẽ vòng tròn xuất phát
-tính các điểm trung gian.
-Gọi lệnh command Spline. Lần lượt xuất từng điểm ra cho command
-Kết thúc lệnh vẽ Spline
-Vẽ các trục oX và oY.
Em cảm ơn anh nhiều ^^!
19:34 Ngày 19 tháng 01 năm 2010
Viết được nhưng phải khoảng 7 ngày sau nha bạn!
21:51 Ngày 19 tháng 01 năm 2010
Hì, em cảm ơn anh nhiều nhiều ^^!
16:19 Ngày 22 tháng 01 năm 2010
Bạn tải file lisp này về load lên. Tên lệnh như cũ.
-Về vẽ thankhai thì các điểm để vẽ thành đường spline là xác định đúng 12 điểm.
-Còn vẽ xicloit thì trong bản vẽ mẫu của bạn đường spline xác địch chỉ bằng 3 điểm mà lại hình như không đối xứng mình cũng vẽ đúng như vậy. Nếu muốn chình thì gửi lại file xicloit chính xác cho mình.
http://www.4shared.com/file/204556667/7fa9a30d/vehinhs.html
20:00 Ngày 22 tháng 01 năm 2010
Cập nhật lại link lổi.
http://www.4shared.com/file/204710059/2a92f96c/vehinhs.html
20:28 Ngày 22 tháng 01 năm 2010
http://www.cadviet.com/upfiles/2/xicloit.dwg
Đây là bài xicloit em vẽ lại ^^
00:40 Ngày 23 tháng 01 năm 2010
http://www.cadviet.com/upfiles/2/xicloit_1.dwg
Chính xác là link này anh ah. Link trên bị thừa 1 vòng tròn :-D. Anh giúp em với nhé ^^!
17:19 Ngày 26 tháng 01 năm 2010
http://www.4shared.com/file/208424644/c0433d7f/vehinhm.html
Đã chỉnh lại rồi đây bạn. Lệnh như cũ.
-Thêm hai lệnh màu mè: bdvethankhai và bdvexicloit là hai lệnh vẽ chậm từng bước, cái này mang tính biểu diển cho vui thôi nha bạn.
21:15 Ngày 26 tháng 01 năm 2010
Hihi, cảm ơn anh nhiều và chúc anh năm mới vui vẻ ^^!
21:35 Ngày 24 tháng 03 năm 2010
Chào anh Duy ! ,anh có thể viết cho em 1 cái lisp để edit như thế này ko a ? e có 1 bản vẽ cốt thép bị lỗi như sau : 1 loại thép số hiệu 10 phi 32a200 , nhưng cũng với thép số hiệu là 10 nhưng có chỗ là phi20a200 hoặc phi 32a150 . Bây giờ e muốn sửa tất cả thép số hiệu 10 là phi32a200 , ma` trong ban ve lai co nhieu thep co so hieu khac nhau , mong anh cứu e với !
18:57 Ngày 30 tháng 03 năm 2010
Bạn gửi file dwg mình xem thử.
05:56 Ngày 04 tháng 06 năm 2010
Nhờ anh Duy xem lại khi mình sử dụng bộ Lisp KSVN chỉ dùng trên USB và sau khi thoát ra thì gở luôn nó ra khỏi Cad của máy đang dùng.
20:00 Ngày 04 tháng 06 năm 2010
Ok men! Chờ vài hôm nhé.
17:44 Ngày 07 tháng 06 năm 2010
Hi, em cũng đang có ý định xây dựng 1 bộ tiện ích di động, em xin phép được tham khảo code của anh để học hỏi nha. thank anh nhiều
PS: em là Thaistreetz bên cadviet :D
20:40 Ngày 07 tháng 06 năm 2010
Bạn chỉ cần xem file run.lsp là ok. Sang cadviet mình có bài lisp di động đấy có giải thích cách làm việc cùa thèn này. Chúc thành công!
06:06 Ngày 23 tháng 06 năm 2010
Nhờ anh Duy xem dùm em Lisp này với , em muốn sau khi nhập dữ kiện xong thì Lisp tự động vẽ hết mình không phải thao tác gì hi hi
http://www.mediafire.com/?un2ztwmdzzd
Cám Ơn Anh .
19:28 Ngày 23 tháng 06 năm 2010
Cái hình và lisp của bạn hình như ko khớp thì phải? Khỏang cách offset dùng làm gì. Mình dự vào hình và viết đoạn đầu bạn thử xem có đúng ý chưa. Đoạn sau phải nghiên cứu cách lấy giao điểm nên từ từ nghiên cứu tiếp.
(Defun c:dung ( )
(command "undo" "be")
(setq a (getpoint "\nChon diem goc: "))
(setq bp (getpoint a"\nChieu dai ben phai "))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(setq kcp (distance a bp))
(setq b (polar a (/ pi 6) kcp))
(setq gocab (angle a b))
(command ".line" a b "")
(setvar "osmode"luubatdiem)
(setq bt (getpoint a"\nChieu dai ben trai "))
(command "UNDO" "")
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(setq kct (distance a bt))
(setq c (polar a (+ gocab (/ pi 2)) kct))
(setq d (polar b (+ gocab (/ pi 2)) kct))
(command ".pline" a b d c a "")
(setvar "osmode"luubatdiem)
(setq nd (getpoint "\nChon gioi han ngang ben duoi "))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(setq ynd (cadr nd))
(setq xtnd (- (car a) (* kct 5)))
(setq xpnd (+ (car a) (* kcp 5)))
(command ".line" (list xtnd ynd) (list xpnd ynd) "")
(setq dtduoi (entlast))
(setvar "osmode"luubatdiem)
(setq dt (getpoint a"\nChon diem tu phia duoi "))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(setq ynt (+ ynd (- ynd (cadr dt))))
(command ".line" (list xtnd ynt) (list xpnd ynt) "")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(command ".line" a dt "")
(Command ".EXTEND" dtduoi "" a "")
(setq dtdena (entlast))
(setq ttdta (entget dtdena))
(setq diemamoi (cdr (assoc 10 ttdta)))
(command ".line" diemamoi (list (car diemamoi) ynt) "")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(command ".line" b dt "")
(Command ".EXTEND" dtduoi "" b "")
(setq dtdenb (entlast))
(setq ttdtb (entget dtdenb))
(setq diembmoi (cdr (assoc 10 ttdtb)))
(command ".line" diembmoi (list (car diembmoi) ynt) "")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(command ".line" c dt "")
(Command ".EXTEND" dtduoi "" c "")
(setq dtdenc (entlast))
(setq ttdtc (entget dtdenc))
(setq diemcmoi (cdr (assoc 10 ttdtc)))
(command ".line" diemcmoi (list (car diemcmoi) ynt) "")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(command ".line" d dt "")
(Command ".EXTEND" dtduoi "" d "")
(setq dtdend (entlast))
(setq ttdtd (entget dtdend))
(setq diemdmoi (cdr (assoc 10 ttdtd)))
(command ".line" diemdmoi (list (car diemdmoi) ynt) "")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setvar "osmode"luubatdiem)
(command "undo" "end")
(Princ)
)
21:14 Ngày 23 tháng 06 năm 2010
Cám ơn anh đã cho em thêm một chút kiến thức lúc này em cảm thấy yêu đời hơn bao giờ hết . ha ha
Chúc anh luôn vui vẻ ! Cám ơn anh .
22:10 Ngày 03 tháng 07 năm 2010
Nhờ anh chỉ giúp :
(setq diemcmoi (cdr (assoc 10 ttdtc)))
Làm sao mình biết được Item = 10 vậy anh ?
Cám ơn Anh
01:45 Ngày 04 tháng 07 năm 2010
Bạn xem bài hướng dẩn viết lisp số 30 để biết về các mã dxf. Thông trường nhất là bây nhiêu đấy. Còn cần thêm thì bạn xem trong sácg lisp nhé. Có gì không hiểu mình sẽ nói thêm.
02:53 Ngày 04 tháng 07 năm 2010
Ha Ha Cám ơn anh nhé do bi giờ em mới học tới bài 21 và đang áp dụng thực hành mấy bài tập nhỏ nên có nhiều chỗ thắc mắc , anh Duy tài thật biết em sẽ thắc mắc nên viết trước luôn ha ha. Em sẽ cố gắng học Lisp có gì không hiểu xin nhờ anh chỉ dùm nhé .
03:22 Ngày 19 tháng 07 năm 2010
Mình làm bên trắc đia bản đồ ,khi đo các điểm cao độ (dạng text)nhiều khi dày đặc trên bản vẽ ,vì vậy để in ra thì rất xấu.
Do đó mình phải xóa đi các cao dộ gần nhau đẻ o bị dè nhau khi in.
Nhờ bạn viết 1 lisp có nhiệm vụ xóa các điểm cao độ gần nhau (theo mình lựa chọn 1 giá trị nào đó ví dụ 1m,2m theo ý người dùng).Nghĩa là xóa các điểm text trong vòng đó để các điểm cao độ o gần nhau in được.
Nếu có thể thì xuất ra 2 file tọa độ (file các điểm đã loại và file các điểm để trên bản vẽ).
Xin cản ơn.
trên cadviet đã có đặt ra vấn đề này (xóa cao độ gần và trùng nhau ) nhưng chưa ai giải quyết,vậy nhờ bạn viết giúp đoạn lisp cho mình nhé.Xin cảm ơn
ndbngo@yahoo.com
08:42 Ngày 19 tháng 07 năm 2010
Bạn up cho mình 1 góc file để dể hình dung nhé!
11:59 Ngày 19 tháng 07 năm 2010
Mình đã gửi file bản vẽ vào cả 2 hợp thư của bạn .Mình thử dùng phần khảo sát thì có 1 số lỗi như trong bản vẽ mình đã vẽ{
_Hatch nhảy không như yêu cầu
_Nhờ bạn sửa hatch lúa 2 vụ như bản vẽ đó giúp (chắc phải chỉnh góc hatch...)
Xin cảm ơn.
ndbngo@yahoo.com
12:10 Ngày 19 tháng 07 năm 2010
bản vẽ của mình .nhờ ban giúp
http://www.2shared.com/photo/A8tNayla/BDONOP1.html
thank
01:58 Ngày 20 tháng 07 năm 2010
Vậy theo bạn thì các đối tượng hatch (mình ví dụ 2 trường hợp thôi,còn nhiều nữa...)lại có hiện tượng thế ,cách khắc phục(Chú ý: các *.pat trong chương trình của bạn là sao chép nguyên si các *. pat của chương trình Topo (Hamony Co.)đó-sợ có ảnh hưởng đến bản quyền o).Cách khắc phục để có thể dùng các hatch này .
Về việc xóa điểm theo mình có thể xuất ra dạng file tọa độ.Lấy 1 điểm làm gốc so sánh với tất cả các điểm còn lại nếu điểm nào có khoảng cách nhỏ hơn 1 tri do cho trước ( gán hàm khi nhập...m - Theo ý người sử dụng)thì loại sang file khác ,tiếp tục vònglăp cho điểm thứ 2 ...3... end. Mình nghĩ thế ,không biết có được o,bạn xem có thể làm theo hướng đó đc o.
Xin cảm ơn .
Ndbngo@yahoo.com 0988529640
02:29 Ngày 20 tháng 07 năm 2010
Trước tiên mình xin nhắc lại các dữ liệu bao gồm line, hatch, block là do bạn khaosat2009 cung cấp nhờ mình tổng hợp và viết các menu, lisp chứ mình ko nói là của mình. Hatch khi hatch bị vỡ do mằm xa gốc tọa độ 0,0. Vì trong quá trình viết các hatch này có sai số rất nhỏ nếu càng xa gốc tọa độ 0,0 thì sai số càng lớn. Bạn chuyễn về gần gốc tọa độ sẽ hết tình trạng này ngay.
04:59 Ngày 20 tháng 07 năm 2010
Cảm ơn bạn ,theo bạn mình chuyển về tọa độ 0,0 thì o bị phá vỡ nữa .Còn về .pat mình cũng đọc về khaosat 2009 cấp nhưng mình sợ bạn o biết về nguồn gôc các file *.pat đó mà thôi.
Thank.
10:08 Ngày 21 tháng 07 năm 2010
Chào anh...em là dân khảo sát đường nhờ anh viết hộ cho 1 cái lisp.
-Mục đích: Xóa những text cao độ đè lên nhau.
Khi bọn em xuất cao độ địa hình ra thì những vị trí gần nhau, text cao độ sẽ bị chèn lên nhau. Ý em muốn là xóa bớt những text cao độ sao cho cả bản vẽ ko có 2 text nào chèn lên nhau...và khoảng cách nhỏ nhất giữa 2 text ko nhỏ hơn 1 giá trị nào đó (phụ thuộc vào chiều cao text) để các text ko sít nhau quá, cho dễ nhìn 1 chút...
Ý sơ sơ của em là như thế, em có ví dụ file *.dwg kèm theo...Rất rất mong a giúp đỡ ạ!!!
http://www.mediafire.com/?cf7ncx36n94g5eb
04:00 Ngày 26 tháng 07 năm 2010
Xin lỗi vì đã làm phiền bạn,đành phải cố gắng học theo các bài của bạn để tự viết lấy vậy thôi.
Mình muốn hỏi là dùng lisp thì có thể viết dể xuất 1 dạng file text này sang 1 file text khác được o(nghĩa là từ file nguồn chuyển sang file đích có định dạng khác-mình sẽ gửi file).
nếu có thể Duy viết giúp hoặc hướng dẫn mình viết nhé .Mình có 2 file file 1 số liệu ,file 2 ghi chú theo số thứ tự của cột thứ nhất.Ở file thứ nhất là các điểm từ 1,...end.
file 2 là ghi chú sẽ gán cho các điểm đó. Mình cần 1 file tổng hợp thứ 3 gán các ghi chú ở file 2 vào các điểm của file 1.((mình gửi ở hộp thư)
Xin cảm ơn .
05:00 Ngày 26 tháng 07 năm 2010
file cuả mình
http://www.4shared.com/dir/vEhKMImP/sharing.html
05:30 Ngày 26 tháng 07 năm 2010
file bạn gửi có pass nên mình ko mở được. Về nguyên tắt thì làm được việc ghép như bạn muốn. Mình sẻ xem lại phần này giúp bạn.
22:29 Ngày 26 tháng 07 năm 2010
Mình đã gửi vào hộp thư cho bạn .
Mong tin.
23:38 Ngày 26 tháng 07 năm 2010
Đã xem 3 file của bạn gửi. Hướng giải quyết thì mình đề xuất như sau:
-Chỉ định file 1.
-Đọc từng dòng file 1 nếu có nội dung thì xử lý (đoạn 1). Nếu dòng trống thì kết thúc lệnh.
-Nội dung đoạn 1 như sau:
+Đọc lần lượt từng ký tự của dòng đến khi gặp ký tự thì lấy ký tự này làm biến noidungdau tiếp tục đọc ký tự tiếp theo đến khi gặp ký tự rỗng thì kết thúc việc lấy biến noidungdau.
+Dùng hàm điều kiện so sánh biến noidungdau (FILE 2 của bạn nếu là cố định thì nên đưa nó vào lisp chứ đọc file 2 để lấy điều kiện nửa thì rất dài dòng).
+Ghép thêm chuổi đầu cần thêm vào sau đó ghi ra file khác.
Bạn thấy như vậy có đúng ý không và bạn tự viết được không? Chứ mình thì có hướng như vậy nhưng đang đau nên cũng lười hoạt động, chờ thời gian nửa đã.
09:01 Ngày 28 tháng 07 năm 2010
Gửi Duy rất thân. Cho mình gọi như thế ,thứ nhất là khả năng chịu học hỏi, hơn nữa nhiều khi làm không công và mã nguồn mở em biết rồi ,nhiều lúc bản quyền là vô nghĩa hơn nữa tỉnh lẻ ,huyện miền núi như Bình sơn (Vì anh đã từng ghi đấu chân và làm việc mọi vùng miền của đất Quảng ngãi (Bạn anh cùng học hiện là quan chức nhất nhì của Sở Tài nguyên và môi trường)) .Mình học hành ,cái tâm,cái tài muốn hỗ trợ cho mọi người đê trí thức Việt mình dám ngẩng đầu với thế giới là rất tốt. Nhưng anh nghĩ khi em bỏ công sức ,nhiều khi thức trắng đêm để viết và thử nghiệm phần mềm.Mình có thể o lấy nhiều ,nhưng khi sản xuất áp dụng có hiệu quả thì công ngươi viết ,lao tâm khổ tứ mà o có gì thì anh nghĩ o đc .Năm 98 anh viết 1 phần mềm vẽ nhà như em ,tất nhiên hiệu quả và hợp lý hơn (Vì anh là ngừơi chuyên ngành cơ quan đã thưởng 1 tr(Vì thế hệ cũ anh chỉ viêt trên Pascan qua đuôi Dxf).
Vậy anh nghĩ 1 đoạn tiện ích như em viết cho khaosat2009 thì em nên cũng nên láy khoảng 1 tr.Không thì bọn anh là sản xuât thì lợi mà em o có gì thì anh nghĩ ngợi quá.
Thân.
Nếu có thể khác quan điểm của em thì em xóa đi.
Chào em .Ngô Đông Phương (ndbngo,ndpngo) 0988529640.
09:07 Ngày 28 tháng 07 năm 2010
Vì hơn em gần 2 thập kỷ (nêu em sinh 1968) có suy nghĩ và nhìn nhận khác em thì em thông cảm nhé.
Mong gặp,nếu em ra Hà nội thì gọi cho anh.
thank.
09:10 Ngày 28 tháng 07 năm 2010
Anh gõ nhầm anh sinh 1964 em 1978 .
02:36 Ngày 29 tháng 07 năm 2010
Thế thì Duy phải gọi bằng anh rồi. Cái vụ thù lao thì đúng là Duy chưa dám nghỉ tới vì nói chung các tiện ích viết ra còn ít nhiều tham khảo ý kiến của anh em cadviet và còn có chổ sai xót không ok hoàn toàn được. Viết giúp thì được chứ viết lấy thù lao thì chắc bị phạt hợp đồng miết quá.
À Bình Sơn là huyện đồng bằng nằm phía bắc tỉnh Quảng Ngãi chứ ko đc sếp vào huyện miền núi anh à.
07:06 Ngày 30 tháng 07 năm 2010
Duy đã viết được đoạn hỏi chỉ 1 file txt, tạo 1 file txt cùng thư mục có tên là tên file nguồn và thêm chử duy thêm. Đọc và ghi lần lượt toàn bộ nội dung file nguồn ra file đích. Đang viết đoạn giữa nhưng đoạn tìm nội dung các ký tự điều kiện đầu các dòng chắc hơi lâu. Anh chờ nhé. Tham khảo đoạn hiện tại này anh.
(DEFUN c:gtt ( )
(setq filebandau (getfiled "Chon file .txt:" "" "txt" 0))
(setq dodaifilebandau (strlen filebandau))
(setq dodaifilebandaukotxt (- dodaifilebandau 4))
(setq filebandaukotxt (substr filebandau 1 dodaifilebandaukotxt))
(setq filetaosau (strcat filebandaukotxt "duythem.txt"))
(setq FILEMODEVIET (open filetaosau "a"))
(setq modedocfilebandau (open filebandau "r"))
(while (setq noidungdocduoccuafile (read-line modedocfilebandau))
(doanghep))
(close modedocfilebandau)
(close FILEMODEVIET)
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN doanghep ( )
(write-line noidungdocduoccuafile FILEMODEVIET)
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;
00:10 Ngày 31 tháng 07 năm 2010
Đã xong lisp ghép file txtrồi anh chạy thử xem đúng ý không nhé.
+Lệnh: GTT.
+Load lisp, nhập lệnh, chỉ file muốn chỉnh.
+Vào thư mục chứa file muốn chỉnh xem nội dung file mới tạo (có thêm chử duythem).
*Lưu ý chuyển file muốn chỉnh về đuôi txt trước khi thực hiện lệnh.
http://www.4shared.com/file/1FEIo-PE/ghepthemfiletext.html
19:25 Ngày 19 tháng 10 năm 2010
Mình muốn bác viết cho mình xin cái Lisp tạo ra một text gốc chẳng han: A1
Trong đó A: mình có thể tùy biến
Sau khi tạo ra text gốc là A1 mình sẽ copy text gốc này ra nhiều text khác là con của text gốc A1 này mình muốn text con của nó thứ tự tăng dần sẽ là A2, A3, A4......
Cảm ơn bác, không biết hồi xưa bác học trường nào nhỉ?@@
02:43 Ngày 20 tháng 10 năm 2010
-Nếu dạng như sau thì mình viết được:
+Bảo chọn điểm viết text,
+Hỏi giá trị cố định phía trước,
+Hỏi giá trị thay đổi phía sau,
+Hỏi giá trị cộng thêm,
+Hỏi số lượng rải tex này, hỏi khoảng cách.
-Còn nếu muốn copy text có sẳn thì như sau:
+Bảo chọn text mẩu
+Hỏi giá trị cần thay đổi là mấy số tính từ sau tính tới.
+Hỏi giá trị cộng thêm.
+Đoạn sau làm như copy bình thường.
@Mình học ĐHK TRÚC Hà Nội
17:50 Ngày 20 tháng 10 năm 2010
Oh! Thanks bác Duy, mục đích của mình là cái vế này:
"-Còn nếu muốn copy text có sẳn thì như sau:
+Bảo chọn text mẩu
+Hỏi giá trị cần thay đổi là mấy số tính từ sau tính tới.
+Hỏi giá trị cộng thêm.
+Đoạn sau làm như copy bình thường."
Nếu được bác cho mình xin cái Lisp này!
Mình học ĐH KTrúc HCM!
05:47 Ngày 25 tháng 10 năm 2010
@okienvang: lisp của bạn đây.
Tên lệnh là CTTS.
http://www.4shared.com/file/0ywiarjk/congtextinhtruocsaunet.html
01:21 Ngày 26 tháng 10 năm 2010
Thanks bác!
Chúc bác sức khỏe, công tác tốt!!
01:45 Ngày 26 tháng 10 năm 2010
Bác Duy làm cách nào phá Block có xài ATT mà vẫn giữ nguyên số trong Block đó nhỉ?
Thanks bác!!
02:29 Ngày 26 tháng 10 năm 2010
Lệnh burst trong EXpress có sẳn đấy bạn.
19:42 Ngày 02 tháng 11 năm 2010
Anh Duy, em có vài cái file lisp em muốn add vào cad, có cái lisp nào add tự động các file .lsp, .Fas,... vào cad mà không dùng lệnh AP không nhỉ?!!
Thanks anh!
20:22 Ngày 02 tháng 11 năm 2010
Gỏ lệnh AP, chọn nút Contents..., chọn add, chọn tất cả các lisp và fas vào sau đó cứ khởi động cad thì các file nằm trong danh sách bạn đã add sẽ tự load.
01:28 Ngày 03 tháng 11 năm 2010
Ý em là em có một số file .lsp, .fas, .arx đã đóng gói thành 1 ctrình nhỏ để chạy nó tự bung ra, vì vậy em muốn viết 1 file lisp với đường dẫn như thế nào để khi cài đặt ctrình thì CAD tự load lun. Em có tham khảo mấy file Lisp acaddoc.lsp và làm theo hương dẫn nhưng vẫn không load các file trên được, mong anh chỉ giáo!!
02:47 Ngày 03 tháng 11 năm 2010
Dòng đó như này: NHớ là tên file không có đuôi mở rộng nhé
(load "c:/tienich/lenh/thuvienndung")
(load "c:/tienich/lenh/thuvienchitiet")
18:07 Ngày 03 tháng 11 năm 2010
(load "C:/Program Files/AutoCAD 2007/Support/DOSLib17")
em đánh lệnh như thế sao mấy cái file lisp thì load được nhưng cái file DOSLib17 không load được anh nhỉ?!!! CAD2007 nó báo như thế này:
AutoCAD menu utilities loaded.; error: LOAD failed: "C:/Program Files/AutoCAD
2007/Support/DOSLib17"
18:28 Ngày 03 tháng 11 năm 2010
DOSLib17 nó là file gì bạn? Đuôi ấy!
18:49 Ngày 03 tháng 11 năm 2010
file .arx đó anh
em đánh thêm arx ở phía trước Load
nó chạy được roài, nhưng khổ nỗi nếu nó load đến cái file nào nó báo lỗi thì các file load tiếp theo nó không thực hiện được anh ah!!
anh có cách nào khắc phục ko?!
Thanks anh!
21:04 Ngày 03 tháng 11 năm 2010
Không! Chịu khó load thử trước khi đưa vào lisp vậy ha.
16:53 Ngày 09 tháng 11 năm 2010
anh Duy có phầm mềm viết file .fas không? em đang cần nó để mã hóa 1 số file lisp. Em không hiểu lắm về file .Fas, anh có thể giúp em không?
Thanks!!
04:13 Ngày 10 tháng 11 năm 2010
Mình chưa nghiên cứu việc này nên ko trả lời bạn được.
05:31 Ngày 11 tháng 11 năm 2010
@okienvangs: Mình viết đoạn nậng Z 1 khoảng do bạn nhập vào đây. Tác dụng với mọi loại đối tượng bạn muốn pline ko thì thêm phần lọc đối tượn khi chọn nhé:
(defun c:nz ()
(command "undo" "be")
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(prompt "\nChon doi tuong muon chinh cao do.")
(setq ss (ssget))
(setq nang (getreal "\nGia tri dieu chinh:"))
(command ".move" ss "" (list 0 0 0) (list 0 0 nang))
(setvar "osmode"luubatdiem)
(command "undo" "end")
(Princ)
)
08:18 Ngày 20 tháng 12 năm 2010
anh Duy à,anh không trả lời câu hỏi của bạn Khương Duy ngày 21/7/2010 a,anh có lênh dấy không ạ ?
07:44 Ngày 24 tháng 12 năm 2010
Vấn đề này đã bàn luận và giải quyết tại đây bạn vào xem nhé:
http://www.cadviet.com/forum/index.php?showtopic=23110&st=0
19:36 Ngày 28 tháng 12 năm 2010
Xem các lisp về text ,biết Duy rất thành thạo về các lệnh căn chỉnh text.
Trong đó có trường hợp mình muốn căn chỉnh tất cả các đối tượng text mình chon (có thể là chọn đối tượng hoặc khoảng cách so với 1 đường thẳng (pline) bất kỳ theo phương nào trên bản vẽ cad.
Mình muốn khi thực hiện líp này tát cả các text đã chọn hoặc đáp ứng yêu cầu sẽ nằm trên đường thảng đó.
Xin cảm ơn.
File cad đính kèm:
http://www.zshare.net/download/8448921712cb6033/
20:24 Ngày 28 tháng 12 năm 2010
Mình gửi lại đường lin
http://www.mediafire.com/file/1ob4e0k828fj2h8/chinhtext.1.dwg
Duy xem giúp
19:51 Ngày 29 tháng 12 năm 2010
Hiện tại em viết tạm anh dùng thử xem đã nhé:
-Đối tượng chuẩn phải là line (pline đang dò lổi ko biết lổi chổ nào).
-Các text phải chọn thủ công (cái này đang viết them khả năng chiều nay xong phần chọn tự động bằng khoảng cách).
-Thuật toán tìm điểm vuông góc chưa chuẩn em đang dùng bài toán đồng dạng gần đúng. (anh có cách nào về lý thuyết toán học thì chỉ em sẽ chỉnh lại).
*Thao tác.
-Gỏ lệnh CTT.
-Chọn LINE chuẩn (chọn xong 1 line thì lisp hỏi qua chọn text ngay).
-Chọn text (anh chọn thoải mái lisp sẽ lọc và lấy text thôi).
*Anh xem kết quả và Duy đang hoàn thiện thêm!
http://www.4shared.com/file/qOfuPHOt/canhchinhtext_2.html
20:31 Ngày 29 tháng 12 năm 2010
Mình kiểm tra thì các text đã chuyển đến đường thẳng (line) nhưng đúng là khoảng cách của các text chưa khớp với các trường hợp các text này chuyển vuông góc với line.
Về thuật toán thì cũng chưa biết được.
Vậy duy cứ nghiên cứu và viết tiếp hộ với .
Cảm ơn
21:27 Ngày 29 tháng 12 năm 2010
http://www.mediafire.com/file/pno372it7ja64x9/truoc.dwg
Duy thử với bản vẽ này ,sau khi thực hiện CCT các text dồn thành 1 đống với nhau
http://www.mediafire.com/file/vcashq2pys1p28a/sau.dwg
23:16 Ngày 29 tháng 12 năm 2010
http://www.4shared.com/file/-vDdQq0d/canhchinhtexttt.html
*Lisp tự nhận text đây. Anh test lại xem. file anh gửi em chạy thử lại chênh lệch chút đỉnh chứ ko có dồn đống như của anh.
-Lệnh: CCTT.
-Chọn line chuẩn xong nhập khoảng cách vùng ảnh hưởng là nó làm phát xong ngay. Lưu ý tực hiện xong anh UNDO như bình thường nhé.
23:50 Ngày 29 tháng 12 năm 2010
OK bây giờ bài toán vuông góc là chinhính xác rồi đó anh thư xem nhé. hi vọng đúng ý anh.
http://www.4shared.com/file/V38ddxeQ/canhchinhtextok.html
00:32 Ngày 30 tháng 12 năm 2010
Đây là file đã gộp 2 lựa chọn:
-CCTT: Chọn Line và nhập khoảng cách ảnh hưởng.
-CCT: chọn Line và chọn các text ảnh hưởng.
http://www.4shared.com/file/_AVcAc0F/canhchinhtextok_2.html
04:04 Ngày 30 tháng 12 năm 2010
Rất đạt yêu cầu đặt ra .Không nghĩ việc lấy vuông góc phải đặt ra nhiều biến như vậy.
Xin cảm ơn vì nhiệt tình của bạn .Hy vọng được Duy giúp cho các lisp có hiệu quả trong công việc như vậy.
Đây là phần đầu bài toán mà mình đang giải quyết
Phần 2 là xuất tất cả các text này ra 1 file *.txt (Theo đường dẫn ) theo 4 lựa chọn ( x tăng,x giảm,y tăng ,y giảm ).
Nếu có thời gian rảnh ,Duy ngiên cứu viêt giúp với.
Cảm ơn lần nữa.
05:18 Ngày 30 tháng 12 năm 2010
Xuất ra file thì dể lắm nhưng thuật toán sắp sếp để Duy lội qua cadviet mót xong hiểu được thì mới viết được, anh chờ vài ngày nhé! À anh nói theo đường dẩn là cố định hay hiện hộp thoại hỏi chọn vị trí?
05:49 Ngày 30 tháng 12 năm 2010
Nên cho hội thoại thì hay hơn.
Xuất ra tọa độ thì đúng là thuật toán dơn giân,diễn đàn đã có nhiều nhưng việc phải lựa chọn (x,y tăng,giảm ) thì diễn đàn mới đặt sơ qua mà thôi
http://www.cadviet.com/forum/index.php?s=&showtopic=13203&view=findpost&p=73455
Thời gian thì vài ngày hay 1 tuần cũng được mà.
Cảm ơn.
06:40 Ngày 30 tháng 12 năm 2010
Beba
Em có nhờ anh Duy viết giúp cái lisp " độ dốc " bên "www.tailieukythuat.com". Chờ bên đó lâu quá nên em nhảy qua Blog của anh nhờ anh viết cho nhanh.
Em cảm ơn anh đã viết giúp em cái lisp về "độ dốc"
, chắc do em diễn tả về ý tưởng chưa rõ lắm nên anh viết chưa đúng lắm, thôi nhờ anh viết lại giúp :
Em làm việc trên bình đồ có nhiều text ( điểm gốc của text là Justify : Left )
VD : ".12,54" độ dốc ".12,23"
Bình thường muốn tính được đdốc i=% đó em phải tính mức chênh giữa 2 cao độ rồi chia cho KCách "." là Justify : Left của text
Nhờ anh viết lại dùm
Độ lớn text :
Chọn text thứ nhất :
Chọn text thứ hai :
KQuả : ".12,54" L=?,i=%? ".12,23"
Thêm cái L=? luôn nha anh
Nếu text thứ nhất cao hơn text thứ hai thì "i=%" là độ dốc dương
Nếu text thứ nhất thấp hơn text thứ hai thì "i=%" là độ dốc âm
Anh cố giúp em sớm . Cảm ơn anh trước
08:08 Ngày 30 tháng 12 năm 2010
Theo mình thì tạo đường dẫn ( open " D:/toado/text.td " "a").
Thời gian thì lúc rảnh Duy viết cho mình cũng được.
17:05 Ngày 31 tháng 12 năm 2010
Chúc mừng bạn một năm mới tốt lành ,vui vẻ ,xóa được chữ "độc" trong phần giới thiệu.
06:54 Ngày 01 tháng 01 năm 2011
@Bạn BEBA
*Lệnh: DODO
*Thao tác:
-Chọn text thứ nhất.
-Chọn txet thứ hai.
*Cách lisp làm việc:
-Tạo text kết quả với định dạng giống hệt text thứ hai, nội dung L=*** i=***. Trong đó:
+L là khoảng cách điểm chèn text thứ nhất đến điểm thứ 2.
+i là (giá trị text thứ nhất – giá trị text thứ hai)/L.
http://www.4shared.com/file/3YqMLpRY/dodoc.html
00:15 Ngày 03 tháng 01 năm 2011
Cảm ơn anh Duy nha !
Cái Lisp anh viết tốt rồi nhưng nhờ anh sửa thêm lại dùm em 1 chút nữa,
Kết quả L=*** là được rồi, nhưng i=*** nhờ anh sửa thành i=**% (phần trăm)
Vì kết quả nó ra dài quá che mất 1 trong 2 text khi khoảng cách 2 text gần nhau. Anh cho text i=**% nằm dưới l=*** cho nó dễ nhìn :
L=***
i=**%
Cảm ơn anh
04:53 Ngày 03 tháng 01 năm 2011
http://www.4shared.com/file/A7TnHxtX/dodoc_2.html
Đây bạn:
10:17 Ngày 03 tháng 01 năm 2011
a có thể viết giúp e cái lisp vẽ các loại của 1,2,4 cánh và cửa sổ không. Em đã tìm hết rồi nhưng đều thấy chỉ là chương trình phụ trợ không dành cho win 7. và có người viết lisp rồi nhưng không dùng được. e xin cảm ơn trước ah. ( e cũng đã tìm luôn trên google nhưng khong thấy ) ai chỉ giúp e với!
17:26 Ngày 03 tháng 01 năm 2011
http://duy782006.blogspot.com/2009/07/tien-ich-autolisp-tong-hop.html
Bạn chạy thử bộ này dùng lệnh VED trong đó có vẽ cửa đi và cửa sổ nêuếu đúng ý thì mình tách code này riêng ra iúp bạn. (nhớ đọc kỹ hướng dẩn trước khi dùng)
18:17 Ngày 03 tháng 01 năm 2011
Anh sửa lại dùm cái i=00.00%
Độ dốc của mình là 25.24% mà trong kết quả là i=0.25%
Anh đưa về 2 số lẻ giúp em
19:15 Ngày 03 tháng 01 năm 2011
Bạn sửa dòng:
(setq dodoc (/ gialech giatril))
Thành:
(setq dodoc (* (/ gialech giatril) 100))
Là được nha!
00:40 Ngày 04 tháng 01 năm 2011
Được rồi Anh Duy ơi !
Cảm ơn anh nhiều.
07:04 Ngày 12 tháng 01 năm 2011
@ ndbngo!
Duy viết thử cái lisp thô anh dùng xem kết quả rồi Duy hoàn thiện thêm!
Có 4 lệnh:
-XT: thứ tự x tăng dần.
-XG: thứ tự x giảm dần.
-YT: thứ tự y tăng dần.
-YG: thứ tự y giảm dần.
Kết quả mặc định ghi vào D:/ketquatoado.txt.
-Hiện nay Duy chưa điền số thứ tự dòng được.
-Còn vụ đánh dấu text Duy đề xuất quy định 1 layer nào đó tên tùy anh chọn nếu text nào thuộc layer này thì dòng kết quả thêm chử T phía sau.
http://www.4shared.com/file/pygLR5Wt/xtexrafile.html
07:43 Ngày 13 tháng 01 năm 2011
Mình đã dow về và kiểm tra ,các kết quả đều đúng .Nhưng ý mình muốn là sau khi chọn đối tượng text tại layer 1( Layer Duy yêu cầu mình chọn ) thì sau đó mới xuât hiên 4 lựa chon:
XT(1).XG(2).YT(3),YG(4) và người dùng chọn 1,2,3,4
Các text được lựa chọn đánh dấu chỉ có 1 (hoặc 2 text) được chọn bằng kích chuột hoặc cửa sổ thì trong tập hợp xuât ra text này có chữ T .
Rất cảm ơn Duy đã viết cho mình(Giải thich giúp mình về hàm vla-sort nhé).
08:56 Ngày 14 tháng 01 năm 2011
http://www.4shared.com/file/2WRRoTGm/xtexrafileok.html
-Tên lệnh: XFT.
-Thao tác:
+Hỏi chọn text thuộc layer mẫu, hỏi chọn các text muốn xuất.
+Hỏi chọn các text đánh dấu.
+Hỏi cách xếp: chọn YT,YG,XT,XG (anh gỏ dủ 2 chử hoa hoặc thường)
*Xong kiểm tra kết quả.
05:41 Ngày 15 tháng 01 năm 2011
http://www.4shared.com/file/rSoOMfVs/xtexrafileok_2.html
Okay Lisp đã thêm phần đánh số thứ tự đầu dòng và tối ưu lại rồi anh Test xem nhé. Hy vọng đúng ý.
06:17 Ngày 15 tháng 01 năm 2011
Rất cảm ơn vì công sức và chất xám của bạn,mình đang đi công tác nên không có cad để thử và kiểm tra kết quả,có gì mình sẽ phản hồi sau (vào tối mai) .
Mình muốn hỏi rằng khi dùng lisp thì có thê xuất ra đồng thời 2 file( hoặc nhiều hơn-Lớn nhất là bao nhiêu file) được không ví dụ như trên là định dạng 1 ,kiểu khác nữa là định dạng 2 vi dụ:
Định khác là 3 cột
Thứ tự /khoảng cách giũa các text/ giá trị text .(theo chiều tăng giảm x,y trên màn hình )
Nhờ viêt nhiều biết là phiền quá ,nên có thể lúc rỗi Duy nghiên cứu giúp minh gợi ý(tất nhiên là viết được thì quá tuyệt vời thì mình dễ học và nâng cao trình độ ,nghiên cứu lập trình nhanh hơn) .
Xin cảm ơn bạn lần nữa.
Mail của mình là ndbngo@yahoo.com
or Phuongksxdhn@gmail.com
18:56 Ngày 15 tháng 01 năm 2011
Hồi tối đã up sao sáng nay mất tiêu nên Duy up lại đây. Lisp đã hoàn thiện đầy đủ cả cột số thứ tự. và củng đã tối ưu hoá cho gọn lại. Lệnh như cũ.
http://www.4shared.com/file/rSoOMfVs/xtexrafileok_2.html
*Về lý thuyết thì 1 lúc có thể xuất ra nhiều file text ko biết giới hạn là bao nhiêu nhưng Duy thử 5 file thì vô tư.
03:37 Ngày 16 tháng 01 năm 2011
Mình đẫ chạy thử và kết quả tốt ,nhưng mình muốn Duy chỉnh giúp 1 số điêu như sau:
-Layer mặc định là "Text1" không phải chọn layer nữa
-Lưa chọn các text (vì có vài trăm tập hợp text) băng cách kích chuột vào đường pline khép kín đã vẽ trước bao quanh từng tập hợp này)
_vì nhiều tập hợp text nên Duy tạo cho vòng lặp liên tục chỉ kết thúc khi ấn enter.
Sau khi ấn kết thúc có thể có được thông báo đã có bao tập hợp được chọn và số dối tượng trong từng tập hợp đó.
Xin cảm ơn.
04:34 Ngày 16 tháng 01 năm 2011
Đã mail cho anh phần giải thích lisp. Còn cải tiến mới thì Duy sẽ nghiên cứu. Khi sắp sếp tính theo tườg tập hợp chọn hay là tính chung (vị trí x y ấy)? Nếu tính cho từng tập hợp thì đc chứ cho cả nhiều tập hợp sẽ khó vì đoạn xắp sếp Duy dùng của Hoành mà chưa hiểu cách hoạt động. Còn đoạn đánh dấu text có cần ko hay bỏ?
05:47 Ngày 16 tháng 01 năm 2011
Đánh dâu text nên để ,không đánh dấu thì ấn enter bỏ qua.Để từng trường hợp thôi cũng hợp lý (4 trường hợp) ,để gọn khi sử lý số liệu cũng là 1 ý hay.Sẽ gõ lệnh XT,yt,xg,yg không dùng lệnh chung để chọn nữa cũng hay
Có thể thế thì dễ hiêu hơn ,mình vừa học sẽ dễ hiểu và chỉnh sửa theo ý muốn hơn,còn của Hoanh nhiều khi gọn quá ,mình chưa hiểu được nên khó sửa (Dù hay mà gọn ).
Anh thấy hàm tự tạo ssget "Wp" plst chọn đối tượng pick theo đường bao hay và nhanh trong bài toán của anh đang giải quyết.
Lúc nào em viết gợi ý bài về từ 1 dữ liệu xuất ra cùng lúc đông thời nhiều file với với(chắc cũng chỉ cần đến 4 định dạng thôi chứ khong cần nhiều hơn.
Xin cảm ơn.
05:57 Ngày 16 tháng 01 năm 2011
Viết xong mới đọc mail ,em gửi .
Đúng vậy trường hơp khoảng cách text nên cho bằng o ,trường hợp sau thì thì anh nghĩ phải dùng file 1 cua em ,ròi đọc từ đó ra khoảng cách các text ,chứ chưa nghĩ ra cách để lấy ngay từ màn hình để xuát file ,thôi thì học tiếp vậy ,vì để đọc hiểu các líp đã viết thì còn chưa hiểu ,nhất là khi có các hàm VL .
Cảm ơn Duy
06:23 Ngày 16 tháng 01 năm 2011
-Cái vụ lấy tập hợp chọn trong pline giới hạn coi thế nhưng mà rất rắc rối vì dùng WP thì phải chọn từng đỉnh pline chứ không phải chọn pline. Cái này Duy đã đọc mấy lisp của Tuệ viết nhưng vẩn chưa hiểu.
-Lấy khoảng cách thì đơn giản vì đã có giá trị toạ độ text rồi, dùng hàm distance là có khoảng cách thôi.
06:50 Ngày 16 tháng 01 năm 2011
Thế thì hàm wp để sau cũng được,em cho xuât cho anh cả 2 định dạng,tọa độ như đã viết ,file 2 là khoảng cách ,giá trị text ( Chú ý vẫn theo chiều x,y tăng giảm).
Cảm ơn Duy.
05:25 Ngày 17 tháng 01 năm 2011
Lisp đây: Đã chỉnh bỏ phần hỏi chọn layer, thêm phần xuất ra file thứ hai. Anh test xem nhé.
http://www.4shared.com/file/CEZZ7kWN/xtexrafileokbochon.html
19:39 Ngày 17 tháng 01 năm 2011
Lisp Này cho phép chọn nhiều pline bao quanh tập hợp. Duy đã chỉnh lại layer mặc đĩnh là DOCAO luôn rồi. Đã thêm luôn phần dòng ghi tập hợp số ... trong phần viết ra file.
-Tên lệnh là XTPL. Lưu ý trong mổi tập hợp phải chọn ít nhất 1 text đánh dầu chứ ko thì hình như lisp lổi. Từ từ Duy khắc phục.
http://www.4shared.com/file/E3bJWulf/xftlp.html
02:11 Ngày 18 tháng 01 năm 2011
Lisp đã đạt được theo yêu cầu của mình.
Cảm ơn Duy.
Yêu cầu tiếp mình gửi Duy qua Mail.
19:38 Ngày 23 tháng 01 năm 2011
chào bạn , bạn có thể chuyển đổi cái lips này sang tiếng việt được không, vì tôi thấy nó rất hay
ban có thể thấy nó ở đây >> http://www.suvn.net/forum/showthread.php?t=14417
hoặc >> http://xyp1964.ys168.com/
19:39 Ngày 23 tháng 01 năm 2011
link tải của 1 member suvn up lên
http://www.mediafire.com/?nnv9a9bup8382d8
00:47 Ngày 24 tháng 01 năm 2011
Hẹ hẹ. Visua thì em bó tay bác ợ. Nếu Là LSP và DCL + NS thì mình còn nhờ anh GOOGLE dịch rồi sửa được chứ như này thì em xin vái cả nón.
19:15 Ngày 10 tháng 02 năm 2011
Anh Duy viết dùm em cái Lisp bẻ và nối đối tượng :
Em có đường Line hoặc Polyline muốn bẻ gãy làm nhiều đoạn nhưng vẫn liền nhau
Bình thường em vẫn phải làm : dùng lệnh “BR” Break bẻ đối tượng các vi trí cần dùng sau đó dùng “PE” Pedit để nối lại các điểm đó ( vì làm Nova nên phải làm trên Cad 14). Làm như vậy mất công quá
Nên Nhờ anh viết giúp cái Lisp làm cho nhanh. Cảm ơn
06:25 Ngày 28 tháng 03 năm 2011
Anh ơi anh còn viết Lisp theo yêu cầu không? Anh viết giúp em Lisp xác định và ghi độ dốc của các đường Line và pline (theo%) với. Em cảm ơn ah.
Mail em: qkhs.live@gmail.com
02:32 Ngày 01 tháng 04 năm 2011
Chủ nhà đi đâu rồi vậy ta? Sao để vườn không nhà chống thế này?
14:06 Ngày 14 tháng 04 năm 2011
anh duy viet dum em lip tinh dien tich nhu trong hinh ve
http://www.mediafire.com/?1udeogva4jucevg
tranvanthan74@gmail.com
22:27 Ngày 15 tháng 04 năm 2011
anh duy oi em dang can gap ne
anh duy viet dum em lip tinh dien tich nhu trong hinh ve
http://www.mediafire.com/?1udeogva4jucevg
tranvanthan74@gmail.com
12:45 Ngày 18 tháng 04 năm 2011
oh, anh duy oi, sao ko thay anh hoi am vay, anh ban lam aH, mong anh hoi am vai tien ich lisp upload thang 4
tranvanthan74@yahoo.com
02:15 Ngày 26 tháng 06 năm 2011
Nhờ bác Duy sửa giúp cách chọn đối tượng sang dạng mặt cắt cho em với:
(Defun c:tdt()
(setvar "cmdecho" 0)
(initget "Heso Do")
(command "style" "DT" "vn-abc.shx" "" "0.8" "0.6" "" "" "")
(if (not tpo) (setq tpo 1))
(setq SC (getint (strcat "\n Nhap ti le (mot met hien tai bang bao nhieu) <" (itoa tpo) "> :")))
(if (not SC) (setq SC tpo) (setq tpo SC))
(if (not tp1) (setq tp1 2))
(setq tp (getint (strcat "\n Nhap So chu so thap phan <" (itoa tp1) "> :")))
(if (not tp) (setq tp tp1) (setq tp1 tp))
(setq pt (getpoint "\n chon diem:"))
(if (= pt "Heso")
(progn
(setq am (getreal "\n cadviet.com: "))
(if (and (null am) (/= ac 0))
(setq am ac)
)
(setq pt (getpoint "\n Chon diem: "))
)
(setq ac am))
(if (or (= am 0) (null am)) (setq am 1))
(setq s 0)
(progn
; (setq pt (getpoint "\n Chon diem: "))
(while pt
(setq entold (cdr (assoc 5 (entget (entlast)))))
(command "boundary" pt "")
(setq entnew (cdr (assoc 5 (entget (entlast)))))
(if (/= entold entnew)
(progn
(setq entnew (entget (entlast)))
(if (assoc 62 entnew)
(setq entnew (subst (cons 62 (+ 3 (cdr (assoc 62 entnew)))) (assoc 62 entnew) entnew))
(setq entnew (append entnew (list (cons 62 (+ 3 (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 entnew))))))))))
)
(entmod entnew)
(Command "area" "o" (entlast))
(setq s (+ s (getvar "area")))
(setq pt (getpoint "\n Chon diem: "))
(entdel (entlast))
)
(progn
(princ "chon diem sai")
(setq pt (getpoint "\n Chon diem: "))
)
)
)
)
"(command "osnap" "intersection")"
(princ (* s am))
(princ)
(command "style" "DT" "vn-abc.shx" "" "0.85" "0.6" "" "" "")
(setq pt1 (getpoint "Chon vi tri ghi dien tich: "))
(setq dt1 (* s am SC SC))
(setq dt (/ dt1 1000000))
(setq dt (strcat (rtos dt 2 tp)))
(command "text" pt1 2 0 (strcat dt))
)
00:36 Ngày 10 tháng 08 năm 2011
Anh Duy xem giúp em còn thiếu thông số gì nhe
(defun c:BKT (/P1)
(SETVAR "CMDECHO" 0)
(setq P1 (GETPOINT "\nChon diem chen bang thong ke:"))
(command "INSERT" "BK1" P1 "" "" "" "EXPLODE" "")
(SETVAR "CMDECHO" 1)
)
(princ)
17:41 Ngày 12 tháng 08 năm 2011
1. Up block BK1 cho mình xem tí.
2. BK1 đã tồn ại trong đường dẩn mặc định của cad chưa.
3. Khi chạy lisp báo lổi gì copy nội dung báo mình xem tí.
20:36 Ngày 12 tháng 08 năm 2011
Block đó là nhóm các Block thuộc tính. Nếu dùng lệnh insert bình thường thì OK nhưng nó qua nhiều bước quá nên em muốn tạo một Lisp để thực hiện tất cả các bước đó.
BK1 đã tồn ại trong đường dẩn mặc định của cad
Và khi bật Cad lên nó báo thế này:
Command: bkt
; error: too few arguments
02:46 Ngày 13 tháng 08 năm 2011
Nó báo như thế là đối số nhập vào quá ít.
-Với block thuộc tính thì sau khi nhập tỉ lệ x,y góc quay tương đương với mấy dấu "" của Vương cần phải cung cấp các giá trị khác của block thuộc tính đó nửa nên mình mới hỏi cho xem cái block đó để biết cần thêm bao nhiêu dấu "" thì đủ.
-Vương làm như sau: Dùng lệnh insert cùa cad chèn cái block đó vào và xem mình thao tác như nào:
+Chọn điểm. cái này trong lisp thay bằng P1 rồi.
+Enter mấy lần, enter không hay là có nhập giá trị rồi mới enter.
Đếm đúng chính xác như thế rồi viết thêm vào lisp:
+Enter tương ứng với ""
+Giá trị nhập ví dụ là A thì tương ứng "A".
+Giá trị nhập đã được gán thành biến ví dụ là biena thì nhập là biena.
02:18 Ngày 15 tháng 08 năm 2011
Em up file lên anh xem giúp nhé. Em thử rồi mà cũng chưa được (khả năng lisp còn kém quá, hi hi)
Em nghĩ là cái dấu "" cuối cùng thiếu cái gì đó.
http://www.mediafire.com/?3zv70io9sx6gvgf
09:33 Ngày 15 tháng 08 năm 2011
(defun c:bkt ()
(command "undo" "be")
(setq p1 (getpoint "\nDiem dat bang: "))
(command "-insert" "bk1" p1 "" "" "" "EXPLODE" "last" "")
(command "undo" "end")
(Princ))
20:00 Ngày 15 tháng 08 năm 2011
Em đoán đúng chứ hỉ!!! Nghi nghi rồi mà khong biết như thế nào. Anh giải thích giúp chữ "last" cho em hiểu với. Cảm ơn anh nghe. Em còn làm phiền anh nhiều, hi hi!!!
20:10 Ngày 15 tháng 08 năm 2011
Cho em hỏi thêm tí, hi` hi`!! Bây giờ em muốn chèn block BK1 với điểm chọn là là ngay vị trí góc trên bên trái bảng thì trong Lisp mình thêm dòng lệnh gì nữa anh Duy? Em đang trong giai đoạn học hỏi, có gì mong anh chỉ bảo thêm. Thanks anh
20:12 Ngày 15 tháng 08 năm 2011
Chú dạo này lười lắm nhé khéo mà ỵut nghề bây giờ :-p.
(command "-insert" "bk1" p1 "" "" "" "EXPLODE" "last" "")
-Tương đương gỏ lệnh insert, nhập bk1, chọn điểm p1, enter ba lần. Lúc này block bk1 đã được chèn.
-Gỏ lệnh explode gỏ last nghĩa là chọn đối tượng vừa được tạo ra, enter.
20:16 Ngày 15 tháng 08 năm 2011
Muốn thay điểm chèn của block thì mở block đó ra và thay điểm chèn (move cái hình đó cái điểm mong nuốn về điểm 0,0) lisp ko cần chỉnh chi cả
02:03 Ngày 16 tháng 08 năm 2011
Hôm trước có thử đưa điểm chèn về gốc tọa độ rồi mà do trong đường dẫn mặc định có thêm cái BK1 nữa (không biết thằng nào bỏ vô :D)nên mới hỏi
Có vấn đề để trò chuyện với ông anh nữa rồi. Là thế này:
1- khi load lisp của anh đã sửa dùng thì OK nhưng tại dòng command thấy báo thế này có vẻ hơi mất thẩm mỹ:
.......
Command: BKT Unknown command "BKT". Press F1 for help.
......
Thấy cái dòng này có vẻ không đam mê lắm. he he!!!
Làm phiền ông anh nhiều, ngại quá, ngại quá
09:26 Ngày 16 tháng 08 năm 2011
Vương copy cái dòng
(command "-insert" "bk1" p1 "" "" "" "EXPLODE" "last" "")
Bỏ vào trong cái lisp của Vương là được thôi.
-Thì Vương sửa điểm chèn của block trong đường dẩn mặc định luon là xong mà
01:13 Ngày 20 tháng 09 năm 2011
Nhờ Anh Duy hoặc các bạn viết dùm 1 cái lisp để tính diện tích phần âm và phần dương của một đa giác chéo khi nhập tọa độ các đỉnh(có thể chéo nhau nhiều lần). xin cám ơn!
01:35 Ngày 20 tháng 09 năm 2011
Nhờ Anh Duy hoặc các bạn viết dùm 1 cái lisp để tính diện tích phần âm và phần dương của một đa giác chéo khi nhập tọa độ các đỉnh(có thể chéo nhau nhiều lần). xin cám ơn!
(khong biết đưa hình vẽ hoặc file minh họa như thế nào mong các bạn thông cảm)
02:49 Ngày 20 tháng 09 năm 2011
Chưa hiểu "phần âm và phần dương của một đa giác chéo" nên chưa làm ăn gì được.
Bạn vào 4shared.com đăng ký lây 1 tài khoản (miển phí) up file lên sau đó đưa đường link lên nhé.
20:20 Ngày 20 tháng 09 năm 2011
Nhờ Anh Duy hoặc các bạn viết dùm 1 cái lisp để tính diện tích phần âm và phần dương của một đa giác chéo khi nhập tọa độ các đỉnh(có thể chéo nhau nhiều lần). xin cám ơn!
http://www.4shared.com/folder/x1Nv2ahm/_online.html
02:25 Ngày 23 tháng 09 năm 2011
Qủa này mình bí đấy bạn. Thông cảm nhé!
07:36 Ngày 16 tháng 10 năm 2011
Chào Anh Duy!.
Cho tôi hỏi một vấn đề nhỏ sau. Tôi đang viết 1 chương trình lisp có sử dụng lệnh "text" khi load lên thì tọa độ của một số đối tượng text định vị tùm lum lúc thì được lúc thì không. tôi có cắt một đoạn lisp gởi Anh tham khảo và chỉ giáo dùm hướng khắc phục.
(anh load lần dâu tren tap tin thutext.dwg sẽ thấy rất rỏ)
Xin cám ơn
(DEFUN C:textt ()
(command "text" "j" "ml" '(38 154) 2 0 "aaaaaaaa")
(command "text" "j" "ml" '(38 146) 2 0 "bbbbbbb")
(command "text" "j" "ml" '(38 140) 2 0 "ccccccc")
; text ccccccc nay dinh vi khong dung toa do y=140
)
http://www.4shared.com/photo/tQDf09Qq/THUtext_2.html
01:17 Ngày 17 tháng 10 năm 2011
Vì bạn ko up đủ lisp nên mình đoán như này:
-Do trước khi viết text bạn không tắt các chế độ truy bắt điểm đi nên khi lisp vẽ bị bắt nhầm vào các điểm lân cận. Việc này là rất ảnh hưởng đến tất cả các lệnh vẽ chứ không riêng gì viết text.
*Bạn thử tắt chế độ bắt điểm trước khi chạy lisp xem nếu nó ko chạy sai nửa thì khăc phục lisp như sau:
-Lưu chế độ bắt điểm hiện hành.
-Cho chế độ bắt điểm bằng không.
-Thực hiện các thao tác vẽ và viết.
-Trả lại chế độ bắt điểm hiện hành.
(Việc này mình đã đề cập đến trong loạt bài hướng dẩn viết lisp.
*Nếu đã tắt chế độ bắt điểm mà vẩn chạy lung tung hy vọng bạn up file lisp đầu đủ mình mới xem được.
Thân
01:00 Ngày 27 tháng 10 năm 2011
A Duy ơi . E đã dùng lệnh xoay text quanh tâm của anh thấy rất hay . liệu anh có thể sửa lệnh đó thành lệnh SC đối tượng quanh tâm được không . thank anh trc
02:11 Ngày 27 tháng 10 năm 2011
SC text quanh tâm nó thì mình có. hôm nào mình up lên nhé.
08:01 Ngày 27 tháng 10 năm 2011
không phải là SC mỗi text mà SC đối tượng mình muốn . cảm ơn anh ! buzz ...!
Cho em hỏi 1 câu riêng tư nhé . anh chưa vợ thật á , chưa có " đối tượng " hay là có rùi nhưng chưa ...!("-;-)
19:58 Ngày 27 tháng 10 năm 2011
-À cái lisp quay quanh tâm là mình sưu tầm. Sẽ chỉnh theo yêu cầu của bạn.
-Phần lý lịch trích xéo bên dưới mình có khai: "Độc thân (sắp hết nhiệm kỳ)" nghĩa là sắp cưới đấy.
-Cái thư gửi vợ tương lai là viết cho tình trạng của năm ngoái
20:25 Ngày 27 tháng 10 năm 2011
Thế ak . bao giờ bác cưới buff len blok cho a em cùng chúc mừng . tiếc là em ở xa nếu ko rủ bác đi nhậu oi`.thui co cái này tặng bác mang về tặng bà xã tương lai nhe @};-
:D
có dịp nào đi quảng ngãi ghé thăm bác sau !
20:34 Ngày 27 tháng 10 năm 2011
Hị hị. Có lisp cho chú rồi đấy. Xem bên siêu thị lisp nhé.
00:31 Ngày 28 tháng 10 năm 2011
Em dawload về dùng thấy okie rồi . lần sau có " vấn đề j " mong anh chỉ giúp !
Thank ....A Duy nhé !
03:15 Ngày 28 tháng 10 năm 2011
Anh Duy ak .lam fien anh lan nua rui , em co 1 ban ve the nay mong anh giup .
http://www.mediafire.com/?51azu6jck46qdd3
22:28 Ngày 30 tháng 10 năm 2011
A Duy di tuan trang mat dau oi` ma mat tam mat tich thia ("-;-)
23:24 Ngày 30 tháng 10 năm 2011
anh Duy oi cuu em voi ...em co lisp xoatext nay nhung co ve no khong duoc triet de lam . dung luc dc luc khong . anh xem ho em co loi j khong ?
;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=23110
(defun c:xoatext (/)
(command "_.undo" "be")
(setvar "cmdecho" 0)
(setq ss (ssget (list (cons 0 "TEXT"))))
(if (= kc nil)
(setq kc1 5)
(setq kc1 kc)
)
(setq kc (getreal (strcat "\nKhoang cach min: <" (rtos kc1) ">")))
(if (= kc nil)
(setq kc kc1)
)
(setq nhom (ssadd))
(setq i 0)
(repeat (sslength ss)
(setq tam (ssname ss 0))
(setq j 1)
(repeat (- (sslength ss) 1)
(if (/= (ssname ss j) nil)
(progn
(if (< (distance (cdr (assoc 10 (entget tam)))
(cdr (assoc 10 (entget (ssname ss j))))
)
kc
)
(progn
(setq nhom (ssadd (ssname ss j) nhom))
(setq ss (ssdel (ssname ss j) ss))
)
)
)
)
(setq j (+ j 1))
)
(if (/= tam nil)
(setq ss (ssdel tam ss))
)
(setq i (+ i 1))
)
(command "change" nhom "" "p" "c" "5" "")
(command "_.undo" "e")
(princ)
)
02:28 Ngày 31 tháng 10 năm 2011
Dạo này cuối tháng 10 nhiều việc lắm chưa có rãnh bạn ạ. Cái lisp bên cadviet thì bạn hỏi luôn tác giả xem.
03:23 Ngày 31 tháng 10 năm 2011
em bit' rui nhung bac viet ho em lisp nhu hve co dc ko . thank bac .
http://www.mediafire.com/?51azu6jck46qdd3
05:02 Ngày 31 tháng 10 năm 2011
Bạn theo dỏi chủ để ở đây xem.
http://www.cadviet.com/forum/index.php?showtopic=22781
07:27 Ngày 12 tháng 11 năm 2011
em có 1 file lisp này nhưng chưa hoàn chỉnh.không chạy được.anh có thể chỉnh lại giúp em được không ạ!cảm ơn anh
(defun main
FasStringtables 0
FasStringtables 1
(defun main
nil
(setq C:C2A C:C2A)
(vl-ACAD-defun C:C2A)
(defun C:C2A
(_al-bind-alist '(P1 P2 ENAME ELIST ETYPE CENTER ENTSEL_LIST ANG1 ANG2 RADIUS OS ANGLIST))
(defun *ERROR*
(MSG)
(setq *ERROR* *ERROR*)
(SETVAR "cmdecho" 0)
(ads-cmd "undo")
(ads-cmd "begin")
(setq ENTSEL_LIST (ENTSEL "\nSelect a circle: "))
(setq ENTSEL_LIST (ENTSEL "\nSelect a circle: "))
(setq P1 (CADR ENTSEL_LIST))
(setq ENAME (CAR ENTSEL_LIST))
(setq ELIST (ENTGET ENAME))
(setq ETYPE (CDR (ASSOC 0 ELIST)))
(setq ENTSEL_LIST (ENTSEL "\nSelect a circle: "))
(setq ENTSEL_LIST (ENTSEL "\nSelect a circle: "))
(setq P1 (CADR ENTSEL_LIST))
(setq ENAME (CAR ENTSEL_LIST))
(setq ELIST (ENTGET ENAME))
(setq ETYPE (CDR (ASSOC 0 ELIST)))
(setq RADIUS (CDR (ASSOC 40 ELIST)))
(setq CENTER (TRANS (CDR (ASSOC 10 ELIST)) 0 1))
(setq ELIST (CDR (CDR (CDR (CDR ELIST)))))
(setq P1 (TRANS (GETPOINT CENTER "\nSpecify the first break point: ") 1 0))
(setq P2 (TRANS (GETPOINT CENTER "\nSpecify the second break point: ") 1 0))
(setq CENTER (TRANS CENTER 1 0))
(setq ANG1 (ANGLE CENTER P1))
(setq ANG2 (ANGLE CENTER P2))
(setq OS (GETVAR "osmode"))
(SETVAR "osmode" 0)
(ENTDEL ENAME)
(setq ANGLIST (LIST (CONS 50 ANG1) (CONS 51 ANG2)))
(ENTMAKE (APPEND '((cons 0 "ARC")) ELIST '((cons 100 "AcDbArc")) ANGLIST))
(setq ANGLIST (LIST (CONS 50 ANG2) (CONS 51 ANG1)))
(ENTMAKE (APPEND '((cons 0 "ARC")) ELIST '((cons 100 "AcDbArc")) ANGLIST))
(SETVAR "osmode" OS)
(ads-cmd "undo")
(ads-cmd "end")
(SETVAR "cmdecho" 1)
18:13 Ngày 12 tháng 11 năm 2011
Lisp trên để làm gì ít ra bạn cũng nói tác dụng chứ 1 đống rối mù thề thì đọc lồi mắt. Với cả một tháng nửa mình mới đụng tời lisp được nhé đang cày cho kịp tiến độ.
21:38 Ngày 12 tháng 11 năm 2011
a giúp em cái ạ.em cũng đang cần lắm.lisp này dùng để cắt đường tròn anh ạ!Cảm ơn anh!
16:32 Ngày 13 tháng 11 năm 2011
Mô tả lại yêu cầu của bạn có khi mình viết lisp mới cho bạn chứ cái đống rối mù kia chịu.
-Yêu cầu cho rỏ vào khỏi mất công mình hỏi đi hòi lại nhé.
06:34 Ngày 14 tháng 11 năm 2011
Vậy em cảm ơn anh nhé!yêu cầu của em là viết lisp dùng để cắt đường tròn ra làm 2 cung(nó giống giống như lệnh break vậy,nhưng lệnh break khi cắt xong chỉ còn lại 1 cung tròn)
1-Đánh tên lệnh
2-Chọn đường tròn cần cắt
3-pick vào điểm thứ 1 trên đường tròn
4-pick vào điểm thứ 2 trên đường tròn
Kết quả:ta có 2 cung tròn
Thanks anh trước!!
19:43 Ngày 14 tháng 11 năm 2011
Lisp đây. Lệnh CDT.
(defun c:cdt ()
(command "undo" "be")
(setq ddd (entsel "\nChon duong tron"))
(while
(or
(null ddd)
(/= "CIRCLE" (cdr (assoc 0 (entget (car ddd)))))
)
(princ "\nDoi tuong khong phai la duong tron! Chon lai")
(setq ddd (entsel "\nChon duong tron"))
)
(command "copy" ddd "" (list 0 0) (list 0 0))
(setq dtmoi (entlast))
(setq a (getpoint "\nChon diem thu nhat: "))
(setq b (getpoint a"\nChon diem thu hai: "))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(command "BREAK" ddd "f" a b)
(command "BREAK" dtmoi b a)
(command "undo" "end")
(setvar "osmode" luubatdiem)
(Princ)
)
04:44 Ngày 15 tháng 11 năm 2011
Thanks anh nhé!Đúng là lisp em đang cần.Hi vọng sẽ được a giúp đỡ nhiều!!!
04:34 Ngày 20 tháng 11 năm 2011
Em làm phiền anh lần nữa nhé!Em đang cần 1 lisp như thế này
tên lệnh : nd
-chọn 1 dim(hay nhiều dim cùng lúc)
-pick 1 điểm phía dưới đường dim thì chữ của dim(nằm trên đường kích thước) sẽ nhảy xuống phía dưới đường dim(thẳng hàng với điểm mình pick)
Do công việc em phải chỉnh rất nhiều dim như thế.Thanks anh nhiều nha!
17:17 Ngày 20 tháng 11 năm 2011
Đề này mình bí. Mình không can thiệp vào dim được. Bạn thông cảm.
00:24 Ngày 23 tháng 11 năm 2011
chao anh.
em nhờ anh viết cho em cái lisp.
như trong bản vẽ nhé
cảm ơn anh
http://www.mediafire.com/?6j9kk3g3xsv2zlb
00:53 Ngày 28 tháng 11 năm 2011
Anh Duy ơi!Em lại làm phiền anh xíu nhé!Cái này anh ra tay khoảng 30s là xong hà.Em có đoạn lisp sau.Lisp này dùng để ghi ra kích thước của 1 hay nhiều line bất kì.Khi cho ra kết quả,lisp yêu cầu chọn text để thay thế.Bác chỉnh lại giúp em là khi cho ra kết quả lisp yêu cầu nhập 1 điểm trên màn hình và ghi ra kết quả tại đó.Text với chiều cao la 200,font la avo.nếu chưa có kiểu style thì lisp tạo luôn.Thanks anh nhiều lắm!
;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=47335
(defun c:T6 (/ doituong total dtuong1 tdt dt ktext ktratext ktratext1 ktextcu textdt ktextmoi newcolor oldcolor)
(setq doituong (ssget '((0 . "*line"))))
(setq total (sslength doituong))
(setq tdt 0)
(repeat total
(setq total (- total 1))
(setq dtuong1 (cdr (car (entget (ssname doituong total)))))
(command "Lengthen" dtuong1"")
(setq dt (getvar "Perimeter"))
(setq tdt (+ tdt dt))
)
(setq ktext (car (entsel "chon text can ghi: ")))
(setq ktratext (entget ktext))
(setq ktratext1 (cdr (assoc 0 ktratext)))
(if (= ktratext1 "TEXT")
(progn
(setq ktextcu (assoc 1 ktratext))
(setq textdt (strcat "L= " (rtos (- tdt 0) 2 )"M"))
(setq ktextmoi (cons 1 textdt))
(setq ktratext (subst ktextmoi ktextcu ktratext))
(entmod ktratext)
(setq color 4)
(setq newcolor (cons 62 color))
(if (assoc 62 ktratext)
(progn
(setq oldcolor (assoc 62 ktratext))
(setq ktratext (subst newcolor oldcolor ktratext))
(entmod ktratext)
)
(entmod (append ktratext (list (cons 62 color))))
)
)
(alert "¤i trкi ¬i, chдn nhЗm rеi, ®г kh«ng ph¶i lµ tetx!")
)
(textpage)
(graphscr)
)
18:26 Ngày 13 tháng 12 năm 2011
chao anh Duy,hom nay ranhr oi moi vao tim lisp doc cac cau tra loi cua anh thay kha hay, neu co dip a giup e nghien cuu viet vai cac lisp duoc khong a,e thay cung hay hay nen muon hoc,e cung o Binh Son,la dan khao sat nen muon lam quen.
19:46 Ngày 13 tháng 12 năm 2011
Bạn cần lisp gì thì yêu cầu ở đây. Nhớ gỏ có dấu cho mình dể đọc.
-Về phần phảo sát mình có 1 bộ tổng hợp đấy bạn xem thử!
18:34 Ngày 20 tháng 12 năm 2011
Anh Duy ơi! nay em nhờ anh viết dùm em cái líp để bung bình đồ, số liệu gồm có góc cạnh và tọa độ, a viet luôn 2 cái nha hihi, số liệu em đo bằng máy toàn đạc Topcon GTS 105. khi bung ra các điểm mia co + để khi mình nối điểm mia dể xác định được vị trí điểm mia. Thank anh nhieu
chúc anh một ngày vui vẻ!
07:07 Ngày 21 tháng 12 năm 2011
Mình ko biết chút gì về chuên môn khảo sát nên bạn nêu yêu cầu cho rỏ về đấu vào, thao tác, đầu ra thì mới viết được.
01:04 Ngày 30 tháng 12 năm 2011
Nhờ anh Duyviết dùm em cái lisp tính độ dốc và ghi ra luôn bao gồm cả kí hiêu.
Số liệu đầu vào: text cao độ ở hai đầu.
Chiều dài thì pick trên bản vẽ.
yêu cầu:
Khi đánh lệnh này thì buộc anh phải nhập cao độ điểm dầu
nhập cao độ điểm cuối
nhập chiều dài của doạn cần ghi độ dốc bằng cách nhập số trên bàn phím hoặc pick hai điểm và lấy chiều dài giữa hai đoạn pick.
cho phép chọn bao nhiêu số lẻ sau dấu thập phân (ví dụ: 0,001 hoặc 0,01 vv)
cu the nhu hinh sau:
http://ng6.upanh.com/b5.s1.d5/50ff18e8c671a2d67a766f45810b591e_39499236.1.120x1.bmp
01:44 Ngày 30 tháng 12 năm 2011
Cái hình nhỏ quá ko thấy chi cả. Bạn gửi file cad nhé. Text đầu vào là text hay mtext. Kết quả viết ra bằng gì, chổ nào. có yêu cầu layer, chiều cao text gì không?
18:19 Ngày 30 tháng 12 năm 2011
http://www.mediafire.com/?jyafkj93n5iwh39
ĐÂY LÀ FILE CAD EM GỬI ANH.
TEXT ĐẦU VÀO LÀ TEXT
KẾT QUẢ VIẾT RA Ở GIỮA ĐOẠN THẲNG HOẶC ĐOẠN CONG MÌNH CẦN TÍNH ĐỘ DỐC
KQ VIẾT RA BẰNG TEXT
LAYER THEO LAYER CỦA TEXT MÌNH ĐÃ CHỌN
CHIỀU CAO TEXT THEO CHIỀU CAO TEXT MÌNH CHỌN.CỤ THỂ NHƯ BẢN VẼ CAD EM GỬI CHO ANH.
TRONG NÀY NÀY CÓ HAI VẤN ĐỀ TÍNH ĐỘ DỐC THEO ĐƯỜNG THẲNG VÀ ĐƯỜNG CONG (ĐT LÀ TỪ TIM ĐƯỜNG ĐẾN MÉP BÓ VỈA, ĐC LÀ THEO MÉP BÓ VỈA
DO ĐÓ EM CÓ ĐIỀU KIỆN NHƯ SAU:
SỐ LIỆU ĐẦU VÀO :
+ CAO ĐỘ ĐIỂM ĐẦU, ĐIỂM CUỐI DỨỚI DẠNG TEXT (LÀM SAO ĐỂ PICK CHỌN TEXT)
+ CHIỀU DÀI ĐOẠN CẦN TÍNH ĐỘ DỐC( CÓ THỂ LÀ PICK HAI ĐIỂM ĐỂ XÁC ĐỊNH CHIỀU THEO ĐOẠN THẲNG HOẶC CÓ THỂ CHỌN ĐỐI TƯỢNG LÀ LINE HOẶC PL VÀ CHƯƠNG TRÌNH TỰ XÁC ĐỊNH ĐƯỢC CHIỀU DÀI CỦA ĐỐI TƯỢNG (CÓ THỂ LÀ ĐƯỜNG THẰNG HOẶC ĐƯỜNG CONG (ĐỐI VỚI TRƯỜNG HỢP XÁC ĐỊNH ĐỘ DÓC MÉP BÓ VỈA NÓ LÀ ĐƯỜNG CONG)
+ TÙY CHỌN SỐ LẺ SAU DẤU THẬP PHÂN LÀ 2 HOẶC3...
+ CÓ KÝ HIỆU LÀ % VÀ HƯỚNG DỐC TỪ CAO XUỐNG THẤP. GIỐNG NHƯ BẢN VẼ CAD EM GỬI.
CHÚC NĂM MỚI THÀNH CÔNG, VUI VẺ VÀ SÔNGS KHỎE.
19:07 Ngày 30 tháng 12 năm 2011
-Yêu cầu kết quả của bạn là Text có ký hiệu %. Nhưng bản vẽ bạn gửi thì kết quả là ATTRIBUTE và không có ký hiệu %. Bạn muốn tàm kiêuểu gì đây?
-Quên nhờ bạn cho mình công thức tính độ dốc từ dữ liệu của bạn.
19:16 Ngày 30 tháng 12 năm 2011
KẾT QUẢ LÀ ATTRIBUTE CÓ % THÌ HAY HƠN. NẾU ĐƯỢC NHƯ THẾ THÌ TỐT QUÁ.
CÔNG THỨC TÍNH ĐỘ DỐC:
(CAO ĐỘ ĐIỂM ĐẦU- CAO ĐỘ ĐIỂM CUỐI)*100/CHIỀU DÀI ĐOẠN TÍNH DỐC. VÍ DỤ KẾT QUẢ RA LÀ 2.001%
19:20 Ngày 30 tháng 12 năm 2011
KẾT QUẢ TÍNH CHÊNH CAO (CAO ĐỘ ĐIỂM ĐẦU -CAO ĐỘ ĐIỂM CUỐI ) PHẢI LÀ DƯƠNG NHÉ
23:30 Ngày 30 tháng 12 năm 2011
Hẹc hẹc. Đang tính viết thì thấy mấy bác bên cadviet viết xong rồi nên thôi bạn nhé.
01:12 Ngày 31 tháng 12 năm 2011
cảm ơn anh đã quan tâm.
00:38 Ngày 01 tháng 01 năm 2012
Nhờ bác anh duy xem lại dùm em. Cái lisp nscdpl của bác bình trên cadviet có vấn đề như thế này: bản vẽ cad kèm theo http://www.mediafire...y36b5lpdcycwqa2
giả sử em có một đường cong hai đầu: đầu 1 có text cao độ là 22.95, đầu 2 có text cao độ là 23.17
em dùng lisp của bác:
nếu em chọn text chỉ cao độ điểm đầu là 22.95 và điểm cuối là 23.17 thì nó nội suy đúng y chan
nhưng ngược lại nếu chọn text cao độ điểm đầu là 23.17 thì nó nội suy trật lất.
Mong anh bớt chút thời gian xem lại để mình không cần quan tâm đầu nào là đầu 1, đầu 2 gì hết cứ chọn pl text thứ 1, text thứ 2 (chọn vô tư nha) rồi pick điểm cần nội suy là ra. Cảm ơn.
01:35 Ngày 30 tháng 01 năm 2012
Xin tham gia 1 lisp ve thong ke chung loai thep
Gia su ta co bang thong ke thep, sau do loc tong khoi luong cua tung loai thep ra (D8, D12...)
(defun c:TK ()
(setq Loaithep (getstring T "\nChon chung loai thep: "))
(Princ "Quet cot chung loai thep")
(setq tapchungLoai (ssget '((0 . "text"))))
(Princ "Quet cot khoi luong")
(setq tapgiatri (ssget '((0 . "text"))))
(setq diemchuan (getpoint "\nChon diem chen: "))
;(setq caochu (getreal "\nChon chieu cao chu: "))
(setq sodoituong (sslength tapchungLoai))
(setq tapchungLoai (sapxep tapchungloai sodoituong))
(setq tapgiatri (sapxep tapgiatri sodoituong))
(setq thutu 0)
(setq tong 0)
(while (< thutu sodoituong)
(setq doituong1 (ssname tapchungloai thutu))
(setq doituong2 (ssname tapgiatri thutu))
(setq laychungloai (entget doituong1))
(setq laygiatri (entget doituong2))
(setq chungloai (cdr (assoc 1 laychungloai)))
(setq giatri (cdr (assoc 1 laygiatri)))
(if (= chungloai loaithep) (setq tong (+ tong (atof giatri))))
(setq thutu (+ thutu 1))
)
(Princ "\n Tong khoi luong thep chon la:")
(Princ (rtos tong 2 2))
(command "text" "j" "m" diemchuan "" 0 (rtos tong 2 2))
)
;;;;HAM SAP XEP CAC DOI TUONG THEO TOA DO Y
(defun SAPXEP(tapdoituong1 ndoituong / tapdoituong2)
(setq doituongMax (ssname tapdoituong1 0))
; tao 1 tap doi tuong khac de sap xep cac doi tuong vao
(setq tapdoituong2 (ssadd doituongmax))
(ssdel doituongmax tapdoituong2)
(setq sovonglap ndoituong)
(repeat sovonglap
(setq laynoidung (entget doituongmax))
(setq toadoMax (caddr (assoc 10 laynoidung)))
(setq thutu 0)
(while (< thutu ndoituong)
(setq doituong (ssname tapdoituong1 thutu))
(setq laynoidung (entget doituong))
(setq ToadoY (caddr (assoc 10 laynoidung)))
(if (>= toadoY toadoMax) (setq doituongMax doituong toadomax toadoy))
(setq thutu (+ thutu 1))
);het while
(ssadd doituongmax tapdoituong2)
(ssdel doituongmax tapdoituong1)
(setq ndoituong (sslength tapdoituong1))
(setq doituongMax (ssname tapdoituong1 0))
); het repeat
(setq tapdoituong1 tapdoituong2)
)
;;; het ham sap xep
02:14 Ngày 07 tháng 02 năm 2012
Anh ah! Cho phép em làm phiền 1 chút nhé
Chẳng là thế này.E đang phải làm hoàn công đường nhưng do sai khác nhiều mí TK quá gần như em phải vẽ lại hầu hết tất cả các mặt cắt ngang cọc.Mún anh viết lisp hộ em có thể tự động vẽ mặt cắt ngang và ghi text cao độ vào bảng như hình mẫu e gửi ở dưới mà trong khi mình chỉ cần nhập các cao độ TK tự nhiên và cao độ TK vào file text hay excel.
Hi!!em ko bit gui file the nao anh vào tạm blog mí lập xem mẫu mặt cắt cọc này nhé :
http://thuyetkct.blogspot.com/2012/02/anh-duy-ho-em-cai-ne.html
18:53 Ngày 07 tháng 02 năm 2012
Cái hình mờ quá. bạn up file cad đi. Và phải dạy mình vẽ hình từ đống số liệu nhập vào thì mới viết lisp cho bạn được. Nêu yêu càu cần cụ tỉ ngay từ đầu để không mất time của cả bạn và mình.
20:22 Ngày 07 tháng 03 năm 2012
Có lips nào copy một hình bất kì chạy theo một đường cong bất kỳ mà ko phải dùng lệnh Ro xoay cho no đẹp ko bà kon? Chả là em đang chia cái bình đồ ra nhiều khúc nhưng mỗi tội cứ chia ra nhỏ thì phải copy rùi xoay đối tượng mất rất nhiều time. help!
20:25 Ngày 07 tháng 03 năm 2012
Có lips nào copy một hình bất kì chạy theo một đường cong bất kỳ mà ko phải dùng lệnh Ro xoay cho no đẹp ko bà kon? Chả là em đang chia cái bình đồ ra nhiều khúc nhưng mỗi tội cứ chia ra nhỏ thì phải copy rùi xoay đối tượng mất rất nhiều time. help!
07:14 Ngày 08 tháng 03 năm 2012
Xem lisp ở đây nhé!
http://duy782006.blogspot.com/2011/06/hoan-thien-lisp-rai-oi-tuong-theo-uong.html
01:57 Ngày 27 tháng 03 năm 2012
Tran Minh Thien
Em nhờ anh Duy viết giúp em Lisp tính khối lượng san lấp dùm em. Yêu cầu: Pick vào 4 điểm cao độ thiết kế tính cao độ trung bình thiết kế, Pick vào 4 điểm cao hiện trạng tính cao độ trung bình hiện trạng. Lấy cao độ trung bình thiết kế trừ đi cao độ trung bình hiện trạng. Sau đó lấy kết quả nhân với diện tích (diện tích nhập từ bàn phím). Cuối cùng chọn text xuất kết quả.
Em gửi anh file ví dụ: http://www.mediafire.com/?76ju57d0ddqkfqr
Địa chỉ mail của em: minhthienit@gmail.com
Chân thành cảm ơn anh!
01:25 Ngày 28 tháng 03 năm 2012
Bạn thử xem nhé. Mình viết theo thuật toán yêu cầu của bạn nên mình ko chịu trách nhiệm vêề tính chính xác của thuật toán nhé. Lệnh là san
(Defun doantinhTB ()
(setq TBSUM 0)
(setq TBSS (ssget '((0 . "TEXT"))))
(setq iTB 0)
(setq NTB (sslength TBss))
(while (< iTB NTB)
(setq TBDT (ssname TBSS iTB))
(setq TBDT (entget TBDT))
(setq TBTEXT (cdr (assoc 1 TBDT)))
(setq TBSUM1 (atof TBTEXT))
(setq TBSUM (+ TBSUM (* TBSUM1 1)))
(setq iTB (1+ iTB))
)
(setq TONG1TB (/ TBSUM ITB))
(Princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:san (/ Ename Elist Msg Oldtext Oldlist Newtext Newlist)
(command "undo" "be")
(Princ "\nHay chon cac so cao do thiet ke :")
(doantinhTB)
(setq kqtk TONG1TB)
(Princ "\nHay chon cac so cao do hien trang :")
(doantinhTB)
(setq kqht TONG1TB)
(setq kqtru (- kqtk kqht))
(if (= dienticho nil)
(setq dienticho1 100)
(setq dienticho1 dienticho)
)
(setq
dienticho (GETREAL (strcat "\nNhap dien tich: <" (rtos dienticho1 2 2) ">"))
)
(if (= dienticho nil)
(setq dienticho dienticho1)
)
(setq ketquaxuat (* dienticho kqtru))
(setq ketquaxuat (rtos ketquaxuat 2 2))
(setq dddsn (entsel "\nChon text xuat ket qua"))
(while
(or
(null dddsn)
(/= "TEXT" (cdr (assoc 0 (entget (car dddsn)))))
)
(princ "\nDoi tuong khong phai la text! Chon lai")
(setq dddsn (entsel "\nChon text tru"))
)
(setq DTDTTsn (car dddsn))
(setq DTMs (entget DTDTTsn))
(setq DTMs (subst (cons 1 ketquaxuat) (assoc 1 DTMs) DTMs))
(entmod DTMs)
(command "undo" "end")
(setvar "MODEMACRO" "**CHUC BAN LAM VIEC HIEU QUA** PHAM QUOC DUY - BINH SON - QUANG NGAI")
(Princ))
19:18 Ngày 28 tháng 03 năm 2012
TRAN MINH THIEN
Em làm được rồi anh Duy ơi. Cám ơn anh nhiều lắm. Chúc anh Hạnh phúc và Thành đạt
20:44 Ngày 29 tháng 03 năm 2012
TRan Minh Thien
Anh Duy ơi. Cũng giống như Lisp tính khối lượng san lấp. Nhưng bây giờ em muốn TB cao độ thiết kế là nhập từ bàn phím; phần xuất kết quả anh có thể làm tròn số VD: 1,45 thành 1,6 không anh Duy? Mong anh sửa giúp em lisp lại nhe! Cảm ơn anh trước.
17:20 Ngày 02 tháng 04 năm 2012
Các cái kác thì được. Nhưng phần làm tròn số thì không được. Lisp chỉ làm được việc cắt bớt ví dụ 1.45 thành 1.4 thôi.
20:52 Ngày 02 tháng 04 năm 2012
Vậy em nhờ anh chỉnh lại phần Cao độ trung bình Thiết kế là nhập vào dùm em nhe anh Duy!
20:58 Ngày 02 tháng 04 năm 2012
Em muốn Cao độ trung bình Thiết kế nhập vào là vì khi 4 điểm cao độ thiết kế bằng nhau thì mình nhập Cao độ trung bình vào lần đầu nó sẽ nhớ lại và những ô vuông khác cũng cùng cao độ trung bình thì mình sẽ khỏi mất công nhập nữa đó anh Duy
01:04 Ngày 03 tháng 04 năm 2012
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:sann (/ Ename Elist Msg Oldtext Oldlist Newtext Newlist)
(command "undo" "be")
(if (= cdtbtk nil)
(setq cdtbtk1 100)
(setq cdtbtk1 cdtbtk)
)
(setq
cdtbtk (GETREAL (strcat "\nNhap cao do thiet ke trung binh: <" (rtos cdtbtk 2 2) ">"))
)
(if (= cdtbtk nil)
(setq cdtbtk cdtbtk1)
)
(setq kqtk TONG1TB)
(Princ "\nHay chon cac so cao do hien trang :")
(doantinhTB)
(setq kqht TONG1TB)
(setq kqtru (- cdtbtk kqht))
(if (= dienticho nil)
(setq dienticho1 100)
(setq dienticho1 dienticho)
)
(setq
dienticho (GETREAL (strcat "\nNhap dien tich: <" (rtos dienticho1 2 2) ">"))
)
(if (= dienticho nil)
(setq dienticho dienticho1)
)
(setq ketquaxuat (* dienticho kqtru))
(setq ketquaxuat (rtos ketquaxuat 2 2))
(setq dddsn (entsel "\nChon text xuat ket qua"))
(while
(or
(null dddsn)
(/= "TEXT" (cdr (assoc 0 (entget (car dddsn)))))
)
(princ "\nDoi tuong khong phai la text! Chon lai")
(setq dddsn (entsel "\nChon text tru"))
)
(setq DTDTTsn (car dddsn))
(setq DTMs (entget DTDTTsn))
(setq DTMs (subst (cons 1 ketquaxuat) (assoc 1 DTMs) DTMs))
(entmod DTMs)
(command "undo" "end")
(setvar "MODEMACRO" "**CHUC BAN LAM VIEC HIEU QUA** PHAM QUOC DUY - BINH SON - QUANG NGAI")
(Princ))
Copy phần này thêm dưới lisp trước. Lệnh là SANN
19:41 Ngày 04 tháng 04 năm 2012
Anh Duy nó báo lỗi
; error: bad argument type: numberp: nil
03:01 Ngày 17 tháng 04 năm 2012
Anh Duy cho em xin số DTDD của anh được không?
Em có việc thỉnh giáo a chút xíu.
Trân trọng !!!!
E Việt (viethtkt@yahoo.com.vn)
18:41 Ngày 17 tháng 04 năm 2012
Cần gì thì liên hệ trên này hoặc mai duy782006@gmail.com. Nếu ở Quảng Ngãi thì gặp mình tại 113 phan chu trinh TP quảng ngãi (trong giờ làm việc). Mình ko thích liên hệ ĐT.
22:01 Ngày 19 tháng 04 năm 2012
Em đang có nhu cầu có lisp tạo hồ sơ kỹ thuật thửa đất có bảng thống kê tọa độ, kích thước, và sơ đồ thửa đất ra bảng riêng. Nhưng do trình độ viết Lisp có hạn nên chưa thể viết được. Nếu anh có điều kiện thì giúp em với nhé. Em cũng đang cần. Thanhk anh trước.
(Em có gửi kèm theo file mẫu cần xuất ra bên dưới)
http://www.cadviet.com/link/?f=upfiles/3/107884_nhu_cau_tao_lisp_hskt.rar&w=51859
địa chỉ mail của em: tmvuong86@yahoo.com
00:34 Ngày 20 tháng 04 năm 2012
Những lisp như này CADVIET nhiều như quân Nguyên. Bạn qua đấy coi có cái nào giống giống rồi yêu cầu sửa cho nhanh, lĩnh vực này mình ko rành.
21:44 Ngày 25 tháng 04 năm 2012
Chào Duy, tôi là Linh, cũng là KTS, tuy nhiên làm quy hoạch đã 16 năm nay, lisp dùng cho QH cũng đã nhiều, tuy nhiên có 1 vấn đế tôi vẫn cứ trăn trở là làm sao có được 1 lisp để vẽ hệ thống đường đô thị trong Autocad (chủ yếu cho quy hoạch chi tiết). Trong Acad, ta co the dung dline, mline để làm công việc này tuy nhiên, vẫn mất công tô hatch phần lòng đường. Ngoài ra, vần cãn tính diện tích phần giao thông một cách thủ công!
Từ đó mình cũng đã tìm hiểu để viết nhưng thú thực hoàn toàn ko có thời gian, và một số cấu trúc thực hiện cũng chưa rành. Vậy mong Duy giúp mình viết một lisp cơ bản thực hiện được việc sau:
- vẽ hệ thống giao thông từ hệ tim (như bản vẽ kèm trong email gửi Duy), có đủ layer: he-duong-tim-long duong. Khi vẽ có thể điền các thông số: độ rộng hè, độ rộng đường (hoặc làn đường), bán kính vỉa hè, vạt góc vỉa hè... Khi vẽ 2 đường cắt nhau, có thể tự cắt phần chồng lên nhau và hoàn thiện nút cắt như trong hình vẽ.
- tô hatch nền đường.
- tính diện tích phần lòng, lề đường, tổng cộng 2 phần trên.
- kết xuất diện tích ra bảng thống kê.
Sơ lược như vậy, mong Duy giúp mình và cũng nhân tiện xin phép được sửa những phần cần thiết sau này nhé, có gì mình sẽ trao đổi sâu hơn tại đây và qua email ha, chân thành cảm ơn bạn trước và rất mong được học hỏi!
23:54 Ngày 25 tháng 04 năm 2012
Duy chỉ có thể làm đến phần offset tim ra thành bao nhiêu đường tùy thích, set cả layer. Còn đoạn sau thì chịu thua vì ngoài khả năng.
00:00 Ngày 26 tháng 04 năm 2012
Tham khảo lisp duy đang dùng cho quy hoạch với công việc offset đã đăng ở đây.
http://xaydungit.vn/diendan/showthread.php?4123-Giới-thiệu-Lisp-offset-phục-vụ-quy-hoạch.
19:47 Ngày 26 tháng 04 năm 2012
Cám ơn Duy, dù sao lisp offset nay cung do mat cong offset nhieu lan.
01:00 Ngày 07 tháng 05 năm 2012
Em có 1 lips có tên lệnh là W đã được load vô cad, cái dở của lips này là chỉ cho phép em chọn từng đối tuợng một, trong bản vẽ của em nhiều khi có đến gần 100 đối tượng cần sử dụng lênh W đó, khi đó em lại cứ phải thao tác gần 100 lần, rất mệt, Mong anh viết giúp em 1 lips mới , lips này sẽ thực hiện cái lệnh W kia mà em chỉ cần quét select 1 lần gần 100 đối tuợng mà em đang muốn thực hiện với lệnh W được ko ah, Cảm ơn anh . P/S: ý tuởng của em về cái lips này có thể hình dung là repeat cái lệnh W với những đối tượng đã chọn trước thôi.
17:32 Ngày 07 tháng 05 năm 2012
Tưởng bác Bình đã giải quết ưoợc yêu cầu của bạn?
Yêu cầu của bạn về nguyên tắc thì được nhưng mình ko làm tổng quát được như bác Bình chỉ có thể sửa cái lệnh của bạn thành 1 hàm con xong mới cho nó chạy lặp cho từng đối tượng được nên bạn phải cho mình ngó cái lisp của bạn thì mới xong.
20:30 Ngày 07 tháng 05 năm 2012
Chưa bác ah,vì bị lỗi mà.
phamthanhbinh, on 04 May 2012 - 11:54 AM, said:
Hề hề hề,
Có phải cái này không hè????
file: ucc.lsp(defun c:ucc ()
(setq ss (acet-ss-to-list (ssget)))
(foreach e ss
(c100 e)
)
)
Còn cái thằng c100 nó tròn méo chi thì kệ u nó hử????
Dạ đúng thế bác ah, nhưng mà lỗi ko hiểu command W, đây bác xem hộ em
Command: UCC
Select objects: 1 found
Select objects: ; error: no function definition: W
Trong khi đó, ở trong pgp em định nghĩa w= ofset, bác xem lại giúp em với


markdown:
Đăng nhập
Địa chỉ email
:
Mật khẩu
:
Nhớ mật khẩu
Quyên mật khẩu?
Đăng ký
bstrungdalieu.vn
Giỏ hàng
Giỏ hàng chưa có sản phẩm
Danh sách yêu thích
Không có sản phẩm nào
Sản phẩm đã xem
Không tìm thấy sản phẩm nào
Tin nhắn
Đăng nhập để xem tin nhắn
|
Vui lòng chọn
Mỹ phẩm
;
Địa chỉ: 136 Trần Quang Khải, P. Tân Định, Q. 1, TP HCM. Điện thoại đặt hẹn: 08 3848 1666
Trang chủ
Bác Sĩ
Giới thiệu
Dịch vụ
Lịch Khám
Bảng giá
Sản phẩm
Chuyên đề về da
Liên hệ
Tin tức
Tin tức
Dịch vụ
Nâng cơ xóa nhăn bằng Pellevé
ĐIỀU TRỊ SẸO MỤN
Điều trị mụn
Xóa xăm bằng Laser Spectra Q-Switched
Laser thẩm mỹ công nghệ cao
Triệt lông vĩnh viễn
Công nghệ trẻ hóa da
Các liệu trình trẻ hóa da
Bác Sĩ
Bí quyết làm đẹp
Thư viện ảnh
Video clip
FAQs
CN sống khỏe đẹp với TS. BS Văn Thế Trung
Tin cùng chuyên mục:
"Videos"
10 phút với bài thẻ dục đánh đánh tan mỡ bụng
(05/04)
10 phút giảm mỡ bụng nhanh hiệu quả, thể dục giảm cân nhanh
(05/04)
Công nghệ eTwo tại Viện chăm sóc da FB- Chương trình Hôm Nay Ta Đẹp số 31
(28/03)
Trailer Hôm Nay Ta Đẹp Số 31- FBSKINCARE.COM
(22/03)
Thành phố hôm nay của HTV9- Chuyên đề da liễu
(25/01)
Vui Sống Mỗi Ngày- TS.BS VĂN THẾ TRUNG trên VTV3
(25/01)
Câu chuyện có thật: chuyện của Linda
(19/01)
Hoạt động của Pellevé
(18/01)
Tiến sĩ Golchin giải thích điều trị Pellevé
(18/01)
Công nghệ Pellevé trên truyền thông
(18/01)
Video clip
Công nghệ eTwo tại Viện chăm sóc da FB- Chương trình Hôm Nay Ta Đẹp số 31
Trailer Hôm Nay Ta Đẹp Số 31- FBSKINCARE.COM
Thành phố hôm nay của HTV9- Chuyên đề da liễu
Vui Sống Mỗi Ngày- TS.BS VĂN THẾ TRUNG trên VTV3
Hoạt động của Pellevé
Công nghệ Pellevé trên truyền thông
Công nghệ Pellevé tại Viện chăm sóc da FB
Phòng Khám Da Liễu- Viện chăm sóc Da FB
CN sống khỏe đẹp với TS. BS Văn Thế Trung
Trang điểm xinh như hàn quốc
Cách đánh son với 3 màu chủ đạo
Muốn làm đẹp da chớ nên bỏ qua
Giới thiệu
Phòng khám chuyên khoa Da Liễu - Viện chăm sóc da FB hoạt động theo tiêu chí khám chữa bệnh kết hợp chăm sóc da thẩm mỹ.
Tại đây, bệnh nhân và khách hàng được tư vấn và khám bởi Tiến sĩ - Bác sĩ giảng viên chuyên khoa Da Liễu tại trường Đại học Y Khoa hàng đầu của Việt Nam. Với đội ngũ kỹ thuật viên, tư vấn viên được chính bác sĩ giám sát mang lại niềm tin cho khách hàng.
Thư viện ảnh
Địa chỉ liên hệ
Viện Chăm sóc da FB
136 Trần Quang Khải, P.Tân Định, Q. 1, Thành phố Hồ Chí Minh
Hotline: 08 3848 1666
Email: fbskincare.cskh@gmail.com
Website: http://fbskincare.com
© 2012-2013,
aweb.vn
. All rights reserved
Quý khách đăng ký trực tuyến ưu đãi giảm 50% phí khám bệnh.
Đăng ký
Không đăng ký

WARC-Type: response

Content-Type: application/http; msgtype=response

Set-Cookie: SITE_VISITOR=1; expires=Mon, 05-Oct-2015 22:06:50 GMT; path=/; domain=.fbskincare.com

Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0

Pragma: no-cache

Vary: Accept-Encoding,User-Agent

Content-Encoding: gzip

Connection: close

Content-Type: text/html; charset=UTF-8


markdown:
[C√°p quang bi·ªÉn qu·ªëc t·∫ø AAG ƒë∆∞·ª£c kh√¥i ph·ª•c tr∆∞·ªõc 13/5](http://fptsg.net/cap-quang-bien-quoc-te-aag-duoc-khoi-phuc-truoc-135.html)
5 months ago
[Tin t·ª©c](http://fptsg.net/category/tin-tuc) [No Comments](http://fptsg.net/cap-quang-bien-quoc-te-aag-duoc-khoi-phuc-truoc-135.html#comments) [](http://fptsg.net/cap-quang-bien-quoc-te-aag-duoc-khoi-phuc-truoc-135.html)
![ c√°p quang bi·ªÉn b·ªã ƒë·ª©t](http://fptsg.net/wp-content/uploads/2015/04/capquangbienaagbiduc-590x350.jpg)
Th·ªùi gian kh·∫Øc ph·ª•c c√°p quang bi·ªÉn AAG b·ªã ƒë·ª©t Trao ƒë·ªïi v·ªõi b√°o ch√≠, √¥ng L√¢m Qu·ªëc C∆∞·ªùng, Gi√°m ƒë·ªëc C√¥ng ty Vi·ªÖn th√¥ng qu·ªëc t·∫ø (VNPT-I), cho bi·∫øt, t√Ýu s·ª≠a ch·ªØa c·ªßa ƒë∆°n v·ªã ƒëi·ªÅu h√Ýnh c√≥ th·ªÉ …

WARC-Truncated: length

Vary: Accept-Encoding, Cookie

Accept-Ranges: bytes

Server: LiteSpeed


markdown:
-
Trên tay Asus Zenfone 2 Laser tại FPTShop - Thiết kế đẹp, máy chụp nhanh
-
Hàng trăm người náo nức tham gia buổi ra mắt chuỗi bán lẻ cao cấp Samsung tại FPT Shop
-
Giảm đến 40% giá bán Wing VN50 chip 8 nhân, chỉ tại FPT Shop
-
FPT Shop ra mắt chuỗi cửa hàng cao cấp Samsung
-
Chỉ cần đến FPT Shop mua sắm, bạn sẽ được tặng tiền mặt đến 12 triệu đồng
[](/tin-tuc/danh-gia-tu-van/nhung-tinh-nang-doc-dao-tren-smartphone-motorola-moto-x-2014-33102)
### Những tính năng độc đáo trên smartphone Motorola Moto X 2014
Chủ Nhật, 04/10/2015 21:45 -
[](/tin-tuc/danh-gia-tu-van)
## Đánh Giá – Tư Vấn
[](/tin-tuc/tin-moi/vi-sao-iphone-co-2-man-hinh-tra-loi-cuoc-goi-khac-nhau-33101)
### Vì sao iPhone có 2 màn hình trả lời cuộc gọi khác nhau?
Chủ Nhật, 04/10/2015 19:18 -
[](/tin-tuc/tin-moi)
## Tin Mới
[](/tin-tuc/danh-gia-tu-van/tren-tay-asus-zenfone-selfie-tai-fptshop-33100)
### Trên tay Zenfone Selfie tại FPTShop – Siêu camera tự sướng của Asus
Chủ Nhật, 04/10/2015 16:47 -
[](/tin-tuc/danh-gia-tu-van)
## Đánh Giá – Tư Vấn
[](/tin-tuc/danh-gia-tu-van/tren-tay-asus-zenfone-2-laser-tai-fpt-shop-33099)
### Trên tay Asus Zenfone 2 Laser tại FPTShop - Thiết kế đẹp, máy chụp nhanh
Chủ Nhật, 04/10/2015 10:25 -
[](/tin-tuc/danh-gia-tu-van)
## Đánh Giá – Tư Vấn
[](/tin-tuc/Tin-khuyen-mai/hang-tram-nguoi-nao-nuc-tham-gia-buoi-ra-mat-chuoi-ban-le-cao-cap-samsung-tai-fpt-shop-33098)
### Hàng trăm người náo nức tham gia buổi ra mắt chuỗi bán lẻ cao cấp Samsung tại FPT Shop
Thứ Bảy, 03/10/2015 12:32 -
[](/tin-tuc/Tin-khuyen-mai)
## Tin khuyến mãi
[](/tin-tuc/tin-moi/phai-chang-thoi-dai-smartphone-camera-kep-dang-toi-33097)
### Phải chăng thời đại smartphone camera kép đang tới?
Thứ Bảy, 03/10/2015 12:01 -
[](/tin-tuc/tin-moi)
## Tin Mới
[](/tin-tuc/tin-moi/sony-giai-thich-ve-trai-nghiem-4k-tren-xperia-z5-premium-33096)
### Sony giải thích về trải nghiệm 4K trên Xperia Z5 Premium
Thứ Bảy, 03/10/2015 11:54 -
[](/tin-tuc/tin-moi)
## Tin Mới
[](/tin-tuc/tin-moi/skype-phat-trien-tinh-nang-dich-thuat-trong-khi-goi-video-33095)
### Skype phát triển tính năng dịch thuật trong khi gọi video
Thứ Bảy, 03/10/2015 11:48 -
[](/tin-tuc/tin-moi)
## Tin Mới
[](/tin-tuc/tin-moi/video-tha-roi-thu-nghiem-do-ben-cua-lg-v10-33094)
### Video thả rơi thử nghiệm độ bền của LG V10
Thứ Bảy, 03/10/2015 11:31 -
[](/tin-tuc/tin-moi)
## Tin Mới
[](/tin-tuc/tin-moi-1/lo-hinh-anh-ro-net-cua-lumia-950-va-lumia-950-xl-den-flash-triple-dual-sim-33093)
### Lộ hình ảnh rõ nét của Lumia 950 và Lumia 950 XL, đèn Flash Triple, dual SIM
Thứ Bảy, 03/10/2015 10:53 -
[](/tin-tuc/tin-moi-1)
## Tin moi
[](/tin-tuc/Tin-khuyen-mai/wing-vn50-voi-chip-8-nhan-duoc-giam-gia-den-40-chi-tai-fpt-shop-33091)
### Giảm đến 40% giá bán Wing VN50 chip 8 nhân, chỉ tại FPT Shop
Thứ Sáu, 02/10/2015 18:53 -
[](/tin-tuc/Tin-khuyen-mai)
## Tin khuyến mãi
[](/tin-tuc/tin-moi/co-nen-nang-cap-len-note-5-33090)
### Có nên nâng cấp lên Note 5
Thứ Sáu, 02/10/2015 18:28 -
[](/tin-tuc/tin-moi)
## Tin Mới
[](/tin-tuc/tin-moi/loat-anh-thuc-te-lg-v10-khien-ban-ngat-ngay-33089)
### Loạt ảnh thực tế LG V10 khiến bạn ngất ngây
Thứ Sáu, 02/10/2015 18:28 -
[](/tin-tuc/tin-moi)
## Tin Mới
[](/tin-tuc/danh-gia-tu-van/so-sanh-cau-hinh-wing-vn50-asus-zenfone-c-samsung-galaxy-j1-va-oppo-joy-3-33088)
### So sánh cấu hình Wing VN50, Asus Zenfone C, Samsung Galaxy J1 và OPPO Joy 3
Thứ Sáu, 02/10/2015 17:58 -
[](/tin-tuc/danh-gia-tu-van)
## Đánh Giá – Tư Vấn
[](/tin-tuc/danh-gia-tu-van/ban-da-thuc-su-hieu-bo-doi-nexus-5x-va-nexus-6p-33087)
### Bạn đã thực sự hiểu bộ đôi Nexus 5X và Nexus 6P?
Thứ Sáu, 02/10/2015 17:35 -
[](/tin-tuc/danh-gia-tu-van)
## Đánh Giá – Tư Vấn
[](/tin-tuc/nguoi-dep-va-cong-nghe/nguoi-dep-duyen-dang-cung-wing-v45-tung-tang-dao-pho-32255)
![ Người đẹp duyên dáng cùng Wing V45 tung tăng dạo phố](/Uploads/Originals/2015/8/5/635743677594488535_wing_v45_5_8.jpg)
### Người đẹp duyên dáng cùng Wing V45 tung tăng dạo phố
Wing V45 là chiếc smartphone có thiết kế thời trang nổi bật với vẻ đẹp đơn giản...
[](/tin-tuc/nguoi-dep-va-cong-nghe/nong-bong-voi-nguoi-dep-ben-case-may-tinh-32201)
![ Nóng bỏng với người đẹp bên case máy tính](/Uploads/Originals/2015/8/3/635742212039380578_anh_dai_dien_1.jpg)
### Nóng bỏng với người đẹp bên case máy tính
In Win là một công ty sản xuất case máy tính nổi tiếng của Đài Loan. Sở hữu một...
[](/tin-tuc/nguoi-dep-va-cong-nghe/cosplay-sona-va-miss-fortune-day-quyen-ru-30561)
![ Cosplay Sona và Miss Fortune đầy quyến rũ](/Uploads/Originals/2015/7/6/635717994010412880_cos_play_lien_minh_3.jpg)
### Cosplay Sona và Miss Fortune đầy quyến rũ
Sona và Miss Fortune là hai tướng nữ đấy ấn tượng trong Liên Minh Huyền Thoại....
[](/tin-tuc/nguoi-dep-va-cong-nghe/giai-nhiet-mua-he-cung-lenovo-xinh-dep-30552)
![ Giải nhiệt mùa hè cùng Lenovo xinh đẹp](/Uploads/Originals/2015/7/6/635717977236450483_lenovo_4.jpg)
### Giải nhiệt mùa hè cùng Lenovo xinh đẹp
Hãy tận hưởng mùa hè sống động đầy màu sắc cùng Lenovo. Vẻ đẹp dịu dàng, trẻ...
## Bài được quan tâm
-
[Trực tiếp sự kiện ra mắt Bphone ngày 26/5](/tin-tuc/trends/truc-tiep-su-kien-ra-mat-bphone-ngay-26-5-27741)370
-
[Điện thoại Bphone và những điều cần biết](/tin-tuc/thong-tin-tham-khao/dien-thoai-bphone-va-nhung-dieu-can-biet-26565)218
-
[Đánh giá Samsung Galaxy J1 – Chiếc smartphone tầm trung thế hệ mới của Samsung](/tin-tuc/thong-tin-tham-khao/danh-gia-samsung-galaxy-j1-chiec-smartphone-tam-trung-the-he-moi-cua-samsung-29413)202
-
[Điện thoại với chỉ 199.000 đồng, FPT Shop làm “trùm giá rẻ”](/tin-tuc/tin-cap-nhat/fpt-shop-trum-gia-re-30204)195
-
[Chào đón năm mới cùng “Lumia Party – trả góp 0%” tại FPT Shop](/tin-tuc/Thong-tin-FPT-Shop/chao-don-nam-moi-cung-lumia-party-tra-gop-0-tai-fpt-shop-9567)134
-
[“Bảo Hành Vàng – Vào nước, rơi vỡ… vẫn được đổi mới” đã trở lại FPT Shop](/tin-tuc/tin-moi/bao-hanh-vang-tai-fpt-shop-22238)39
-
[Hướng dẫn tham gia chương trình "Giờ vàng giá sốc"](/tin-tuc/Thong-tin-FPT-Shop/huong-dan-tham-gia-gio-vang-gia-soc-6170)9
## Từ diễn đàn
-
[Tổng hợp những câu mà người dùng thường hỏi khi sử dụng iPhone và hướng khắc phục](/dien-dan/thu-thuat-huong-dan/tong-hop-nhung-cau-ma-nguoi-dung-thuong-hoi-khi-su-dung-iphone-va-huong-khac-phuc-29929)
0 trả lời | 502 xem
-
[Link tải Driver cho card màn hình AMD trên Windows 10](/dien-dan/thu-thuat-huong-dan/link-tai-driver-cho-card-man-hinh-amd-tren-windows-10-29928)
0 trả lời | 471 xem
-
[Cách kích hoạt bản quyền, chế độ Retail Demo Mode và reset Windows 10](/dien-dan/thu-thuat-huong-dan/cach-kich-hoat-ban-quyen-che-do-retail-demo-mode-va-reset-windows-10-29927)
0 trả lời | 366 xem
-
[Hướng dẫn thực hiện 8 thiết lập cần thiết trên Windows 10](/dien-dan/thu-thuat-huong-dan/huong-dan-thuc-hien-8-thiet-lap-can-thiet-tren-windows-10-29920)
1 trả lời | 400 xem
-
[Hướng dẫn tạo TechBench USB để nâng cấp lên Windows 10 - Phần 2](/dien-dan/thu-thuat-huong-dan/huong-dan-tao-techbench-usb-de-nang-cap-len-windows-10-phan-2-29918)
0 trả lời | 269 xem

Server: nginx

Content-Type: text/html; charset=utf-8

Vary: Accept-Encoding

Cache-Control: private

X-FIM: Enable


markdown:
Ngày 16 Tháng 8, 2007 | 05:00 PM
Cách cai sữa cho con đơn giản và hiệu quả
Khánh khỏe mạnh, ăn cháo và uống sữa ngoài rất ngon lành nhưng vẫn không muốn từ bỏ vú mẹ. Hễ chị Thanh, mẹ bé, đi làm về là con trai đã chạy ra ôm chặt lấy, vén áo lên một cách thành thạo và sục vào ti, dù sữa mẹ còn rất ít. Chị Thanh muốn cai sữa nhưng không thể thuyết phục được con, lại ngại thói khóc dai của bé. Chị bôi ớt, bôi dầu lên đầu ti nhưng chẳng ăn thua.
Một hôm, Thanh thử áp dụng phương pháp học được trên một diễn đàn: Lấy thỏi son đỏ thoa lên vú. Khi Khánh đòi ti, chị giả vờ nhăn nhó, rên rỉ và chỉ vào vết son, bảo con: "Mẹ đau quá, mẹ bị chảy máu đấy. Con thương mẹ thì đừng bú nữa nhé". Cậu bé lo lắng, rồi vì thương mẹ nên đồng ý thôi. Sau mấy lần muốn bú mà mẹ vẫn "chảy máu", Khánh dần dần hết nghiện vú mẹ.
Không chỉ chị Thanh mà nhiều bà mẹ khác cũng gặp khó khăn khi cai sữa, bởi trẻ không chịu rời vú mẹ. Tuy nhiên, cũng từ thực tế của mình mà họ rút ra nhiều bí quyết, và đây là những giải pháp được nhiều người áp dụng và có hiệu quả nhất:
Gửi con cho ông bà ít lâu để cách ly mẹ. Mẹ có thể đến thăm nhưng không ngủ lại. Nhiều gia đình thực hiện cách ly ngay tại nhà: Bố hoặc bà ngủ với bé, mẹ ngủ riêng. Cách này khá hiệu quả vì ban đêm, khi đi ngủ chính là lúc bé “lục tìm” vú mẹ nhiều nhất.
Bôi thuốc đắng, mướp đắng hoặc ớt vào đầu ti mẹ, trẻ ngậm vào thấy đắng, cay sẽ nhè ra. Theo bác sĩ Nguyễn Phạm Ý Nhi, Phó giám đốc Bệnh viện Xanh Pôn, Hà Nội, việc bôi một chút thuốc kháng sinh thông thường không ảnh hưởng xấu đến trẻ bởi liều rất thấp. Tuy nhiên, cần chú ý tránh các thuốc không dùng cho trẻ em. Bác sĩ Nhi cũng khuyến cáo không nên bôi các loại dầu xoa vì việc nuốt thuốc này vào có thể gây hại. Với ớt, chỉ nên dùng loại rất ít cay vì chất cay này có thể gây bỏng miệng trẻ.
Hoá trang cho ti mẹ: Có người lấy băng dính dán lên đầu ti, bảo là mẹ bị đau để bé không bú. Có bà mẹ dán thêm các sợi tóc rối hoặc lấy bút dạ đen vẽ loằng ngoằng lên đó, khiến trẻ sợ, không dám bú.
Một phương pháp có thể hiệu quả với bé này nhưng lại vô hiệu với bé kia. Và phải trải qua thực tế, người mẹ mới biết được cách nào phù hợp với con mình. Chẳng hạn, với những bé yếu bóng vía, nhạy cảm và tình cảm, việc “hoá trang” ti mẹ một cách quá lố sẽ có thể khiến trẻ bị sốc.
Những lưu ý khi cai sữa cho con
Với trẻ em, bú mẹ không đơn thuần là ăn uống mà còn là một trò chơi, một nhu cầu tình cảm. Vì vậy, theo bác sĩ Ý Nhi, không nên đột ngột ngừng hẳn việc cho con bú vì điều đó có thể khiến trẻ bị sốc và sinh biếng ăn. Tốt nhất là nên giảm từ từ, nếu vẫn cho bú 4-5 lần một ngày thì giảm thành 3, sau đó thành 2, rồi 1. Thay các bữa bú bằng những thức ăn khoái khẩu của trẻ. Và khi trẻ chịu ăn những món này, không nên tiếc lời khen để khuyến khích.
Khi ngừng hẳn việc cho bú, người mẹ sẽ thấy xót ruột vì bé có thể quấy khóc, hờn dỗi, bỏ ăn. Tuy nhiên, lúc này cần dứt khoát vì chỉ cần bạn mềm lòng cho bú lại, những lần cai sau này sẽ rất khó khăn. Từ lúc này, cũng không nên cho trẻ sờ ti bởi việc này sẽ gợi cơn thèm bú và tạo thói quen xấu.
Không nên cai sữa cho trẻ vào những ngày thời tiết xấu như trời quá nóng, quá ẩm hay quá rét, khi mà ngay cả người lớn cũng thấy mệt mỏi khó chịu. Sự thay đổi một thói quen ăn uống và các stress xuất hiện lúc này dễ làm trẻ ốm. Cũng nên tránh thời điểm trẻ bị ốm, mệt mỏi, sốt và đặc biệt là khi bị tiêu chảy (lúc này, hệ tiêu hoá còn yếu nên sữa mẹ là thức ăn an toàn nhất).
Ngành y tế khuyến cáo các bà mẹ cho con bú đến 24 tháng tuổi. Tuỳ vào hoàn cảnh, một số người có thể cai sữa sớm hơn. Tuy nhiên, việc cai trước 12 tháng sẽ gây thiệt thòi nhiều cho bé, bởi sữa mẹ không chỉ là nguồn dưỡng chất hoàn hảo mà còn chứa các kháng thể giúp bé phòng chống bệnh tật - những yếu tố mà thực phẩm khác không có được.
Theo Hải Hà
Vnexpress
2008 © BẢN QUYỀN THUỘC VỀ GIADINH.NET.VN - Báo Gia đình và Xã hội. BỘ Y TẾ - TỔNG CỤC DÂN SỐ - KẾ HOẠCH HÓA GIA ĐÌNH
Giấy phép số: 79/GP-TTĐT ngày 20/4/2011 của Cục Quản lý PTTH & TTĐT, Bộ TT&TT
Điện thoại: 04.22120681 | Fax: 04.8463556
Điện thoại báo in Gia đình và Xã hội: 043.8463567 – Fax: 043.8463556
Đường dây nóng: Hà Nội: 043.8235807 máy lẻ 24 - 0904852222
Đường dây nóng: TP HCM: 082.2405776
Toà soạn: 138A Giảng Võ, Ba Đình, Hà Nội
Email: toasoan@giadinh.net.vn
® Ghi rõ nguồn "Giadinh.net.vn" khi bạn phát hành lại thông tin từ website này


markdown:
## Chào mừng quý vị đến với Thư viện Giáo án điện tử.
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tư liệu của Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy
**hoặc** [đăng ký thành viên tại đây](#) [xem phim hướng dẫn tại đây](http://daotao.violet.vn/Data/Library/1/Index.html)
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay ô bên phải.
[Gốc](/)> [Toán học](/present/list/cat_id/1121)> [Toán 9](/present/list/cat_id/1145)>
##
Giáo án Tự chọn Toán 9 cả năm
(
*Tài liệu chưa được thẩm định*) **Nguồn:** **Người gửi:** [Nguyễn Duy Dương](/user/show/id/1283653)( [trang riêng](http://violet.vn/duyduc7606)) **Ngày gửi:**12h:21' 01-09-2009 **Dung lượng:**952.8 KB **Số lượt tải:**9027 **Số lượt thích:**1 người ( [Tăng Quỳnh Anh](/user/show/id/1931199))
Chủ đề I: Căn Bậc hai số học
Các phép tính về căn thức bậc hai
Tiết 1: Căn bậc hai - Hằng đẳng thức
Soạn: 22/8/2008 Dạy: 3/9/2008.
A. Mục tiêu:
- Củng cố lại cho học sinh các khái niệm về căn bậc hai , định nghĩa , kí hiệu và cách khai phương căn bậc hai một số .
- áp dụng hằng đẳng thức vào bài toán khai phương và rút gọn biểu thức có chứa căn bậc hai đơn giản. Cách tìm điều kiện để căn thức có nghĩa.
B. Chuẩn bị:
GV: Soạn bài , giải các bài tập trong SBT đại số 9 .
HS: Ôn lại các khái niệm đã học , nắm chắc hằng đẳng thức đã học .
Giải các bài tập trong SBT toán 9 ( trang 3 - 6 )
C. Tiến trình dạy - học:
Tổ chức lớp: 9A 9B
Kiểm tra bài cũ: (7ph)
Nêu định nghĩa căn bậc hai số học , hằng đẳng thức lấy ví dụ minh hoạ .
Giải bài 3 (a, c) trang 3 (SBT - Toán 9)
3. Bài mới: Căn bậc hai - Hằng đẳng thức
- GV treo bảng phụ gọi Hs nêu định nghĩa CBH số học sau đó ghi tóm tắt vào bảng phụ .
- Nêu điều kiện để căn có nghĩa ?
- Nêu hằng đẳng thức căn bậc hai đã học?
GV khắc sâu cho h/s các kiến thức có liên quan về CBH số học.
- GV ra bài tập 5 ( SBT - 4 ) yêu cầu HS nêu cách làm và làm bài . Gọi 1 HS lên bảng làm bài tập .
- Gợi ý : dựa vào định lý a < b
với a , b ( 0 .
GV hướng dẫn cho h/s cách tìm tòi lời giải trong từng trường hợp và khắc sâu cho h/s cách làm.
- Gv ra bài tập 9 yêu cầu HS chứng minh định lý .
- Nếu a < b và a, b > 0 ta suy ra
và a - b ?
Gợi ý : Xét a - b và đưa về dạng hiệu hai bình phương .
Kết hợp (1) và (2) ta có điều gì ?
- Hãy chứng minh theo chiều ngược lại . HS chứng minh tương tự. (GV cho h/s về nhà ) .
- GV ra tiếp bài tập cho h/s làm sau đó gọi HS lên bảng chữa bài . GV sửa bài và chốt lại cách làm .
Nêu điều kiện để căn thức có nghĩa .
- GV ra tiếp bài tập 14 ( SBT - 5 ) gọi học sinh nêu cách làm và làm bài . GV gọi 1 HS lên bảng làm bài .
Gợi ý: đưa ra ngoài dấu căn có chú ý đến dấu trị tuyệt đối .
- GV ra bài tập 15 ( SBT - 5 ) hướng dẫn học sinh làm bài .
- Hãy biến đổi VT thành VP để chứng minh đẳng thức trên .
- Gợi ý : Chú ý áp dụng 7 hằng đẳng thức đáng nhớ vào căn thức .
- Gợi ý:
+) Phần a, biến đổi về dạng bình phương để áp dụng hằng đẳng thức để khai phương .
+) Phần b, biến đổi VT VP bằng cách phân tích
= . . .
- Gọi h/s lên bảng trình bày lời giải sau 5 phút thảo luận trong nhóm.
- Nhận xét trình bày của bạn và bổ sung (nếu có) ?
- GV khắc sâu lại cách chứng minh đẳng thức.
I. Lí thuyết: (5ph
Các phép tính về căn thức bậc hai
Tiết 1: Căn bậc hai - Hằng đẳng thức
Soạn: 22/8/2008 Dạy: 3/9/2008.
A. Mục tiêu:
- Củng cố lại cho học sinh các khái niệm về căn bậc hai , định nghĩa , kí hiệu và cách khai phương căn bậc hai một số .
- áp dụng hằng đẳng thức vào bài toán khai phương và rút gọn biểu thức có chứa căn bậc hai đơn giản. Cách tìm điều kiện để căn thức có nghĩa.
B. Chuẩn bị:
GV: Soạn bài , giải các bài tập trong SBT đại số 9 .
HS: Ôn lại các khái niệm đã học , nắm chắc hằng đẳng thức đã học .
Giải các bài tập trong SBT toán 9 ( trang 3 - 6 )
C. Tiến trình dạy - học:
Tổ chức lớp: 9A 9B
Kiểm tra bài cũ: (7ph)
Nêu định nghĩa căn bậc hai số học , hằng đẳng thức lấy ví dụ minh hoạ .
Giải bài 3 (a, c) trang 3 (SBT - Toán 9)
3. Bài mới: Căn bậc hai - Hằng đẳng thức
- GV treo bảng phụ gọi Hs nêu định nghĩa CBH số học sau đó ghi tóm tắt vào bảng phụ .
- Nêu điều kiện để căn có nghĩa ?
- Nêu hằng đẳng thức căn bậc hai đã học?
GV khắc sâu cho h/s các kiến thức có liên quan về CBH số học.
- GV ra bài tập 5 ( SBT - 4 ) yêu cầu HS nêu cách làm và làm bài . Gọi 1 HS lên bảng làm bài tập .
- Gợi ý : dựa vào định lý a < b
với a , b ( 0 .
GV hướng dẫn cho h/s cách tìm tòi lời giải trong từng trường hợp và khắc sâu cho h/s cách làm.
- Gv ra bài tập 9 yêu cầu HS chứng minh định lý .
- Nếu a < b và a, b > 0 ta suy ra
và a - b ?
Gợi ý : Xét a - b và đưa về dạng hiệu hai bình phương .
Kết hợp (1) và (2) ta có điều gì ?
- Hãy chứng minh theo chiều ngược lại . HS chứng minh tương tự. (GV cho h/s về nhà ) .
- GV ra tiếp bài tập cho h/s làm sau đó gọi HS lên bảng chữa bài . GV sửa bài và chốt lại cách làm .
Nêu điều kiện để căn thức có nghĩa .
- GV ra tiếp bài tập 14 ( SBT - 5 ) gọi học sinh nêu cách làm và làm bài . GV gọi 1 HS lên bảng làm bài .
Gợi ý: đưa ra ngoài dấu căn có chú ý đến dấu trị tuyệt đối .
- GV ra bài tập 15 ( SBT - 5 ) hướng dẫn học sinh làm bài .
- Hãy biến đổi VT thành VP để chứng minh đẳng thức trên .
- Gợi ý : Chú ý áp dụng 7 hằng đẳng thức đáng nhớ vào căn thức .
- Gợi ý:
+) Phần a, biến đổi về dạng bình phương để áp dụng hằng đẳng thức để khai phương .
+) Phần b, biến đổi VT VP bằng cách phân tích
= . . .
- Gọi h/s lên bảng trình bày lời giải sau 5 phút thảo luận trong nhóm.
- Nhận xét trình bày của bạn và bổ sung (nếu có) ?
- GV khắc sâu lại cách chứng minh đẳng thức.
I. Lí thuyết: (5ph
↓ CHÚ Ý: Bài giảng này
**. Hệ thống** __được nén lại dưới dạng RAR và có thể chứa nhiều file__ **trong số đó, đề nghị các thầy cô KIỂM TRA KỸ TRƯỚC KHI NHẬN XÉT ↓** __chỉ hiển thị 1 file__
Sao bai j ma it ưa troi lun

Server: Apache/2.2.3 (CentOS)


markdown:
العربية
Azerbaijani
Català
Hrvatski
Čeština
Dansk
Nederlands
English
Estonian
Persian
Français
Deutsch
Magyar
Italiano
Norwegian
Português
Português
Română
Русский
Español
Svenska
Türkçe
Українська
Tiếng Việt
USD
VND
Đăng nhập
Lưu thông tin •
Quên mật khẩu?
Khách hàng mới?
Tạo tài khoản...
Twitter
Facebook
LinkedIN
Google +
YouTube
info@hkda.vn
+ 844 3259 5995
Menu
Trang chủ
Giới thiệu
Giới thiệu chung
Tầm nhìn & Sứ mệnh
Giá trị cốt lõi
Văn hóa doanh nghiệp
Ý kiến khách hàng
Dịch Vụ
Tên miền
Đăng ký tên miền
Tên miền Quốc tế
Quản lý tên miền quốc tế
Bảo mật thông tin tên miền
Tên miền Việt Nam
Quản lý tên miền Việt Nam
Chuyển tên miền về HKDA
Hosting
Hosting Linux
Hosting Windows
Hosting Java
XenForo Hosting
Cloud Hosting
Unlimited Hosting
Reseller Hosting Linux
Reseller Hosting Windows
Máy chủ
Cloud VPS
Cloud Server
Chỗ đặt máy chủ
Quản trị máy chủ
XenForo
WHMCS
Payment Gateways
Ngân Lượng
Bảo Kim
1Pay.vn Local Bank
Website
Thiết kế website
Nâng cấp website
Quản trị website
Tối ưu hoá website
Sao lưu website / CodeGuard
Quảng cáo trực tuyến
Email Marketing
Quảng cáo Google Adwords
Quảng cáo Facebook
Quảng cáo QR Code
Chứng chỉ SSL
Chứng chỉ Symantec SSL
Chứng chỉ Comodo SSL
Chứng chỉ Thawte SSL
Chứng chỉ GlobalSign SSL
Chứng chỉ GeoTrust SSL
Chứng chỉ Rapid SSL
Chứng chỉ Instant SSL
Chứng chỉ Positive SSL
Phân phối
Đĩa CD / DVD trắng
Bản quyền phần mềm
Bản quyền XenForo
Bản quyền vBulletin
Bản quyền cPanel/WHM
Bản quyền DirectAdmin
Bản quyền Parallels Plesk
Tài khoản trực tuyến
Tin tức
Tuyển dụng
Thông báo & Sự kiện
Khuyến mãi
Hợp tác
Chính sách đại lý
Chính sách chia sẻ doanh thu
Đối tác của chúng tôi
Hỗ trợ
Hệ thống hỗ trợ khách hàng
Hình thức thanh toán
Chính sách hoàn tiền
Chính sách khách hàng thân thiết
Bảo mật thông tin
Quy định sử dụng
Liên hệ
Search for:
Đăng nhập
Trang chủ
Đăng ký dịch vụ
Thông báo
Câu hỏi thường gặp
Tình trạng Server
Cộng tác viên
Liên hệ
Tài khoản
Đăng nhập
Đăng ký
Quên mật khẩu?
Địa chỉ Email
Mật khẩu
Lưu thông tin
Quên mật khẩu?
Powered by
WHMCompleteSolution
Copyright © 2009 - 2015 HKDA VIET NAM. All Rights Reserved.
Trang chủ
Giới thiệu
Tin tức
Điều khoản
Thanh toán
Quy định
Liên hệ


markdown:
|
|
## Mở thưởng thứ tư ngày 13/03/2013
|
|
## Đặc Biệt
|48660|
|
|
## Giải Nhất
|77155|
|
|
## Giải Nhì
|01183||02907|
|
|
## Giải Ba
|87258||14065||86027|
|02930||44677||71479|
|
|
## Giải Tư
|8158||6222||3174||0853|
|
|
## Giải Năm
|7851||2983||6077|
|8182||5827||3041|
|
|
## Giải Sáu
|698||581||972|
|
|
## Giải Bảy
|47||59||81||13|
|
|
## LôTô trực tiếp
|07||13||22||27||27||30||41||47||51|
|53||55||58||58||59||60||65||72||74|
|77||77||79||81||81||82||83||83||98|
|
|
## Đầu
|
|
## LôTô
|0||07|
|1||13|
|2||22; 27; 27|
|3||30|
|4||41; 47|
|5||51; 53; 55; 58; 58; 59|
|6||60; 65|
|7||72; 74; 77; 77; 79|
|8||81; 81; 82; 83; 83|
|9||98|
|
|
## Đít
|
|
## LôTô
|0||30; 60|
|1||41; 51; 81; 81|
|2||22; 72; 82|
|3||13; 53; 83; 83|
|4||74|
|5||55; 65|
|6|
|7||07; 27; 27; 47; 77; 77|
|8||58; 58; 98|
|9||59; 79|

Content-Type: text/html

Cache-Control: no-store, no-cache, must-revalidate, max-age=0

Via: 1.1 varnish

Server: cloudflare-nginx


markdown:
Watch Events
Broadcast Live
Search
Menu
␡
Watch Events
Broadcast Live
+1 (646) 490-1679
What is Livestream?
Help
Log in
Rıdvàn Bàş
... more info
Follow
Share
Tweet
Following
5
Rıdvàn Bàş hasn't created any events.
Follow Rıdvàn Bàş to be notified when they create a new event.
Contact Us
Help
What is Livestream?
Terms & Privacy
1 (877) 977-8732
©Livestream

Set-Cookie: _livestream_session_id=523b5ee40b7e94981208572ba17d20d1; path=/; expires=Mon, 05-Oct-2015 16:17:59 GMT; HttpOnly

X-Served-By: cache-jfk1020-JFK, cache-jfk1020-JFK, cache-iad2131-IAD, cache-iad2131-IAD

X-Cache: MISS, MISS, MISS, MISS

Cache-Control: no-cache, no-store, private, must-revalidate, max-age=0, max-stale=0, post-check=0, pre-check=0


markdown:
- Tên file:
- Xác định phía phải, phía trái của bản thân
- Phiên bản:
- N/A
- Tác giả:
- Lê Ngọc Thuỷ
- Website hỗ trợ:
- N/A
- Gửi lên:
- 07/12/2012 10:49
- Cập nhật:
- 07/12/2012 10:51
- Người gửi:
- admin
- Thông tin bản quyền:
- CM Ánh Dương - VT
- Dung lượng:
- 46.5KB
- Đã xem:
- 7644
- Đã tải về:
-
0
- Đã thảo luận:
- 1

Set-Cookie: nv3c_Ubefk_sess=0737a561f893b91bc0fcb0db5bfd69e7921873864; path=/; domain=.mamnonanhduong.edu.vn; HttpOnly

Cache-Control: private, pre-check=0, post-check=0, max-age=0

Content-Language: vi

Content-Encoding: x-gzip

X-Powered-By: PleskLin


markdown:
KARAOKEON
**lượt nghe** -Được tổng hợp dựa trên số liệu lượt nghe của người dùng trên cả desktop, mobile và smart TV
Vui lòng chọn cụ thể các mục bên dưới để thông báo cho Zing Mp3 biết vấn dề bạn gặp phải đối với bài hát này.
Để thông báo vi phạm bản quyền, vui lòng
[click vào đây](http://mp3.zing.vn/copyright/report) (To file a copyright infringement notification, please [click here](http://mp3.zing.vn/copyright/report))
Bài hát này không tải được vì lý do bản quyền
Trải nghiệm
**chất lượng âm thanh** tương tự nghe CD gốc với tài khoản **Zing MP3 VIP**.
Vui lòng gửi file .LRC (karaoke lyrics) của bài hát này cho chúng tôi.
[Xem hướng dẫn tạo karaoke lyrics ở đây!](#) ** sinh ra tại Huế, trong gia đình gồm 6 anh em và một người chị nuôi, Quang Lê** ** sinh ra tại Huế, trong gia đình gồm 6 anh em và một người chị nuôi, Quang Lê**
## Bình luận ()

X-Cache: HIT from Cache-MP3-5894


markdown:
### VIETTEL.COM.VN
|Domain:||
|
### Server Info
|IP-Address:||
|![](/images/flags/vn.gif)
### IP Map Location:
|
|
### Alexa Traffic Data
|
|
[Show Domain Variations](#)
|iettel.com.vn||ciettel.com.vn||biettel.com.vn|
|fiettel.com.vn||giettel.com.vn||vettel.com.vn|
|vuettel.com.vn||voettel.com.vn||v8ettel.com.vn|
|v9ettel.com.vn||vkettel.com.vn||vlettel.com.vn|
|vittel.com.vn||viwttel.com.vn||virttel.com.vn|
|vidttel.com.vn||vi3ttel.com.vn||vi4ttel.com.vn|
|visttel.com.vn||vietel.com.vn||viertel.com.vn|
|vieytel.com.vn||vieftel.com.vn||viegtel.com.vn|
|vie5tel.com.vn||vie6tel.com.vn|
|vietrel.com.vn||vietyel.com.vn||vietfel.com.vn|
|vietgel.com.vn||viet5el.com.vn||viet6el.com.vn|
|viettl.com.vn||viettwl.com.vn||viettrl.com.vn|
|viettdl.com.vn||viett3l.com.vn||viett4l.com.vn|
|viettsl.com.vn||viette.com.vn||viettek.com.vn|
|vietteo.com.vn||viettei.com.vn||viettelcom.vn|
|viettel.om.vn||viettel.xom.vn|
|viettel.vom.vn||viettel.dom.vn||viettel.fom.vn|
|viettel.cm.vn||viettel.cim.vn||viettel.cpm.vn|
|viettel.c0m.vn||viettel.c9m.vn||viettel.clm.vn|
|viettel.co.vn||viettel.con.vn||viettel.coj.vn|
|viettel.cok.vn||viettel.comvn|
|viettel.com.n||viettel.com.cn||viettel.com.bn|
|viettel.com.fn||viettel.com.gn||viettel.com.v|
|viettel.com.vm||viettel.com.vb||viettel.com.vh|
|viettel.com.vj||ivettel.com.vn||veittel.com.vn|
|vitetel.com.vn||viettel.com.vn||vietetl.com.vn|
|viettle.com.vn||viette.lcom.vn||viettelc.om.vn|
|viettel.ocm.vn||viettel.cmo.vn||viettel.co.mvn|
|viettel.comv.n||viettel.com.nv||iviettel.com.vn|
|veiettel.com.vn||vitettel.com.vn||vietttel.com.vn|
|vietetel.com.vn||viettlel.com.vn||viette.l.com.vn|
|viettelc.com.vn||viettel.ocom.vn||viettel.cmom.vn|
|viettel.co.m.vn||viettel.comv.vn||viettel.com.nvn|
|vviettel.com.vn||viiettel.com.vn||vieettel.com.vn|
|vietteel.com.vn||viettell.com.vn||viettel..com.vn|
|viettel.ccom.vn||viettel.coom.vn|