markdown:
*Đại biểu Vũ Thị Nguyệt chất vấn bộ trưởng tại hội trường ngày 15/11.* **Xử lý hình sự nếu cố tình vi phạm** *Tôi rất lo ngại khi mà cơ quan nhà nước chỉ quyết chủ trương còn lại do chủ đầu tư thực hiện. Nói công nghệ không phù hợp thì vai trò của Bộ Khoa học và Công nghệ đến đâu, trách nhiệm của Bộ Tài chính đến đâu trong quản vốn, không thể khoán trắng đến khi thua lỗ thì lại báo cáo Quốc hội”- ĐBQH Nguyễn Tiến Sinh.*
Bộ trưởng Bộ Công thương là người đăng đàn đầu tiên trả lời chất vấn. Mở màn, ĐB Nguyễn Tiến Sinh (Hòa Bình) đề nghị Bộ trưởng làm rõ hơn sai phạm liên quan đến 5 dự án thua lỗ hơn 30 ngàn tỷ gồm: Xơ Sợi Đình Vũ, Gang thép Thái Nguyên, Bột giấy Phương Nam, Đạm Ninh Bình, Nguyên liệu sinh học Ethanol Dung Quất. “Đâu là trách nhiệm của cơ quan quản trị doanh nghệp và đâu là trách nhiệm của cơ quan quản lý nhà nước?” - ông Sinh nói.
Trả lời, Bộ trưởng Trần Tuấn Anh cho biết: 5 dự án này đều được đầu tư từ năm 2003 đến năm 2008 và kéo dài đến nay. Từng dự án cụ thể do đặc thù nên diễn biến khác nhau, đánh giá chung tổng thể thì rất khó. Nhưng có điểm chung là đều kéo dài so với thời hạn đã được phê duyệt, có dự án như Đạm Ninh Bình không quyết toán được dù nhà máy đã vận hành. Điểm chung là các dự án đều được đầu tư trong thời gian thị trường thế giới có biến động, tác động rất mạnh vào hiệu quả và tính khả thi các dự án. Theo Bộ trưởng Trần Tuấn Anh, nguyên nhân là do năng lực chủ đầu tư các tập đoàn, tổng công ty nhà nước, nhất là các ban quản lý dự án còn hạn chế. Hay như năng lực của chúng ta trong đàm phán, ký kết thực hiện dự án liên quan khả năng thực hiện của các nhà thầu. Quá trình thực hiện có vướng mắc, đòi hỏi sự can thiệp của cơ quan quản lý nhà nước nhưng giải pháp chưa hiệu quả do nhiều lý do. Phải đánh giá đầy đủ khách quan, chủ quan, căn cứ pháp lý để làm rõ trách nhiệm. Tuy nhiên, nguyên tắc chỉ đạo của Chính phủ là các giải pháp cần được nghiên cứu xem xét tổng thể, đảm bảo mục tiêu bảo vệ vốn, lợi ích tài sản nhà nước và doanh nghiệp. Các giải pháp đưa ra phải dựa trên kinh tế thị trường phù hợp với hội nhập và cam kết quốc tế.
Cũng theo Bộ trưởng Trần Tuấn Anh, sau kỳ họp Quốc hội này Chính phủ sẽ có hướng giải quyết triệt để. Việc xử lý trách nhiệm và rút ra bài học để không xảy ra tình trạng tương tự. Tuy vậy cần làm thận trọng, đánh giá đúng, đầy đủ theo quy định pháp lý, nhất là từng giai đoạn khác nhau, xem xét trách nhiệm các cấp quản lý của Nhà nước, doanh nghiệp, chủ đầu tư, tổ chức, cá nhân trong đó phân định làm rõ nguyên nhân khách quan và chủ quan, vô tình hay cố tình.
Đưa ra giải pháp, Bộ trưởng Trần Tuấn Anh cho rằng: Trong thời gian tới doanh nghiệp nhà nước cần đổi mới mô hình quản trị, thực hiện quản lý với nguồn vốn mà Nhà nước chủ sở hữu, làm rõ khung pháp lý và chủ trương phát triển vai trò doanh nghiệp nhà nước, rồi vai trò các bộ quản lý của nhà nước, đặc biệt trong quy hoạch cần đổi mới phương thức quản lý và chất lượng công tác quản lý, nhân lực để xây dựng quy hoạch chiến lược và thực hiện chiến lược.
Không đồng tình, ông Sinh cho rằng “Bộ trưởng chưa trả lời trách nhiệm quản lý nhà nước gây ra thua lỗ thì Bộ làm rõ đến đâu và quản trị doanh nghiệp thế nào?”
Giải trình tiếp, theo Bộ trưởng Trần Tuấn Anh, 5 dự án nói trên kéo dài đã lâu, từ lúc chưa có vai trò của bộ chủ quản nên đánh giá nguyên nhân, trách nhiệm cần có thời gian. Bởi trước đây là giao cho các tập đoàn, tổng công ty quản lý, còn sau năm 2012 mới thực hiện chế độ Bộ chủ quản nên sẽ được xem xét làm rõ trách nhiệm. Còn quản trị doanh nghiệp thì sẽ xem xét trong khuôn khổ pháp luật xem làm sai cố ý hay vô tình. Hiện một số dự án còn đang tiếp tục thanh tra, phải có thời gian mới xử lý triệt để.
**Bộ trưởng Trần Tuấn Anh: ** *“Không loại trừ cố tình làm sai, làm không đúng trong quản trị doanh nghiệp, dự án. Một số dự án đã có kết luận của Thanh tra Chính phủ, có dự án có kết luận của Kiểm toán Nhà nước, có dự án có kết luận của Thanh tra Bộ Tài chính, Bộ sẽ tổng hợp báo cáo Chính phủ và sau đó báo cáo đại biểu Quốc hội. Nếu cố tình sai phạm thì chắc chắn xem xét trách nhiệm, kể cả hình sự”.* **Nhiều nơi không biết thông tin thủy điện xả lũ vì...mất điện**
Nhiều ĐB bày tỏ bức xúc trước việc thủy điện xả lũ gây thiệt hại cho người dân. ĐB Trần Thị Dung (Điện Biên) cho rằng, chưa bao giờ tính mạng con người lại mong manh đến thế. Thủy điện Hố Hô, An Khê- Ka Nak bất ngờ xả lũ gây ngập lụt, khiến người dân thiệt hại. Bộ trưởng sẽ xử lý thế nào? Trách nhiệm sai phạm đến đâu, bao giờ người dân được đền bù. Bất cập xoay quanh vận hành cái gọi là đúng quy trình có được loại bỏ không? Giải pháp của Bộ trưởng thế nào?
Trả lời, Bộ trưởng Trần Tuấn Anh cho biết: Về cơ bản chúng ta đã khai thác hết các tiềm năng thủy điện lớn của đất nước, các dự án thủy điện nhỏ và vừa đã thực hiện theo Nghị quyết 62 của Quốc hội để xem xét, đánh giá lại và đưa ra khỏi quy hoạch những dự án không đảm bảo làm ảnh hưởng đến môi trường và đời sống xã hội của nhân dân. Hiện có hơn 336 các dự án thủy điện, qua quá trình phát triển thì chức năng quản lý nhà nước về thủy điện được phân bổ cho các Bộ ngành như Bộ Công thương là chủ đạo trong quản lý nhà nước về vấn đề năng lượng và thủy điện; còn các Bộ như: Xây dựng; Tài nguyên và Môi trường, Nông nghiệp và Phát triển nông thôn cũng tham gia quản lý trong các khía cạnh khác.
Theo Bộ trưởng Trần Tuấn Anh, có thực tế tồn tại trong thời gian qua là các đập khi xả lũ thường gây ra bức xúc trong nhân dân và dư luận xã hội. Qua quá trình kiểm tra, Bộ Công thương thấy rằng quy trình của chúng ta có nhưng việc chấp hành quy trình nhiều khi còn máy móc, nguyên tắc.
Về giải pháp trong thời gian tới, Bộ trưởng Trần Tuấn Anh cho biết, tới đây Bộ sẽ đánh giá lại toàn bộ chất lượng quy trình xả lũ cũng như các phương án tham gia phòng chống lụt bão vùng hạ du; làm rõ trách nhiệm kể cả chính quyền địa phương các cấp cũng như chủ đập thực hiện nghiêm các chế tài. Các doanh nghiệp mà thực hiện không đúng sẽ không cho tham gia hoạt động điện lực và sẽ rút phép các dự án đó.
Bà Dung tiếp tục tranh luận: Vấn đề này không mới và cho đến nay ngày càng trầm trọng hơn. 5 giờ chiều mới thông báo thì người dân không biết đi đâu và nước ngày càng dâng cao vậy bà con đi đâu?
Trước vấn đề này, trả lời về việc Bí thư tỉnh không biết, Bộ trưởng Trần Tuấn Anh cho hay: Vì chủ nhà máy thủy điện báo cho Ủy ban phòng chống lụt bão tại địa phương. Do mất điện nên thông tin không đến được Chủ tịch các xã tại địa phương. Quy trình này cho thấy có vấn đề vì vậy chắc chắn thời gian tới Bộ sẽ đánh giá lại toàn bộ tất cả việc xây dựng thẩm định phê duyệt quy trình xả lũ cũng như quy định pháp lý liên quan đến đảm bảo an toàn của địa phương khi các thủy điện xả lũ ở hồ thủy điện và tham gia phòng chống lụt bão ở địa phương và sẽ báo cáo tới các ĐBQH.
Liên quan đến vấn đề vỡ đường ống dẫn thủy điện sông Bung 2 mà ĐB Phan Thái Bình (Quảng Nam) đặt ra, Bộ trưởng Trần Tuấn Anh cho rằng, đây là sự cố đáng tiếc. Ngay sau khi xảy ra sự cố Bộ Công thương đã thành lập đoàn kiểm tra do một Thứ trưởng làm trưởng đoàn. Qua kiểm tra phát hiện có dấu hiệu cho thấy vấn đề thiết kế và giám sát thi công. Hiện Bộ đang chỉ đạo EVN và địa phương làm rõ nhưng đang đợi khi bớt lũ mới xét nghiệm và đánh giá được, cho nên xin báo cáo Quốc hội sau nhưng chắc chắn sẽ có trách nhiệm trong xử lý và hướng khắc phục.
**Bộ trưởng Trần Hồng Hà: ** *"Về sự cố Formosa, Bộ Tài nguyên và Môi trường là cơ quan chịu hoàn toàn trách nhiệm. Sau khi xác định, chỉ ra được các vi phạm của Formosa, chỉ ra các nguyên nhân cũng như nguồn gây ô nhiễm và có nguy cơ gây ra sự cố ô nhiễm môi trường chúng ta đã xác định rõ và tập trung vào 3 nhóm, thứ nhất liên quan đến nước thải, nhóm hai là khí thải và nhóm ba là chất thải rắn, các vấn đề về công nghệ sản xuất, quy trình và công nghệ xử lý".* **Giám sát chất thải của Formosa 24/24 **
Buổi chiều, Bộ trưởng Bộ Tài nguyên và Môi trường Trần Hồng Hà đăng đàn chất vấn. Vấn đề Formosa gây ô nhiễm môi trường vậy biện pháp nào để xử lý ô nhiêm trong thời gian tới và giám sát Formosa không gây ô nhiễm nữa được nhiều ĐB đề cập yêu cầu Bộ trưởng Hà làm rõ. Theo ông Phương, việc đền bù hỗ trợ cho các hộ dân do Formosa gây ra chỉ mới áp dụng đối với 7 đối tượng và 6 tháng. Có nhiều điểm chưa hợp lý đặc biệt để sót một đối tượng như: Dịch vụ du lịch, dịch vụ kinh doanh buôn bán hải sản, đơn vị thu mua chế biến thủy hải sản gây băn khoăn khiếu kiện làm cho tình hình phức tạp thêm gây sức ép đến cán bộ thôn. Vậy Bộ trưởng giải quyết vấn đề tồn đọng này như thế nào?
Theo ĐB Phạm Tất Thắng (Vĩnh Long) sự cố Formosa gây ra đã gióng lên hồi chuông cảnh tỉnh về vấn đề này, các dự án đều có báo cáo đánh giá tác động môi trường được phê duyệt nhưng có trường hợp báo cáo dự án này lại có tên công trình khác. Vừa qua cử tri lo lắng khi trong phiên thảo luận về kinh tế-xã hội, Bộ trưởng cho biết khả năng chịu đựng môi trường của chúng ta đã giới hạn. Vậy Bộ trưởng cho biết trách nhiệm của Bộ trưởng trong quản lý nhà nước và giải pháp khắc phục trong thời gian tới?
Trả lời, Bộ trưởng Trần Hồng Hà cho biết: Đây là nhiệm vụ mà Bộ Chính trị, Chính phủ và các địa phương đặc biệt quan tâm. Trước tiên là chúng ta đã dồn sức giải quyết hậu quả do sự cố gây ra cũng như quan tâm đời sống của người dân trước mắt và lâu dài. “Bộ đã thành lập đoàn liên ngành gồm nhà khoa học của các Viện có uy tín để cùng nhau xem xét và đánh giá kế hoạch để yêu cầu doanh nghiệp có biện pháp khắc phục và lộ trình xử lý cụ thể. Tổ công tác do Viện Hàn lâm khoa học và công nghệ trực tiếp phối hợp với Bộ Tài nguyên và Môi trường thành lập một Ban trực tiếp giám sát 24/24 về chất lượng nước thải khí thải và quản lý chất thải rắn của Formosa”-Bộ trưởng Trần Hồng Hà cho hay.
Về biện pháp xử lý trong thời gian tới, Bộ trưởng Trần Hồng Hà cho biết: Về quy chuẩn, nếu quy chuẩn Việt Nam chưa có thì áp dụng mức cao nhất của quốc tế. Còn chúng tôi tập trung vào vấn đề công nghệ xử lý đối với nước thải thì đối với tất cả các khâu nước thải sinh hoạt, nước thải công nghiệp và sinh hóa phát sinh từ các nguồn thải nhà máy luyện cốc, hay cảng của Formosa thì đều được xem xét và có quy trình xử lý cụ thể. Kèm theo là luôn luôn tính toán nếu xảy ra sự cố thì có các biện pháp phòng ngừa sự cố, tức là có hồ để xử lý sự cố và cá nguồn thải được kiểm soát chặt chẽ bằng các thiết bị tự động quan trắc đầy đủ các thông số và được chuyển thẳng về Sở Tài nguyên và Môi trường Hà Tĩnh cũng như Bộ Tài nguyên và Môi trường.
Chúng tôi có tính toán tồn tại về công nghệ sản xuất trong giai đoạn từ nay đến năm 2018 Formosa mới hoàn thành nên có yêu cầu các nguồn có khả năng gây ra ô nhiễm môi trường như khí thải thì yêu cầu tái tuần hoàn xử lý nước luyện cốc kèm theo các chất nguy hại và cuối đường ống yêu cầu có bồn sinh học rộng hơn 10ha được giám sát chất lượng để đáp ứng được quy chuẩn về môi trường, và kèm theo các quy chuẩn đó là đặt ra nghiêm ngặt hơn áp dụng các quy chuẩn với nguồn thải cuối cùng.
Để đảm bảo tính bền vững theo Bộ trưởng Trần Hồng Hà, Bộ đã thiết kế hệ thống giám sát toàn diện vấn đề môi trường biển ở 4 địa phương. Hệ thống này giám sát tự động các thông số và có thể hoàn toàn kiểm soát được nguồn thải của Formosa từ khí thải cho đến nước thải. Còn riêng về chất thải rắn và bùn thải nguy hại, Bộ đã yêu cầu Formosa trong thời gian chưa ký hợp đồng với doanh nghiệp có đầy đủ năng lực, điều kiện để xử lý thì lưu giữ trong kho theo đúng quy định hiện nay về quản lý đối với chất thải công nghiệp và nguy hại, đồng thời phối hợp với Hà Tĩnh để thúc đẩy tiến độ đầu tư các nhà máy xử lý chất thải công nghiệp cũng như chất thải nguy hại.
**ĐBQH Trần Thị Dung (Điện Biên): Những người thực hiện quy trình xả lũ phải thấy trách nhiệm trước dân** *Nghe phần trả lời của Bộ trưởng Công thương Trần Tuấn Anh về thủy điện Hố Hô, An Khê-Ka Nak xả lũ gây thiệt hại cho người dân, ĐB Trần Thị Dung (Điện Biên) nói: Tôi chưa đồng tình với trả lời của Bộ trưởng Công thương. Năm 2013 chính tôi đã chất vấn về vấn đề này khi đó chính là thủy điện An Khê, thời gian thông báo cho đến người dân thì người dân không biết gì. 5 giờ chiều mới xả lũ và 3 bề 4 bên là lũ người dân không biết đi đâu về đâu. Chính quyền cơ sở thì bắc loa gọi bà con hãy leo lên chỗ cao nhất. Tôi rất đau lòng chính vì thế tôi mới phải chất vấn và cho đến nay thì tình hình chưa khả quan hơn.* **ĐB Nguyễn Thị Kim Thúy (Đà Nẵng): Muốn nhận được câu trả lời thỏa đáng ** *Bộ trưởng trả lời như vậy chưa thuyết phục, chưa đi vào câu hỏi. Ý tôi muốn nói là Bộ trưởng đánh giá cam kết trước đây của Bộ Công thương về vấn đề này thế nào, hay nói cách khác là trách nhiệm của Bộ ở đây ra sao để từ đó tìm ra giải pháp?- ĐBQH Thúy nêu ví dụ, ngay cam kết trước đây và báo cáo gửi đoàn giám sát, gửi Thường vụ Quốc hội năm 2014, Bộ Công thương đã có kiến nghị xin giảm đầu tư hồ chứa bùn đỏ trong dự án bauxite Nhân Cơ vì thiết kế có độ an toàn quá cao, tôi thấy vấn đề này không logic. Khi duyệt thiết kế hồ sơ bùn đỏ này Bộ Công thương căn cứ vào tiêu chuẩn nào để phê duyệt mà bây giờ báo cáo đoàn giám sát cho rằng tiêu chuẩn quá cao, xin giảm xuống? Trong khi chúng ta biết rằng, trên thế giới, người ta sợ nhất bùn đỏ trong sản xuất nhôm từ bauxite vì nó chứa độ kiềm cao đến 12pH, mà công nghệ trên thế giới hiện nay lại chưa giải quyết được. Tôi mong muốn có được câu trả lời thỏa đáng.* **ĐB Nguyễn Ngọc Phương (Quảng Bình): Khá hài lòng với trả lời của Bộ trưởng Bộ Tài nguyên & Môi trường** *Theo ông Phương “trả lời này không phải trả lời cho bản thân tôi mà Bộ trưởng đã thổi niềm tin của Bộ trưởng đến người dân Quảng Bình nói chung và nhân dân các tỉnh miền trung nói chung, cũng như cử tri cả nước quan tâm đến vấn đề Formosa sả thải thời gian vừa qua”.* *Còn về vấn đề xử lý trách nhiệm quản lý Nhà nước vụ Formosa, ông Phương cho biết, Bộ trưởng Trần Hồng Hà đã có trả lời bằng văn bản gửi đến Đoàn ĐBQH tỉnh Quảng Bình. Trong văn bản, Bộ trưởng có nói rằng, sẽ có những giải pháp để quy trách nhiệm và xử lý, cũng như nêu ra những nguyên nhân trậm trễ trong việc xử lý trách nhiệm. Trong đó, có nói do tính chất phức tạp nên cần thời gian để điều tra.* ** H.M-T. Dương** * (ghi)* ** H.Vũ- M.Loan**
Từ khóa
chất vấn trách nhiệm bộ trưởng cam kết xem xét

X-Cache: MISS from xCache11-01


markdown:
**Cảm giác rơi từ trên cao**
Đây còn được gọi là chứng giật hypnagogic thường xảy ra khi ai đó đang ngủ. Đôi khi bạn bắt đầu mơ trước thời điểm cơ thể ở chế độ nghỉ ngơi. Vì thế, bạn có cảm giác như thể như rơi xuống một vách đá, từ bầu trời, hoặc vấp ngã. Nguyên nhân là bạn đang mệt mỏi, thiếu ngủ hoặc stress. Khi đó, bộ não đi vào chu kỳ giấc ngủ tích cực hơn, nhưng cơ thể không bắt kịp.
**Bóng đè**
Trước khi đột nhiên tỉnh ngủ, bạn nhận ra rằng mình không thể di chuyển cơ bắp hay nói chuyện. Điều này có thể kéo dài từ vài giây đến vài phút khiến bạn thực sự sợ hãi. Nguyên nhân là do bộ não của bạn thức dậy trước, trong khi cơ thể vẫn chưa thoát khỏi giấc ngủ sâu, các cơ tê liệt và cảm thấy như không thể thở được. Nhiều người mô tả nó như là một con voi ngồi trên ngực của họ. Đó là bởi vì tất cả các cơ bắp kiểm soát hơi thở ngoại trừ cơ hoành vẫn còn bị tê liệt.
**Mộng du**
Hầu hết các hành vi liên quan đến giấc ngủ là vô hại, nhưng mộng du có thể là một vấn đề nguy hiểm, vì bạn có thể vấp ngã, đi bộ vào một nơi nào đó, rời khỏi nhà và thậm chí lái xe trong tình trạng nửa tỉnh nửa mơ. Với cơn mộng du, bạn thoát khỏi giấc ngủ vừa đủ cho cơ thể di chuyển, nhưng không đủ cho não tỉnh táo. Do đó, nếu bạn bị mộng du và thường làm những điều bất thường vào ban đêm khi đang ngủ, nhất là khi đã dùng thuốc ngủ thì hãy nói chuyện với bác sĩ.
**Nói mơ**
Khoảng 5% người lớn nói mơ trong giấc ngủ của họ, theo Học viện Giấc ngủ Mỹ và hầu hết chỉ kéo dài khoảng 30 giây. Nó thường xảy ra trong vòng 1-2 giờ đầu tiên của giấc ngủ khi cơ thể bạn bước vào giai đoạn ngủ sâu, nhưng vẫn có đủ cơ bắp để phát âm thanh hay những chuyển động mà có thể đi cùng những giấc mơ.
**Ngủ mơ**
Mơ ngủ là một cách để não của bạn sắp xếp những thứ nó cần phải đánh giá lại và có thể lưu chúng lại như ký ức. Thường xuyên ngủ mơ có thể xảy ra do các vấn đề tâm lý chưa được giải quyết và não của bạn đang cố gắng để sắp xếp chúng. Thông thường, những giấc mơ kỳ lạ dựa trên một phần thực tế.
**Mơ về sex **
Trong một nghiên cứu của hơn 800 bệnh nhân tại Trung tâm Rối loạn giấc ngủ, khoảng 8% bệnh nhân cho biết họ mơ về quan hệ tình dục trong khi ngủ, theo các nhà nghiên cứu tại Đại học Health Network tại Toronto. Thái độ, hành vi, và những điều mọi người có thể nói trong giấc mơ này thường rất khác với những gì họ nói và làm khi hoàn toàn tỉnh táo. Đây là tình trạng cận giấc ngủ. Hiện tượng này tương tự như mộng du.
**Hội chứng “đầu nổ tung”**
Hội chứng “đầu nổ tung” là hiện tượng thường xảy ra khi con người ta thức dậy hoặc đi ngủ. Hội chứng gây ra cảm giác đầu đang “bùng nổ” bởi những tiếng động lớn đột ngột mà không có bất cứ nguyên nhân nào tác động từ bên ngoài.
Tuy không gây ra đau đớn nhưng những tiếng ồn có thể gây ra nỗi sợ hãi, hoang mang và lo lắng cho người bệnh bởi chính bản thân họ không thể lý giải vì sao mình lại có các triệu chứng này.
Đó là một loại giật hypnagogic, tương tự như cảm giác như bạn đang bị rơi từ trên cao bởi bạn đang hướng về giấc ngủ sâu trong khi cơ thể và các giác quan vẫn đang hoạt động.

WARC-Type: response

Content-Type: application/http; msgtype=response

WARC-Identified-Payload-Type: application/xhtml+xml

X-Cache: MISS from cache30

Cache-Control: private

Vary: Accept-Encoding

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


markdown:
*Giống cam V2 giúp "hồi sinh" vựa cam Văn Chấn. Ảnh: vuongiongcay.*
Là một trong những vựa cam lớn của khu vực miền Bắc nhưng vùng cam Văn Chấn cũng từng có thời gian dài đối mặt với nguy cơ lụi tàn khi có dấu hiệu thoái hóa giống, sâu bệnh tấn công, năng suất thu hoạch thấp, chất lượng quả không cao...
Để duy trì, phát triển diện tích vườn cam rộng tới hơn 1.000 ha, năng suất hơn 10.000 tấn quả mỗi năm, ngoài hợp thổ nhưỡng, khí hậu, kỹ thuật trồng và chăm sóc cây, việc phá bỏ vườn cam cũ, thí điểm giống cam mới V2 được coi là yếu tố bước ngoặt giúp vùng cam Văn Chấn phát triển.
Cây cam vốn được trồng ở Văn Chấn từ những năm 90 của thế kỷ trước. Những năm đầu của quá trình sinh trưởng, cam phát triển tốt, cho quả mọng, vỏ mỏng, vàng óng và múi có vị ngọt đặc trưng. Tuy nhiên, chỉ sau vài năm, cây xuất hiện dấu hiệu bị sâu bệnh, sau đó, một số bị cỗi và chết; số còn lại cho năng suất thấp, chất lượng quả không đồng đều.
Nguyên nhân bắt nguồn từ việc người dân địa phương tại vùng miền núi này có thói quen tự tạo giống cây, hoặc xin giống không rõ nguồn gốc về để trồng khiến các vựa cam bị thoái hóa nhanh. Để cứu vãn các vườn cam này, bà con cũng áp dụng nhiều biện pháp nhưng không thu được kết quả khả quan.
Năm 2010, Viện di truyền nông nghiệp chọn tạo thành công giống cam V2 từ giống cam Valencia Olinda, làm sạch bệnh qua vi ghép, sinh trưởng tốt và cho năng suất cao hơn cả giống gốc. Giống cam này cũng được Bộ Nông nghiệp và Phát triển nông thôn công nhận là giống chính thức.
Sau khi được đưa vào trồng thử nghiệm trên đất đồi Văn Chấn theo đúng kỹ thuật, cam V2 phát triển tốt, cho sản lượng cao, đồng đều, chất lượng quả thơm ngon gấp nhiều lần so với các loại cam trước đó của địa phương. Nhận thấy tiềm lợi kinh tế từ cam V2, bà con đã mạnh dạn phá bỏ các vườn cam cũ để trồng giống mới.
Đến nay, Văn Chấn đã phát triển hàng trăm ha cam V2, cho quả đạt chất lượng quanh năm. Anh Trần Hồng Ngọc - một trong những người sở hữu diện tích trồng cam lớn của khu vực thị trấn nông trường Trần Phú cho biết, giống cam V2 sinh trưởng khỏe hơn các loại cam cũ, ít sâu bệnh, cần ít phân bón với các giống cam trước đây lại cho sản lượng và chất lượng cao hơn.
Cam V2 chín muộn vào dịp cuối năm, hình thức quả đẹp, nước cam vàng, thơm và dễ bảo quản. Khi cam chín, có thể bảo quản luôn quả ở trên cây hoặc cả tháng sau thu hái mà vẫn giữ được độ tươi ngon. Điều này khiến bà con thêm tự tin duy trì và phát triển các vườn cam V2 trên địa bàn.
Theo Vân Anh (VnExpress)


markdown:
Và đôi khi chia ly cũng là một con đường sẽ hữu ích hơn sự cố chấp, gắng gượng gìn giữ trong khổ đau. Rồi khi buồn tủi, oán trách và vấp ngã đã đủ để trưởng thành, con người sẽ hiểu được, điều mà ta mong mỏi, chỉ là sự an yên, cho tất cả!
Cô biết có một ngày rồi chúng ta cũng sẽ gặp nhau, vì người đàn ông cháu gọi là "cha" và cô gọi là "nửa yêu thương của đời mình". Ngày ấy, có lẽ sẽ đến khi cháu đã xinh đẹp hơn, còn cô đã trưởng thành hơn bây giờ rất nhiều.
Giữa hai chúng ta sẽ trở thành một mối quan hệ có lẽ sẽ tốt đẹp được hoặc cũng có thê không. Cô mong cháu sẽ hiểu, mọi điều đều là do duyên số, chứ không phải là ai đã cướp đi niềm hạnh phúc của những ai.
Chỉ là cô mong vậy để một ngày nào đó nếu có chạm mặt và bắt buộc phải chung sống cùng dưới một mái nhà, chúng ta sẽ đối diện và đối xử với nhau bằng thứ tâm thế nhẹ nhàng và chân thật nhất.
Cô cũng như cháu, cũng có một người đàn ông vĩ đại và tuyệt vời nhất đời mình, đó chính là "người cha", và cô chưa từng muốn sẻ chia người đàn ông ấy với người đàn bà nào khác không phải là mẹ mình.
Cô hiểu được cháu cũng sẽ như vậy, và nếu như có một người nào đó muốn dành lấy người đàn ông ấy khỏi người đàn bà đã sinh ra mình, cháu nhất định sẽ căm ghét, đó là lẽ thường ở đời, cô cũng dễ dàng để hiểu được.
*Ảnh minh họa. *
Cô bé ạ, ngày cô còn giống như cháu bây giờ, cô chưa từng nghĩ đến chuyện, liệu rằng người cha của mình có còn hạnh phúc không? Cảm giác yêu thương trong con người họ liệu có còn ở lại trong nơi cháu gọi là "mái ấm" không?
Chính vì chúng ta còn quá bé để có thể hiểu được những nỗi niềm trong trái tim ấy, chúng ta chỉ luôn khao khát để có được điều gì đó trọn vẹn, và nghĩ rằng những người đã sinh ra ta nhất định phải có trách nhiệm với mong ước ấy. Đó là nỗi đau đớn của những người trưởng thành, là sự tổn thương đối với tâm hồn những đứa trẻ thơ.
Cô bé ạ, cô sẽ không nói với cháu lời xin lỗi nào cả, vì thứ mà cô đang muốn nắm giữ chỉ là hạnh phúc của một đời đàn bà, giữa cô và cha cháu chỉ đơn giản là tình yêu giữa hai con người đã trải qua nhiều những nỗi đau và chọn nhau để cùng nắm tay bước tiếp.
Thứ tình cảm ấy hoàn toàn đủ chân thành và xứng đáng được chúc phúc. Cô không phá hoại đi tổ ấm nào, cũng không hề cướp đi hạnh phúc của bất kì ai, cháu chỉ nên hiểu đơn giản đó là sự lựa chọn. Sau một lần lựa chọn hạnh phúc đã dở dang, cha cháu đã chọn cô và sau rất nhiều người đàn ông từng đi qua, cô quyết định dừng chân bên cuộc đời người đàn ông ấy.
Dù người đời hay là cháu có suy nghĩ không đẹp nào về mối quan hệ này thì cô vẫn luôn tin rằng mình đã không làm gì sai trái.
*Ảnh minh họa. *
Và cô bé ạ, nếu ngày nào đó chúng ta gặp được nhau, cô biết mình sẽ nhìn cháu bằng ánh mắt đầy mong đợi, trong đó sẽ có sự cảm thông và cả sự chúc phúc. Cô hy vọng cháu cũng sẽ giống như cha của mình, sẽ là một con người có đủ sự sáng suốt và luôn nhìn đời bằng ánh mắt chân thành, bao dung nhất.
Cháu mãi là cô con gái bé nhỏ và luôn được yêu thương trong lòng cha, thứ tình thương ấy sẽ không bao giờ phải san sẻ. Cô cũng hy vọng cháu sẽ có ước mong cho cha mình được sống một nửa cuộc đời con lại thật sự hạnh phúc, vì đó cũng là điều mà cô luôn mong.
Cô chỉ đang là một cô gái trẻ, ai cũng nói rằng cô xứng đáng có được thứ đẹp đẽ gì đó trọn vẹn hơn là chọn ở bên cha cháu. Nhưng cô nghĩ mình sẽ có được niềm vui, có được những thương yêu trọn vẹn khi giữa hai con người thực sự là chân tình.
Cô không là người thứ ba, cô chỉ là người đến sau một mái ấm không còn trọn vẹn. Cô cũng không ép buộc cha cháu phải chọn lựa, cô luôn muốn cuộc đời người đàn ông đã trải qua không ít tổn thương ấy có đủ đầy những người thân yêu. Và chúng ta đều nằm trong số đó, cháu là người thân vốn dĩ, còn cô là người thương đến sau.
*Ảnh minh họa. *
Cuộc đời một con người, thứ có thể ở lại mãi cạnh bên, khiến cho họ được an yên và bình tâm để sống sẽ là thứ tình cảm thiêng liêng của một người bạn đời, sự đồng điệu của hai tâm hồn thực sự thuộc về nhau.
Rồi cháu sẽ gặp được một người thương mình, và khi lớn thêm chút nữa cháu sẽ hiểu, tình cảm vốn là thứ không thể định đoạt đúng sai, cũng không cần tất cả người đời phải thấu hiểu hay tán thưởng, chỉ cần hai con người muốn mình dành cho nhau, đã là đủ.
Và khi cháu trưởng thành, có cho mình một mái ấm riêng, cháu sẽ cần hơn hết là thứ tình yêu thương của người mình đã chọn, cháu sẽ mong muốn có thể ở bên họ dài lâu, cùng xây đắp nên những điều đẹp đẽ cho cuộc đời hai người. Khi ấy chắc chắn cháu sẽ đủ hiểu, cha cháu cũng như vậy, cũng chỉ giản đơn là một con người, cũng luôn cần có một người để được yêu thương hết phần đời còn lại.
Còn giờ đây, cháu chỉ đang là một cô gái nhỏ, cháu luôn cần có đủ tình thương của cha và mẹ, cần có một mái ấm trọn vẹn cho cả hai chị em, để được lớn lên bình thường như chúng bạn.
Tình thương yêu của cha mẹ cháu vẫn luôn ở đấy, dành cho những đứa con của mình, chỉ là thứ cảm xúc họ dành cho nhau không còn đủ ngọt ngào để tiếp tục ở lại bên người kia nữa, không phải vì cô, mà vì những nỗi đau họ đã gieo lên cuộc đời đối phương quá lớn.
Dù có là ai sai thì cả hai cũng đều nợ cháu một lời xin lỗi, cháu có thể tha thứ hoặc không nhưng bắt buộc sẽ phải học cách chấp nhận một vài điều không thể là trọn vẹn trong cuộc đời.
Cô biết cháu sẽ tổn thương, sẽ oán trách những người sinh ra mình, có thể sẽ oán trách cả cô nữa, nhưng cô bé ạ, nếu không là cô thì có lẽ cũng sẽ là một người đàn bà nào đó khác, đến bên đời cha cháu để yêu thương, cảm thông và muốn cùng sẻ chia, gánh vác tất cả.
*Ảnh minh họa.*
Tình yêu đôi khi là như thế đấy, sẵn sàng nhận về mình những nỗi thiệt thòi, cay nghiệt không đáng có, vì một con người họ cho rằng xứng đáng, và rồi cam tâm ở bên dù có phải trải qua bao nhiêu giông bão đi nữa. Giữa cô và cha cháu là thứ tình cảm như vậy, cô muốn dành trọn cả thanh xuân vẹn nguyên của mình đi cùng người đàn ông ấy.
Cô chưa từng nghĩ chúng ta sẽ có được một mối quan hệ cao cả như tình mẫu tử, nhưng cô nghĩ mình có thể yêu thương cháu vì người đàn ông cô đã chọn. Và mọi thứ có thể sẽ trở nên tốt đẹp nếu cháu là một cô bé luôn có đầy sự bao dung và hiểu biết như cha mình, cô hy vọng là vậy.
Cô bé ạ, cô cũng từng có những khi cảm thấy buồn vì cháu, cũng từng nghĩ cháu là điều khiến cho cô không thể có hạnh phúc trọn vẹn, nhưng nghĩ lại thì không phải vậy, mọi lỗi lầm đều là do những người trưởng thành, là do cô và cha cháu đã chẳng thể gặp được nhau sớm hơn.
Chúng ta, vốn không làm gì xấu đến cuộc đời nhau, cũng không hề nợ nhau điều gì, nên cô hy vọng nếu một ngày nào đó thực sự phải đối mặt, chúng ta có thể hòa thuận và sống vui vẻ cùng nhau. Hãy để cha cháu có được những tháng ngày sau này bình yên hơn, ít hơn những nỗi buồn, nhiều hơn những điều tốt đẹp và trọn vẹn, cô bé nhé.
*Ảnh minh họa*.
Còn cô, vốn chỉ là một cô gái cũng đã trải qua đủ những cảm xúc như cháu bây giờ, cũng từng đầy những tủi hờn trong tâm hồn khi chẳng thể có được một mái ấm trọn vẹn như mình mong.
Cô vẫn có đủ cha mẹ ở cạnh bên, những không cảm thấy mình hạnh phúc, vì cô cảm nhận được cha mẹ không hề hạnh phúcvới lựa chọn ở lại ấy. Nhưng giờ đây việc cô có ủng hộ họ rời khỏi nhau cũng đã quá muộn màng, những ngày trẻ của họ đã trôi qua rất lâu rồi, không còn đủ thời gian để lựa chọn và bắt đầu lại.
Cho đến bây giờ cô mới hiểu họ đã phải chịu đựng, đã phải hy sinh bao nhiêu cho cô có được sự trọn vẹn, nhưng họ không hề hiểu sự trọn vẹn ấy cũng không mang lại cho cô được cảm giác an yên.
Và họ cũng không hề hiểu được, cô cũng luôn muốn cuộc sống của cha mẹ mình vốn có thể vui vẻ, nhẹ nhõm hơn đã từng. Có những sự hy sinh, vốn không hề vô ích nhưng lại không mang về được kết cục tốt đẹp như người ta vẫn nghĩ.
Và đôi khi chia ly cũng là một con đường sẽ hữu ích hơn sự cố chấp, gắng gượng gìn giữ trong khổ đau. Rồi khi buồn tủi, oán trách và vấp ngã đã đủ để trưởng thành, con người sẽ hiểu được, điều mà ta mong mỏi, chỉ là sự an yên, cho tất cả!
*Sưu tầm*


markdown:
Trong 10 tháng qua, Hà Nội thu hút 445 dự án đầu tư nước ngoài với vốn đăng ký 2,8 tỷ USD (tăng 2,6 lần so với năm 2015). Trong đó, có một số dự án lớn thuộc các lĩnh vực thế mạnh và ưu tiên thu hút đầu tư như công nghệ, môi trường, tài chính…
*Trung tâm R&D của Samsung - Dự án đầu tư tại Hà Nội sẽ nằm trong The Manor Central Park. (Ảnh: Báo Đất Việt)*
Đáng chú ý, Hà Nội đã thu hút được một số dự án có mức đầu tư lớn như Dự án Trung tâm nghiên cứu, phát triển Samsung (300 triệu USD); Dự án Nhà máy nước mặt sông Đuống (227 triệu USD); Dự án Ngân hàng Trách nhiệm hữu hạn Một thành viên Public Việt Nam (134 triệu USD).
Hà Nội cũng đã giới thiệu 52 dự án kêu gọi đầu tư theo hình thức đối tác công tư (PPP) và 43 dự án theo hình thức xã hội hóa.
Ông Trần Ngọc Nam, Phó Giám đốc Sở Kế hoạch và Đầu tư Hà Nội cho biết, năm 2016 là năm Hà Nội đạt mức tăng trưởng cao nhất trong 6 năm trở lại đây, năm có số lượng doanh nghiệp thành lập mới và thu hút vốn đầu tư xã hội cao nhất từ trước đến nay. Có được kết quả đó là nhờ những đột phá trong cải cách thủ tục hành chính, quy hoạch thu hút đầu tư.
“Các nhà đầu tư đến làm thủ tục đăng ký kinh doanh tại Hà Nội trước đây mất 6 ngày, hiện nay giảm xuống còn 3 ngày. Hà Nội đã có chủ trương, kế hoạch riêng để thực hiện việc đăng ký qua mạng, giúp đỡ tư vấn miễn phí đối với doanh nghiệp thành lập. Liên quan đến quy hoạch, nếu năm 2012 là năm quy hoạch, trong đó có các quy hoạch phân khu thì nay các quy hoạch chi tiết gần như đã được phủ kín”, ông Nam cho biết./.
Huy Nam/VOV-Trung tâm Tin


markdown:
Hôm 29/11, Ngoại trưởng
** Pháp **Jean-Marc Ayrault đã lên tiếng kêu gọi Hội đồng Bảo an Liên Hợp Quốc ( ** LHQ **) tiến hành ** họp khẩn ** để thảo luận về tình hình tại thành phố ** Aleppo **, ** Syria **- quốc gia bị tàn phá bởi các cuộc giao tranh.
Pháp kêu gọi LHQ họp khẩn về tình hình tại Aleppo, Syria (Ảnh Reuters)
"Hơn bao giờ hết, chúng ta cần phải khẩn trương chấm dứt chiến sự và cho phép tiến trình viện trợ nhân đạo không bị cản trở", Ngoại trưởng Jean-Marc Ayrault cho biết trong một tuyên bố.
Một nguồn tin ngoại giao Pháp cho biết thêm, ông Ayrault và người đồng cấp Đức sẽ thảo luận về tình hình Aleppo với Ngoại trưởng Nga Sergei Lavrov bên lề một hội nghị tại Minsk vào ngày 29/11. Tại hội nghị này, các ngoại trưởng châu Âu sẽ thảo luận về kế hoạch thực hiện lệnh ngừng bắn tại Đông Âu.
Quân đội Syria và lực lượng đồng minh thông báo đã giải phóng phần lớn khu vực phía Đông Aleppo từ tay lực lượng nổi dậy vào hôm 28/11 trong một cuộc tấn công ác liệt.
Việc kiểm soát phía Đông Aleppo sẽ là chiến thắng lớn nhất đối với Tổng thống Syria Bashar al-Assad kể từ khi bắt đầu cuộc nổi dậy chống lại ông vào năm 2011.
Đối với ông Assad, việc giành lại Aleppo sẽ củng cố chiến dịch của ông trên khu vực phía Tây Syria - nơi ông và các đồng minh đã tập trung hỏa lực trong khi nhiều phần còn lại của quốc gia này vẫn nằm ngoài tầm kiểm soát của họ.
Theo Reuters, Pháp - quốc gia ủng hộ phe đối lập ở Syria - sẽ triệu tập một cuộc họp của các quốc gia phản đối ông Assad, trong đó có Mỹ, Ả Rập Saudi và Thổ Nhĩ Kỳ - vào tháng 12 tới.
NM (Theo Reuters)


markdown:
Phó Thủ tướng Phạm Bình Minh cho rằng, một Chính phủ kiến tạo là Chính phủ đưa ra những chính sách nhằm tạo mọi điều kiện thuận lợi, trong khuôn khổ luật pháp cho phép, để DN và người dân phát huy hết tiềm năng của mình, đóng góp chung vào phát triển kinh tế đất nước.
**Kiến tạo là Chính phủ tạo sân chơi chung, mà trong đó tất cả người dân và DN đều bình đẳng và Chính phủ minh bạch trong chính sách của mình, để không có vấn đề xin-cho.**
Về tiến trình cổ phần hóa, Phó Thủ tướng nhấn mạnh, đây là một trong những mục tiêu của quá trình đổi mới kinh tế đang diễn ra tại Việt Nam. Nhiều DN còn gặp khó khăn trong quá trình đổi mới, nhưng quyết tâm của Chính phủ là đẩy nhanh tiến trình này, đặc biệt là những DN có số vốn đầu tư lớn của Nhà nước.
Phó Thủ tướng khẳng định, Chính phủ chủ trương tạo dựng môi trường đầu tư kinh doanh thuận lợi, bình đẳng và sẽ chú trọng hơn về phát triển bền vững, nhất là bảo vệ môi trường.
Phó Thủ tướng khẳng định, Chính phủ chủ trương tạo dựng môi trường đầu tư kinh doanh thuận lợi, bình đẳng và sẽ chú trọng hơn về phát triển bền vững, nhất là bảo vệ môi trường.
Chính phủ khuyến khích đầu tư vào những lĩnh vực ưu tiên, sử dụng công nghệ kỹ thuật cao, thân thiện với môi trường, đồng thời tăng cường khuyến khích liên kết giữa các vùng nhằm tránh tình trạng cạnh tranh thu hút đầu tư bằng mọi giá, ảnh hưởng đến sự phát triển chung của đất nước.
Phó Thủ tướng cho rằng, trước đây nền kinh tế của Việt Nam phát triển chủ yếu dựa vào nguồn nhân công rẻ, sử dụng nhiều vốn.
Ngày nay, những nhân tố này không còn phát huy tác dụng như trước, do đó, Chính phủ chủ trương chuyển đổi mô hình, nâng cao chất lượng phát triển trên cơ sở nâng cao năng suất, chất lượng nguồn nhân lực, ứng dụng khoa học và công nghệ, kết hợp giữa tăng trưởng theo chiều sâu và chiều rộng.
Về những biện pháp của Chính phủ tạo điều kiện thuận lợi cho du khách và nhà đầu tư nước ngoài, Phó Thủ tướng Phạm Bình Minh khẳng định, Việt Nam đã có nhiều chính sách tăng cường thúc đẩy phát triển du lịch, trong đó quan trọng nhất là đa dạng hóa sản phẩm du lịch.
Chính sách miễn giảm visa cũng là một trong những biện pháp thúc đẩy, nhưng đó không phải là tất cả. Việt Nam đã miễn thị thực đơn phương với 11 nước, mới đây nhất là với 5 nước châu Âu.
**"Chúng tôi mong muốn không chỉ là đơn phương, mà cần tạo điều kiện thuận lợi cho người nước ngoài vào Việt Nam, nhưng đồng thời người Việt Nam cũng phải được hưởng quyền lợi như vậy khi sang các nước khác. Đó mới là đối xử công bằng, chứ không phải là một chiều", Phó Thủ tướng nói.**
Phó Thủ tướng bày tỏ mong muốn các nước, trong đó có Hoa Kỳ, sẽ sớm phê chuẩn TPP, đồng thời khẳng định Việt Nam đang trong quá trình xem xét phê chuẩn Hiệp định này.
**Nếu được thông qua, Hiệp định sẽ mang lại lợi ích chung cho các nước thành viên, chứ không chỉ riêng Việt Nam. Nếu không được thông qua, đương nhiên thiệt hại thuộc về các nước thành viên, bởi các nước đều đã dành nhiều công sức, nhiều thời gian để xây dựng một Hiệp định tiêu chuẩn cao này.**
Phó Thủ tướng cũng nhấn mạnh, không chỉ có TPP, Việt Nam còn ký kết một loạt FTA với các đối tác.
Bên lề Hội nghị, Phó Thủ tướng, Bộ trưởng Ngoại giao Phạm Bình Minh đã tiếp ông Charles Goddard, Giám đốc biên tập khu vực châu Á-Thái Bình Dương, Cơ quan Tình báo Tạp chí Nhà kinh tế (EIU) và trả lời phỏng vấn Tạp chí The Economist.
**Phó Thủ tướng Trịnh Đình Dũng tiếp lãnh đạo Tập đoàn Amata** **Ngày 3/11, tiếp Chủ tịch và lãnh đạo Tập đoàn Amata (Thái Lan), Phó Thủ tướng Trịnh Đình Dũng nhấn mạnh quan điểm của Chính phủ tạo mọi điều kiện thuận lợi để các nhà đầu tư nước ngoài mở rộng hợp tác, đầu tư tại Việt Nam.**
Phó Thủ tướng Trịnh Đình Dũng cho rằng quan hệ đối tác chiến lược giữa hai nước hiện đang phát triển rất tốt đẹp trên mọi lĩnh vực, đặc biệt là kinh tế, thương mại, đầu tư. Trong giai đoạn này, các doanh nghiệp có vai trò rất lớn trong việc củng cố, thúc đẩy và làm sâu sắc hơn mối quan hệ đối tác chiến lược giữa hai nước bằng cách tăng cường đầu tư các dự án, trao đổi thương mại.
Năm 2016, Việt Nam và Thái Lan đang có rất nhiều hoạt động kỷ niệm 40 năm ngày hai nước thiết lập quan hệ ngoại giao. Hiện tại, hai nước đang thực hiện hiệu quả chương trình hành động triển khai quan hệ đối tác chiến lược Việt Nam-Thái Lan giai đoạn 2014-2018. Trong lĩnh vực thương mại, đầu tư, hai nước đang nỗ lực thực hiện mục tiêu đưa kim ngạch thương mại song phương đạt 20 tỷ USD vào năm 2020.
Phó Thủ tướng Trịnh Đình Dũng cũng đánh giá cao việc Amata đầu tư một cách khoa học, bài bản, hiệu quả tại Việt Nam từ rất sớm (những năm 1990). Chính phủ Việt Nam luôn tạo điều kiện thuận lợi cho các doanh nghiệp nước ngoài, trong đó có Thái Lan, hợp tác, đầu tư, mở rộng kinh doanh tại Việt Nam. Phó Thủ tướng đề nghị Amata, bằng kinh nghiệm của mình, đóng góp hiệu quả hơn nữa vào lĩnh vực xây dựng, phát triển các khu công nghiệp, khu công nghệ cao ở Việt Nam.
Chủ tịch Tập đoàn Amata Vikrom Kromadit bày tỏ cảm ơn Chính phủ, lãnh đạo các bộ, ngành, địa phương của Việt Nam đã tạo điều kiện thuận lợi để doanh nghiệp đầu tư hiệu quả trong hơn 20 năm qua. Trong thời gian tới, Amata dự kiến sẽ đầu tư một tổ hợp công nghiệp - đô thị tại Long Thành (Đồng Nai) và tỉnh Quảng Ninh với số vốn đầu tư hàng chục tỉ USD.
Đánh giá cao những nỗ lực của Chính phủ Việt Nam trong việc tạo môi trường kinh doanh thông thoáng, bình đẳng giữa các doanh nghiệp trong nước và quốc tế, ông Vikrom Kromadit đã kiến nghị với Phó Thủ tướng Trịnh Đình Dũng một số giải pháp để đẩy nhanh tốc độ triển khai dự án, thu hút hiệu quả đầu tư từ Thái Lan nói riêng, đầu tư nước ngoài nói chung vào Việt Nam.
**P.V**


markdown:
Sau khi thắng cử Tổng thống Mỹ, ông Donald Trump đã bày tỏ ý định rời khỏi TPP và nhiều khả năng Mỹ sẽ bảo hộ các nền công nghiệp trong nước. Điều này khiến nhiều nước được cho là hưởng lợi từ TPP chuyển sự chú ý sang Hiệp định RCEP.
Ngoài điểm chung là có sự cam kết mở rộng và cam kết tự do hóa sâu hơn trong thương mại hàng hóa, dịch vụ và đầu tư, 2 Hiệp định này có nhiều khác biệt dễ nhận thấy.
Quy mô
RCEP (Hiệp định đối tác toàn diện khu vực) là một hiệp định thương mại tự do chất lượng cao hướng tới mục tiêu hình thành quan hệ đối tác toàn diện giữa khối ASEAN với 6 đối tác, gồm: Trung Quốc, Nhật Bản, Hàn Quốc, Úc, New Zealand, và Ấn Độ, còn được gọi là ASEAN + 6.
Còn TPP (Hiệp định đối tác kinh tế xuyên Thái Bình Dương), là một hiệp định, thỏa thuận thương mại tự do giữa 12 quốc gia với mục đích hội nhập nền kinh tế khu vực Châu Á – Thái Bình Dương. 12 thành viên của TPP bao gồm: Úc, Brunei, Chile, Malaysia, Mexico, New Zealand, Canada, Peru, Singapore, Việt Nam, Mỹ và Nhật Bản.
Các nước thành viên TPP chiếm 32% GDP của thế giới và 26% thương mại toàn cầu trong khi các nước RCEP chiếm 24% GDP thế giới và 28% thương mại toàn cầu.
Động lực chính của TPP là Mỹ và TPP không có sự tham gia của Trung Quốc. Còn RCEP do ASEAN lãnh đạo và được Trung Quốc hỗ trợ tích cực, không bao gồm Mỹ.
2. Thời hạn hoàn tất
Thời hạn ban đầu để hoàn tất TPP là cuối năm 2013 đã trôi qua và chính quyền Tổng thống Obama đã đưa ra một cam kết mới đạt được hiệp định này vào cuối năm nay.
Thời hạn quy định kết thúc đàm phán RCEP là vào cuối năm 2015. Tuy nhiên, quá trình đàm phán RCEP vẫn đang tiếp tục và dự định sẽ kết thúc vào giữa năm 2017.
3. Mục đích
Hiệp định TPP vượt qua giới hạn của sự tự do hóa hàng hóa và dịch vụ, nhấn mạnh vào các mảng quan trọng đối với các nước phát triển, chẳng hạn như những điều kiện kinh doanh, các tiêu chuẩn, quy định và bảo vệ sở hữu trí tuệ.
Bên cạnh đó, Hiệp định RCEP chủ yếu tập trung vào việc cắt giảm thuế quan và tự do hóa dịch vụ. Điều này không có nghĩa là RCEP không chứa nhiều tham vọng.
Cụ thể, RCEP bắt đầu sớm hơn trên một số phương diện, chủ yếu là về quy tắc hoạt động và không có sự phân biệt đối xử nhằm tạo thuận lợi hóa thương mại trong khuyến khích hợp tác khu vực.
Ngược lại, TPP hướng tới đề ra những tiêu chuẩn của “nước phát triển” mà các nước muốn tham gia hiệp định cần phải đáp ứng, ví dụ tự do hóa 100% thương mại hàng hóa với phạm vi áp dụng toàn diện, bao gồm dịch vụ và đầu tư (tương tự như nguyên tắc và mục tiêu chỉ đạo đàm phán của RCEP), mà cả quyền sở hữu trí tuệ, môi trường và lao động.
Tự do hóa thương mại toàn khu vực trong lĩnh vực dịch vụ sẽ hưởng lợi từ tự do hóa hàng hóa dù không có tự do hóa dịch vụ riêng vì luôn có một tỷ lệ lớn dịch vụ luôn trong hàng hóa giao thương qua biên giới, được thể hiện qua số liệu giá trị gia tăng gần đây cho thấy đã đạt mức cao hơn nhiều so với quan niệm trước đây, dựa trên thống kê thương mại thông thường.
** NGỌC BÉ ** *(Tổng hợp)*
Xem thêm video:
**Nguồn: Tinnhanhonline.vn**


markdown:
Súng bắn tỉa mới được sáng chế trong khuôn khổ công trình phát minh-thử nghiệm Tochnost hiện đã sẵn sàng để đưa vào hệ trang bị, ông Dmitry Semizorov, Tổng Giám đốc Viện Nghiên cứu Trung ương về chế tạo máy chính xác (TSNIITOCHMASH), cho biết.
"Mẫu súng mới đã trải qua kỳ thử nghiệm quốc gia đạt thành công xuất sắc. Đã có đơn đặt hàng đầu tiên", ông Semizorov cho biết tại cuộc thi toàn Nga về thực hành bắn súng giành giải Cup của Ủy ban công nghiệp-quân sự Liên bang Nga.
Súng trường được thiết kế để sử dụng với hai loại đạn khác nhau: đạn thông thường và đạn xuyên giáp.
Súng thiết kế trên cơ sở T-5000, tổng cộng đã thực hiện hơn 210 thay đổi thiết kế. Tại cuộc thi được tổ chức trong dịp kỷ niệm Ngày Thống nhất dân tộc, Phó Thủ tướng Nga Dmitry Rogozin đã giới thiệu mẫu súng mới.
Kim ngân


markdown:
*Binh sĩ quân đội Syria*
Trong một tuyên bố được phát đi hôm 22-11, Bộ Tư lệnh các lực lượng vũ trang Syria thông báo thành lập một lực lượng mới có tên "Quân đoàn tình nguyện tấn công số 5", với nhiệm vụ tham gia cùng các lực lượng Syria khác chiến đấu diệt trừ chủ nghĩa khủng bố, khôi phục an ninh và mang lại sự ổn định trên toàn lãnh thổ.
"Lực lượng mới được thành lập nhằm ứng phó với sự phát triển nhanh chóng của các sự kiện, để duy trì những thành công của quân đội chính phủ Syria trong cuộc chiến diệt khủng bố, cũng như để đáp ứng nguyện vọng của người dân nước này là chấm dứt hành vi khủng bố tại quốc gia Ả Rập", tuyên bố cho biết thêm.
Được biết, đơn vị mới này với thành phần lực lượng chủ yếu là các tình nguyện viên.
Năm ngoái, quân đội Syria đã thông báo thành lập Quân đoàn thứ tư, cũng là một lực lượng chống khủng bố, ngay sau khi Nga bắt đầu tiến hành chiến dịch quân sự chống lại tổ chức Nhà nước Hồi giáo tự xưng (IS), và các nhóm khủng bố khác tại quốc gia Trung Đông theo yêu cầu của chính phủ Damascus.


markdown:
Trường Tiểu học Trần Quốc Toản (đường Trần Phú, quận 5). Ảnh:
*Mạnh Tùng*
Hơn tuần nay, hàng trăm phụ huynh trường Tiểu học Trần Quốc Toản bức xúc việc nơi này tổ chức dạy thêm trong trường, dù TP HCM mới ra quy định "các tổ chức, cá nhân không được dạy thêm học sinh tiểu học..."
Phụ huynh học sinh ở các lớp 2-5 cho biết, từ đầu năm đã được giáo viên chủ nhiệm thông báo về việc đăng ký các lớp học phụ đạo trong trường, trên cơ sở tự nguyện. Các buổi học diễn ra từ 16h đến 17h từ thứ hai đến thứ năm trong tuần.
"Tôi làm xong việc ở cơ quan lúc 17h mỗi ngày, không thể đón con đúng giờ nên đăng ký cho con học thêm trong trường. Trong giờ học, chủ yếu cô phát bài tập để các em ngồi làm trong lúc chờ ba mẹ đến đón", chị Phương Thảo (phụ huynh lớp 5) nói và cho biết mỗi tháng đóng học phí cho lớp này 400.000 đồng.
Với mức phí trên, anh Gia Tiến (phụ huynh một lớp 4) cho con đi học thêm vì lo không biết kèm con học bài khi về nhà. "Coi như tận dụng thời gian chờ tôi tới đón, cho con học luôn, về nhà đỡ phải học", anh Tiến cho biết.
Song, một số phụ huynh trường này cho biết, dù họ có thể đón con lúc 16h nhưng vẫn cho con học thêm vì ngại khi thấy "con người ta học mà con mình không học". "Cháu nói rất nhiều bạn trong lớp đều học thêm, nếu không học thì sợ cô giáo ghét nên nó cứ nằng nặc đòi tôi cho đi học", một phụ huynh lớp 5 kể.
Chiều 31/10, ông Lê Thái Minh Hầu, Hiệu trưởng Tiểu học Trần Quốc Toản cho biết trường có tổ chức các lớp học như phụ huynh phản ánh và thừa nhận việc làm này là sai quy định về dạy thêm, học thêm.
Ông Hầu cho biết, xuất phát từ nhu cầu của phụ huynh muốn nhà trường giữ con sau giờ tan học buổi chiều khi họ chưa kịp đến đón, trường đã tổ chức khoảng 10 lớp học từ 16h đến 17h các ngày từ đầu tháng 10.
"Thật ra các thầy cô ôn tập, củng cố bài vở cho các em chứ không dạy trước chương trình. Ngoài ra cũng có hoạt động thể thao cho các em trong các giờ này", ông Hầu phân trần và nói các lớp học đều dựa trên sự tự nguyện của phụ huynh, không có sự ép buộc nào.
Bà Nguyễn Thị Mai Hương, Trưởng phòng Giáo dục quận 5 khẳng định trường Tiểu học Trần Quốc Toản đã vi phạm quy định dạy thêm học thêm của Bộ Giáo dục và TP HCM.
Quy định hiện nay là không được dạy thêm cho cấp tiểu học nên việc dạy học cho các em dưới bất cứ hình thức nào ngoài giờ học đều là sai quy định. "Nếu trường có tổ chức hoạt động thể dục thể thao, dạy năng khiếu, kỹ năng sống cũng phải báo cáo với phòng giáo dục để chúng tôi giám sát", bà Hương cho biết.
Phòng Giáo dục quận 5 đã làm việc với trường Tiểu học Trần Quốc Toản trong sáng nay và chỉ đạo trường chấm dứt ngay hoạt động dạy thêm trong tháng 11.
Trước đó, trong văn bản hướng dẫn quản lý dạy thêm, học thêm, Sở Giáo dục và Đào tạo TP HCM đề nghị UBND các quận huyện phối hợp để thường xuyên kiểm tra, xử lý các trường hợp vi phạm, hoặc báo về Sở nếu không thuộc thẩm quyền.
**Tên phụ huynh đã được thay đổi* *Theo VnExpress *


markdown:
[Viết lisp theo yêu cầu](http://www.cadviet.com/forum/index.php?showtopic=205), mời các bạn tiếp tục thảo luận. [](http://www.cadviet.com/forum/user/3-nguyen-hoanh/)
![ Hình ảnh](http://www.gravatar.com/avatar/e7bb27550a4a8c769b5101853eb35be0?s=100&d=http%3A%2F%2Fwww.cadviet.com%2Fforum%2Fpublic%2Fstyle_images%2Fmaster%2Fprofile%2Fdefault_large.png)
# Viết lisp theo yêu cầu [phần 2]
[Nguyen Hoanh](http://www.cadviet.com/forum/user/3-nguyen-hoanh/), Sep 03 2009 06:03 PM
###
[
#1
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/#entry71991)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #1](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 03 September 2009 - 06:03 PM
- 3
###
[
#2
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/#entry71995)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #2](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 03 September 2009 - 08:01 PM
[http://www.cadviet.c...iles/2/vd_3.dwg](http://www.cadviet.com/upfiles/2/vd_3.dwg)
em cám ơn nhiều...
![ :s_big:](http://www.cadviet.com/forum/public/style_emoticons/default/s_big.gif)
- 0
###
[
#3
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/#entry72009)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #3](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 03 September 2009 - 09:59 PM
- 2
###
[
#4
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/#entry72016)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #4](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 03 September 2009 - 10:57 PM
......
2.Bạn chạy thử Lisp chọn các đối tượng cùng màu
Lisp chỉ chọn đối tuợng theo màu, việc copy, move, ChangeLayer , ... tùy bạn xử lý.
file: sbc.lsp
(defun c:sbc (/ ent col layers lay_lst filter ss);Select By Color
(defun get_layer(col / tbl lay_lst)
(setq tbl (tblnext "LAYER" T) lay_lst (list))
(while tbl
(if (= col (cdr (assoc 62 tbl)))
(setq lay_lst (cons (cdr(assoc 2 tbl)) lay_lst)) )
(setq tbl (tblnext "LAYER" ))
)
lay_lst
)
(if (setq ent (entsel "\nSelect object for color filter."))
(progn
(or (setq col (cdr(assoc 62 (entget (car ent)))))
(setq col (cdr (assoc 62
(tblsearch "layer"
(cdr (assoc 8 (entget (car ent)))))))); color is ByLayer, get layer color
)
(setq layers ""
lay_lst (get_layer col)) ; danh sach layer co mau "col"
(foreach lay lay_lst
(setq layers (strcat layers lay ",")))
(setq layers (substr layers 1 (1- (strlen layers)))); remove the last
(prompt (strcat "\n Chon doi tuong hay ENTER de chon tat ca doi tuong co color[ " (itoa col) " ]"))
(if layers ;; tao bo loc
(setq filter (append
(cons '(-4 . " )="" (list(cons="" 62="" col)))""> (list '(-4 . " )""> (cons 8 layers)
'(62 . 256) ; ByLayer
'(-4 . "AND>")
'(-4 . "OR>")
)))
(setq filter (list (cons 62 col)))
)
(sssetfirst nil)
(if (null (setq ss (ssget filter))) (setq ss (ssget "_X" filter)) )
(if (> (sslength ss) 0)
(progn
(prompt (strcat "\nChon duoc " (itoa (sslength ss))
" doi tuong co color[ " (itoa col) " ]"))
(sssetfirst nil ss)
))
))
(princ)
)
**@ gia_bach**
Bạn làm ơn xem lại lisp này hộ mình,khi load thì cad nhận nhưng khi sử dụng thì báo là :
**function definition: CONS=**và CAD không thực hiện lệnh.
Mình nghĩ chắc bị 1 lỗi nhỏ nào đấy.
Thank
- 1
###
[
#5
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/#entry72194)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #5](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 07 September 2009 - 12:24 AM
e xin 1 lisp lọc riêng số và chữ thuộc cùng 1layer, có các thuộc tính giống nhau. Đơn giản thế thôi ạ, xin các bro ra tay dùm
Mong các lisper ra tay giúp cho ạ, à có thêm chức năng chuyển số (hoặc chữ) sang layer khác thì càng tốt ạ. E muốn tách riêng 2 thứ để quản lý cho dễ ^^~
- 0
###
[
#6
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/#entry72201)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #6](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 07 September 2009 - 09:00 AM
Chào
........
Bạn làm ơn xem lại lisp này hộ mình,khi load thì cad nhận nhưng khi sử dụng thì báo là :
function definition: CONS=và CAD không thực hiện lệnh.
Mình nghĩ chắc bị 1 lỗi nhỏ nào đấy.
Thank
**nvc**
Do có lỗi trong Insert Code Box
Gửi bạn link dowload trực tiếp
**Lisp chọn các đối tượng cùng màu** [download here](http://www.cadviet.com/upfiles/2/selected_by_color.lsp)
- 1
###
[
#7
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/#entry72213)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #7](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 07 September 2009 - 10:43 AM
Chào
nvc
Do có lỗi trong Insert Code Box
Gửi bạn link dowload trực tiếp
Lisp chọn các đối tượng cùng màu [download here]
Tôi thấy ban viêt rất hay! bạn co the viet thêm phần chọn các đối tượng có cùng linetype ra nữa không?
- 0
###
[
#8
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/#entry72225)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #8](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 07 September 2009 - 02:45 PM
Chào
Tôi thấy ban viêt rất hay! bạn co the viet thêm phần chọn các đối tượng có cùng linetype ra nữa không?
**chandatn**
Cập nhật
**Lisp chọn các đối tượng theo màu hay linetype** [download here](http://www.cadviet.com/upfiles/2/selectedbycolororlinetype.lsp)
- 3
###
[
#9
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/#entry72234)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #9](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 07 September 2009 - 03:45 PM
Chào Tuynh,
Bạn hãy tạo 1 ví dụ bảng excel chứa dữ liệu, gồm n cột, trong đó phải có 4 cột: tên node, X, Y, Z. Dữ liệu có hàng chục điểm như bạn nói hoặc nhiều hơn nữa. Upload lên, và Thiep sẽ gửi cho bạn 1 lisp tạo đường 3Dpolyline.
Còn ý tưởng 2: có phải bạn muốn nói thêm node trên polyline không? chứ các node tự động chuyển đến là sao?
Chỉ thêm text độ cao tại vị trí thêm node trên polyline hay thêm text toàn bộ các node của polyline?
- 0
###
[
#10
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/#entry72243)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #10](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 07 September 2009 - 05:32 PM
Chào
chandatn
Cập nhật
Lisp chọn các đối tượng theo màu hay linetype [download here]
Cám ơn bạn đã phản hồi rất nhanh. Trình độ lisp cuả minh gà quá nên đọc vào nhưng ko hiểu được nhiều!
- -1
###
[
#11
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/#entry72245)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #11](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 07 September 2009 - 06:26 PM
[http://www.cadviet.c.../drawing1_5.dwg](http://www.cadviet.com/upfiles/2/drawing1_5.dwg)
Cám ơn sự nhiệt tình của các bạn.
- 0
###
[
#12
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/#entry72256)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #12](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 07 September 2009 - 11:45 PM
Trong file text: data.txt đệ định dạng như sau:
Diem 1 (tab) 1 (tab) 6 (tab) 0 (tab) 8 (tab) 0 (tab) 12
Diem 2 (tab) 1 (tab) 5 (tab) 0 (tab) 7 (tab) 5 (tab) 2
......
(
*(tab) ở hàng trên là dấu TAB để ngăn cách các giá trị*)
Bây giờ em cần 1 LISP có tác dụng đọc từng hàng text trên, tìm trên toàn vùng chọn (hoặc trên toàn bản vẽ cũng được) Diem 1 và thay giá trị các text phía dưới lần lượt như hình minh họa.
(trong đó Diem 1 và các text phía dưới là các hàng của 1 Mtext)
- 0
EDI.com.vn
Mobile : 0903.269.830
[duongdinhthanh@edi.com.vn](mailto:duongdinhthanh@edi.com.vn)
Thiết kế thi công: Trạm biến áp, đường dây, cáp ngầm, hạ ngầm đường dây, điện tòa nhà, hệ điện thông minh ...
###
[
#13
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/#entry72260)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #13](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 08 September 2009 - 04:41 AM
Chào
Chào bạn Tuệ bạn có lisp chuyển file số liệu thành đường 3d polyline rất hay, nhưng công việc của tớ rất nhàm chán là phải tạo đường 3d polyline thành đường 2d polyline từ nền hiện trạng khi công tác trắc địa tức là bản bình đồ hiện trạng họ đưa cho khi làm mặt cắt địa hình thì mình phải nhìn vào bản hiện trạng đó để sử lý số liệu tức là mình cần biến đường 2d p thành 3d p mà phải dựa vào số liệu bình đồ tức là số liệu cao độ để làm đường đứt gẫy địa hình các bạn viết các lisp trên cũng gần đúng ý mình rồi nhưng mình muốn các bạn tạo cho mình một lisp như thế này mình đưa bản vẽ lên:
[http://www.cadviet.c.../drawing1_5.dwg]
Cám ơn sự nhiệt tình của các bạn.
**Tuynh**
Code sau Tue_NV viết lại theo ý của bạn. Bạn chạy thử nhé :
(defun c:2d3d(/ curve pre i p lstdiem z lstpoint x ss oldos)
(vl-load-com)
(setvar "orthomode" 0)
(setvar "cmdecho" 0)
(setq oldos (getvar "osmode"))
(setvar "osmode" 0)
(setq curve (car(entsel "\n Pick chon POlyline 2D hoac Polyline 3D :")))
(setq pre (vlax-curve-getEndParam curve) i 0 lstdiem '() lstpoint '() ss (ssadd))
(setq cao (getdist "\n Chon chieu cao chu :"))
(while (<= i pre)
(setq p (vlax-curve-getPointAtParam curve i))
(setq lstdiem (append lstdiem (list p)))
(wtxt (rtos (caddr p) 2 2) p 0 cao)
(setq ss (ssadd (entlast) ss))
(setq i (1+ i))
)
(setq i 0)
(foreach x lstdiem
(setq z (getdist x (strcat "\n Nhap cao do cho diem nay <" (rtos (caddr x) 2 2) "> : ") ))
(setq lstpoint (append lstpoint (list(list (car x) (cadr x) z))))
(wtxt (rtos z 2 2) (list (car x) (cadr x) z) 0 cao)
(entdel (ssname ss i))
(setq i (1+ i))
)
(command "3dpoly")
(foreach y lstpoint (command y))
(command "")
(entdel curve)
(setvar "osmode" oldos)
(princ)
)
;
(defun wtxt (txt p ang h / sty)
(setq sty (getvar "textstyle"))
(entmake (list (cons 0 "TEXT") (cons 7 sty)
(cons 1 txt) (cons 10 p) (cons 11 p)
(cons 72 2) (cons 73 1) (cons 50 ang)
(cons 40 h) (cons 41 0.8))
)
)
![ :s_big:](http://www.cadviet.com/forum/public/style_emoticons/default/s_big.gif)
@duongthanh85 : Bạn nên upload file
Các huynh giúp đệ 1 cái Lisp như sau được không?
Trong file text: data.txt đệ định dạng như sau:
Diem 1 (tab) 1 (tab) 6 (tab) 0 (tab) 8 (tab) 0 (tab) 12
Diem 2 (tab) 1 (tab) 5 (tab) 0 (tab) 7 (tab) 5 (tab) 2
......
(
(tab) ở hàng trên là dấu TAB để ngăn cách các giá trị)
Bây giờ em cần 1 LISP có tác dụng đọc từng hàng text trên, tìm trên toàn vùng chọn (hoặc trên toàn bản vẽ cũng được) Diem 1 và thay giá trị các text phía dưới lần lượt như hình minh họa.
(trong đó Diem 1 và các text phía dưới là các hàng của 1 Mtext)
**.dwg**và nói rõ hơn. Vì có thể mình chưa hiểu **hết**điều bạn nói
- 1
###
[
#14
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/#entry72269)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #14](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 08 September 2009 - 09:12 AM
![ :s_big:](http://www.cadviet.com/forum/public/style_emoticons/default/s_big.gif)
- -1
###
[
#15
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/#entry72278)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #15](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 08 September 2009 - 10:15 AM
- Lisp thông số cống:nhờ các bạn sửa lại sao cho độ dốc cống bằng nghịch đảo của đường kính cống (đường kính tự mình nhập) (độ dốc lấy theo đơn vị phần ngàn ví dụ với đường kính là 400 thì độ dốc là 2.5) (hiện nay độ dốc cống đang mặc định là 0.0035 )
- Lisp thông số điện:
+ thì bỏ mũi tên đi (ko cần vẽ mũi tên)
+ bỏ ko cần ghi chiều dài luôn
+ tiết diện dây tự mình nhập (hiện nay mình nhập bất cứ số nào cũng mặc định là M-(3x240))
Chi tiết rõ hơn phiền các bạn xem bản vẽ mình gửi kèm nhé!
[http://www.cadviet.c...s/2/thongso.dwg](http://www.cadviet.com/upfiles/2/thongso.dwg) [http://www.cadviet.c.../2/filelisp.rar](http://www.cadviet.com/upfiles/2/filelisp.rar)
Cảm ơn mọi người rất nhiều!
- 0
###
[
#16
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/#entry72279)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #16](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 08 September 2009 - 10:16 AM
Cảm ơn Tuệ, Thiep bận rộn cả ngày hôm qua, Tuệ đã tiếp tay rất nhanh cho Tuynh.
Cám ơn Tuệ nhé lisp bạn chỉnh cho mình chạy ok thực sự cảm ơn sự nhiệt tình của Tuệ và các thành viên trong diễn đàn đã giúp đỡ mình lisp đó của bạn chạy đúng như ý tớ. Nhưng khi mình làm thì nảy sinh một vấn đề là khi mình chỉnh lại cao độ đường 3d polyline thì phải chạy lại lisp ý mình muốn thế này khi chỉnh lại cao độ đường 3d polyline thì chỉ cần chỉnh ở dạng text là cao độ đường 3d polyline cũng thay đổi theo không cần vào PROPERTIES hay chạy lại lisp nữa, mình muốn hiện cao độ ở dạng text có ý là như vậy. Nhưng thực sự lisp của bạn đã giúp tớ rất nhiều. Cám ơn bạn nhé
Thiep chỉ gợi ý Tue rằng có 1 hàm trong thư viện Express tools tạo POLYLINE rất nhanh, đó là: acet-pline-make.
Còn lisp trên, Tuynh hãy đợi Tue_NV sẽ thêm vòng lặp để chọn đối tượng đến khi enter thì thôi
- 0
###
[
#17
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/#entry72293)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #17](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 08 September 2009 - 11:28 AM
1. Nó tự động lưu file .tdo vào nơi nào đó tuỳ thích, có lúc tìm hoài chẳng thấy luôn.
2. Mỗi lần kích điểm thì phải đặtt tên điểm, mình muốn nó tự đông nhảy từ 1 sau đó lên 2 rồi 3.4.5.6...
Mình up file không được đành coppy code lê nhé:
(defun c:gtd()
(setq file (getstring T "Ten file toa do : "))
(setq tenf (strcat file ".tdo"))
(setq f (open tenf "a"))
(setq ST1 (getstring "Ten diem : "))
(setq pt1 (getpoint "Toa do diem : "))
(while (/= pt1 nil)
(print)
(setq x1 (car pt1) y1 (cadr pt1))
(setq xx1 (rtos x1 2 4) yy1 (rtos y1 2 4))
(write-line (strcat ST1 "\t" xx1 "\t" yy1) f)
(setq ST1 (getstring "Ten diem : "))
(setq pt1 (getpoint "Toa do diem : "))
)
(close f)
(princ)
)
(prompt "\nTD : Ghi toa do diem ra file")
- 0
Đúp học lại!
###
[
#18
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/#entry72297)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #18](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 08 September 2009 - 11:45 AM
**File cad và file data.txt** [http://www.cadviet.c...s/2/caddata.zip](http://www.cadviet.com/upfiles/2/caddata.zip)
@Anh Tuệ:
Em có đổi một chút vấn đề để tùy biến mạnh hơn, Ý tưởng của em như sau:
Trong file text các hàng dữ liệu ngăn cách bởi dấu tab, đầu tiên là tên điểm (VD: "Diem 1")
![ Hình đã gửi](http://img.photobucket.com/albums/v221/duongdinhthanhbk85/02Sep081140.jpg)
Bây giờ em mong được giúp làm 1 lisp:
- Đọc lần lượt từng hàng trong file text.
- Tách ra thành các chuỗi (các chuỗi trong hàng được ngăn cách bởi dấu tab - xem file data.txt đính kèm)
- Tìm trên toàn bản vẽ xem mtext nào có dòng đầu trùng với chuỗi đầu tiên (VD: tìm mtext có dòng đầu là "Diem 1")
- ghi lần lượt các chuỗi vừa tách vào các hàng tiếp theo của mtext đó.
- Tiếp tục với hàng tiếp theo trong data.txt (như trong file đính kèm là Diem 2)
+ Nếu không tìm thấy thì bỏ qua dòng text đó và nhảy xuống dòng tiếp theo trong file data.txt
![ Hình đã gửi](http://img.photobucket.com/albums/v221/duongdinhthanhbk85/03Sep081141.jpg)
- 0
EDI.com.vn
Mobile : 0903.269.830
[duongdinhthanh@edi.com.vn](mailto:duongdinhthanh@edi.com.vn)
Thiết kế thi công: Trạm biến áp, đường dây, cáp ngầm, hạ ngầm đường dây, điện tòa nhà, hệ điện thông minh ...
###
[
#19
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/#entry72310)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #19](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 08 September 2009 - 03:03 PM
Chào CongHoan, Thiep muốn tìm lại lisp gtd.lsp mà Hoan load được là của tác giả nào mà không thấy. Hoan chỉ giùm nhé
Mình tìm trên diễn đàn cái lisp ghi toa độ mà chưa tìm được cái đúng ý mình, Nhờ các bác sửa giúp mình cái lisp này với, hiện mình đang dùng nhưng lại có 2 điểm bấc tiện thế này:
1. Nó tự động lưu file .tdo vào nơi nào đó tuỳ thích, có lúc tìm hoài chẳng thấy luôn.
2. Mỗi lần kích điểm thì phải đặtt tên điểm, mình muốn nó tự đông nhảy từ 1 sau đó lên 2 rồi 3.4.5.6...
.....
Bây giờ Thiep chỉnh lại lisp ấy đây:
(defun c:gtd (/ ST fn f x1 y1)
(setq fn (getfiled "Chon file ghi toa do: " "D:/" "tdo" 8))
(setq f (open fn "a"))
(setq ST 1)
(while (setq pt (getpoint "Toa do diem : "))
(setq x1 (rtos (car pt) 2 4)
y1 (rtos (cadr pt) 2 4))
(write-line (strcat (itoa ST) "\t" x1 "\t" y1) f)
(setq ST (1+ ST))
(terpri)
)
(close f)
(print)
)
- 2
###
[
#20
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/#entry72313)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #20](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 08 September 2009 - 03:16 PM
có ai giúp mình với!
Các bạn ơi! mình có mấy cái lisp này mình sưu tầm được nhưng chưa đúng ý mình, nhờ các bạn sửa lại dùm mình tí.
- Lisp thông số cống:nhờ các bạn sửa lại sao cho độ dốc cống bằng nghịch đảo của đường kính cống (đường kính tự mình nhập) (độ dốc lấy theo đơn vị phần ngàn ví dụ với đường kính là 400 thì độ dốc là 2.5) (hiện nay độ dốc cống đang mặc định là 0.0035 )
- Lisp thông số điện:
+ thì bỏ mũi tên đi (ko cần vẽ mũi tên)
+ bỏ ko cần ghi chiều dài luôn
+ tiết diện dây tự mình nhập (hiện nay mình nhập bất cứ số nào cũng mặc định là M-(3x240))
Chi tiết rõ hơn phiền các bạn xem bản vẽ mình gửi kèm nhé!
[http://www.cadviet.c...s/2/thongso.dwg] [http://www.cadviet.c.../2/filelisp.rar]
Cảm ơn mọi người rất nhiều!
- 0

WARC-Truncated: length

WARC-Identified-Payload-Type: text/html

Server: Apache

Connection: close

Vary: Accept-Encoding,User-Agent

Set-Cookie: modpids=deleted; expires=Thu, 01-Jan-1970 00:00:01 GMT; path=/


markdown:
Em là sinh viên mới ra trường hiện đang làm cho 1 công ty nước tuy nhiên lại làm trái ngành nên gặp khá nhiều khó khăn khi làm việc,hiện cty giao cho em lam 1 mạng lưới cấp nước ở 1 xã và phải dùng phần mềm epanet để tính toán tuy nhiên trong quá trình làm khi chạy chương trình thì có 1 số đường ống có vận tốc =0,em chỉnh thế nào cũng ko được nên post bài lên đây mong các bác chỉ giúp em sai chỗ nào(em hơi ngu giốt mong các bác thông cảm)
P/s bác nào có thể cho mail hay face giúp em trao đổi thì càng tốt.Em xin chân thành cảm ơn
đay là files epanet,trông cũng khá đơn giản thôi nhưng ..........em làm ko được
[http://www.cadviet.c...goc_son_2_1.rar](http://www.cadviet.com/upfiles/5/123670_xa_ngoc_son_2_1.rar)
còn đây là files mặt bằng xã
[http://www.cadviet.c...goc_son2015.dwg](http://www.cadviet.com/upfiles/5/123670_xa_ngoc_son2015.dwg)


markdown:
chào anh chị!
em đang làm đồ án về RST , em có tạo family về dầm chữ T và bố trí thép cho nó. Bố trí ở đầu dầm và giữa dầm thì em làm được rồi.còn ở đoạn vuốt thì phải bố trí như thế nào ạ? làm thủ công thì cũng được nhưng lâu lắm
...
tìm trên mạng mãi mà không thấy
mong mọi người giúp đỡ ạ !


markdown:
[](http://www.cadviet.com/forum/user/7822-vanhien/)
![ Hình ảnh](http://www.gravatar.com/avatar/d0b0571f772a735b984c7277bc09acfc?s=100&d=http%3A%2F%2Fwww.cadviet.com%2Fforum%2Fpublic%2Fstyle_images%2Fmaster%2Fprofile%2Fdefault_large.png)
# Cho em hỏi có lisp nào vẽ loxo 3d không ???
[vanhien](http://www.cadviet.com/forum/user/7822-vanhien/), Feb 22 2008 04:38 PM
###
[
#1
](http://www.cadviet.com/forum/topic/2910-cho-em-hoi-co-lisp-nao-ve-loxo-3d-khong/#entry13031)
![Cho em hỏi có lisp nào vẽ loxo 3d không ???Liên kết đến bài viết #1](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 22 February 2008 - 04:38 PM
Em có người bạn, anh ấy muốn vẽ loxo 3d mà dùng cad 2000. Anh nào có thể vẽ được, hay có đoạn lisp nào cho phép vẽ thì giúp em.
Em xin cảm ơn !
- 1
###
[
#2
](http://www.cadviet.com/forum/topic/2910-cho-em-hoi-co-lisp-nao-ve-loxo-3d-khong/#entry13041)
![Cho em hỏi có lisp nào vẽ loxo 3d không ???Liên kết đến bài viết #2](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 22 February 2008 - 08:50 PM
bạn có thể upload 1 file dwg có mặt bằng, mặt đứng 2D của lò xo bạn muốn vẽ được không? Để người viết lisp có thể hình dung được điều bạn muốn.
Cám ơn các anh đã giúp đỡ em trong thời gian qua !
Em có người bạn, anh ấy muốn vẽ loxo 3d mà dùng cad 2000. Anh nào có thể vẽ được, hay có đoạn lisp nào cho phép vẽ thì giúp em.
Em xin cảm ơn !
Bởi qua file DWG đó mới rõ được phân chia đoạn cong thành bao nhiêu đoạn thẳng, lò xo chỉ vẽ 3D Poly tim lò xo hay vẽ cả biên lò xo,...
- 1
###
[
#3
](http://www.cadviet.com/forum/topic/2910-cho-em-hoi-co-lisp-nao-ve-loxo-3d-khong/#entry13044)
![Cho em hỏi có lisp nào vẽ loxo 3d không ???Liên kết đến bài viết #3](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 22 February 2008 - 10:14 PM
Cám ơn các anh đã giúp đỡ em trong thời gian qua !
Em có người bạn, anh ấy muốn vẽ loxo 3d mà dùng cad 2000. Anh nào có thể vẽ được, hay có đoạn lisp nào cho phép vẽ thì giúp em.
Em xin cảm ơn !
![ Hình đã gửi](http://i225.photobucket.com/albums/dd292/ksgia2210/Untitled-12.jpg)
Hình trên là dạng lò xo đường thân khai với số điểm chia tương đối nhiều và xoắn theo hình nón (với lò xo hình trụ việc vẽ sẽ đơn giản hơn). Trước kia, tôi đã vẽ trên Auto Cad 2000 khi máy có Ram= 128 Mb, nói chung là vẽ khá mất thời gian. Để nghĩ ra cách vẽ mất khoảng 3 giờ. Khi đã biết cách vẽ rồi thì nhanh cũng phải mất một tiết học 45 phút. Bây giờ máy của tôi Ram= 2 Gb chắc vẽ nhanh hơn)
Hiện trên thanh công cụ của Auto Cad 2007
**Modeling**có lệnh **Helix**vẽ lò xo. Tôi chưa dùng lệnh thử lệnh này vì chưa có nhu cầu vẽ. Bạn thử vẽ lò xo bằng lệnh này xem sao? Chắc là sẽ nhanh hơn rất nhiều cách vẽ thủ công mà tôi đã lọ mọ vẽ từ Auto Cad 2000. Khi đã vẽ được bạn hãy nói cho mọi người biết với nhé. (Bận nhiều việc quá nên tôi cũng chưa thử vẽ theo lệnh này. **Mà tại sao lại cứ phải vẽ trên Auto Cad 2000, khi sắp có Auto Cad 2009 roài nhỉ**? Sao các bạn lại lạc hậu thế không biết?Tôi khuyên bạn và anh bạn của bạn là : Hãy vẽ trên Auto Cad 2007 ngay ngày mai đi. Còn **trường hợp bất khả kháng mà muốn vẽ lò xo trên Auto Cad 2000, tôi sẽ hướng dẫn để bạn có thể vẽ được một cách dễ dàng. Riêng về lisp thì bạn phải cung cấp thông tin về file bản vẽ, bạn Nguyen Hoanh đã nhiệt tình giúp rồi đấy!**
Đây là file bản vẽ của hình ảnh trên:
[http://www.cadviet.com/upfiles/May_33.rar
Bạn có thể tham khảo thêm bài viết :
[http://www.cadviet.com/forum/CAD-3D-t321.html
- 0
###
[
#4
](http://www.cadviet.com/forum/topic/2910-cho-em-hoi-co-lisp-nao-ve-loxo-3d-khong/#entry13059)
![Cho em hỏi có lisp nào vẽ loxo 3d không ???Liên kết đến bài viết #4](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 23 February 2008 - 07:36 AM
Chương trình vẽ lò xo 3D xoắn trụ, tiết diện dây tròn. Tên lệnh: S3D (Spring 3D)
Cám ơn các anh đã giúp đỡ em trong thời gian qua !
Em có người bạn, anh ấy muốn vẽ loxo 3d mà dùng cad 2000. Anh nào có thể vẽ được, hay có đoạn lisp nào cho phép vẽ thì giúp em.
Em xin cảm ơn !
Đặc điểm:
- Vẽ gần đúng trên cơ sở đường tâm là 3Dpolyline, gồm nhiều đoạn thẳng nối tiếp nhau
- Biên dạng càng chính xác nếu số khoảng chia / 1 vòng càng lớn. Khi đó, chương trình chạy lâu hơn và bản vẽ cũng nặng hơn. Mặc định của chương trình là số khoảng chia = 36 khoảng/vòng (tương đương 10 độ)
;;;-------------------------------------------------------------------
(Defun DTR(x) (/ (* x pi) 180) )
;;;-------------------------------------------------------------------
(Defun RTD(x) (/ (* x 180) pi) )
;;;-------------------------------------------------------------------
(defun C:S3D ( / de d1 d px n n0 k p00 p01 ag i oldos e1 e2) ;;;Spring 3D
(setq
de (getreal "\nOutside diameter: ")
d1 (getreal "\nWire diameter: ")
d (- de d1)
px (getreal "\nSpring pitch: ")
n (getint "\nNumber of turns: ")
)
(setq n0 (getint "\nNumber of segments per turn <36>:"))
(if (not n0) (setq n0 36))
(setq
k (* n0 n)
p00 (getpoint "\nBase point: ")
p01 (polar p00 0 (/ d 2))
ag (rtd (atan (/ (* pi d) px)))
i 0
oldos (getvar "OSMODE")
)
(setvar "OSMODE" 0)
(command ".3dpoly")
(while (<= i k)
(setq
p0 (polar p00 (dtr (* i (/ 360 n0))) (/ d 2))
p1 (list (nth 0 p0) (nth 1 p0) (+ (nth 2 p0) (* i (/ px n0))))
i (+ i 1)
)
(command p1)
)
(command "")
(setq e1 (entlast))
(command "circle" p01 (/ d1 2))
(setq e2 (entlast))
(if (not rotate3d) (arxload "geom3d"))
(command "rotate3d" e2 "" p00 p01 ag)
(command "extrude" e2 "" "P" e1)
(command "view" "SWISO")
(command "erase" e1 "")
(setvar "OSMODE" oldos)
(princ)
)
;;;-------------------------------------------------------------------
- 2
###
[
#5
](http://www.cadviet.com/forum/topic/2910-cho-em-hoi-co-lisp-nao-ve-loxo-3d-khong/#entry13064)
![Cho em hỏi có lisp nào vẽ loxo 3d không ???Liên kết đến bài viết #5](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 23 February 2008 - 02:05 PM
Vâng em cũng biết vậy anh à !
1
Hình trên là dạng lò xo đường thân khai với số điểm chia tương đối nhiều và xoắn theo hình nón (với lò xo hình trụ việc vẽ sẽ đơn giản hơn). Trước kia, tôi đã vẽ trên Auto Cad 2000 khi máy có Ram= 128 Mb, nói chung là vẽ khá mất thời gian. Để nghĩ ra cách vẽ mất khoảng 3 giờ. Khi đã biết cách vẽ rồi thì nhanh cũng phải mất một tiết học 45 phút. Bây giờ máy của tôi Ram= 2 Gb chắc vẽ nhanh hơn)
Hiện trên thanh công cụ của Auto Cad 2007
Modelingcó lệnh Helixvẽ lò xo. Tôi chưa dùng lệnh thử lệnh này vì chưa có nhu cầu vẽ. Bạn thử vẽ lò xo bằng lệnh này xem sao? Chắc là sẽ nhanh hơn rất nhiều cách vẽ thủ công mà tôi đã lọ mọ vẽ từ Auto Cad 2000. Khi đã vẽ được bạn hãy nói cho mọi người biết với nhé. (Bận nhiều việc quá nên tôi cũng chưa thử vẽ theo lệnh này. Mà tại sao lại cứ phải vẽ trên Auto Cad 2000, khi sắp có Auto Cad 2009 roài nhỉ? Sao các bạn lại lạc hậu thế không biết?Tôi khuyên bạn và anh bạn của bạn là : Hãy vẽ trên Auto Cad 2007 ngay ngày mai đi. Còn trường hợp bất khả kháng mà muốn vẽ lò xo trên Auto Cad 2000, tôi sẽ hướng dẫn để bạn có thể vẽ được một cách dễ dàng. Riêng về lisp thì bạn phải cung cấp thông tin về file bản vẽ, bạn Nguyen Hoanh đã nhiệt tình giúp rồi đấy!
Đây là file bản vẽ của hình ảnh trên:
[http://www.cadviet.com/upfiles/May_33.rar
Bạn có thể tham khảo thêm bài viết :
[http://www.cadviet.com/forum/CAD-3D-t321.html
Hiện em dùng cad208 có modun mech Q rồi, vả lại nếu để vẽ lõ xo 3d thì em dùng solidwork cũng dc, nhưng cái này để phục vụ giảng dạy, mà máy ở trường thì anh biết đấy chạy được cad2000 còn khó nói chi các phiên bản mới ạ.
- Còn mục đích vẽ lò xo này chỉ để giảng dạy thôi, do vậy tiết diện chỉ cần tròn là được rồi, nếu có thể thì các anh có thể giúp em các loại sau: loxo trụ (như của anh ssg), lò xo côn, và loxo spiral.
Em cảm ơn !
- 1
###
[
#6
](http://www.cadviet.com/forum/topic/2910-cho-em-hoi-co-lisp-nao-ve-loxo-3d-khong/#entry13073)
![Cho em hỏi có lisp nào vẽ loxo 3d không ???Liên kết đến bài viết #6](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 23 February 2008 - 04:05 PM
Tôi đồng ý với bạn là giảng dạy cho học sinh thì phải dạy nguồn gốc sâu xa của vấn đề để học sinh có thể hiểu rõ đầu cua tai cá...Dạy hs là gợi mở cho hs biết đường đi lối lại để họ có thể tìm được
- Còn mục đích vẽ lò xo này chỉ để giảng dạy thôi, do vậy tiết diện chỉ cần tròn là được rồi, nếu có thể thì các anh có thể giúp em các loại sau: loxo trụ (như của anh ssg), lò xo côn, và loxo spiral.
Em cảm ơn !
**lối đi mới**cho riêng mình chứ không phải là dìu dắt họ đi theo con **đường mòn**...Người ta nói không thầy đố mày làm nên là đúng; nhưng có những cái mà thầy không thể làm được nhưng trò lại làm được. Đó là qui luật của cuộc sống... Và người thầy có quyền tự hào về điều đó... ![ Hình đã gửi](http://i225.photobucket.com/albums/dd292/ksgia2210/Untitled-13.jpg)
Ảnh trên là hình lò xo tôi vẽ thủ công trên Auto Cad 2007, rồi chyển sang Auto Cad 2004 cho dễ nhìn vì giao diện của Auto Cad 2004 đẹp hơn, rất tiện lợi khi đi in.
**Cách vẽ thủ công các loại lò xo trên Auto Cad 2000**(Thời gian vẽ không quá 10 phút)
Để vẽ lò xo trụ giả sử bạn vẽ lò xo Dngoài = 100; đường kính dây lò xo: Do= 7; bước lò xo: t = 20
từ các thông số trên bạn sẽ xác định được
**góc xoắn của lò xo là 6,1 độ**.( Hướng xoắ phải hoặc trái tuỳ ý). Trường hợp tôi đang nói ở đây là hướng xoắn phải, tiến hành vẽ theo các bước sau:
1- Trong khung nhìn:
**3DViews > Top view**, bạn vẽ hai nửa hình 3D vòng xuyến có đường kính Dn, Dt và Do trục tâm của nó // với mặt phẳng X0Y trong không gian.
2-Trong khung nhìn:
**3D Views > Front view**
-
**Rotate**nửa vòng mùa xanh đi một góc **+6,1%%D**(gốc xoay ở bên trái).
-
**Rotate**nửa vòng mùa xanh đi một góc **-6,1%%D**(gốc xoay ở bên phải)
3 -
**Move**dính hai mảnh với nhau, rồi **Copi**hoặc **Array**với khoảng cách giữa hai hàng là 20.
4-
**Union**các mảnh ghép thành 1 khối
5-
**3DViews > Top view**: **Rotate 3D góc 80%%D.**(Góc xoay tùy chọn sao cho dễ nhìn).
Dưới đây là File bản vẽ:
[http://www.cadviet.com/upfiles/L_xo.rar
- 4
###
[
#7
](http://www.cadviet.com/forum/topic/2910-cho-em-hoi-co-lisp-nao-ve-loxo-3d-khong/#entry13123)
![Cho em hỏi có lisp nào vẽ loxo 3d không ???Liên kết đến bài viết #7](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 25 February 2008 - 08:17 AM
Chương trình hoàn chỉnh vẽ 3 loại lò xo theo ý bạn. Có các lệnh:
Vâng em cũng biết vậy anh à !
Hiện em dùng cad208 có modun mech Q rồi, vả lại nếu để vẽ lõ xo 3d thì em dùng solidwork cũng dc, nhưng cái này để phục vụ giảng dạy, mà máy ở trường thì anh biết đấy chạy được cad2000 còn khó nói chi các phiên bản mới ạ.
- Còn mục đích vẽ lò xo này chỉ để giảng dạy thôi, do vậy tiết diện chỉ cần tròn là được rồi, nếu có thể thì các anh có thể giúp em các loại sau: loxo trụ (như của anh ssg), lò xo côn, và loxo spiral.
Em cảm ơn !
1) HSP: helix spring - lò xo xoắn trụ
2) SSP: spiral spring - lò xo xoắn phẳng
3) CSP: conical spring - lò xo conic
;;;-------------------------------------------------------------------
(defun DTR(x) (/ (* x pi) 180) )
;;;-------------------------------------------------------------------
(defun RTD(x) (/ (* x 180) pi) )
;;;-------------------------------------------------------------------
(defun FlatSp (p0 r0 pit n ns / da dr i a r p1)
(setq
da (/ (* 2 pi) ns)
dr (/ pit ns)
i 0
)
(command "pline")
(while (<= i (* n ns))
(setq
a (* i da)
r (+ r0 (* i dr))
p1 (polar p0 a r)
i (1+ i)
)
(command p1)
)
(command "")
)
;;;-------------------------------------------------------------------
(defun CylSp (p0 r pit n ns / da dh i a h p1 p2)
(setq
da (/ (* 2 pi) ns)
dh (/ pit ns)
i 0
)
(command "3dpoly")
(while (<= i (* n ns))
(setq
a (* i da)
h (* i dh)
p1 (polar p0 a r)
p2 (list (car p1) (cadr p1) (+ (caddr p1) h))
i (1+ i)
)
(command p2)
)
(command "")
)
;;;-------------------------------------------------------------------
(defun ConeSp (p0 r0 pit1 pit2 n ns / da dr dh i a h r p1 p2)
(setq
da (/ (* 2 pi) ns)
dr (/ pit1 ns)
dh (/ pit2 ns)
i 0
)
(command "3dpoly")
(while (<= i (* n ns))
(setq
a (* i da)
h (* i dh)
r (+ r0 (* i dr))
p1 (polar p0 a r)
p2 (list (car p1) (cadr p1) (+ (caddr p1) h))
i (1+ i)
)
(command p2)
)
(command "")
)
;;;-------------------------------------------------------------------
(defun GetSegment()
(if (not ns0) (setq ns0 36))
(setq ns (getint (strcat "\nNumber of segments per turn <" (itoa ns0) ">:")))
(if (not ns) (setq ns ns0) (setq ns0 ns))
)
;;;-------------------------------------------------------------------
(defun MakeSpring()
(setq e1 (entlast))
(command "circle" p1 (/ d1 2))
(setq e2 (entlast))
(if (not rotate3d) (arxload "geom3d"))
(command "rotate3d" e2 "" p0 p1 ag)
(command "extrude" e2 "" "P" e1)
(command "view" "SWISO")
(setvar "OSMODE" oldos)
(princ)
)
;;;*********************************************************
(defun C:HSP ( / de d1 d pit n ns p0 p1 ag oldos e1 e2) ;;;Helix SPring
(setq
de (getreal "\nOutside diameter: ")
d1 (getreal "\nWire diameter: ")
d (- de d1)
pit (getreal "\nPitch: ")
n (getint "\nNumber of turns: ")
)
(GetSegment)
(setq
p0 (getpoint "\nBase point: ")
p1 (polar p0 0 (/ d 2))
ag (rtd (atan (/ (* pi d) pit)))
oldos (getvar "OSMODE")
)
(setvar "OSMODE" 0)
(CylSp p0 (/ d 2) pit n ns)
(MakeSpring)
)
;;;*********************************************************
(defun C:SSP( / r0 d1 pit n ns p0 p1 oldos e1 e2) ;;;Spiral SPring
(setq
r0 (getreal "\nBase radius: ")
d1 (getreal "\nWire diameter: ")
pit (getreal "\nPitch: ")
n (getint "\nNumber of turns: ")
)
(GetSegment)
(setq
p0 (getpoint "\nBase point: ")
p1 (polar p0 0 r0)
ag 90
oldos (getvar "OSMODE")
)
(setvar "OSMODE" 0)
(FlatSp p0 r0 pit n ns)
(MakeSpring)
)
;;;*********************************************************
(defun C:CSP ( / r0 d1 pit1 pit2 n ns p0 p1 oldos e1 e2) ;;;Conical SPring
(setq
r0 (getreal "\nBase radius: ")
d1 (getreal "\nWire diameter: ")
pit1 (getreal "\nSpiral pitch: ")
pit2 (getreal "\nHelix pitch: ")
n (getint "\nNumber of turns: ")
)
(GetSegment)
(setq
p0 (getpoint "\nBase point: ")
p1 (polar p0 0 r0)
ag 90
oldos (getvar "OSMODE")
)
(setvar "OSMODE" 0)
(ConeSp p0 r0 pit1 pit2 n ns)
(MakeSpring)
)
;;;*********************************************************
@ksgia: Có vẻ bác hơi cực đoan? Tiếp cận, tìm hiểu cái mới là điều đáng khuyến khích nhưng có phải lúc nào việc dùng phần mềm mới nhất cũng là sự lựa chọn tốt nhất? Anh bạn vanhien đã bảo là máy ở trường chạy Cad2000 còn ì ạch, làm sao chơi được với các thằng 2007, 2008? Theo ssg, tuỳ theo hoàn cảnh và điều kiện cụ thể, thậm chí nếu điều kiến không cho phép (máy yếu, vấn đề bản quyền nghiêm ngặt hơn, không có tiền mua phần mềm mạnh v.v...) thì dùng Cad R13, R14 vẫn tốt chán!
Bản thân ssg vẫn thường xuyên dùng Cad2002 trong công việc hàng ngày. Có mấy lý do cơ bản:
- Chỗ ssg làm việc theo nhóm nối mạng LAN, trong đó có nhiều máy rất yếu, chạy Cad2002 là đã quá sức rồi. Trong khi đó, nhu cầu trao đổi dữ liệu *.dwg lẫn nhau giữa các thành viên trong nhóm rất thường xuyên. Cho dù Cad đới sau luôn luôn có tính năng saveas theo đời trước nhưng dùng Cad với nhiều phiên bản khác nhau rất bất tiện, mất thời gian, dễ nhầm lẫn... cho nên phải thống nhất version chung là 2002. Máy ssg có cài Cad2007 nhưng vẫn phải theo "mặt bằng" chung, mình thỉnh thoảng dùng Cad2007 chỉ để nghiên cứu thôi.
- Có một số phần mềm và tiện ích nhỏ, hỗ trợ thiết kế chuyên ngành rất hiệu quả (tương tự như chương trình khai triển hình gò SolidShape) nhưng chúng chỉ tương thích được đến đời Cad2002.
- Nói cho cùng, AutoCAD cũng chỉ là phần mềm hỗ trợ vẽ, là phương tiện thể hiện ý đồ của người thiết kế. Ngoại trừ một vài tính năng chỉ Cad2007, 2008 mới có, với sự hỗ trợ của các tiện ích lisp, ssg thấy làm việc với mọi version của Cad đều hiệu quả như nhau. Ví dụ, dùng lisp có thể vẽ được cả 3 dạng lò xo như trên với thời gian thao tác cho mỗi loại không quá 20 giây, bất kể đời Cad nào! Bác không tin cứ dùng thử 1 lần thì biết. Nếu bác thấy thích, ssg sẽ làm luôn phần giao diện thật bắt mắt (như một trình ứng dụng chuyên nghiệp) để tặng bác?
- Không riêng gì Cad, với các phần mềm khác cũng vậy:
**vấn đề không phải ở chỗ bạn dùng phần mềm nào mà là bạn dùng phần mềm như thế nào!**
- 4
###
[
#8
](http://www.cadviet.com/forum/topic/2910-cho-em-hoi-co-lisp-nao-ve-loxo-3d-khong/#entry13131)
![Cho em hỏi có lisp nào vẽ loxo 3d không ???Liên kết đến bài viết #8](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 25 February 2008 - 10:44 AM
- 1
###
[
#9
](http://www.cadviet.com/forum/topic/2910-cho-em-hoi-co-lisp-nao-ve-loxo-3d-khong/#entry13203)
![Cho em hỏi có lisp nào vẽ loxo 3d không ???Liên kết đến bài viết #9](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 27 February 2008 - 12:58 PM
K đã nhận được 2 @ từ bác ssg.
@ksgia: Có vẻ bác hơi cực đoan? Tiếp cận, tìm hiểu cái mới là điều đáng khuyến khích nhưng có phải lúc nào việc dùng phần mềm mới nhất cũng là sự lựa chọn tốt nhất? Nếu bác thấy thích, ssg sẽ làm luôn phần giao diện thật bắt mắt (như một trình ứng dụng chuyên nghiệp) để tặng bác?
- Không riêng gì Cad, với các phần mềm khác cũng vậy:
vấn đề không phải ở chỗ bạn dùng phần mềm nào mà là bạn dùng phần mềm như thế nào!
K hoàn toàn nhất trí với quan điểm mà bác đã lý giải ở phần trên.
-Vẽ lò xo thì k không dùng nhiều, nên cũng không có nhu cầu về phần giao diện.
K xin hỏi là bác có thể chuyển được chương trình khai triển hình gò SolidShape thành líp để dùng chung cho các loại Auto Cad được không? Ở công ty K đang dùng Auto Cad 2007.
Cảm ơn nhiều những người thân yêu nhất của bác đang là hậu phương vững chắc, cơm dẻo canh ngọt để bác có được một sức khoẻ dồi dào; trước hết là phục vụ gia đình sau đó là tranh thủ "Post bài qua đoạn đèo Ngang rầm rầm".
- 0
###
[
#10
](http://www.cadviet.com/forum/topic/2910-cho-em-hoi-co-lisp-nao-ve-loxo-3d-khong/#entry13205)
![Cho em hỏi có lisp nào vẽ loxo 3d không ???Liên kết đến bài viết #10](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 27 February 2008 - 01:22 PM
SolidShape là một trình ứng dụng hoàn chỉnh, do một hãng phần mềm làm ra. Lisp không thể can thiệp gì được!
K đã nhận được 2 @ từ bác ssg. Vẽ lò xo thì k không dùng nhiều, nên cũng không có nhu cầu về phần giao diện.
K xin hỏi là bác có thể chuyển được chương trình khai triển hình gò SolidShape thành líp để dùng chung cho các loại Auto Cad được không? Ở công ty K đang dùng Auto Cad 2007.
Cảm ơn nhiều những người thân yêu nhất của bác đang là hậu phương vững chắc, cơm dẻo canh ngọt để bác có được một sức khoẻ rồi dào; trước hết là phục vụ gia đình sau đó là tranh thủ "Post bài qua đoạn đèo Ngang rầm rầm".
Về nguyên tắc, ta có thể tự lập một chương trình khai triển hình gò tương tự như SolidShape bằng Lisp. Tuy nhiên, có những lý do rất chính đáng để không làm việc ấy:
1) Công sức phải bỏ ra để làm một ứng dụng tương đương như vậy rất nhiều.
2) Người ta đã làm sẵn rồi, giao diện thân thiện, sử dụng hiệu quả, hầu như không thiếu dạng nào trong thực tế sản xuất cơ khí -> ta chỉ việc dùng thôi. Trước đây ssg cũng đã làm vài đoạn lisp cho mục đích này (hình nón, nón cụt, chóp cụt đều và co nối ống), nhưng từ khi biết trình SolidShape thì đã thôi, không phát triển tiếp nữa.
3) Bác đang dùng Cad2007 thì cứ việc dùng, chỉ cần cài thêm Cad2000 hoặc 2002 (trên máy ssg vẫn đang cài 2 bản Cad, chẳng ảnh hưởng gì cả). Bác mở Cad2000 hoặc 2002 để chạy SolidShape và export kết quả sang. Có kết quả rồi thì lưu lại, dùng Cad2007 mở và xử lý tiếp.
- 1
###
[
#11
](http://www.cadviet.com/forum/topic/2910-cho-em-hoi-co-lisp-nao-ve-loxo-3d-khong/#entry54604)
![Cho em hỏi có lisp nào vẽ loxo 3d không ???Liên kết đến bài viết #11](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 04 April 2009 - 11:06 AM
- Không riêng gì Cad, với các phần mềm khác cũng vậy:
**vấn đề không phải ở chỗ bạn dùng phần mềm nào mà là bạn dùng phần mềm như thế nào!**
[/quote]
Thật tuyệt vời, tôi rất khoái ý này của bạn
- 0
**Tớ nẫu đây ! Khà khà**
###
[
#12
](http://www.cadviet.com/forum/topic/2910-cho-em-hoi-co-lisp-nao-ve-loxo-3d-khong/#entry54611)
![Cho em hỏi có lisp nào vẽ loxo 3d không ???Liên kết đến bài viết #12](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 04 April 2009 - 02:18 PM
-4r Cadviet thấy rất nhiều lão làng sử dụng rất tốt. lisp cái này em tiếp cận ít lắm trc đây có viết đc một vài code nhỏ như thể hiện cặp ăn khớp trục vít bánh vít làm đề tài nghiên cứu khoa học( em đang là sinh viên năm cuối thôi ạ).Xong bây giờ như em thấy các phần mềm 3D bây giờ có độ tương thích với nhau rất tốt chúng có thể đọc và xuất sang 2d khá thuận tiện, và mô phỏng thì thấy khá đẹp và chuyên nghiệp em có băn khoăn là tại sao các anh lại phải châm cứu những đoạn lisp này trong khi các phần mềm mới hiện nay có thể giải quyết chúng dễ dàng./. Một câu hỏi hơi thừa nếu có gì mạo phạm kính mong các anh bỏ qua.
P/S: em xin bổ xung thêm ý bác
Sử dụng và cách sử dụng thì do quá trình làm việc + sự bền bỉ nghiên cứu về nó thì có thể kô là siêu việt nhưng nắm đc và sử dụng nó chắc không quá khó khăn, quan trọng là tư duy nghề nghiệp phải không anh??:">
vấn đề không phải ở chỗ bạn dùng phần mềm nào mà là bạn dùng phần mềm như thế nào!
- 0


markdown:
[](http://www.cadviet.com/forum/user/7131-ar-chanwoo/)
![ Hình ảnh](http://www.gravatar.com/avatar/b0b511159181aad96d36b07c76d7f976?s=100&d=http%3A%2F%2Fwww.cadviet.com%2Fforum%2Fpublic%2Fstyle_images%2Fmaster%2Fprofile%2Fdefault_large.png)
# Lại Vấn Đề Chuyển VLX Sang Lsp
[Ar_Chanwoo](http://www.cadviet.com/forum/user/7131-ar-chanwoo/), Mar 25 2008 12:06 PM
###
[
#1
](http://www.cadviet.com/forum/topic/3252-lai-van-de-chuyen-vlx-sang-lsp/#entry15061)
![Lại Vấn Đề Chuyển VLX Sang LspLiên kết đến bài viết #1](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 25 March 2008 - 12:06 PM
- 0
###
[
#2
](http://www.cadviet.com/forum/topic/3252-lai-van-de-chuyen-vlx-sang-lsp/#entry15066)
![Lại Vấn Đề Chuyển VLX Sang LspLiên kết đến bài viết #2](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 25 March 2008 - 12:25 PM
Mình nghe nói là không chuyển VLX sang LSP được mà
Mình đã tìm rất nhiều nơi mà không thấy công cụ dịch File Lsp đã mã hoá ! Ai có thì Post lên cho mọi người cùng sử dụng đi chứ ! Mình biết trên diễn đàn nhiều người có ! Hoặc có thể cho riêng e đc không ? Mail : manhcuong_adg@yaoo.com. Hơi tham lamkiểu nông dân nhưng mà đang cần lấm!
- 0
###
[
#3
](http://www.cadviet.com/forum/topic/3252-lai-van-de-chuyen-vlx-sang-lsp/#entry15067)
![Lại Vấn Đề Chuyển VLX Sang LspLiên kết đến bài viết #3](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 25 March 2008 - 12:30 PM
Mình nghĩ là có đó ! Sao lại không cơ chứ ! Bạn biết cách khoá cửa thì bạn cũng phải biết cách mở cửa mà ! Suy luận theo kiểu chim ăn đc thì người cũng phải ăn đc!!
Mình nghe nói là không chuyển VLX sang LSP được mà
- 0
###
[
#4
](http://www.cadviet.com/forum/topic/3252-lai-van-de-chuyen-vlx-sang-lsp/#entry15093)
![Lại Vấn Đề Chuyển VLX Sang LspLiên kết đến bài viết #4](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 25 March 2008 - 02:06 PM
Vấn đề này bạn hỏi bác: VN.......dos ấy!
Mình nghĩ là có đó ! Sao lại không cơ chứ ! Bạn biết cách khoá cửa thì bạn cũng phải biết cách mở cửa mà ! Suy luận theo kiểu chim ăn đc thì người cũng phải ăn đc!!
Hình như bạn bác ấy biết nhưng nhiều lần rặng hỏi mà chưa hồi âm!
- 0
###
[
#5
](http://www.cadviet.com/forum/topic/3252-lai-van-de-chuyen-vlx-sang-lsp/#entry15095)
![Lại Vấn Đề Chuyển VLX Sang LspLiên kết đến bài viết #5](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 25 March 2008 - 02:14 PM
Chắc bác đang lăn tăn cái vụ Hỗ trợ CAD2004 phải không? Bác này tinh vi thật
Mình đã tìm rất nhiều nơi mà không thấy công cụ dịch File Lsp đã mã hoá ! Ai có thì Post lên cho mọi người cùng sử dụng đi chứ ! Mình biết trên diễn đàn nhiều người có ! Hoặc có thể cho riêng e đc không ? Mail : manhcuong_adg@yaoo.com. Hơi tham lamkiểu nông dân nhưng mà đang cần lấm!
![ <_<](http://www.cadviet.com/forum/public/style_emoticons/default/iluvyousmiley.gif)
![ :cheers:](http://www.cadviet.com/forum/public/style_emoticons/default/cheers.gif)
- 0
###
[
#6
](http://www.cadviet.com/forum/topic/3252-lai-van-de-chuyen-vlx-sang-lsp/#entry15098)
![Lại Vấn Đề Chuyển VLX Sang LspLiên kết đến bài viết #6](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 25 March 2008 - 03:00 PM
Mình nghĩ là có đó ! Sao lại không cơ chứ ! Bạn biết cách khoá cửa thì bạn cũng phải biết cách mở cửa mà ! Suy luận theo kiểu chim ăn đc thì người cũng phải ăn đc!!
Cái này không phải là cái khóa. Giống như là gạo nấu thành cơm thì được chứ cơm có convert lại được gạo không. Nếu mà cố làm thì thành cơm khô thôi.
Còn chim ăn được chưa chắc người ăn được. Bạn có biết kền kền và quạ ăn thứ gì không???
- 0
###
[
#7
](http://www.cadviet.com/forum/topic/3252-lai-van-de-chuyen-vlx-sang-lsp/#entry15099)
![Lại Vấn Đề Chuyển VLX Sang LspLiên kết đến bài viết #7](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 25 March 2008 - 03:03 PM
Chắc bác đang lăn tăn cái vụ Hỗ trợ CAD2004 phải không? Bác này tinh vi thật
Các file VLX thì hỗ trợ mọi phiên bản CAD rồi. Vậy nên nếu đã chạy tốt trên CAD2007 thì cũng tốt trên CAD2004 và ngược lại. Chẳng có gì để lo lắng
- 0
###
[
#8
](http://www.cadviet.com/forum/topic/3252-lai-van-de-chuyen-vlx-sang-lsp/#entry15100)
![Lại Vấn Đề Chuyển VLX Sang LspLiên kết đến bài viết #8](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 25 March 2008 - 03:04 PM
Vấn đề này bạn hỏi bác: VN.......dos ấy!
Hình như bạn bác ấy biết nhưng nhiều lần rặng hỏi mà chưa hồi âm!
Nếu mà cần dịch ngược từ VLX sang LISP thì cứ gửi vào vkcuong.23@gmail.com
Còn đưa chương trình lên đây sợ không kiểm soát được
Sẽ ảnh hưởng đến nhiều người
- 0
###
[
#9
](http://www.cadviet.com/forum/topic/3252-lai-van-de-chuyen-vlx-sang-lsp/#entry15135)
![Lại Vấn Đề Chuyển VLX Sang LspLiên kết đến bài viết #9](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 25 March 2008 - 08:33 PM
Haha! Bác cứ đi guoc trong bụng e thế khó chịu lém !
Chắc bác đang lăn tăn cái vụ Hỗ trợ CAD2004 phải không? Bác này tinh vi thật
- 0
###
[
#10
](http://www.cadviet.com/forum/topic/3252-lai-van-de-chuyen-vlx-sang-lsp/#entry15478)
![Lại Vấn Đề Chuyển VLX Sang LspLiên kết đến bài viết #10](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 29 March 2008 - 03:38 PM
Có nghĩa là có chương trình đó!
Nếu mà cần dịch ngược từ VLX sang LISP thì cứ gửi vào vkcuong.23@gmail.com
Còn đưa chương trình lên đây sợ không kiểm soát được
Sẽ ảnh hưởng đến nhiều người
- 0
###
[
#11
](http://www.cadviet.com/forum/topic/3252-lai-van-de-chuyen-vlx-sang-lsp/#entry19085)
![Lại Vấn Đề Chuyển VLX Sang LspLiên kết đến bài viết #11](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 20 May 2008 - 01:51 PM
nhờ bác chuyển cho em 1 cái để xài với, em mong lắm, Email: tuvan_thietke_xaydung@yahoo.com
Nếu mà cần dịch ngược từ VLX sang LISP thì cứ gửi vào vkcuong.23@gmail.com
Còn đưa chương trình lên đây sợ không kiểm soát được
Sẽ ảnh hưởng đến nhiều người
- 0
###
[
#12
](http://www.cadviet.com/forum/topic/3252-lai-van-de-chuyen-vlx-sang-lsp/#entry19089)
![Lại Vấn Đề Chuyển VLX Sang LspLiên kết đến bài viết #12](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 20 May 2008 - 02:47 PM
Bác ấy đã nói rồi. kg phân phối rộng rãi mà. Ai nhỡ có rồi thì thôi.
nhờ bác chuyển cho em 1 cái để xài với, em mong lắm, Email: tuvan_thietke_xaydung@yahoo.com
Vì Bác ấy đã lên tiếng nên chẳng ai gửi cho Bạn đâu.
Cân gì thì cứ gửi file nhờ Bác ấy dịch dùm
- 0
###
[
#13
](http://www.cadviet.com/forum/topic/3252-lai-van-de-chuyen-vlx-sang-lsp/#entry19373)
![Lại Vấn Đề Chuyển VLX Sang LspLiên kết đến bài viết #13](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 24 May 2008 - 01:31 AM
Cái này không phải là cái khóa. Giống như là gạo nấu thành cơm thì được chứ cơm có convert lại được gạo không. Nếu mà cố làm thì thành cơm khô thôi.
Fải nói là Mr vndesperados có fần mềm convert xịn, thấy bác trao đổi với Aboutlisp mà post lại code nguyên vẹn là đủ hiểu rồi...
- 0
###
[
#14
](http://www.cadviet.com/forum/topic/3252-lai-van-de-chuyen-vlx-sang-lsp/#entry25747)
![Lại Vấn Đề Chuyển VLX Sang LspLiên kết đến bài viết #14](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 28 July 2008 - 11:31 PM
[http://www.ketcau.co...on=soft&cate=16](http://www.ketcau.com/index.php?action=soft&cate=16)
có đấy. cái 0.11 Mb ý
- 2
###
[
#15
](http://www.cadviet.com/forum/topic/3252-lai-van-de-chuyen-vlx-sang-lsp/#entry25757)
![Lại Vấn Đề Chuyển VLX Sang LspLiên kết đến bài viết #15](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 29 July 2008 - 12:40 AM
Bạn download đc chưa ! Gửi cho mình với !
[http://www.ketcau.co...on=soft&cate=16]
có đấy. cái 0.11 Mb ý
Mail : manhcuong_v20@live.com
Thanks!
- 0
###
[
#16
](http://www.cadviet.com/forum/topic/3252-lai-van-de-chuyen-vlx-sang-lsp/#entry25858)
![Lại Vấn Đề Chuyển VLX Sang LspLiên kết đến bài viết #16](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 29 July 2008 - 10:00 PM
[http://www.cadviet.com/upfiles/323.exe](http://www.cadviet.com/upfiles/323.exe)
Tớ cũng chưa dùng thử..kaka
- 4
###
[
#17
](http://www.cadviet.com/forum/topic/3252-lai-van-de-chuyen-vlx-sang-lsp/#entry25860)
![Lại Vấn Đề Chuyển VLX Sang LspLiên kết đến bài viết #17](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 29 July 2008 - 10:28 PM
Mình thử rồi ! Convert ra đc nhưng sắp xếp lôn xộn lắm ! Phai biết lisp mới sưa đc !
[http://www.cadviet.com/upfiles/323.exe]
Tớ cũng chưa dùng thử..kaka
- 0
###
[
#18
](http://www.cadviet.com/forum/topic/3252-lai-van-de-chuyen-vlx-sang-lsp/#entry25909)
![Lại Vấn Đề Chuyển VLX Sang LspLiên kết đến bài viết #18](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 30 July 2008 - 11:12 AM
[http://www.cadviet.com/upfiles/323.exe]
Tớ cũng chưa dùng thử..kaka
ĐƯỢC ĐƯỢC ĐẤY CÁC BÁC Ạ!
- 0
###
[
#19
](http://www.cadviet.com/forum/topic/3252-lai-van-de-chuyen-vlx-sang-lsp/#entry25914)
![Lại Vấn Đề Chuyển VLX Sang LspLiên kết đến bài viết #19](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 30 July 2008 - 11:47 AM
Phải nói là Tuyetvoi.com
ĐƯỢC ĐƯỢC ĐẤY CÁC BÁC Ạ!
Pác ấn nút thanks đi chứ
- 0
###
[
#20
](http://www.cadviet.com/forum/topic/3252-lai-van-de-chuyen-vlx-sang-lsp/#entry53789)
![Lại Vấn Đề Chuyển VLX Sang LspLiên kết đến bài viết #20](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 27 March 2009 - 07:30 PM
Tôi đã dùng thử chương trình này dịch ngược một file FAS về file có dạng LISP nhưng thấy không có hiệu quả, câu lệnh lộn xộn, nói chung không hiểu nổi các bác à, tôi đưa lên một đọan cho các bác xem thử nhé :
Phải nói là Tuyetvoi.com
Pác ấn nút thanks đi chứ
(defun main
FasStringtables 0
FasStringtables 1
(defun main
nil
(setq HELTN
HELTN
(setq ABOUTTN
ABOUTTN
(setq CAT
CAT
(setq SUB
SUB
(setq LUASOLIEU
LUASOLIEU
(setq DOCSOLIEU
DOCSOLIEU
(setq CDMA
CDMA
(setq TDO_INPUT
TDO_INPUT
(setq TDO_OPTION
TDO_OPTION
do trình độ có hạn nên ko hiểu đọan code sai chỗ nào mong các anh em trên diễn đàn ra tay chỉ giáo.
- 0


markdown:
Em hỏi các bác làm bên trắc địa, thông thường khi các bác đi đo về, có số liệu của một vùng và muốn vẽ địa hình của vùng đó, thì sử dụng phần mềm khác rồi Export sang Cad hay vẽ trực tiếp từ Cad luôn, nếu vẽ trực tiếp thì dùng như thế nào?, nếu vẽ từ phần mềm khác thì sử dụng phần mềm gì?
Em cảm ơn!
[](http://www.cadviet.com/forum/user/4308-hoa-trang-trang/)
![ Hình ảnh](http://www.gravatar.com/avatar/af4d6b789657e22b60cc6a9112bd9372?s=100&d=http%3A%2F%2Fwww.cadviet.com%2Fforum%2Fpublic%2Fstyle_images%2Fmaster%2Fprofile%2Fdefault_large.png)
# Xin hỏi về bản vẽ Cad sử dụng trong chuyên ngành trắc địa
Bắt đầu bởi
[Hoa Trang trắng](http://www.cadviet.com/forum/user/4308-hoa-trang-trang/), May 12 2008 10:11 AM
1 reply to this topic
###
[
#1
](http://www.cadviet.com/forum/topic/3843-xin-hoi-ve-ban-ve-cad-su-dung-trong-chuyen-nganh-trac-dia/#entry18404)
![Xin hỏi về bản vẽ Cad sử dụng trong chuyên ngành trắc địaLiên kết đến bài viết #1](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 12 May 2008 - 10:11 AM
- 0
###
[
#2
](http://www.cadviet.com/forum/topic/3843-xin-hoi-ve-ban-ve-cad-su-dung-trong-chuyen-nganh-trac-dia/#entry18406)
![Xin hỏi về bản vẽ Cad sử dụng trong chuyên ngành trắc địaLiên kết đến bài viết #2](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 12 May 2008 - 10:23 AM
Cụ thể số liệu đo của bạn là dạng gì? nếu giữ liệu là dạng điểm đo ( X,Y,Cao độ) thì bạn cần sử dụng phần mềm hoặc các lisp để khai triển thành các điểm đo trên bản vẽ vì AutoCad không có các tiện ích sẵn có để làm công việc này , bạn có thể sử dụng các phần mềm phổ biến như Nova,Softdesk,LandDesktop,Sunfer,Civil3D... Trên diễn đàn đã đề cập đến nhiều
Em hỏi các bác làm bên trắc địa, thông thường khi các bác đi đo về, có số liệu của một vùng và muốn vẽ địa hình của vùng đó, thì sử dụng phần mềm khác rồi Export sang Cad hay vẽ trực tiếp từ Cad luôn, nếu vẽ trực tiếp thì dùng như thế nào?, nếu vẽ từ phần mềm khác thì sử dụng phần mềm gì?
Em cảm ơn!
- 1