Bảng xếp hạng

;----- 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)))))))

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 này thuê mình viết lisp 1000k cũng không dám nhận.

Sau quá nhiều bình luận mình vẫn cho rằng đã viết lisp thì không thể phiên phiến được kéo điểm, nối thêm nét... . phải chính xác Dựa trên lý thuyết của bác @duy782006 là tạo ra 3 đường thẳng có các góc tạo ra bằng nhau thì mình viết 1 lisp chọn 2 đường line sau đó nhập độ dài 1 cạnh: (defun c:test (/ ent1 ent2 ent pp1 pp2 ptx obj1 obj2 a1 a2 bankinh dis dis1 dis2) (setq ent1 (entsel "\nChon DT1") ent2 (entsel "\nChon DT2") dis (getdist "\nDo dai cac doan thang") pp1 (trans (cadr ent1) 1 0 ) pp2 (trans (cadr ent2) 1 0 ) ent1 (vlax-ename->vla-object (car ent1)) ent2 (vlax-ename->vla-object (car ent2)) pp1 (vlax-curve-getclosestpointto ent1 pp1 ) pp2 (vlax-curve-getclosestpointto ent2 pp2 ) ptx (vlax-invoke ent1 'intersectwith ent2 acExtendBoth) a1 (angle ptx pp1) a2 (angle ptx pp2) ) (if (> a1 a2) (if (< (- a1 a2) pi) (setq a1 (- a1 a2)) (setq a1 (+ pi pi a2 (- a1))) ) (if (< (- a2 a1) pi) (setq a1 (- a2 a1)) (setq a1 (+ pi pi a1 (- a2))) ) ) (setq a2 (+ (* 0.375 pi) (/ a1 8)) bankinh (abs (/ dis 2 (cos a2))) dis1 (abs (* bankinh (sin a2))) dis2 (abs (- (* dis1 (cos (/ a1 2)) (/ 1 (sin (/ a1 2))) ) (/ dis 2))) ) (vl-cmdf "offset" dis1 (vlax-vla-object->ename ent1) (trans pp2 0 1) "") (setq obj1 (vlax-ename->vla-object (entlast))) (vl-cmdf "offset" dis1 (vlax-vla-object->ename ent2) (trans pp1 0 1) "") (setq obj2 (vlax-ename->vla-object (entlast))) (setq ptx (vlax-invoke obj1 'intersectwith obj2 acExtendBoth)) (vla-delete obj1) (vla-delete obj2) (setvar "CHAMFERA" dis2) (setvar "CHAMFERB" dis2) (vl-cmdf "CHAMFER" (trans pp1 0 1) (trans pp2 0 1)) (setq ent (entget (entlast)) pp1 (cdr (assoc 10 ent)) pp2 (cdr (assoc 11 ent)) ) (entdel (cdar ent)) (setq a1 (angle ptx pp1) a2 (angle ptx pp2) obj1 (vlax-ename->vla-object (entmakex (list '(0 . "ARC") (cons 10 ptx) (cons 40 bankinh) (cons 50 a1) (cons 51 a2)))) obj2 (vlax-ename->vla-object (entmakex (list '(0 . "ARC") (cons 10 ptx) (cons 40 bankinh) (cons 50 a2) (cons 51 a1)))) ) (if (> (vlax-curve-getdistatparam obj1 (vlax-curve-getendparam obj1)) (vlax-curve-getdistatparam obj2 (vlax-curve-getendparam obj2))) (mapcar 'set '(obj1 obj2 pp1 pp2) (list obj2 obj1 pp2 pp1)) ) (vla-delete obj2) (setq obj2 (vlax-curve-getdistatparam obj1 (vlax-curve-getendparam obj1)) a1 (vlax-curve-getpointatdist obj1 (/ obj2 3)) a2 (vlax-curve-getpointatdist obj1 (* 2 (/ obj2 3))) ) (vla-delete obj1) (entmakex (list '(0 . "LINE") (cons 10 pp1) (cons 11 a1))) (entmakex (list '(0 . "LINE") (cons 10 a1) (cons 11 a2))) (entmakex (list '(0 . "LINE") (cons 10 a2) (cons 11 pp2))) (princ) )

Chào anh chị, em là mem mới , nhờ anh chị share giúp em cách để xuất pdf hàng loạt từ CAD sang PDF ạ. em cám ơn