duy782006

Trong thực tế bài toán chia đoạn tường rào theo đường cong là có thiệt. Nhưng mình thì rải đuổi 1 đầu, thiếu đủ anh cuối chịu tuỳ thực tế chứ ít chơi cả 2 đầu chịu lắm, và cũng hiếm khi không đủ lại lấy bên đường thẳng qua vì như vậy mất chút đất của ranh thẳng chủ đầu tư sẽ bắt đền đấy.

Đến giờ này bác @cuongtk2 vẫn còn bám theo yêu cầu chủ thớt là chính giữa phải là 1 cạnh chứ ko phải một đỉnh nên chỉ xét số đoạn thẳng theo số lẻ chứ ko thì còn phải tính trường hợp số đoạn thẳng là số chẵn nửa. Mà đến giờ chắc là đúng ý thớt rồi á. Còn lại mọi người mình chém và tự đặt đề cho nhau giải coi như là đề tài thú vị nghiên cứu chơi vậy thôi.

Ném đá hội nghị miết cũng kỳ, mà chưa viết được cái đoạn chui vào pline để lấy cái ARC ra xử. Mình viết 1 đoạn xử cái ARC không thôi. -Lệnh A3L, chọn cái ARC (arc thường chứ đừng pline nhé), hỏi dài cạnh giữa, nó vẽ ra line dài như mới nhập vào 2 đầu chạm vào ARC và canh ngay giữa. Sau đó vẽ 2 CIRCLE có tâm là 2 đầu line vừa vẽ, bán kính là chiều dài vừa nhập. -Đoạn còn lại lấy thêm hay bỏ bớt cho ra cái đường hoàn chỉnh thì quyết định bằng mắt và vẽ bằng tay vậy! ;----- ArcSine - Lee Mac, Args: -1 <= x <= 1 (defun asin (x) (cond ((< 1.0 (abs x)) nil) ((equal (abs x) 1.0 1e-8) (* x pi 0.5)) (T (atan x (sqrt (- 1.0 (* x x))))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (Defun c:a3l () (princ "\nChon ARC can chia!") (setq doituong (entget (car (entsel)))) (setq TAM (cdr (assoc 10 doituong))) (setq BANKINH (cdr (assoc 40 doituong))) (setq GOCBD (cdr (assoc 50 doituong))) (setq GOCKT (cdr (assoc 51 doituong))) (cond ((< GOCBD GOCKT) (setq gocthem 0)) ((> GOCBD GOCKT) (setq gocthem pi)) ) (setq daicanh (getreal "\nDo dai canh giua: ")) (setq sgoc (asin (/ daicanh 2 BANKINH))) (setq goccung (/ (- GOCKT GOCBD) 2)) (setq gocgiua (+ GOCBD goccung)) (setq goctim (+ gocgiua sgoc)) (setq goctim1 (- gocgiua sgoc)) (setq diemg4 (polar TAM (+ gocthem goctim) BANKINH)) (setq diemg5 (polar TAM (+ gocthem goctim1) BANKINH)) (command ".line" "_none" diemg4 "_none" diemg5 "") (command ".circle" "_none" diemg4 daicanh) (command ".circle" "_none" diemg5 daicanh) (Princ))

Cho mình hỏi. Mình có giá trị sin của một góc giờ làm sao đổi ra giá trị của góc đó ạ? Mình thử hàm ngược là arcsin thì lisp không biết hàm này.

1. Mớ lisp này là căn cứ vào nhu cầu công việc cá nhân mà viết ra, tất nhiên khi viết mình cũng hướng đến việc dành cho nhiều người dùng nên để mức độ tùy biến cho người dùng chọn cũng tương đối linh hoạt (mình nghỉ thế). 2. Mình thuộc hệ vẫn còn dùng cad2007 nên trong mớ lisp này có những việc cad đời cao hơn đã có sẵn cũng nên, hông sao. 3. Ban đầu mình phân loại mớ lisp này tương đối mạch lạc nhưng càng viết, sửa thì nó càng dính chùm nay đã thành 1 mớ rối beng nên ko có khả năng tách ra từng lisp riêng nửa. 4. Mình đã chạy thử nó từ cad2007 đến 2022 thì điều ok, tuy nhiên có một số máy vì lý do bí ẩn nào đó load nó hông lên và mình cũng chưa tìm ra nguyên nhân nên nếu bạn ko dùng được thì cũng hông có gì bất ngờ. 5. Cách dùng thì bạn load file này về, giải nén ra thư mục lisp rồi chép nó vào đâu cũng được miễn đường dẩn đừng có tiếng Việt có dấu, xong load hết các lisp này lên là dùng thôi. 6. Thiệt ra mình cũng hông cách nào nhớ hết các lệnh lisp và công dụng nên có làm một menu và một hộp thoại cho việc này. -Hộp thoại thì bạn dùng lệnh THL nó sẽ ra hộp thoại, có tên lệnh và tác dụng (tiếng Việt có dấu) nhấn vào lệnh nào thì thực hiện lệnh đó. -Menu thì khi load lisp xong bạn gỏ lệnh TMMN nó sẽ tạo menu có tên duy782006 (tiếng Việt không dấu). 7. Xuyên suốt mớ lisp này mình có 2 lệnh bao cân là lệnh EDT và EDB: -Lệnh EDB dùng edit block. Trong nhiều lệnh mình dùng một số block (tự sinh bằng lisp) nếu 1 số block đặc thù thì lệnh EDB sẽ edit theo cách riêng mà mình mong muốn, còn các block khác thì chỉ edit các thông số như lệnh edit block bình thường. -Lệnh EDT dùng edit các đối tượng như text, att. nếu chọn các block cần tính toán giá trị thì sẽ cập nhật theo cách riêng mà mình mong muốn, còn các text, att khác thì chỉ edit các thông số như lệnh edit text bình thường. 8. Nay như vậy đã từ từ mình sẽ giới thiệu từng lệnh và ứng dụng cụ thể trong công việc. lisp.rar

Video quá trình dùng block mặt cắt ngang và thống kê. Video quá trình dùng block mặt cắt dọc dầm và thống kê.

Nhân tiện vụ in PDF hôm trước mình có bài này nay bê nguyên xi qua đây có khi có ích với ai đang vướng. Tiếp tục câu chuyện về chuyển đổi số. In bản vẽ qua file pdf thì mới hớn hở khoe con lisp in nhanh, xong hí hoáy ký số và hớn hở gửi đi và thiệt bất ngờ là bên nhận file thông báo là lỗi font. Bà mẹ máy mình thì vì có font nên nó hiện ầm ầm mà máy kia không có nên nó lỗi mà éo le là dòm trên máy mình thì hông thể biết máy kia nó sẽ lỗi chổ nào để mà sửa. -Tối hôm qua vật lộn với các ứng dụng online, miễn phí và vân vân với mong muốn làm các text trong file pdf biến mẹ nó thành ảnh để không bị ảnh hưởng bởi font chữ nửa. Mình đã làm một việc rất cùi bắp là chuyển file pdf thành một mớ ảnh jpg, sau đó là chuyển các ảnh đó thành file pdf và nối cái đống hổ lốn đó thành 1 file pdf hoàn chỉnh. Túm lại là rối và lộn hết cả xộn. -Sau khi đã xong gửi đi ok rồi nhưng mình vẫn cay vì cách này quá nông dân và vất hết cả vã nên mình lội net hỏi khắp nơi thì mà là rằng tui ưng chuyển file dpf dạng text sang pdf dạng image thì làm nào. Không phụ sự mong đợi bà chị cho một lô xích xông các công cụ làm cái việc ngược lại của mình hỏi ấy là chuyển file pdf dạng image thành file pdf dạng text. -Bực bà chị quá mình vận dụng kho từ vựng tiếng anh khổng lồ của mình vật lộn với anh máy in ảo dùng in pdf của mình thì cuối củng cũng lòi ra chổ này. Chỉ cần bấm dô đó thì khi mình in ra pdf các đối tượng text sẽ thành cái ảnh ráo trọi tha hồ mà gửi cho thiên hạ mà hông sợ bị réo vụ lỗi font.

Cái chủ đề này đang được xếp vào chủ đề hót đấy các bác ạ. Ban đầu thì mình mắc mệt với cái đề của chủ thớt, sau coi cái đề của bác @cuongtk2 thì mình nghỉ chắc 99% là ý chủ thớt là như vậy tại ảnh trình bày lủng củng quá thôi. Bây giờ hết mắc mệt chuyển qua mắc cười rồi. Chờ bác nào giải mình chôm 1 đoạn! -Đã có cung tròn thì quan tâm gì đến góc nửa cứ bắt điểm giữa cung vẽ line vào tâm cung xong offset (đang nói thủ công). Mình đang chờ chôm đoạn lấy cung nằm trong PLINE!

-In hàng loạt. -Tên lệnh: IND -Gọi lệnh nó ra hộp thoại như này, Bên phải hiển thị các lựa chọn về máy in, khổ giấy in hiện hành của cad, phần hướng giấy in nó đang nói phét là tự tính nhưng thiệt ra cái này bị lỗi gì á nó hông tự tính được nên bạn phải tự set tất tật các thông số in bằng cách nhấn dô nút “Định dạng các thông số in” nó sẽ trả về lệnh in của cad bạn chọn các thứ đã đời xong nó quay lại hứng cái kết qủa đó rồi in. -Trong phần định dạng in cũng có nhiều loại nhưng hiện nay ổn chỉ có in theo block khung tên. -bạn chọn “bắt đầu chọn” nó sẽ hỏi bạn chọn block khung tên, chọn xong nó sẽ hiểu thị 1 hình chữ nhật màu vàng là giới hạn mà nó hiểu là cái block chiếm bấy nhiêu đó thường là nó hiểu hông xít khung như mình ưng do trong quá trình tạo block mình bị có đối tượng nào đó nằm vu vơ bên ngoài chẳng hạn, nó hỏi bạn chỉ cho nó cái hình chữ nhật bạn ưng in thôi, bạn pick 2 điểm chéo chỉ cho nó nó sẽ căn cứ theo cái hình màu vàng và cái mình mới chỉ nó sẽ áp dụng theo tỉ lệ cho tất cả block bạn chọn sau đó. -Nó bảo bạn chọn các block muốn in, bạn chọn kiểu gì cũng được nhưng mình chưa áp dụng sắp sếp trong lệnh này nên tốt nhất bạn chọn các block theo thứ tự muốn in. Nếu in ra giấy thì ngồi chờ in xong rồi lấy, nếu in file thì bạn nên cài PDF factory pro chờ in xong rồi lưu file.

Khi thống kê thép mình có 1 thiết kế 1 số block chỉ cần chọn nó phát thì thống kê luôn hiện nay chia làm 3 loại. -Loại mặt cắt ngang đơn giản có cốt thép không thay đổi suốt chiều dài: Loại này 1 mặt cắt sẽ kèm theo 1 hoặc nhiều chú thích tên, dùng block “duy_tv_kc_daiso” block này thể hiện tên cấu kiện, chiều dài cấu kiện, số lượng cấu kiện. -Loại tấm đan. Loại này 1 mặt cắt sẽ kèm theo 1 hoặc nhiều chú thích tên, dùng block “duy_tv_kc_so” block này thể hiện tên cấu kiện, số lượng cấu kiện. -Loại mặt cắt dọc của 1 dầm (cũng tương đối đơn giản thôi). Loại này chú thích tên nằm chung trong block cắt dọc rồi. -Mình up file nén chứa các block đã thiết kế, bạn tải về giải nén ra 1 thư mục rồi dùng TVR của mình gọi cái thư mục này lên chèn cho nó trực quan còn hông thì chèn bình thường bằng lệnh của cad. Có block rồi thì sửa các thông số bằng lệnh EDT, cái nào lisp tự tích nó sẽ báo hông cho bạn sửa. -Thống kê thì TKT rồi chọn bắt đầu hay tiếp tục để vào hộp thoại trong. -Loại 1 và 2 thì dùng chức năng “thống kê từ block mặt cắt” chọn 1 mặt cắt xong nó sẽ hỏi chọn vùng chứa cấu kiện cần thống kê, mình chọn hết các block chú thích xong enter là nó thống kê ra. -Loại 3 thì dùng chức năng “thống kê từ block dầm dọc” Chọn tất cả các block dầm dọc nó sẽ thống kê ra. ct_kc_duy782006.rar