text:
Thông báo tại cuộc họp báo thường kỳ lần thứ 14 năm 2012 của Người Phát ngôn Bộ Ngoại giao
Bộ Ngoại giao Vụ Thông tin Báo chí
HỌP BÁO THƯỜNG KỲ LẦN THỨ 14(Hà Nội, ngày 8 tháng 11 năm 2012)
I. PHẦN THÔNG BÁO:
1. Thủ tướng Chính phủ Nguyễn Tấn Dũng dự Hội nghị Cấp cao ASEAN lần thứ 21 và các Hội nghị Cấp cao liên quan tại Phnôm Pênh, Campuchia (17-20/11/2012)
Nhận lời mời của Thủ tướng Chính phủ Hoàng gia Campuchia Xăm-đéc Tê-chô Hun Xen (Samdech Techo Hunsein), Chủ tịch Hội nghị Cấp cao ASEAN lần thứ 21 và các Hội nghị Cấp cao liên quan, từ ngày 17-20/11/2012, Thủ tướng Chính phủ Nguyễn Tấn Dũng sẽ dẫn đầu Đoàn đại biểu Việt Nam tham dự Hội nghị Cấp cao ASEAN lần thứ 21 và các Hội nghị Cấp cao liên quan, bao gồm Hội nghị Cấp cao ASEAN+3, các Cấp cao ASEAN+1 với các đối tác Trung Quốc, Nhật Bản, Hàn Quốc, Ấn Độ và Hoa Kỳ, Hội nghị Cấp cao Đông Á (EAS) tại Phnôm Pênh, Campuchia.
Đoàn Việt Nam tham dự các Hội nghị lần này với tinh thần “chủ động, tích cực và có trách nhiệm”, tiếp tục phát huy các kết quả tích cực đã đạt được thời gian qua, cùng các nước ASEAN và Chủ tịch ASEAN Campuchia đóng góp vào thành công của các Hội nghị Cấp cao, củng cố đoàn kết và vai trò trung tâm của ASEAN, góp phần xây dựng một ASEAN đoàn kết và vững mạnh, góp phần thúc đẩy hòa bình, an ninh, ổn định, hợp tác và phát triển ở khu vực.
2. Tổng thống Iran Mahmoud Ahmadinejad thăm chính thức Việt Nam (9-10/11/2012)
Nhận lời mời của Chủ tịch nước Trương Tấn Sang, Tổng thống Cộng hòa Hồi giáo Iran Mahmoud Ahmadinejad (Mác-mút Ác-mát-đi-nê-dát) sẽ thăm chính thức Việt Nam từ ngày 9-10/11/2012.
Nhân dịp này, hai bên sẽ bàn về các biện pháp thúc đẩy hợp tác song phương trong các lĩnh vực thương mại, đầu tư, nông nghiệp, văn hóa, du lịch…; trao đổi về các vấn đề quốc tế và khu vực cùng quan tâm.
Tổng thống Mahmoud Ahmadinejad sẽ hội kiến Lãnh đạo cấp cao Việt Nam, đi thăm một số cơ sở kinh tế, văn hóa tại Hà Nội…
3. Thủ tướng U-crai-na Mykola Azarov thăm chính thức Việt Nam (15-16/11/2012)
Nhận lời mời của Thủ tướng Chính phủ Nguyễn Tấn Dũng, Thủ tướng U-crai-na Mykola Azarov (Nhi-cô-lai A-da-rốp) sẽ thăm chính thức Việt Nam từ 15-16/11/2012.
Chuyến thăm nhằm phát triển hơn nữa quan hệ hữu nghị và hợp tác nhiều mặt giữa Việt Nam và U-crai-na, tiếp tục duy trì đối thoại giữa Lãnh đạo cấp cao hai nước. Hai nhà lãnh đạo sẽ trao đổi các phương hướng và biện pháp nhằm thúc đẩy hợp tác trong các lĩnh vực, đặc biệt là kinh tế - thương mại – đầu tư, khoa học – kỹ thuật, an ninh – quốc phòng…cũng như trao đổi một số vấn đề quốc tế và khu vực hai bên cùng quan tâm.
Thủ tướng U-crai-na Nhi-cô-lai A-da-rốp sẽ hội đàm với Thủ tướng Chính phủ Nguyễn Tấn Dũng và hội kiến Lãnh đạo cấp cao của Việt Nam.
4. Bộ trưởng Ngoại giao Mác-xê-đô-ni-a Nikola Poposki thăm chính thức Việt Nam (11-13/11/2012)
Nhận lời mời của Bộ trưởng Ngoại giao Phạm Bình Minh, Bộ trưởng Ngoại giao Mác-xê-đô-ni-a Nikola Poposki sẽ thăm chính thức Việt Nam từ ngày 11-13/11/2012.
Chuyến thăm Việt Nam lần này của Bộ trưởng Ngoại giao Nikola Poposki nhằm củng cố và phát triển mối quan hệ hữu nghị truyền thống giữa hai nước, trao đổi các biện pháp tăng cường hợp tác trong các lĩnh vực chính trị - ngoại giao, kinh tế - thương mại, văn hóa – du lịch v.v…; trao đổi về hợp tác giữa hai Bộ Ngoại giao trong thời gian tới cũng như về các vấn đề quốc tế, khu vực cùng quan tâm.
Bộ trưởng Ngoại giao Nikola Poposki sẽ hội đàm với Bộ trưởng Ngoại giao Phạm Bình Minh và chào xã giao Chủ tịch nước Trương Tấn Sang.
II. PHẦN TRẢ LỜI CÂU HỎI CỦA PHÓNG VIÊN
1. Câu hỏi: Đề nghị cho biết quan điểm của Việt Nam về việc Lào khởi công xây dựng đập thủy điện Xay-nha-bu-ly?
Trả lời:
Việc khai thác và sử dụng công bằng, hợp lý các nguồn tài nguyên, đặc biệt là nguồn nước sông Mekong, có ý nghĩa quan trọng góp phần bảo đảm sự phát triển bền vững chung của lưu vực sông Mekong, vì lợi ích chung của các quốc gia ven sông và người dân sinh sống tại khu vực này.
Trong trao đổi với Lào cũng như với các nước trong Ủy hội sông Mekong quốc tế về kế hoạch xây dựng đập thủy điện Xay-nha-bu-ly trên dòng chính sông Mekong, Việt Nam đã nhiều lần bày tỏ quan điểm của Việt Nam là việc xây dựng các công trình thủy điện trên dòng chính sông Mekong cần được đặt trong tổng thể quản lý và phát triển bền vững sông Mekong và đã đề nghị các nước cùng phối hợp tiến hành nghiên cứu tổng thể các tác động của các dự án thủy điện dòng chính đối với sự phát triển bền vững của lưu vực sông Mekong.
Chúng tôi được biết Chính phủ Lào quyết định khởi công xây dựng thuỷ điện Xay-nha-bu-ly sau khi đã điều chỉnh thiết kế của công trình để giảm thiểu tác động đối với hạ du và trong quá trình xây dựng, nếu phát hiện công trình gây tác hại lớn sẽ dừng ngay dự án. Chúng tôi mong rằng phía Lào sẽ tiếp tục tiến hành nghiên cứu tác động môi trường và hoàn thiện thiết kế của đập Xay-nha-bu-ly; đồng thời phối hợp với Việt Nam, Cam-pu-chia và Thái Lan cùng tiến hành nghiên cứu tổng thể, kỹ lưỡng, toàn diện các tác động lũy tích về môi trường, kinh tế, xã hội của tất cả các công trình thủy điện dự kiến xây dựng trên dòng chính sông Mê Công.
2. Câu hỏi: Đề nghị cho biết kết quả của Đàm phán vòng II về việc hợp tác trong các lĩnh vực ít nhạy cảm trên biển giữa Việt Nam và Trung Quốc?
Thực hiện nhận thức chung của Lãnh đạo cấp cao hai nước Việt Nam, Trung Quốc và nguyên tắc chỉ đạo được xác định trong “Thỏa thuận về những nguyên tắc cơ bản chỉ đạo giải quyết vấn đề trên biển Việt Nam – Trung Quốc” được hai nước ký ngày 11 tháng 10 năm 2011, từ ngày 6 đến ngày 8 tháng 11 năm 2012 tại Hà Nội, hai bên đã tổ chức đàm phán vòng II Nhóm công tác về hợp tác trong các lĩnh vực ít nhạy cảm trên biển.
Tại cuộc họp, hai bên đã trình bày và trao đổi ý kiến về các dự án ưu tiên hợp tác liên quan 04 lĩnh vực bảo vệ môi trường biển, nghiên cứu khoa học biển, tìm kiếm cứu nạn trên biển và phòng chống thiên tai theo các nguyên tắc đã được xác định trong “Thỏa thuận về những nguyên tắc cơ bản chỉ đạo giải quyết vấn đề trên biển Việt Nam – Trung Quốc”. Hai bên nhất trí giao cho các Tổ chuyên gia thuộc Nhóm công tác sớm khởi động nghiên cứu, đóng góp ý kiến sơ bộ về các dự án ưu tiên hợp tác để tiếp tục trao đổi tại vòng đàm phán tiếp theo dự kiến tổ chức vào nửa đầu năm 2013.
3. Câu hỏi: Việt Nam có dự định nêu vấn đề Biển Đông tại Hội nghị Cấp cao ASEAN 21 và các Hội nghị Cấp cao liên quan không?
Tại HNCC ASEAN 21 và các Cấp cao liên quan, Lãnh đạo các nước sẽ trao đổi về nhiều vấn đề, trong đó có những nội dung liên quan đến duy trì hòa bình, ổn định, an ninh ở khu vực.
Là thành viên chủ động, tích cực và có trách nhiệm, Việt Nam đã, đang và sẽ cùng các nước ASEAN tiếp tục củng cố và duy trì tinh thần và các nguyên tắc hoạt động ASEAN, phấn đấu tăng cường hơn nữa vai trò trung tâm của Hiệp hội trong các tiến trình khu vực,vì hòa bình, ổn định, an ninh, hợp tác và phát triển ở khu vực và trên thế giới.
4. Câu hỏi: Trong bối cảnh kim ngạch thương mại với Trung Quốc đang chiếm tỷ trọng lớn, có phải Việt Nam muốn thông qua việc mở rộng đàm phán FTA để tăng tỷ trọng thương mại với các quốc gia khác hay không?
Việt Nam chủ trương hội nhập quốc tế sâu rộng và toàn diện, trong đó hội nhập kinh tế quốc tế là trọng tâm.
Cho đến nay, Việt Nam đã ký FTA với nhiều đối tác, cụ thể là FTA với ASEAN, và cùng ASEAN ký FTA với các đối tác Nhật Bản, Hàn Quốc, Trung Quốc, Ấn Độ, Niu-Di-Lân và Ôt-xtrây-lia. Việt Nam đã ký FTA với Chile và cũng đã ký Hiệp định đối tác kinh tế (EPA) với Nhật Bản và hiện đang tiếp tục thúc đẩy đàm phán FTA với nhiều đối tác khác như TPP, Liên minh thuế quan Nga – Be-la-rút – Ca-dắc-xtan, FTA với EU, Khối thương mại tự do Châu Âu (EFTA gồm Thụy Sĩ, Na-Uy, Lích-tên-xtên, Ai-xơ-len) và Hàn Quốc.
Việt Nam coi việc thúc đẩy quan hệ thương mại với các nước là một trong những nền tảng then chốt góp phần thực hiện chiến lược phát triển kinh tế xã hội của Việt Nam đến năm 2020./.
Các tin liên quan:
Bản quyền của Vụ Thông Tin Báo Chí - Bộ
Ngoại
Giao
©
Copyright by Press and Information Department - Vietnam
Ministry of Foreign Affairs
Email:
Banbientap@mofa.gov.vn
Hiển thị tốt nhất với Internet Explorer. Best viewed with Internet Explorer

markdown:
**Thông báo tại cuộc họp báo thường kỳ lần thứ 14 năm 2012 của Người Phát ngôn Bộ Ngoại giao **
** Bộ Ngoại giao Vụ Thông tin Báo chí**
**HỌP BÁO THƯỜNG KỲ LẦN THỨ 14** *(Hà Nội, ngày 8 tháng 11 năm 2012)*
*I*. PHẦN THÔNG BÁO: **1. Thủ tướng Chính phủ Nguyễn Tấn Dũng dự Hội nghị Cấp cao ASEAN lần thứ 21 và các Hội nghị Cấp cao liên quan tại Phnôm Pênh, Campuchia (17-20/11/2012)**
Nhận lời mời của Thủ tướng Chính phủ Hoàng gia Campuchia Xăm-đéc Tê-chô Hun Xen (Samdech Techo Hunsein), Chủ tịch Hội nghị Cấp cao ASEAN lần thứ 21 và các Hội nghị Cấp cao liên quan, từ ngày 17-20/11/2012, Thủ tướng Chính phủ Nguyễn Tấn Dũng sẽ dẫn đầu Đoàn đại biểu Việt Nam tham dự Hội nghị Cấp cao ASEAN lần thứ 21 và các Hội nghị Cấp cao liên quan, bao gồm Hội nghị Cấp cao ASEAN+3, các Cấp cao ASEAN+1 với các đối tác Trung Quốc, Nhật Bản, Hàn Quốc, Ấn Độ và Hoa Kỳ, Hội nghị Cấp cao Đông Á (EAS) tại Phnôm Pênh, Campuchia.
Đoàn Việt Nam tham dự các Hội nghị lần này với tinh thần “chủ động, tích cực và có trách nhiệm”, tiếp tục phát huy các kết quả tích cực đã đạt được thời gian qua, cùng các nước ASEAN và Chủ tịch ASEAN Campuchia đóng góp vào thành công của các Hội nghị Cấp cao, củng cố đoàn kết và vai trò trung tâm của ASEAN, góp phần xây dựng một ASEAN đoàn kết và vững mạnh, góp phần thúc đẩy hòa bình, an ninh, ổn định, hợp tác và phát triển ở khu vực.
**2. Tổng thống Iran Mahmoud Ahmadinejad thăm chính thức Việt Nam (9-10/11/2012)**
Nhận lời mời của Chủ tịch nước Trương Tấn Sang, Tổng thống Cộng hòa Hồi giáo Iran Mahmoud Ahmadinejad (Mác-mút Ác-mát-đi-nê-dát) sẽ thăm chính thức Việt Nam từ ngày 9-10/11/2012.
Nhân dịp này, hai bên sẽ bàn về các biện pháp thúc đẩy hợp tác song phương trong các lĩnh vực thương mại, đầu tư, nông nghiệp, văn hóa, du lịch…; trao đổi về các vấn đề quốc tế và khu vực cùng quan tâm.
Tổng thống Mahmoud Ahmadinejad sẽ hội kiến Lãnh đạo cấp cao Việt Nam, đi thăm một số cơ sở kinh tế, văn hóa tại Hà Nội…
**3. Thủ tướng U-crai-na Mykola Azarov thăm chính thức Việt Nam (15-16/11/2012)**
Nhận lời mời của Thủ tướng Chính phủ Nguyễn Tấn Dũng, Thủ tướng U-crai-na Mykola Azarov (Nhi-cô-lai A-da-rốp) sẽ thăm chính thức Việt Nam từ 15-16/11/2012.
Chuyến thăm nhằm phát triển hơn nữa quan hệ hữu nghị và hợp tác nhiều mặt giữa Việt Nam và U-crai-na, tiếp tục duy trì đối thoại giữa Lãnh đạo cấp cao hai nước. Hai nhà lãnh đạo sẽ trao đổi các phương hướng và biện pháp nhằm thúc đẩy hợp tác trong các lĩnh vực, đặc biệt là kinh tế - thương mại – đầu tư, khoa học – kỹ thuật, an ninh – quốc phòng…cũng như trao đổi một số vấn đề quốc tế và khu vực hai bên cùng quan tâm.
Thủ tướng U-crai-na Nhi-cô-lai A-da-rốp sẽ hội đàm với Thủ tướng Chính phủ Nguyễn Tấn Dũng và hội kiến Lãnh đạo cấp cao của Việt Nam.
**4. Bộ trưởng Ngoại giao Mác-xê-đô-ni-a Nikola Poposki thăm chính thức Việt Nam (11-13/11/2012)**
Nhận lời mời của Bộ trưởng Ngoại giao Phạm Bình Minh, Bộ trưởng Ngoại giao Mác-xê-đô-ni-a Nikola Poposki sẽ thăm chính thức Việt Nam từ ngày 11-13/11/2012.
Chuyến thăm Việt Nam lần này của Bộ trưởng Ngoại giao Nikola Poposki nhằm củng cố và phát triển mối quan hệ hữu nghị truyền thống giữa hai nước, trao đổi các biện pháp tăng cường hợp tác trong các lĩnh vực chính trị - ngoại giao, kinh tế - thương mại, văn hóa – du lịch v.v…; trao đổi về hợp tác giữa hai Bộ Ngoại giao trong thời gian tới cũng như về các vấn đề quốc tế, khu vực cùng quan tâm.
Bộ trưởng Ngoại giao Nikola Poposki sẽ hội đàm với Bộ trưởng Ngoại giao Phạm Bình Minh và chào xã giao Chủ tịch nước Trương Tấn Sang.
**II. PHẦN TRẢ LỜI CÂU HỎI CỦA PHÓNG VIÊN** **1. Câu hỏi:** *Đề nghị cho biết quan điểm của Việt Nam về việc Lào khởi công xây dựng đập thủy điện Xay-nha-bu-ly?* **Trả lời:** *Việc khai thác và sử dụng công bằng, hợp lý các nguồn tài nguyên, đặc biệt là nguồn nước sông Mekong, có ý nghĩa quan trọng góp phần bảo đảm sự phát triển bền vững chung của lưu vực sông Mekong, vì lợi ích chung của các quốc gia ven sông và người dân sinh sống tại khu vực này. * *Trong trao đổi với Lào cũng như với các nước trong Ủy hội sông Mekong quốc tế về kế hoạch xây dựng đập thủy điện Xay-nha-bu-ly trên dòng chính sông Mekong, Việt Nam đã nhiều lần bày tỏ quan điểm của Việt Nam là việc xây dựng các công trình thủy điện trên dòng chính sông Mekong cần được đặt trong tổng thể quản lý và phát triển bền vững sông Mekong và đã đề nghị các nước cùng phối hợp tiến hành nghiên cứu tổng thể các tác động của các dự án thủy điện dòng chính đối với sự phát triển bền vững của lưu vực sông Mekong. * *Chúng tôi được biết Chính phủ Lào quyết định khởi công xây dựng thuỷ điện Xay-nha-bu-ly sau khi đã điều chỉnh thiết kế của công trình để giảm thiểu tác động đối với hạ du và trong quá trình xây dựng, nếu phát hiện công trình gây tác hại lớn sẽ dừng ngay dự án. Chúng tôi mong rằng phía Lào sẽ tiếp tục tiến hành nghiên cứu tác động môi trường và hoàn thiện thiết kế của đập Xay-nha-bu-ly; đồng thời phối hợp với Việt Nam, Cam-pu-chia và Thái Lan cùng tiến hành nghiên cứu tổng thể, kỹ lưỡng, toàn diện các tác động lũy tích về môi trường, kinh tế, xã hội của tất cả các công trình thủy điện dự kiến xây dựng trên dòng chính sông Mê Công.* **2. Câu hỏi:** *Đề nghị cho biết kết quả của Đàm phán vòng II về việc hợp tác trong các lĩnh vực ít nhạy cảm trên biển giữa Việt Nam và Trung Quốc?* **Trả lời:** *Thực hiện nhận thức chung của Lãnh đạo cấp cao hai nước Việt Nam, Trung Quốc và nguyên tắc chỉ đạo được xác định trong “Thỏa thuận về những nguyên tắc cơ bản chỉ đạo giải quyết vấn đề trên biển Việt Nam – Trung Quốc” được hai nước ký ngày 11 tháng 10 năm 2011, từ ngày 6 đến ngày 8 tháng 11 năm 2012 tại Hà Nội, hai bên đã tổ chức đàm phán vòng II Nhóm công tác về hợp tác trong các lĩnh vực ít nhạy cảm trên biển. * *Tại cuộc họp, hai bên đã trình bày và trao đổi ý kiến về các dự án ưu tiên hợp tác liên quan 04 lĩnh vực bảo vệ môi trường biển, nghiên cứu khoa học biển, tìm kiếm cứu nạn trên biển và phòng chống thiên tai theo các nguyên tắc đã được xác định trong “Thỏa thuận về những nguyên tắc cơ bản chỉ đạo giải quyết vấn đề trên biển Việt Nam – Trung Quốc”. Hai bên nhất trí giao cho các Tổ chuyên gia thuộc Nhóm công tác sớm khởi động nghiên cứu, đóng góp ý kiến sơ bộ về các dự án ưu tiên hợp tác để tiếp tục trao đổi tại vòng đàm phán tiếp theo dự kiến tổ chức vào nửa đầu năm 2013.* **3. Câu hỏi:** *Việt Nam có dự định nêu vấn đề Biển Đông tại Hội nghị Cấp cao ASEAN 21 và các Hội nghị Cấp cao liên quan không?* **Trả lời:** *Tại HNCC ASEAN 21 và các Cấp cao liên quan, Lãnh đạo các nước sẽ trao đổi về nhiều vấn đề, trong đó có những nội dung liên quan đến duy trì hòa bình, ổn định, an ninh ở khu vực.* *Là thành viên chủ động, tích cực và có trách nhiệm, Việt Nam đã, đang và sẽ cùng các nước ASEAN tiếp tục củng cố và duy trì tinh thần và các nguyên tắc hoạt động ASEAN, phấn đấu tăng cường hơn nữa vai trò trung tâm của Hiệp hội trong các tiến trình khu vực,vì hòa bình, ổn định, an ninh, hợp tác và phát triển ở khu vực và trên thế giới.* **4. Câu hỏi:** *Trong bối cảnh kim ngạch thương mại với Trung Quốc đang chiếm tỷ trọng lớn, có phải Việt Nam muốn thông qua việc mở rộng đàm phán FTA để tăng tỷ trọng thương mại với các quốc gia khác hay không?* **Trả lời:** *Việt Nam chủ trương hội nhập quốc tế sâu rộng và toàn diện, trong đó hội nhập kinh tế quốc tế là trọng tâm. * *Cho đến nay, Việt Nam đã ký FTA với nhiều đối tác, cụ thể là FTA với ASEAN, và cùng ASEAN ký FTA với các đối tác Nhật Bản, Hàn Quốc, Trung Quốc, Ấn Độ, Niu-Di-Lân và Ôt-xtrây-lia. Việt Nam đã ký FTA với Chile và cũng đã ký Hiệp định đối tác kinh tế (EPA) với Nhật Bản và hiện đang tiếp tục thúc đẩy đàm phán FTA với nhiều đối tác khác như TPP, Liên minh thuế quan Nga – Be-la-rút – Ca-dắc-xtan, FTA với EU, Khối thương mại tự do Châu Âu (EFTA gồm Thụy Sĩ, Na-Uy, Lích-tên-xtên, Ai-xơ-len) và Hàn Quốc. * *Việt Nam coi việc thúc đẩy quan hệ thương mại với các nước là một trong những nền tảng then chốt góp phần thực hiện chiến lược phát triển kinh tế xã hội của Việt Nam đến năm 2020./.*
|
|![]()
![]()
![]()
![]()
|
|
|
|[Sau 5 bản ghi »](http://www.mofa.gov.vn/vi/tt_baochi/pbnfn/ns121108181900?b_start:int=5)[1] [2](http://www.mofa.gov.vn/vi/tt_baochi/pbnfn/ns121108181900?b_start:int=5) [3](http://www.mofa.gov.vn/vi/tt_baochi/pbnfn/ns121108181900?b_start:int=10) [4](http://www.mofa.gov.vn/vi/tt_baochi/pbnfn/ns121108181900?b_start:int=15)... [24](http://www.mofa.gov.vn/vi/tt_baochi/pbnfn/ns121108181900?b_start:int=115)

Via: 1.1 varnish


text:
Khách sạn tại Sainte-Foy-les-Lyon
Tìm khách sạn tại Sainte-Foy-les-Lyon
Hưởng Giá Bí mật tại một số khách sạn
Giá này không dành cho tất cả mọi người.
Đang được quan tâm tại Sainte-Foy-les-Lyon
Khách sạn tại Sainte-Foy-les-Lyon
- Đặt nhiều nhấtKyriad Lyon Sud Sainte Foy
116 người đã xem khách sạn này trong 1 giờ vừa qua
22 người đã xem khách sạn này trong 1 giờ vừa qua
- Les Hauts de PerracheChưa có nhận xét của khách
13 người đã xem khách sạn này trong 1 giờ vừa qua
Khách sạn trong phạm vi 5 km tại Sainte-Foy-les-Lyon
677 người đã xem khách sạn này trong 1 giờ vừa qua
303 người đã xem khách sạn này trong 1 giờ vừa qua
295 người đã xem khách sạn này trong 1 giờ vừa qua
261 người đã xem khách sạn này trong 1 giờ vừa qua
192 người đã xem khách sạn này trong 1 giờ vừa qua
179 người đã xem khách sạn này trong 1 giờ vừa qua
136 người đã xem khách sạn này trong 1 giờ vừa qua
Khách sạn tại Sainte-Foy-les-Lyon, Pháp
Tại Hotels.com, bạn có thể tìm và so sánh giá phòng khách sạn tại Sainte-Foy-les-Lyon để chọn khách sạn hoàn hảo cho chuyến đi của mình. Bất kể bạn đang lên kế hoạch cho một chuyến du lịch, kỳ nghỉ hè hay đi công tác tại Sainte-Foy-les-Lyon, Hotels.com luôn có phòng phù hợp cho nhu cầu của bạn.

markdown:
# Khách sạn tại Sainte-Foy-les-Lyon
## Tìm khách sạn tại Sainte-Foy-les-Lyon
Hưởng Giá Bí mật tại một số khách sạn
Giá này không dành cho tất cả mọi người.
## Đang được quan tâm tại Sainte-Foy-les-Lyon
#### Khách sạn tại Sainte-Foy-les-Lyon
- Đặt nhiều nhất
Kyriad Lyon Sud Sainte Foy
116 người đã xem khách sạn này trong 1 giờ vừa qua
22 người đã xem khách sạn này trong 1 giờ vừa qua
Les Hauts de PerracheChưa có nhận xét của khách
13 người đã xem khách sạn này trong 1 giờ vừa qua
#### Khách sạn trong phạm vi 5 km tại Sainte-Foy-les-Lyon
677 người đã xem khách sạn này trong 1 giờ vừa qua
303 người đã xem khách sạn này trong 1 giờ vừa qua
295 người đã xem khách sạn này trong 1 giờ vừa qua
261 người đã xem khách sạn này trong 1 giờ vừa qua
192 người đã xem khách sạn này trong 1 giờ vừa qua
179 người đã xem khách sạn này trong 1 giờ vừa qua
136 người đã xem khách sạn này trong 1 giờ vừa qua
## Khách sạn tại Sainte-Foy-les-Lyon, Pháp
Tại Hotels.com, bạn có thể tìm và so sánh giá phòng khách sạn tại Sainte-Foy-les-Lyon để chọn khách sạn hoàn hảo cho chuyến đi của mình. Bất kể bạn đang lên kế hoạch cho một chuyến du lịch, kỳ nghỉ hè hay đi công tác tại Sainte-Foy-les-Lyon, Hotels.com luôn có phòng phù hợp cho nhu cầu của bạn.

WARC-Type: response

Content-Type: application/http; msgtype=response

Connection: close

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

Pragma: no-cache

Content-Language: vi-VN

X-UA-Compatible: IE=Edge

Server: Application-Server

Vary: Accept-Encoding


text:
Cái này là xuất thành ảnh xong đổ màu bằng photoshop bạn ạ.
Em là người rất mê vẽ Cad và luôn muốn làm bản vẽ thật phong phú và đẹp mắt.e xem các bản vẽ dưới dạng file ảnh của mọi người thật đẹp nhưng cũng không biết làm sao để làm đựơc như thế.Cách xuất bản vẽ sang file ảnh thì e biết nhưng cách tô màu cho các chi tiết thì e không rõ lắm.e up lên một bản như thế các bác xem hộ.mong được sự giúp đỡ của các bác! http://www.cadviet.c...3/ho_boi1nt.jpg
Viết lisp theo yêu cầu [phần 2]
#1881
Đã gửi 21 September 2010 - 01:29 PM
- 0
Cám ơn đừng nói lời suông mà hãy nhấn !
#1882
Đã gửi 21 September 2010 - 03:05 PM
Chào bạn Ba5chngoctung,
-Nhờ mọi người ngâm cứu lisp này giúp mình với , do khi chạy nova ( phần mềm thiết đường ) cao độ mia ở mặt cắt ngang chạy ra nó nhiều quá dẫn đến không nhìn được , mời mọi người xem hình ảnh ( mình cũng up luôn cả bản cad lên để mọi người tiện ngâm cứu).
-Hình ảnh đây
-Vấn đề của mình đặt ra là làm sao biến hình A thành hình B một cách nhanh nhất(xóa bớt cọc mia thừa và ghi lại khoảng cách mia).
-Mình xin đưa đa cấu trúc lisp như sau:
+ Tên lệnh HCM (hiệu chỉnh mia)
+ Chọn điểm đầu (ta chọnđiểm 1 trong hình A)
+ Chọn điểm cuối (ta chọnđiểm 2 trong hình A)
+ Chọn text ghi khoảng cách ( ta chọn vào text 1.10 (màu đỏ ở hình A)> nó cho kết quả là 1.99 (màu đỏ ở hình
+ Sau khi điền kết quả xong nó tự xóa luôn các cọc và các text(cọc màu ghi , text ở giữa 2 đi màu vàng ) ở giữa 2 điểm 1 và 2 mà ta chọn ban đầu
-Mong anh em xem giúp , có gì mình viết trên đây mà mọi người chưa rõ ý của mình thì mình sẽ nói rõ thêm . Chân thành cám ơn
-Đây là bản cad http://www.cadviet.c...3/cadviet_1.dwg
Bạn xài thử cái này xem đã đúng ý chưa nhé.
Có vài điều lưu ý bạn khi dùng lisp này là:
1/- Việc chọn điể đầu và điểm cuối của bạn phải được thực hiện đúng trên đường chuẩn như bạn đã đánh dấu.
2/- Việc chọn text cần thay thế bạn phải chọn các text nằm dọc theo các cọc màu ghi của bạn chứ không chọn các text nằm ngang vuông góc với cọc bạn nhé.
3/- Lisp này chỉ chạy đúng với cấu trúc hình vẽ như cái file bạn đã upload. Cụ thể là các khoảng cách giữa các đường line ngang màu xanh của bạn phải là 2 và chiều cao các text cũng đúng y boong như vậy bạn nhé.
4/- Nếu bạn thay đổi cái cấu trúc hình này thì lisp sẽ chạy ra cái kết quả không như ý muốn. Sở dĩ vậy là do mình bố trí text căn cứ vào chiều cao hiện tại của nó và cái khoảng hở của các đường line màu xanh bạn ạ. Nếu cần thiết bạn có thể tự thay đổi các kích thước này trong lisp cho phù hợp.
Lisp đây:
(defun c:HCM ( / p1 p2 p3 p4 p5 p6 p7 p8 p11 ss1 ss2 ss3 en els pt txt)
(command "undo" "be")
(setq p1 (getpoint "\n Chon diem dau")
p2 (getpoint "\n Chon diem cuoi")
p3 (list (car p1) (- (cadr p1) 8) (caddr p1))
p4 (list (- (car p2) 0.01) (- (cadr p2) 7.99) (caddr p2))
p5 (list (car p1) (- (cadr p1) 4) (caddr p1))
p6 (list (- (car p2) 0.01) (- (cadr p2) ) (caddr p2))
p7 (list (+ (car p1) 0.01) (- (cadr p1) 6.01) (caddr p1))
p8 (list (car p2) (- (cadr p2) 6) (caddr p2))
p11 (list (+ (car p1) 0.01) (cadr p1) (caddr p1))
ss1 (ssget "c" p11 p6 (list (cons 8 "LINEDONGTN")))
ss2 (ssget "w" p5 p8 (list (cons 0 "TEXT")))
ss3 (ssget "c" p7 p4 (list (cons 0 "TEXT,LINE")))
en (car (entsel "\n Chon text can thay the"))
els (entget en)
pt (cdr (assoc 11 els))
pt (list (+ (car pt) 0.8) (- (cadr pt) 0.8) (caddr pt))
txt (rtos (- (car p2) (car p1)) 2 2)
ss3 (ssdel en ss3)
)
(command "erase" ss1 ss2 ss3 "")
(setq els (subst (cons 1 txt) (assoc 1 els) els)
els ( subst (cons 50 0) (assoc 50 els) els)
els (subst (cons 11 pt) (assoc 11 els) els)
)
(entmod els)
(entupd en)
(command "undo" "e")
(princ)
)
Chúc bạn vui.
- 1
#1883
Đã gửi 21 September 2010 - 03:06 PM
Có cái lisp này thì anh em kiến trúc vẽ mặt bằng rất nhanh.
EM xin cám ơn các anh nhiều.
- 0
#1884
Đã gửi 21 September 2010 - 03:19 PM
Lệnh fi không bị lỗi mà lỗi có nhẽ do cái thằng CAD của bạn nó phá bĩnh thôi. File bạn gửi mình mở ra filtẻ ngon lành mà. Hề hề hề.....
các bác có bít tại sao lệnh fi bị lỗi ko.có cách nào khắc phụ nó ko.mong các bác giúp đỡ em.day la file do
http://www.cadviet.c...thp21092010.dwg
Có nhẽ bạn nên mời chuyên gia phần mềm từ Autodesk sang may ra mới trị được, hề hề hề, nhưng mà hơi tốn xìn à nha. Còn như không thế thì bạn thử Ghost lại máy coi sao. Hề hề hề.....
- 0
#1885
Đã gửi 21 September 2010 - 04:29 PM
Chết tôi rồi,
Cảm ơn 2 bạn rất nhiều,mình đã vỡ ra nhiều rồi^^.Mình sẽ tiếp tục dự định ban đầu
Cho mình hỏi là nếu hỏi đi hỏi lại thế này thì có làm loãng topic không?Vì ở đây còn rất nhiều request chưa được đáp ứng.Mình định lập 2pic cho những người mới bắt đầu về LSP hỏi những câu ngô nghê như vừa rồi,có lẽ tiện hơn ^^
Xin lỗi bạn ketxu nhé. Mình chỉ bạn sai rồi. Hàm command trong lisp luôn trả về giá trị là nil. Vậy nên nếu bạn làm như mình chỉ:
(setq hat (command "hatch" ..... )) thì biến hat luôn là nil bạn ạ. Tương tự với dòng code (setq dim1 (command "dimension" ......)).
Vì thế bạn không xài như cách mình chỉ dược mà là phải dùng như bác Phamngoctukts nói mới đúng. Tức là ngay sau mỗi lệnh (command " hatch".......) bạn dùng hàm ( setq ........) tỷ như: (setq hat (entlast)) bạn nhé.
Một lần nữa xin lỗi bạn vì đã chỉ bậy. Hề hề hề, chung quy chỉ tại cái tội nghĩ ẩu, mong bạn tha lỗi......
- 1
#1886
Đã gửi 21 September 2010 - 04:38 PM
Các anh Hoành, anh Tuệ, anh ssg.... hay anh nào rảnh làm ơn viết hộ em cái lisp này nha. Trước ở cơ quan cũ của em có ông dùng cái lisp này, ông ấy vẽ trước hết tim ( trục ) rồi đánh lệnh 1 cái là nó tự động offset ra thành nét tường rồi tự trim, fillet hết như thế này. Các thông số cần chọn là: đường tim, chọn loại tường ( 220, 110, 330)
Có cái lisp này thì anh em kiến trúc vẽ mặt bằng rất nhanh.
EM xin cám ơn các anh nhiều.
Cái này dùng ACA là tốt nhất
Nhưng để vẽ MB nhanh thì cũng chẳng để làm gì.
Hãy tập vẽ 3D, sau đó xuất về 2D (MB, MĐ, MC,..)
Đó mới là cách hay!
- 1
#1887
Đã gửi 21 September 2010 - 04:55 PM
Với code này bạn đã ofset được tuờng sang hai bên còn trim với filet có lẽ phải nhờ các cao thủ khác.
Các anh Hoành, anh Tuệ, anh ssg.... hay anh nào rảnh làm ơn viết hộ em cái lisp này nha. Trước ở cơ quan cũ của em có ông dùng cái lisp này, ông ấy vẽ trước hết tim ( trục ) rồi đánh lệnh 1 cái là nó tự động offset ra thành nét tường rồi tự trim, fillet hết như thế này. Các thông số cần chọn là: đường tim, chọn loại tường ( 220, 110, 330)
Có cái lisp này thì anh em kiến trúc vẽ mặt bằng rất nhanh.
EM xin cám ơn các anh nhiều.
(defun c:vetuong ()
(setq old_layer (getvar "clayer"))
(setq tbl (tblsearch "layer" "tuong"))
(if (= tbl nil) (command "-layer" "n" "tuong" "c" "4" "tuong" ""))
(setvar "clayer" "tuong")
(setq ss (ssget '((0 . "line"))))
(setq i 0)
(setq day (getint "\nnhap chieu day tuong:"))
(while (< i (sslength ss))
(setq ent (entget (ssname ss i))
p1 (cdr (assoc 10 ent))
p2 (cdr (assoc 11 ent))
)
(command "mline" "j" "z" "s" day p1 p2 "")
(command "explode" "l" "")
(setq i (1+ i))
)
(setvar "clayer" 0ld_layer)
)
- 0
Cám ơn đừng nói lời suông mà hãy nhấn !
#1888
Đã gửi 21 September 2010 - 04:58 PM
Ở bản vẽ khác thì em dùng đc lệnh fi.nhưng ở bản vẽ em gủi lên thì ko làm đc.Em nghĩ rằng bản vẽ đó có lỗi gì chăng.mong bác giúp em.Em cám ơn các bác nhiều
Lệnh fi không bị lỗi mà lỗi có nhẽ do cái thằng CAD của bạn nó phá bĩnh thôi. File bạn gửi mình mở ra filtẻ ngon lành mà. Hề hề hề.....
Có nhẽ bạn nên mời chuyên gia phần mềm từ Autodesk sang may ra mới trị được, hề hề hề, nhưng mà hơi tốn xìn à nha. Còn như không thế thì bạn thử Ghost lại máy coi sao. Hề hề hề.....
- 0
#1889
Đã gửi 21 September 2010 - 06:31 PM
Bạn có chỉnh sửa lệnh không chứ Fillet và Filter đều sử dụng được mà mình vẫn dùng được cả 2 lệnh đó trên bản vẽ của bạn.
Ở bản vẽ khác thì em dùng đc lệnh fi.nhưng ở bản vẽ em gủi lên thì ko làm đc.Em nghĩ rằng bản vẽ đó có lỗi gì chăng.mong bác giúp em.Em cám ơn các bác nhiều
- 2
Em 16 bụng ... như trăng
Hướng dẫn sử dụng diễn đàn:
Để cảm ơn hay bài viết có ích: Ấn dấu + cuối bài.
Không vừa lòng hay bài spam: Ấn dấu - cuối bài.
#1890
Đã gửi 21 September 2010 - 11:12 PM
Mình cũng thử cách của bạn ngay lúc đầu,thấy nó báo NIL cũng ngờ ngợ,đang định hỏi lại thì bạn đã cho mình biết đáp án rồi.Lại có thêm 1 điều lưu ý mình chưa biết.Tks bạn nhiều ^^ Hì hì..Đúng là vạn sự khởi đầu nan
Chết tôi rồi,
Xin lỗi bạn ketxu nhé. Mình chỉ bạn sai rồi. Hàm command trong lisp luôn trả về giá trị là nil. Vậy nên nếu bạn làm như mình chỉ:
(setq hat (command "hatch" ..... )) thì biến hat luôn là nil bạn ạ. Tương tự với dòng code (setq dim1 (command "dimension" ......)).
Vì thế bạn không xài như cách mình chỉ dược mà là phải dùng như bác Phamngoctukts nói mới đúng. Tức là ngay sau mỗi lệnh (command " hatch".......) bạn dùng hàm ( setq ........) tỷ như: (setq hat (entlast)) bạn nhé.
Một lần nữa xin lỗi bạn vì đã chỉ bậy. Hề hề hề, chung quy chỉ tại cái tội nghĩ ẩu, mong bạn tha lỗi......
- 0
#1891
Đã gửi 22 September 2010 - 06:48 AM
Dựa vào code của anh gia_bach, Tue_NV chỉnh lại 1 chút cho phù hợp với yêu cầu của bạn vtd_xd.
Nhờ các bạn viết giúp tôi lisp với nội dung:
- link giá trị text (TextOverride) của dim, khi thay đổi giá trị text của dim đích thì text dim nguồn cũng thay đổi (giống như lisp LinkT)
Xin cảm ơn
http://www.cadviet.com/upfiles/3/2.dwg
Banj vtd_xd thử nhé :
(defun c:LinkD (/ ss objlst obj_reactor); Link DIMENSION
(if (setq ss (ssget '((0 . "DIMENSION"))) )
(progn
(vl-load-com)
(setq objlst (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))))
(setq obj_reactor (vlr-object-reactor objlst nil '((:vlr-modified . callback))))
)
)
)
(defun callback (notifier-object obj_reactor parameter-list / objlist newT)
(setq objlist (vlr-owners obj_reactor))
(setq newT (vla-get-TextOverride notifier-object))
(foreach obj objlist
(if (/= (vla-get-TextOverride obj) newT)
(vla-put-TextOverride obj newT)
)
)
)
- 1
#1892
Đã gửi 22 September 2010 - 08:31 AM
Dựa vào code của anh gia_bach, Tue_NV chỉnh lại 1 chút cho phù hợp với yêu cầu của bạn vtd_xd.
Banj vtd_xd thử nhé :
(defun c:LinkD (/ ss objlst obj_reactor); Link DIMENSION
(if (setq ss (ssget '((0 . "DIMENSION"))) )
(progn
(vl-load-com)
(setq objlst (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))))
(setq obj_reactor (vlr-object-reactor objlst nil '((:vlr-modified . callback))))
)
)
)
(defun callback (notifier-object obj_reactor parameter-list / objlist newT)
(setq objlist (vlr-owners obj_reactor))
(setq newT (vla-get-TextOverride notifier-object))
(foreach obj objlist
(if (/= (vla-get-TextOverride obj) newT)
(vla-put-TextOverride obj newT)
)
)
)
Cám ơn bạn Tue_VN nhé
- 0
#1893
Đã gửi 22 September 2010 - 04:43 PM
Tiếp tục phát triển ý của bạn mình đã làm được thế này rồi. Chú ý nét tim phải là layer _tim.
Các anh Hoành, anh Tuệ, anh ssg.... hay anh nào rảnh làm ơn viết hộ em cái lisp này nha. Trước ở cơ quan cũ của em có ông dùng cái lisp này, ông ấy vẽ trước hết tim ( trục ) rồi đánh lệnh 1 cái là nó tự động offset ra thành nét tường rồi tự trim, fillet hết như thế này. Các thông số cần chọn là: đường tim, chọn loại tường ( 220, 110, 330)
Có cái lisp này thì anh em kiến trúc vẽ mặt bằng rất nhanh.
EM xin cám ơn các anh nhiều.
Còn việc fillet các cạnh ngoài cùng mình đang chưa biết làm thế nào (chỗ vòng tròn đỏ). Bạn nào có thể chí giúp mình vấn đề này không?
(defun c:vetuong ()
(setq old_layer (getvar "clayer"))
(setq snap (getvar "osmode"))
(setq hl (getvar "highlight"))
(setq tbl (tblsearch "layer" "tuong"))
(if (= tbl nil) (command "-layer" "n" "tuong" "c" "4" "tuong" ""))
(setvar "clayer" "tuong")
(setvar "osmode" 0)
(setq ss (ssget '((0 . "line"))))
(setq day (getint "\nnhap chieu day tuong:"))
(setq i 0)
(setq lp nil)
(setq ssml nil)
(setq ssml (ssadd))
(while (< i (sslength ss))
(setq name (ssname ss i)
ent (entget name)
p1 (cdr (assoc 10 ent))
p2 (cdr (assoc 11 ent))
lp (append (list (append (list p1) (list p2))) lp)
)
(command "mline" "j" "z" "s" day p1 p2 "")
(command "explode" "l")
(setq ssline (ssget "p"))
(setq line1 (ssname ssline 0))
(setq line2 (ssname ssline 1))
(setq ssml (ssadd line1 (ssadd line2 ssml)))
(setq i (1+ i))
)
(command "-layer" "off" "_tim" "")
(setq j 0)
(setvar "highlight" 0)
(while (< j (length lp))
(setq nhom (nth j lp)
pt1 (car nhom)
pt2 (last nhom)
)
(command "trim" ssml "" "f" pt1 pt2 "" "")
(setq j (1+ j))
)
(setvar "clayer" old_layer)
(command "-layer" "on" "_tim" "")
(setvar "osmode" snap)
(setvar "highlight" hl)
)
- 1
Cám ơn đừng nói lời suông mà hãy nhấn !
#1894
Đã gửi 22 September 2010 - 06:03 PM
- 0
#1895
Đã gửi 22 September 2010 - 06:06 PM
- 0
#1896
Đã gửi 22 September 2010 - 10:49 PM
-Cám ơn Bạn Tue_nv đã quan tâm nhé, nhờ Tue chỉnh lại lisp theo như hình ảnh mình up lên đây nhé:
Bachngoctung thử cái này nhé :
(defun vtt(/ oldos)
(setq oldos (getvar "osmode"))
(setvar "osmode" 0)
(princ "\n Chon 1 cung Arc :")
(if (null (setq ss (ssget ":S" '((0 . "ARC"))) ))
(alert "\n Khong co cung Arc nao duoc chon ")
(progn
(setq ent (ssname ss 0))
(setq tam (cdr(assoc 10 (entget ent))))
(setq D (cdr(assoc 40 (entget ent))));bankinh
(setq dd (vlax-curve-getstartpoint ent))
(setq dc (vlax-curve-getendpoint ent))
(setq p1 (polar dd (+ (/ pi 2) (angle dd tam)) 1))
(setq p2 (polar dc (+ (/ pi 2) (angle dc tam)) 1))
(if (setq a (inters dd p1 dc p2 nil))
(progn
(vl-cmdf "line" dd a "")
(vl-cmdf "line" dc a "")
(setq c (/ (* 180 (abs (- (angle dd a) (angle dc a)))) pi))
)
)
))
(setvar "osmode" oldos)
(princ)
)
;;;;;;;;
(defun C:TS (/ ro CC CAT MD CD C D N L do ph O M I H J AA RR KK TT PP ss)
(SETVAR "CMDECHO" 0)
(command "-Style" "TS DUONG CONG" "arial" "0" "1" "0" "n" "")
(command "-Layer" "n" "TS DUONG CONG" "c" "222" "TS DUONG CONG" "lw" "0.2" "TS DUONG CONG" "")
(command "-Layer" "s" "TS DUONG CONG" "" "")
(setq CC (getpoint "\nCHON TAM CUA DUONG TRON / Enter ket thuc "))
(setq CAT (getreal "\nDUONG KINH DUONG TRON: "))
(while CC
(command ".circle" CC "d" CAT) (vtt)
(if ss (progn
(setq L (strcat "{\\fSymbol|b0|i0|c2|p18;a}" "="
(itoa (setq do (fix c)) ) "%%d"
(itoa (setq ph (fix (* 60 (- c do))))) "'"
(itoa (fix (* 60 (- (* 60 (- c do)) ph)))) "''"
)
)
(setq N (rtos D 2 2))
(setq H (COS (/ (/ (* C PI) 180) 2))) ;CONG THUC TINH GIA TRI COS(A/2)
(setq O (/ (SIN (/ (/ (* C PI) 180) 2)) (COS (/ (/ (* C PI) 180) 2)))) ;CONG THUC TINH GIA TRI TAN(A/2)
(setq M (rtos (* O D) 2 2)) ;CONG THUC TINH GIA TRI T
(setq I (rtos (* D (- (/ 1 H) 1)) 2 2)) ;CONG THUC TINH GIA TRI P
(setq J (rtos (/ (* D C PI) 180) 2 2)) ;CONG THUC TINH GIA TRI K
(setq AA L) ;GIA TRI A
(setq RR (strcat "R=" N)) ;GIA TRI R
(setq KK (strcat "K=" J)) ;GIA TRI K
(setq TT (strcat "T=" M)) ;GIA TRI T
(setq PP (strcat "P=" I)) ;GIA TRI P
(setq MD (/ CAT 10))
(setq CD (list (car CC) (+ (cadr CC) (/ CAT 3.1))))
(command ".text" "m" CD MD 0.0 AA) (setq e (entlast)) ;TEXT GIA TRI A
(command ".text" "" RR) ;TEXT GIA TRI R
(command ".text" "" KK) ;TEXT GIA TRI K
(command ".text" "" TT) ;TEXT GIA TRI T
(command ".text" "" PP) ;TEXT GIA TRI P
(command "txt2mtxt" e "")
(setq CC (getpoint "\nCHON TAM CUA DUONG TRON: "))
))
) ;dong WHILE
(SETVAR "CMDECHO" 1)
(PRINC)
) ;KET THUC DEFUN
- Cụ thể : + Tue chỉnh lại cho mình số đo góc anpha
+ Chỉnh cho dòng text chứa số đo góc anpha có Width factor= 0.7 nhé (mục đích là muốn cho nó vừa gọn vào vòng tròn Tue à)
-Cám ơn Tue nhé
- 0
#1897
Đã gửi 22 September 2010 - 11:22 PM
Cuối cùng thì mình cũng viết xong lisp này cho bạn rồi này. Chúc bạn vui và làm việc hiệu quả.
Các anh Hoành, anh Tuệ, anh ssg.... hay anh nào rảnh làm ơn viết hộ em cái lisp này nha. Trước ở cơ quan cũ của em có ông dùng cái lisp này, ông ấy vẽ trước hết tim ( trục ) rồi đánh lệnh 1 cái là nó tự động offset ra thành nét tường rồi tự trim, fillet hết như thế này. Các thông số cần chọn là: đường tim, chọn loại tường ( 220, 110, 330)
Có cái lisp này thì anh em kiến trúc vẽ mặt bằng rất nhanh.
EM xin cám ơn các anh nhiều.
(defun c:vetuong ()
(command "undo" "be")
(setvar "cmdecho" 0)
(setq old_layer (getvar "clayer"))
(setq snap (getvar "osmode"))
(setq hl (getvar "highlight"))
(setq tbl (tblsearch "layer" "tuong"))
(if (= tbl nil) (command "-layer" "n" "tuong" "c" "4" "tuong" ""))
(setq tbl (tblsearch "layer" "template"))
(if (= tbl nil) (command "-layer" "n" "template" "c" "0" "template" ""))
(setvar "clayer" "template")
(setvar "osmode" 0)
(setq ss (ssget '((0 . "line"))))
(setq day (getint "\nnhap chieu day tuong:"))
(setq cg (fix (/ (* (sqrt 2) day) 2)))
(setq i 0)
(setq lp nil)
(setq ssml nil)
(setq ssml (ssadd))
(while (< i (sslength ss))
(setq name (ssname ss i)
ent (entget name)
p1 (cdr (assoc 10 ent))
p2 (cdr (assoc 11 ent))
lp (append (list (append (list p1) (list p2))) lp)
)
(command "mline" "j" "z" "s" day p1 p2 "")
(command "explode" "l")
(setq ssline (ssget "p"))
(setq line1 (ssname ssline 0))
(setq line2 (ssname ssline 1))
(setq ssml (ssadd line1 (ssadd line2 ssml)))
(setq i (1+ i))
)
(command "-layer" "off" "_tim" "")
(setq j 0)
(setvar "highlight" 0)
(while (< j (length lp))
(setq nhom (nth j lp)
pt1 (car nhom)
pt2 (last nhom)
)
(command "trim" ssml "" "f" pt1 pt2 "" "")
(setq j (1+ j))
)
(setq q 0)
(setq ssml (ssget "x" '((0 . "line") (8 . "template"))))
(while (< q (sslength ssml))
(setq l1 (ssname ssml q)
pf1 (cdr (assoc 10 (entget l1)))
pf2 (cdr (assoc 11 (entget l1)))
)
(setq k 0)
(while (< k (sslength ssml))
(setq l2 (ssname ssml k)
pf3 (cdr (assoc 10 (entget l2)))
pf4 (cdr (assoc 11 (entget l2)))
d1 (distance pf1 pf3)
d2 (distance pf1 pf4)
d3 (distance pf2 pf3)
d4 (distance pf2 pf4)
)
(if (or (= (fix d1) cg) (= (fix d2) cg) (= (fix d3) cg) (= (fix d4) cg))
(command "fillet" l1 l2)
)
(setq k (1+ k))
)
(setq q (1+ q))
)
(command "change" ssml "" "p" "la" "tuong" "")
(setvar "clayer" old_layer)
(command "-layer" "on" "_tim" "")
(setvar "osmode" snap)
(setvar "highlight" hl)
(setvar "cmdecho" 1)
(command "undo" "e")
)
Cám ơn bạn ketxu đã gợi ý để mình hoàn thành lisp.
BS: nét của bạn phải là layer "_tim" nếu không lisp sẽ bị sai.
- 2
Cám ơn đừng nói lời suông mà hãy nhấn !
#1898
Đã gửi 22 September 2010 - 11:24 PM
- Cám ơn PhamThanhBinh mình đã thử lisp mà bạn gửi cho mình thấy có một số bất cập sau:
Chào bạn Ba5chngoctung,
Bạn xài thử cái này xem đã đúng ý chưa nhé.
Có vài điều lưu ý bạn khi dùng lisp này là:
1/- Việc chọn điể đầu và điểm cuối của bạn phải được thực hiện đúng trên đường chuẩn như bạn đã đánh dấu.
2/- Việc chọn text cần thay thế bạn phải chọn các text nằm dọc theo các cọc màu ghi của bạn chứ không chọn các text nằm ngang vuông góc với cọc bạn nhé.
3/- Lisp này chỉ chạy đúng với cấu trúc hình vẽ như cái file bạn đã upload. Cụ thể là các khoảng cách giữa các đường line ngang màu xanh của bạn phải là 2 và chiều cao các text cũng đúng y boong như vậy bạn nhé.
4/- Nếu bạn thay đổi cái cấu trúc hình này thì lisp sẽ chạy ra cái kết quả không như ý muốn. Sở dĩ vậy là do mình bố trí text căn cứ vào chiều cao hiện tại của nó và cái khoảng hở của các đường line màu xanh bạn ạ. Nếu cần thiết bạn có thể tự thay đổi các kích thước này trong lisp cho phù hợp.
Lisp đây:
(defun c:HCM ( / p1 p2 p3 p4 p5 p6 p7 p8 p11 ss1 ss2 ss3 en els pt txt)
(command "undo" "be")
(setq p1 (getpoint "\n Chon diem dau")
p2 (getpoint "\n Chon diem cuoi")
p3 (list (car p1) (- (cadr p1) 8) (caddr p1))
p4 (list (- (car p2) 0.01) (- (cadr p2) 7.99) (caddr p2))
p5 (list (car p1) (- (cadr p1) 4) (caddr p1))
p6 (list (- (car p2) 0.01) (- (cadr p2) ) (caddr p2))
p7 (list (+ (car p1) 0.01) (- (cadr p1) 6.01) (caddr p1))
p8 (list (car p2) (- (cadr p2) 6) (caddr p2))
p11 (list (+ (car p1) 0.01) (cadr p1) (caddr p1))
ss1 (ssget "c" p11 p6 (list (cons 8 "LINEDONGTN")))
ss2 (ssget "w" p5 p8 (list (cons 0 "TEXT")))
ss3 (ssget "c" p7 p4 (list (cons 0 "TEXT,LINE")))
en (car (entsel "\n Chon text can thay the"))
els (entget en)
pt (cdr (assoc 11 els))
pt (list (+ (car pt) 0.8) (- (cadr pt) 0.8) (caddr pt))
txt (rtos (- (car p2) (car p1)) 2 2)
ss3 (ssdel en ss3)
)
(command "erase" ss1 ss2 ss3 "")
(setq els (subst (cons 1 txt) (assoc 1 els) els)
els ( subst (cons 50 0) (assoc 50 els) els)
els (subst (cons 11 pt) (assoc 11 els) els)
)
(entmod els)
(entupd en)
(command "undo" "e")
(princ)
)
Chúc bạn vui.
+ Khi thử đối với các điểm 1 và 2 (của hình A) thì cho ra gần đúng kết quả như hình B khác mỗi là 2 đường thằng màu xanh nằm ngang phía dưới cũng bị xóa luôn theo
+ Khi thử với các điểm bất kỳ khác thì thấy nó cho kết quả là xóa luôn cọc ở điểm đầu và cọc ở điểm cuối khi mình chọn , đồng thời cũng xáo luôn cả 2 đường thằng màu xanh nằm ngang phía dưới
- Mà bạn PhamThanhBinh này : trong hình ảnh mình đưa lên đó cái cọc 1 và 2 mình đánh số và khoanh tròn chỉ là để cho bạn dễ nhìn và dễ hình dung thôi chứ bản vẽ ban đầu ko có.
- Mình đã thử và nhận thấy nếu cứ để vòng tròn ở hai điểm đầu và cuối thì nó ko xóa đi cọc đầu và cọc cuối còn ko có vòng tròn đó thì nó xóa luôn cọc đầu và cuối. Mong PhamThanhBinh xem lại và chỉnh lại cho mình nhé. Cám ơn nha
- 0
#1899
Đã gửi 22 September 2010 - 11:47 PM
( đây là lisp thứ 2 em xin trong diễn đàn rồi ) hì hì
lisp ten : cong text theo cap so cong
Thuật toán là như vầy :
1. Đầu tiên sẽ tạo 1 text và copy text này ra các nơi vị trí muốn bố trí text ( ví dụ giá trị ban đầu text là 00 )
2.bấm lệnh của lisp
3. Xử lý như thế này các anh ạ :
+ Lisp sẽ hỏi chọn những text muốn cộng theo cấp số cộng này - sau đó em sẽ khối chọn những text cần
+ Lisp hỏi : nhập giá trị số đầu tiên - VD em sẽ nhập là : 10
+ Lisp hỏi : nhập giá trị số gia - VD em sẽ nhập là : 5
+ Lisp hỏi : chọn chiều cộng ( có 2 chiều là X hoặc Y nghĩa là cộng theo vị trí text trái phải hay trên dưới ) - VD em chọn : Y
+ Lisp hỏi : Chọn vị trí text đầu tiên - VD em chọn text có vị trí ở dưới cùng ( theo trục Y )
===> lisp sẽ thực hiện và ra kết quả : các text sẽ tự động thay đổi giá trị
VD em có 4 text : thì text bên dưới cùng sẽ là từ 00 ---> 10
tiếp theo các số ở trên nó : 00 ---> 15 ; 00 ---> 20 ; 00 ---> 25
==> kết quả : 10 ; 15 ; 20 ; 25 sẽ hiện lên màn hình
Các anh xem file cad đính kèm của em nhé ( Cad 2007 ) , em có giải thích chi tiết luôn :
http://www.mediafire...amb9uoyi6y59sk9
- 0
#1900
Đã gửi 23 September 2010 - 01:17 AM
2 bác,vì lúc đưa ý kến e lấy trường hợp cụ thể mà bạn ấy yêu cầu là các cạnh tim trục vuông góc với nhau(đa số),nên khoảng cách fix luôn như vậy.Còn nếu trục tim chéó đi thì không thể dùng kcách cố định như vậy được.Có lẽ phải cho nó nằm trong khoảng từ 0 đến bề rộng tường.
Cuối cùng thì mình cũng viết xong lisp này cho bạn rồi này. Chúc bạn vui và làm việc hiệu quả.
Cám ơn bạn ketxu đã gợi ý để mình hoàn thành lisp.
BS: nét của bạn phải là layer "_tim" nếu không lisp sẽ bị sai.
Nhưng dù sao với yêu cầu ban đầu của bạn ấy thì lisp chạy quá mượt.Tks bác vì lisp công phu này
À,e xin ý kiến là bề rộng tường nếu getint thì với trường hợp vẽ có tỉ lệ khác 1:1 thì user hơi khổ ^^.Nếu có hàm nhỏ để user thay đổi tỉ lệ vẽ,khi nhận giá trị int thì chia cho tỉ lệ cũng được.
Và Khi user chọn các đường tim thì lấy luôn layer name của đối tượng để làm đối số cho các lệnh layer on,off phía sau.Như vậy thiì chỉ cần yêu cầu user vẽ tất cả các đường tim chung 1 layer
- 0

markdown:
Cái này là xuất thành ảnh xong đổ màu bằng photoshop bạn ạ.
Em là người rất mê vẽ Cad và luôn muốn làm bản vẽ thật phong phú và đẹp mắt.e xem các bản vẽ dưới dạng file ảnh của mọi người thật đẹp nhưng cũng không biết làm sao để làm đựơc như thế.Cách xuất bản vẽ sang file ảnh thì e biết nhưng cách tô màu cho các chi tiết thì e không rõ lắm.e up lên một bản như thế các bác xem hộ.mong được sự giúp đỡ của các bác!
[http://www.cadviet.c...3/ho_boi1nt.jpg] [](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
###
[
#1881
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/page-95#entry108666)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #1881](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 21 September 2010 - 01:29 PM
- 0
*Tất cả vì sự phát triển của diễn đàn ...* **Cám ơn đừng nói lời suông mà hãy nhấn**
!
![ Hình đã gửi](http://www.cadviet.com/forum/public/style_images/master/add.png)
###
[
#1882
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/page-95#entry108685)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #1882](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 21 September 2010 - 03:05 PM
Chào bạn Ba5chngoctung,
-Nhờ mọi người ngâm cứu lisp này giúp mình với , do khi chạy nova ( phần mềm thiết đường ) cao độ mia ở mặt cắt ngang chạy ra nó nhiều quá dẫn đến không nhìn được , mời mọi người xem hình ảnh ( mình cũng up luôn cả bản cad lên để mọi người tiện ngâm cứu).
-Hình ảnh đây
-Vấn đề của mình đặt ra là làm sao biến hình A thành hình B một cách nhanh nhất(xóa bớt cọc mia thừa và ghi lại khoảng cách mia).
-Mình xin đưa đa cấu trúc lisp như sau:
+ Tên lệnh HCM (hiệu chỉnh mia)
+ Chọn điểm đầu (ta chọnđiểm 1 trong hình A)
+ Chọn điểm cuối (ta chọnđiểm 2 trong hình A)
+ Chọn text ghi khoảng cách ( ta chọn vào text 1.10 (màu đỏ ở hình A)> nó cho kết quả là 1.99 (màu đỏ ở hình
+ Sau khi điền kết quả xong nó tự xóa luôn các cọc và các text(cọc màu ghi , text ở giữa 2 đi màu vàng ) ở giữa 2 điểm 1 và 2 mà ta chọn ban đầu
-Mong anh em xem giúp , có gì mình viết trên đây mà mọi người chưa rõ ý của mình thì mình sẽ nói rõ thêm . Chân thành cám ơn
-Đây là bản cad
[http://www.cadviet.c...3/cadviet_1.dwg]
Bạn xài thử cái này xem đã đúng ý chưa nhé.
Có vài điều lưu ý bạn khi dùng lisp này là:
1/- Việc chọn điể đầu và điểm cuối của bạn phải được thực hiện đúng trên đường chuẩn như bạn đã đánh dấu.
2/- Việc chọn text cần thay thế bạn phải chọn các text nằm dọc theo các cọc màu ghi của bạn chứ không chọn các text nằm ngang vuông góc với cọc bạn nhé.
3/- Lisp này chỉ chạy đúng với cấu trúc hình vẽ như cái file bạn đã upload. Cụ thể là các khoảng cách giữa các đường line ngang màu xanh của bạn phải là 2 và chiều cao các text cũng đúng y boong như vậy bạn nhé.
4/- Nếu bạn thay đổi cái cấu trúc hình này thì lisp sẽ chạy ra cái kết quả không như ý muốn. Sở dĩ vậy là do mình bố trí text căn cứ vào chiều cao hiện tại của nó và cái khoảng hở của các đường line màu xanh bạn ạ. Nếu cần thiết bạn có thể tự thay đổi các kích thước này trong lisp cho phù hợp.
Lisp đây:
(defun c:HCM ( / p1 p2 p3 p4 p5 p6 p7 p8 p11 ss1 ss2 ss3 en els pt txt)
(command "undo" "be")
(setq p1 (getpoint "\n Chon diem dau")
p2 (getpoint "\n Chon diem cuoi")
p3 (list (car p1) (- (cadr p1) 8) (caddr p1))
p4 (list (- (car p2) 0.01) (- (cadr p2) 7.99) (caddr p2))
p5 (list (car p1) (- (cadr p1) 4) (caddr p1))
p6 (list (- (car p2) 0.01) (- (cadr p2) ) (caddr p2))
p7 (list (+ (car p1) 0.01) (- (cadr p1) 6.01) (caddr p1))
p8 (list (car p2) (- (cadr p2) 6) (caddr p2))
p11 (list (+ (car p1) 0.01) (cadr p1) (caddr p1))
ss1 (ssget "c" p11 p6 (list (cons 8 "LINEDONGTN")))
ss2 (ssget "w" p5 p8 (list (cons 0 "TEXT")))
ss3 (ssget "c" p7 p4 (list (cons 0 "TEXT,LINE")))
en (car (entsel "\n Chon text can thay the"))
els (entget en)
pt (cdr (assoc 11 els))
pt (list (+ (car pt) 0.8) (- (cadr pt) 0.8) (caddr pt))
txt (rtos (- (car p2) (car p1)) 2 2)
ss3 (ssdel en ss3)
)
(command "erase" ss1 ss2 ss3 "")
(setq els (subst (cons 1 txt) (assoc 1 els) els)
els ( subst (cons 50 0) (assoc 50 els) els)
els (subst (cons 11 pt) (assoc 11 els) els)
)
(entmod els)
(entupd en)
(command "undo" "e")
(princ)
)
Chúc bạn vui.
- 1
###
[
#1883
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/page-95#entry108686)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #1883](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 21 September 2010 - 03:06 PM
![ Hình đã gửi](http://i451.photobucket.com/albums/qq236/mangcut84/vidu.jpg)
Có cái lisp này thì anh em kiến trúc vẽ mặt bằng rất nhanh.
EM xin cám ơn các anh nhiều.
- 0
###
[
#1884
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/page-95#entry108693)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #1884](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 21 September 2010 - 03:19 PM
Lệnh fi không bị lỗi mà lỗi có nhẽ do cái thằng CAD của bạn nó phá bĩnh thôi. File bạn gửi mình mở ra filtẻ ngon lành mà. Hề hề hề.....
các bác có bít tại sao lệnh fi bị lỗi ko.có cách nào khắc phụ nó ko.mong các bác giúp đỡ em.day la file do
[http://www.cadviet.c...thp21092010.dwg]
Có nhẽ bạn nên mời chuyên gia phần mềm từ Autodesk sang may ra mới trị được, hề hề hề, nhưng mà hơi tốn xìn à nha. Còn như không thế thì bạn thử Ghost lại máy coi sao. Hề hề hề.....
- 0
###
[
#1885
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/page-95#entry108720)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #1885](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 21 September 2010 - 04:29 PM
Chết tôi rồi,
Cảm ơn 2 bạn rất nhiều,mình đã vỡ ra nhiều rồi^^.Mình sẽ tiếp tục dự định ban đầu
Cho mình hỏi là nếu hỏi đi hỏi lại thế này thì có làm loãng topic không?Vì ở đây còn rất nhiều request chưa được đáp ứng.Mình định lập 2pic cho những người mới bắt đầu về LSP hỏi những câu ngô nghê như vừa rồi,có lẽ tiện hơn ^^
Xin lỗi bạn ketxu nhé. Mình chỉ bạn sai rồi. Hàm command trong lisp luôn trả về giá trị là nil. Vậy nên nếu bạn làm như mình chỉ:
(setq hat (command "hatch" ..... )) thì biến hat luôn là nil bạn ạ. Tương tự với dòng code (setq dim1 (command "dimension" ......)).
Vì thế bạn không xài như cách mình chỉ dược mà là phải dùng như bác Phamngoctukts nói mới đúng. Tức là ngay sau mỗi lệnh (command " hatch".......) bạn dùng hàm ( setq ........) tỷ như: (setq hat (entlast)) bạn nhé.
Một lần nữa xin lỗi bạn vì đã chỉ bậy. Hề hề hề, chung quy chỉ tại cái tội nghĩ ẩu, mong bạn tha lỗi......
- 1
###
[
#1886
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/page-95#entry108724)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #1886](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 21 September 2010 - 04:38 PM
Các anh Hoành, anh Tuệ, anh ssg.... hay anh nào rảnh làm ơn viết hộ em cái lisp này nha. Trước ở cơ quan cũ của em có ông dùng cái lisp này, ông ấy vẽ trước hết tim ( trục ) rồi đánh lệnh 1 cái là nó tự động offset ra thành nét tường rồi tự trim, fillet hết như thế này. Các thông số cần chọn là: đường tim, chọn loại tường ( 220, 110, 330)
Có cái lisp này thì anh em kiến trúc vẽ mặt bằng rất nhanh.
EM xin cám ơn các anh nhiều.
Cái này dùng ACA là tốt nhất
Nhưng để vẽ MB nhanh thì cũng chẳng để làm gì.
Hãy tập vẽ 3D, sau đó xuất về 2D (MB, MĐ, MC,..)
Đó mới là cách hay!
- 1
###
[
#1887
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/page-95#entry108729)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #1887](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 21 September 2010 - 04:55 PM
Với code này bạn đã ofset được tuờng sang hai bên còn trim với filet có lẽ phải nhờ các cao thủ khác.
Các anh Hoành, anh Tuệ, anh ssg.... hay anh nào rảnh làm ơn viết hộ em cái lisp này nha. Trước ở cơ quan cũ của em có ông dùng cái lisp này, ông ấy vẽ trước hết tim ( trục ) rồi đánh lệnh 1 cái là nó tự động offset ra thành nét tường rồi tự trim, fillet hết như thế này. Các thông số cần chọn là: đường tim, chọn loại tường ( 220, 110, 330)
Có cái lisp này thì anh em kiến trúc vẽ mặt bằng rất nhanh.
EM xin cám ơn các anh nhiều.
(defun c:vetuong ()
(setq old_layer (getvar "clayer"))
(setq tbl (tblsearch "layer" "tuong"))
(if (= tbl nil) (command "-layer" "n" "tuong" "c" "4" "tuong" ""))
(setvar "clayer" "tuong")
(setq ss (ssget '((0 . "line"))))
(setq i 0)
(setq day (getint "\nnhap chieu day tuong:"))
(while (< i (sslength ss))
(setq ent (entget (ssname ss i))
p1 (cdr (assoc 10 ent))
p2 (cdr (assoc 11 ent))
)
(command "mline" "j" "z" "s" day p1 p2 "")
(command "explode" "l" "")
(setq i (1+ i))
)
(setvar "clayer" 0ld_layer)
)
- 0
*Tất cả vì sự phát triển của diễn đàn ...* **Cám ơn đừng nói lời suông mà hãy nhấn**
!
![ Hình đã gửi](http://www.cadviet.com/forum/public/style_images/master/add.png)
###
[
#1888
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/page-95#entry108731)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #1888](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 21 September 2010 - 04:58 PM
Ở bản vẽ khác thì em dùng đc lệnh fi.nhưng ở bản vẽ em gủi lên thì ko làm đc.Em nghĩ rằng bản vẽ đó có lỗi gì chăng.mong bác giúp em.Em cám ơn các bác nhiều
Lệnh fi không bị lỗi mà lỗi có nhẽ do cái thằng CAD của bạn nó phá bĩnh thôi. File bạn gửi mình mở ra filtẻ ngon lành mà. Hề hề hề.....
Có nhẽ bạn nên mời chuyên gia phần mềm từ Autodesk sang may ra mới trị được, hề hề hề, nhưng mà hơi tốn xìn à nha. Còn như không thế thì bạn thử Ghost lại máy coi sao. Hề hề hề.....
- 0
###
[
#1889
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/page-95#entry108743)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #1889](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 21 September 2010 - 06:31 PM
Bạn có chỉnh sửa lệnh không chứ Fillet và Filter đều sử dụng được mà mình vẫn dùng được cả 2 lệnh đó trên bản vẽ của bạn.
Ở bản vẽ khác thì em dùng đc lệnh fi.nhưng ở bản vẽ em gủi lên thì ko làm đc.Em nghĩ rằng bản vẽ đó có lỗi gì chăng.mong bác giúp em.Em cám ơn các bác nhiều
- 2
Em 16 bụng ... như trăng
**Hướng dẫn sử dụng diễn đàn:**
Để
**cảm ơn**hay bài viết có ích: Ấn dấu + cuối bài.
Không vừa lòng hay
**bài spam**: Ấn dấu - cuối bài.
###
[
#1890
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/page-95#entry108782)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #1890](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 21 September 2010 - 11:12 PM
Mình cũng thử cách của bạn ngay lúc đầu,thấy nó báo NIL cũng ngờ ngợ,đang định hỏi lại thì bạn đã cho mình biết đáp án rồi.Lại có thêm 1 điều lưu ý mình chưa biết.Tks bạn nhiều ^^ Hì hì..Đúng là vạn sự khởi đầu nan
Chết tôi rồi,
Xin lỗi bạn ketxu nhé. Mình chỉ bạn sai rồi. Hàm command trong lisp luôn trả về giá trị là nil. Vậy nên nếu bạn làm như mình chỉ:
(setq hat (command "hatch" ..... )) thì biến hat luôn là nil bạn ạ. Tương tự với dòng code (setq dim1 (command "dimension" ......)).
Vì thế bạn không xài như cách mình chỉ dược mà là phải dùng như bác Phamngoctukts nói mới đúng. Tức là ngay sau mỗi lệnh (command " hatch".......) bạn dùng hàm ( setq ........) tỷ như: (setq hat (entlast)) bạn nhé.
Một lần nữa xin lỗi bạn vì đã chỉ bậy. Hề hề hề, chung quy chỉ tại cái tội nghĩ ẩu, mong bạn tha lỗi......
- 0
###
[
#1891
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/page-95#entry108796)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #1891](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 22 September 2010 - 06:48 AM
Dựa vào code của anh gia_bach, Tue_NV chỉnh lại 1 chút cho phù hợp với yêu cầu của bạn vtd_xd.
Nhờ các bạn viết giúp tôi lisp với nội dung:
- link giá trị text (TextOverride) của dim, khi thay đổi giá trị text của dim đích thì text dim nguồn cũng thay đổi (giống như lisp LinkT)
Xin cảm ơn
[http://www.cadviet.com/upfiles/3/2.dwg]
Banj vtd_xd thử nhé :
(defun c:LinkD (/ ss objlst obj_reactor); Link DIMENSION
(if (setq ss (ssget '((0 . "DIMENSION"))) )
(progn
(vl-load-com)
(setq objlst (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))))
(setq obj_reactor (vlr-object-reactor objlst nil '((:vlr-modified . callback))))
)
)
)
(defun callback (notifier-object obj_reactor parameter-list / objlist newT)
(setq objlist (vlr-owners obj_reactor))
(setq newT (vla-get-TextOverride notifier-object))
(foreach obj objlist
(if (/= (vla-get-TextOverride obj) newT)
(vla-put-TextOverride obj newT)
)
)
)
- 1
###
[
#1892
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/page-95#entry108810)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #1892](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 22 September 2010 - 08:31 AM
Dựa vào code của anh gia_bach, Tue_NV chỉnh lại 1 chút cho phù hợp với yêu cầu của bạn vtd_xd.
Banj vtd_xd thử nhé :
(defun c:LinkD (/ ss objlst obj_reactor); Link DIMENSION
(if (setq ss (ssget '((0 . "DIMENSION"))) )
(progn
(vl-load-com)
(setq objlst (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))))
(setq obj_reactor (vlr-object-reactor objlst nil '((:vlr-modified . callback))))
)
)
)
(defun callback (notifier-object obj_reactor parameter-list / objlist newT)
(setq objlist (vlr-owners obj_reactor))
(setq newT (vla-get-TextOverride notifier-object))
(foreach obj objlist
(if (/= (vla-get-TextOverride obj) newT)
(vla-put-TextOverride obj newT)
)
)
)
Cám ơn bạn Tue_VN nhé
- 0
###
[
#1893
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/page-95#entry108951)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #1893](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 22 September 2010 - 04:43 PM
Tiếp tục phát triển ý của bạn mình đã làm được thế này rồi. Chú ý nét tim phải là layer _tim.
Các anh Hoành, anh Tuệ, anh ssg.... hay anh nào rảnh làm ơn viết hộ em cái lisp này nha. Trước ở cơ quan cũ của em có ông dùng cái lisp này, ông ấy vẽ trước hết tim ( trục ) rồi đánh lệnh 1 cái là nó tự động offset ra thành nét tường rồi tự trim, fillet hết như thế này. Các thông số cần chọn là: đường tim, chọn loại tường ( 220, 110, 330)
Có cái lisp này thì anh em kiến trúc vẽ mặt bằng rất nhanh.
EM xin cám ơn các anh nhiều.
![ Hình đã gửi](http://www.cadviet.com/upfiles/3/tuong.jpg)
Còn việc fillet các cạnh ngoài cùng mình đang chưa biết làm thế nào (chỗ vòng tròn đỏ). Bạn nào có thể chí giúp mình vấn đề này không?
(defun c:vetuong ()
(setq old_layer (getvar "clayer"))
(setq snap (getvar "osmode"))
(setq hl (getvar "highlight"))
(setq tbl (tblsearch "layer" "tuong"))
(if (= tbl nil) (command "-layer" "n" "tuong" "c" "4" "tuong" ""))
(setvar "clayer" "tuong")
(setvar "osmode" 0)
(setq ss (ssget '((0 . "line"))))
(setq day (getint "\nnhap chieu day tuong:"))
(setq i 0)
(setq lp nil)
(setq ssml nil)
(setq ssml (ssadd))
(while (< i (sslength ss))
(setq name (ssname ss i)
ent (entget name)
p1 (cdr (assoc 10 ent))
p2 (cdr (assoc 11 ent))
lp (append (list (append (list p1) (list p2))) lp)
)
(command "mline" "j" "z" "s" day p1 p2 "")
(command "explode" "l")
(setq ssline (ssget "p"))
(setq line1 (ssname ssline 0))
(setq line2 (ssname ssline 1))
(setq ssml (ssadd line1 (ssadd line2 ssml)))
(setq i (1+ i))
)
(command "-layer" "off" "_tim" "")
(setq j 0)
(setvar "highlight" 0)
(while (< j (length lp))
(setq nhom (nth j lp)
pt1 (car nhom)
pt2 (last nhom)
)
(command "trim" ssml "" "f" pt1 pt2 "" "")
(setq j (1+ j))
)
(setvar "clayer" old_layer)
(command "-layer" "on" "_tim" "")
(setvar "osmode" snap)
(setvar "highlight" hl)
)
- 1
*Tất cả vì sự phát triển của diễn đàn ...* **Cám ơn đừng nói lời suông mà hãy nhấn**
!
![ Hình đã gửi](http://www.cadviet.com/forum/public/style_images/master/add.png)
###
[
#1894
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/page-95#entry108962)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #1894](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 22 September 2010 - 06:03 PM
- 0
###
[
#1895
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/page-95#entry108963)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #1895](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 22 September 2010 - 06:06 PM
- 0
###
[
#1896
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/page-95#entry108988)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #1896](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 22 September 2010 - 10:49 PM
-Cám ơn Bạn Tue_nv đã quan tâm nhé, nhờ Tue chỉnh lại lisp theo như hình ảnh mình up lên đây nhé:
Bachngoctung thử cái này nhé :
(defun vtt(/ oldos)
(setq oldos (getvar "osmode"))
(setvar "osmode" 0)
(princ "\n Chon 1 cung Arc :")
(if (null (setq ss (ssget ":S" '((0 . "ARC"))) ))
(alert "\n Khong co cung Arc nao duoc chon ")
(progn
(setq ent (ssname ss 0))
(setq tam (cdr(assoc 10 (entget ent))))
(setq D (cdr(assoc 40 (entget ent))));bankinh
(setq dd (vlax-curve-getstartpoint ent))
(setq dc (vlax-curve-getendpoint ent))
(setq p1 (polar dd (+ (/ pi 2) (angle dd tam)) 1))
(setq p2 (polar dc (+ (/ pi 2) (angle dc tam)) 1))
(if (setq a (inters dd p1 dc p2 nil))
(progn
(vl-cmdf "line" dd a "")
(vl-cmdf "line" dc a "")
(setq c (/ (* 180 (abs (- (angle dd a) (angle dc a)))) pi))
)
)
))
(setvar "osmode" oldos)
(princ)
)
;;;;;;;;
(defun C:TS (/ ro CC CAT MD CD C D N L do ph O M I H J AA RR KK TT PP ss)
(SETVAR "CMDECHO" 0)
(command "-Style" "TS DUONG CONG" "arial" "0" "1" "0" "n" "")
(command "-Layer" "n" "TS DUONG CONG" "c" "222" "TS DUONG CONG" "lw" "0.2" "TS DUONG CONG" "")
(command "-Layer" "s" "TS DUONG CONG" "" "")
(setq CC (getpoint "\nCHON TAM CUA DUONG TRON / Enter ket thuc "))
(setq CAT (getreal "\nDUONG KINH DUONG TRON: "))
(while CC
(command ".circle" CC "d" CAT) (vtt)
(if ss (progn
(setq L (strcat "{\\fSymbol|b0|i0|c2|p18;a}" "="
(itoa (setq do (fix c)) ) "%%d"
(itoa (setq ph (fix (* 60 (- c do))))) "'"
(itoa (fix (* 60 (- (* 60 (- c do)) ph)))) "''"
)
)
(setq N (rtos D 2 2))
(setq H (COS (/ (/ (* C PI) 180) 2))) ;CONG THUC TINH GIA TRI COS(A/2)
(setq O (/ (SIN (/ (/ (* C PI) 180) 2)) (COS (/ (/ (* C PI) 180) 2)))) ;CONG THUC TINH GIA TRI TAN(A/2)
(setq M (rtos (* O D) 2 2)) ;CONG THUC TINH GIA TRI T
(setq I (rtos (* D (- (/ 1 H) 1)) 2 2)) ;CONG THUC TINH GIA TRI P
(setq J (rtos (/ (* D C PI) 180) 2 2)) ;CONG THUC TINH GIA TRI K
(setq AA L) ;GIA TRI A
(setq RR (strcat "R=" N)) ;GIA TRI R
(setq KK (strcat "K=" J)) ;GIA TRI K
(setq TT (strcat "T=" M)) ;GIA TRI T
(setq PP (strcat "P=" I)) ;GIA TRI P
(setq MD (/ CAT 10))
(setq CD (list (car CC) (+ (cadr CC) (/ CAT 3.1))))
(command ".text" "m" CD MD 0.0 AA) (setq e (entlast)) ;TEXT GIA TRI A
(command ".text" "" RR) ;TEXT GIA TRI R
(command ".text" "" KK) ;TEXT GIA TRI K
(command ".text" "" TT) ;TEXT GIA TRI T
(command ".text" "" PP) ;TEXT GIA TRI P
(command "txt2mtxt" e "")
(setq CC (getpoint "\nCHON TAM CUA DUONG TRON: "))
))
) ;dong WHILE
(SETVAR "CMDECHO" 1)
(PRINC)
) ;KET THUC DEFUN
- Cụ thể : + Tue chỉnh lại cho mình số đo góc anpha
+ Chỉnh cho dòng text chứa số đo góc anpha có Width factor= 0.7 nhé (mục đích là muốn cho nó vừa gọn vào vòng tròn Tue à)
-Cám ơn Tue nhé
![ Hình đã gửi](http://ca4.upanh.com/13.695.17911532.1gy0/capture.jpg)
- 0
###
[
#1897
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/page-95#entry108994)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #1897](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 22 September 2010 - 11:22 PM
Cuối cùng thì mình cũng viết xong lisp này cho bạn rồi này. Chúc bạn vui và làm việc hiệu quả.
Các anh Hoành, anh Tuệ, anh ssg.... hay anh nào rảnh làm ơn viết hộ em cái lisp này nha. Trước ở cơ quan cũ của em có ông dùng cái lisp này, ông ấy vẽ trước hết tim ( trục ) rồi đánh lệnh 1 cái là nó tự động offset ra thành nét tường rồi tự trim, fillet hết như thế này. Các thông số cần chọn là: đường tim, chọn loại tường ( 220, 110, 330)
Có cái lisp này thì anh em kiến trúc vẽ mặt bằng rất nhanh.
EM xin cám ơn các anh nhiều.
(defun c:vetuong ()
(command "undo" "be")
(setvar "cmdecho" 0)
(setq old_layer (getvar "clayer"))
(setq snap (getvar "osmode"))
(setq hl (getvar "highlight"))
(setq tbl (tblsearch "layer" "tuong"))
(if (= tbl nil) (command "-layer" "n" "tuong" "c" "4" "tuong" ""))
(setq tbl (tblsearch "layer" "template"))
(if (= tbl nil) (command "-layer" "n" "template" "c" "0" "template" ""))
(setvar "clayer" "template")
(setvar "osmode" 0)
(setq ss (ssget '((0 . "line"))))
(setq day (getint "\nnhap chieu day tuong:"))
(setq cg (fix (/ (* (sqrt 2) day) 2)))
(setq i 0)
(setq lp nil)
(setq ssml nil)
(setq ssml (ssadd))
(while (< i (sslength ss))
(setq name (ssname ss i)
ent (entget name)
p1 (cdr (assoc 10 ent))
p2 (cdr (assoc 11 ent))
lp (append (list (append (list p1) (list p2))) lp)
)
(command "mline" "j" "z" "s" day p1 p2 "")
(command "explode" "l")
(setq ssline (ssget "p"))
(setq line1 (ssname ssline 0))
(setq line2 (ssname ssline 1))
(setq ssml (ssadd line1 (ssadd line2 ssml)))
(setq i (1+ i))
)
(command "-layer" "off" "_tim" "")
(setq j 0)
(setvar "highlight" 0)
(while (< j (length lp))
(setq nhom (nth j lp)
pt1 (car nhom)
pt2 (last nhom)
)
(command "trim" ssml "" "f" pt1 pt2 "" "")
(setq j (1+ j))
)
(setq q 0)
(setq ssml (ssget "x" '((0 . "line") (8 . "template"))))
(while (< q (sslength ssml))
(setq l1 (ssname ssml q)
pf1 (cdr (assoc 10 (entget l1)))
pf2 (cdr (assoc 11 (entget l1)))
)
(setq k 0)
(while (< k (sslength ssml))
(setq l2 (ssname ssml k)
pf3 (cdr (assoc 10 (entget l2)))
pf4 (cdr (assoc 11 (entget l2)))
d1 (distance pf1 pf3)
d2 (distance pf1 pf4)
d3 (distance pf2 pf3)
d4 (distance pf2 pf4)
)
(if (or (= (fix d1) cg) (= (fix d2) cg) (= (fix d3) cg) (= (fix d4) cg))
(command "fillet" l1 l2)
)
(setq k (1+ k))
)
(setq q (1+ q))
)
(command "change" ssml "" "p" "la" "tuong" "")
(setvar "clayer" old_layer)
(command "-layer" "on" "_tim" "")
(setvar "osmode" snap)
(setvar "highlight" hl)
(setvar "cmdecho" 1)
(command "undo" "e")
)
Cám ơn bạn ketxu đã gợi ý để mình hoàn thành lisp.
BS: nét của bạn phải là layer "_tim" nếu không lisp sẽ bị sai.
- 2
*Tất cả vì sự phát triển của diễn đàn ...* **Cám ơn đừng nói lời suông mà hãy nhấn**
!
![ Hình đã gửi](http://www.cadviet.com/forum/public/style_images/master/add.png)
###
[
#1898
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/page-95#entry108996)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #1898](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 22 September 2010 - 11:24 PM
- Cám ơn PhamThanhBinh mình đã thử lisp mà bạn gửi cho mình thấy có một số bất cập sau:
Chào bạn Ba5chngoctung,
Bạn xài thử cái này xem đã đúng ý chưa nhé.
Có vài điều lưu ý bạn khi dùng lisp này là:
1/- Việc chọn điể đầu và điểm cuối của bạn phải được thực hiện đúng trên đường chuẩn như bạn đã đánh dấu.
2/- Việc chọn text cần thay thế bạn phải chọn các text nằm dọc theo các cọc màu ghi của bạn chứ không chọn các text nằm ngang vuông góc với cọc bạn nhé.
3/- Lisp này chỉ chạy đúng với cấu trúc hình vẽ như cái file bạn đã upload. Cụ thể là các khoảng cách giữa các đường line ngang màu xanh của bạn phải là 2 và chiều cao các text cũng đúng y boong như vậy bạn nhé.
4/- Nếu bạn thay đổi cái cấu trúc hình này thì lisp sẽ chạy ra cái kết quả không như ý muốn. Sở dĩ vậy là do mình bố trí text căn cứ vào chiều cao hiện tại của nó và cái khoảng hở của các đường line màu xanh bạn ạ. Nếu cần thiết bạn có thể tự thay đổi các kích thước này trong lisp cho phù hợp.
Lisp đây:
(defun c:HCM ( / p1 p2 p3 p4 p5 p6 p7 p8 p11 ss1 ss2 ss3 en els pt txt)
(command "undo" "be")
(setq p1 (getpoint "\n Chon diem dau")
p2 (getpoint "\n Chon diem cuoi")
p3 (list (car p1) (- (cadr p1) 8) (caddr p1))
p4 (list (- (car p2) 0.01) (- (cadr p2) 7.99) (caddr p2))
p5 (list (car p1) (- (cadr p1) 4) (caddr p1))
p6 (list (- (car p2) 0.01) (- (cadr p2) ) (caddr p2))
p7 (list (+ (car p1) 0.01) (- (cadr p1) 6.01) (caddr p1))
p8 (list (car p2) (- (cadr p2) 6) (caddr p2))
p11 (list (+ (car p1) 0.01) (cadr p1) (caddr p1))
ss1 (ssget "c" p11 p6 (list (cons 8 "LINEDONGTN")))
ss2 (ssget "w" p5 p8 (list (cons 0 "TEXT")))
ss3 (ssget "c" p7 p4 (list (cons 0 "TEXT,LINE")))
en (car (entsel "\n Chon text can thay the"))
els (entget en)
pt (cdr (assoc 11 els))
pt (list (+ (car pt) 0.8) (- (cadr pt) 0.8) (caddr pt))
txt (rtos (- (car p2) (car p1)) 2 2)
ss3 (ssdel en ss3)
)
(command "erase" ss1 ss2 ss3 "")
(setq els (subst (cons 1 txt) (assoc 1 els) els)
els ( subst (cons 50 0) (assoc 50 els) els)
els (subst (cons 11 pt) (assoc 11 els) els)
)
(entmod els)
(entupd en)
(command "undo" "e")
(princ)
)
Chúc bạn vui.
+ Khi thử đối với các điểm 1 và 2 (của hình A) thì cho ra gần đúng kết quả như hình B khác mỗi là 2 đường thằng màu xanh nằm ngang phía dưới cũng bị xóa luôn theo
+ Khi thử với các điểm bất kỳ khác thì thấy nó cho kết quả là xóa luôn cọc ở điểm đầu và cọc ở điểm cuối khi mình chọn , đồng thời cũng xáo luôn cả 2 đường thằng màu xanh nằm ngang phía dưới
- Mà bạn PhamThanhBinh này : trong hình ảnh mình đưa lên đó cái cọc 1 và 2 mình đánh số và khoanh tròn chỉ là để cho bạn dễ nhìn và dễ hình dung thôi chứ bản vẽ ban đầu ko có.
- Mình đã thử và nhận thấy nếu cứ để vòng tròn ở hai điểm đầu và cuối thì nó ko xóa đi cọc đầu và cọc cuối còn ko có vòng tròn đó thì nó xóa luôn cọc đầu và cuối. Mong PhamThanhBinh xem lại và chỉnh lại cho mình nhé. Cám ơn nha
- 0
###
[
#1899
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/page-95#entry109000)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #1899](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 22 September 2010 - 11:47 PM
( đây là lisp thứ 2 em xin trong diễn đàn rồi ) hì hì
lisp ten : cong text theo cap so cong
Thuật toán là như vầy :
1. Đầu tiên sẽ tạo 1 text và copy text này ra các nơi vị trí muốn bố trí text ( ví dụ giá trị ban đầu text là 00 )
2.bấm lệnh của lisp
3. Xử lý như thế này các anh ạ :
+ Lisp sẽ hỏi chọn những text muốn cộng theo cấp số cộng này - sau đó em sẽ khối chọn những text cần
+ Lisp hỏi : nhập giá trị số đầu tiên - VD em sẽ nhập là : 10
+ Lisp hỏi : nhập giá trị số gia - VD em sẽ nhập là : 5
+ Lisp hỏi : chọn chiều cộng ( có 2 chiều là X hoặc Y nghĩa là cộng theo vị trí text trái phải hay trên dưới ) - VD em chọn : Y
+ Lisp hỏi : Chọn vị trí text đầu tiên - VD em chọn text có vị trí ở dưới cùng ( theo trục Y )
===> lisp sẽ thực hiện và ra kết quả : các text sẽ tự động thay đổi giá trị
VD em có 4 text : thì text bên dưới cùng sẽ là từ 00 ---> 10
tiếp theo các số ở trên nó : 00 ---> 15 ; 00 ---> 20 ; 00 ---> 25
==> kết quả : 10 ; 15 ; 20 ; 25 sẽ hiện lên màn hình
Các anh xem file cad đính kèm của em nhé ( Cad 2007 ) , em có giải thích chi tiết luôn :
[http://www.mediafire...amb9uoyi6y59sk9](http://www.mediafire.com/?amb9uoyi6y59sk9)
- 0
###
[
#1900
](http://www.cadviet.com/forum/topic/13203-viet-lisp-theo-yeu-cau-phan-2/page-95#entry109010)
![Viết lisp theo yêu cầu [phần 2]Liên kết đến bài viết #1900](http://www.cadviet.com/forum/public/style_images/master/icon_share.png)
Đã gửi 23 September 2010 - 01:17 AM
2 bác,vì lúc đưa ý kến e lấy trường hợp cụ thể mà bạn ấy yêu cầu là các cạnh tim trục vuông góc với nhau(đa số),nên khoảng cách fix luôn như vậy.Còn nếu trục tim chéó đi thì không thể dùng kcách cố định như vậy được.Có lẽ phải cho nó nằm trong khoảng từ 0 đến bề rộng tường.
Cuối cùng thì mình cũng viết xong lisp này cho bạn rồi này. Chúc bạn vui và làm việc hiệu quả.
Cám ơn bạn ketxu đã gợi ý để mình hoàn thành lisp.
BS: nét của bạn phải là layer "_tim" nếu không lisp sẽ bị sai.
![ :(](http://www.cadviet.com/forum/public/style_emoticons/default/sad.gif)
Nhưng dù sao với yêu cầu ban đầu của bạn ấy thì lisp chạy quá mượt.Tks bác vì lisp công phu này
À,e xin ý kiến là bề rộng tường nếu getint thì với trường hợp vẽ có tỉ lệ khác 1:1 thì user hơi khổ ^^.Nếu có hàm nhỏ để user thay đổi tỉ lệ vẽ,khi nhận giá trị int thì chia cho tỉ lệ cũng được.
Và Khi user chọn các đường tim thì lấy luôn layer name của đối tượng để làm đối số cho các lệnh layer on,off phía sau.Như vậy thiì chỉ cần yêu cầu user vẽ tất cả các đường tim chung 1 layer
- 0

WARC-Truncated: length

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

Server: Apache

Vary: Accept-Encoding,User-Agent


text:
Những màn trình diễn mạo hiểm tới khó tin, khiến khán giả nghẹt thở vì sợ hãi. Tài năng độc đáo luôn khiến mọi người trầm trồ, ngưỡng mộ nhưng nếu đó là những màn trình diễn quá mạo hiểm thì cảm giác sợ hãi sẽ...
biểu diễn
Đây chỉ là 1 phần nhỏ trong số những tiết mục biểu diễn rùng rợn tại lễ hội kéo tại Peru. Ngoài tác dụng cắt, tỉa vật phẩm, cây cối, bạn có biết rằng kéo còn có thể trở thành nhạc cụ? Nếu như chưa...

markdown:
[Những màn biểu diễn “rợn tóc gáy”](http://truyenmacothat.net/nhung-man-bieu-dien-8220-ron-toc-gay-8221) [](http://truyenmacothat.net/nhung-man-bieu-dien-8220-ron-toc-gay-8221)
![Những màn biểu diễn “rợn tóc gáy” Những màn trình diễn mạo hiểm tới khó tin, khiến khán giả nghẹt thở vì sợ hãi. Tài năng độc đáo luôn khiến mọi người trầm trồ, ngưỡng mộ nhưng nếu đó là những màn trình diễn quá mạo hiểm thì cảm giác sợ hãi sẽ bao trùm tâm trí khán giả. Dưới đây là […]](http://truyenmacothat.net/wp-content/themes/truyenma/images/noimg.jpg)
[Những màn biểu diễn “rợn tóc gáy”](http://truyenmacothat.net/nhung-man-bieu-dien-8220-ron-toc-gay-8221)
Những màn trình diễn mạo hiểm tới khó tin, khiến khán giả nghẹt thở vì sợ hãi. Tài năng độc đáo luôn khiến mọi người trầm trồ, ngưỡng mộ nhưng nếu đó là những màn trình diễn quá mạo hiểm thì cảm giác sợ hãi sẽ...

X-XSS-Protection: 1; mode=block

Set-Cookie: __cfduid=d82f070f842568d60450493fe432824cd1480955573; expires=Tue, 05-Dec-17 16:32:53 GMT; path=/; domain=.truyenmacothat.net; HttpOnly

Server: cloudflare-nginx

X-Content-Type-Options: nosniff

X-Frame-Options: SAMEORIGIN

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


text:
Văn phòng công tố Seoul cho biết người phụ nữ - được xác định là họ Jeon – hồi năm ngoái dụ dỗ bạn trai đến nhà rồi tiêm thuốc mê cho ông ta. Sau đó, người đàn bà 40 tuổi cố gắng thực hiện hành vi cưỡng hiếp trong khi người đàn ông đang ngủ mê mệt.
Họ Jeon còn phải đối mặt thêm một tội danh nữa là hành hung người khác. Sau khi tỉnh dậy và tìm cách thoát thân, người đàn ông bị tình nhân cầm hung khí tấn công. Được biết vào thời điểm đến nhà người phụ nữ này, ông ta đã kết hôn với một phụ nữ khác.
Cho đến tháng 6-2013, pháp luật Hàn Quốc không thừa nhận nam giới là nạn nhân của một vụ tấn công tình dục. Điều đó có nghĩa là chỉ phụ nữ và trẻ em gái mới được nộp đơn khiếu nại tới cảnh sát nếu bị xâm hại.
Bà Jeon được xem là trường hợp đầu tiên trong lịch sử Hàn Quốc bị truy tố về tội hiếp dâm và là người phụ nữ đầu tiên bị bắt vì cưỡng hiếp đàn ông.
Tại Trung Quốc, giảng viên Jia Jian đến từ Đại học Khoa học Chính trị và Luật ở TP Trùng Khánh vừa kêu gọi chính phủ sửa đổi luật để đưa nam giới vào diện nạn nhân bị cưỡng hiếp, bên cạnh nữ giới.
Ông Jian cho biết đề xuất này nhằm bảo vệ quyền lợi cho cả nam giới và nói thêm: “Quy định kể trên đã được các nước như Đức, Pháp và Ý áp dụng rộng rãi, trong đó xác định nạn nhân bị hãm hiếp là “đối tượng thứ hai”, đồng thời đảm bảo quyền bình đẳng về hành vi tình dục giữa đàn ông và phụ nữ”.
Vị giảng viên nhấn mạnh phụ nữ “cũng có khả năng cưỡng hiếp đàn ông”, trong khi chỉ có nam giới mới bị xử phạt về tội danh này. Ý kiến của ông Jian nhận được sự ủng hộ tích cực của nhiều cư dân mạng, đặc biệt là các nhà hoạt động về nhân quyền.
Giáo sư ngành Luật Liu Junhai, thuộc Đại học Renmin của Trung Quốc, cho rằng thay đổi Luật hình sự về việc xác định đối tượng bị cưỡng hiếp có thể giải quyết vấn đề phân biệt đối xử giới tính. Giáo sư Liu cho biết thêm Luật Hình sự của Trung Quốc đã lỗi thời và cần được sửa đổi để theo kịp nếp sống hiện đại.

markdown:
![ Truy tố 'yêu nữ' cưỡng hiếp bạn trai](http://static.plo.vn/w653/Uploaded/danglien/2015_04_03/hiep_DANB.jpg)
Văn phòng công tố Seoul cho biết người phụ nữ - được xác định là họ Jeon – hồi năm ngoái dụ dỗ bạn trai đến nhà rồi tiêm thuốc mê cho ông ta. Sau đó, người đàn bà 40 tuổi cố gắng thực hiện hành vi cưỡng hiếp trong khi người đàn ông đang ngủ mê mệt.
Họ Jeon còn phải đối mặt thêm một tội danh nữa là hành hung người khác. Sau khi tỉnh dậy và tìm cách thoát thân, người đàn ông bị tình nhân cầm hung khí tấn công. Được biết vào thời điểm đến nhà người phụ nữ này, ông ta đã kết hôn với một phụ nữ khác.
![Ảnh minh họa. Ảnh minh họa.](http://static.plo.vn/w465/uploaded/danglien/2015_04_03/21428050134711_fdcc.jpg)
*Ảnh minh họa.*
Cho đến tháng 6-2013, pháp luật Hàn Quốc không thừa nhận nam giới là nạn nhân của một vụ tấn công tình dục. Điều đó có nghĩa là chỉ phụ nữ và trẻ em gái mới được nộp đơn khiếu nại tới cảnh sát nếu bị xâm hại.
Bà Jeon được xem là trường hợp đầu tiên trong lịch sử Hàn Quốc bị truy tố về tội hiếp dâm và là người phụ nữ đầu tiên bị bắt vì cưỡng hiếp đàn ông.
Tại Trung Quốc, giảng viên Jia Jian đến từ Đại học Khoa học Chính trị và Luật ở TP Trùng Khánh vừa kêu gọi chính phủ sửa đổi luật để đưa nam giới vào diện nạn nhân bị cưỡng hiếp, bên cạnh nữ giới.
Ông Jian cho biết đề xuất này nhằm bảo vệ quyền lợi cho cả nam giới và nói thêm: “Quy định kể trên đã được các nước như Đức, Pháp và Ý áp dụng rộng rãi, trong đó xác định nạn nhân bị hãm hiếp là “đối tượng thứ hai”, đồng thời đảm bảo quyền bình đẳng về hành vi tình dục giữa đàn ông và phụ nữ”.
Vị giảng viên nhấn mạnh phụ nữ “cũng có khả năng cưỡng hiếp đàn ông”, trong khi chỉ có nam giới mới bị xử phạt về tội danh này. Ý kiến của ông Jian nhận được sự ủng hộ tích cực của nhiều cư dân mạng, đặc biệt là các nhà hoạt động về nhân quyền.
Giáo sư ngành Luật Liu Junhai, thuộc Đại học Renmin của Trung Quốc, cho rằng thay đổi Luật hình sự về việc xác định đối tượng bị cưỡng hiếp có thể giải quyết vấn đề phân biệt đối xử giới tính. Giáo sư Liu cho biết thêm Luật Hình sự của Trung Quốc đã lỗi thời và cần được sửa đổi để theo kịp nếp sống hiện đại.
**Theo P.Nghĩa/NLĐO/ Korea Herald, Yibada**

Cache-Control: private

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

Set-Cookie: .ASPXANONYMOUS=m5I63pKZvaV6GLLn94WAApFeC18cyN2e3Ey0WYaFmzdJ-HqKnLXqoVmAlzxomgcVjeNVCdeIRMUtCjVw6RbQfDXvbpXWBmgPJ_a7gtwyCXQnbJcRJNwoQHK8oSC7rcyyFJ7d6SfzqZAFsxhKtsO3Qw2; domain=plo.vn; expires=Mon, 13-Feb-2017 03:39:44 GMT; path=/; HttpOnly

X-Cache: MISS from xCache11-02


text:
Microsoft Lumia 550 (No.38781635369107862034)
Đặc điểm nổi bật
- Chipset: Qualcomm Snapdragon 210 Quad-core 1.1 GHz
- Màn hình: 4.7 inch, 720 x 1280 pixels
- Camera: 5.0 MP/ 2.0 MP
Microsoft Lumia 550 (No.38781635369107862034)
1.496.000đ (Giá gốc sản phẩm 1.990.000đ)
- - Trầy xước ít
- - Hộp máy, Pin, Sạc
- - Thời gian bảo hành đến ngày 09/10/2017
Có hàng tại: Cửa hàng FPT Shop 2 Thái Nguyên, Khánh Hòa xem cửa hàng

markdown:
Microsoft Lumia 550 (No.38781635369107862034)
**Đặc điểm nổi bật**
- Chipset: Qualcomm Snapdragon 210 Quad-core 1.1 GHz
- Màn hình: 4.7 inch, 720 x 1280 pixels
- Camera: 5.0 MP/ 2.0 MP
Microsoft Lumia 550 (No.38781635369107862034)
1.496.000đ (Giá gốc sản phẩm
**1.990.000đ**)
- - Trầy xước ít
- - Hộp máy, Pin, Sạc
- - Thời gian bảo hành đến ngày 09/10/2017
Có hàng tại: Cửa hàng FPT Shop 2 Thái Nguyên, Khánh Hòa
xem cửa hàng
![](/may-doi-tra/Content/Publishing/Images/Location-Icon-Blue.png)

Server: fws

X-Cache: MISS from 51