Anh chị giúp em lsp thể hiện độ xa gần nhìn từ trên xuống

[alibaba2209 3]

Anh chị ai có lsp vẽ thể hiện nhìn từ trên xuống xa xít gần thưa cho em xin, em cảm ơn.

[Doan Van Ha 3.191]

Tự nghiên cứu (vì lisp của người ta, tôi chỉ lưu lại khi cần chứa chưa dùng): LISP ĐÁNH BÓNG

;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=61922
;by PhamThanhBinh 
(defun c:kbg (/ e1 e2 a  a1 e  k p pd pc dis B)
(vl-load-com)
(command "undo" "be")
(command "ucs" "w")
(setq e1 (car(entsel "\n Chon duong bien thu nhat"))
        e2 (car(entsel "\n Chon duong bien thu hai"))
        e (car (entsel "\n Chon duong ke chuan"))
        ;;; a (getreal "\n Nhap khoang cach chuan: ")
        k (Getreal "\n Nhap he so khoang cach: ")
        p (getpoint "\n Chon huong rai duong ke bong")
        dis (distance p (vlax-curve-getClosestPointTo (vlax-ename->vla-object e) p T))
        b 0
)
(if (not a1) (setq a1 (getreal "\n Nhap khoang cach chuan: ")))
(if (/= a1 nil)
(setq a a1)
(setq a 10))
(setq la (getstring t "\n Nhap ten layer: "))
(if (= (tblsearch "layer" la) nil)
    (command "layer" "m" la "c" 8 "" "")
)
(setvar "clayer" la)
(command "change" e "" "p" "la" la "")
(while (and (< b dis) (> a 0.01))
    (command "offset" a e p "")
    (setq e (entlast)
             a (* k a)
             b (+ b a)
             pd (vlax-curve-getstartpoint e)
             pc (vlax-curve-getendpoint e)
             d1 (vlax-curve-getclosestpointto e1 pd T)
    )
    (if (setq p1 (acet-geom-intersectwith e e1 0))
        (command "trim"  e1 ""  pd "")
        (command "extend" e1 "" pd "")
    )
      
    (if (setq p2 (acet-geom-intersectwith e e2 0))
        (command "trim" e2 "" pc "")
        (command "extend" e2 "" pc "")
    )
)
;;;(command "ucs" "p")
(command "undo" "e")
(princ)
)

[alibaba2209 3]

vâng cảm ơn bạn!