Sửa giúp em đoạn lisp này với

[Sửa giúp em đoạn lisp này với]

Command:

Command: tinhps

nhap chieu dai: 100

nhap chieu rong:50

tinh chu vi hay dien tich <chuvi/dientich>: chuvi

 e cũng làm ntn nhưng nó ko hiện dòng "chu vi cua hcn la:300".

[Sửa giúp em đoạn lisp này với]

ko biết có phải do lỗi cad hay ko mà ở dòng commnad của e nó cũng ko hiện kết quả 

[Sửa giúp em đoạn lisp này với]

code vẫn loading nhưng mà nó ko hiện ra kết quả chuvi hay diện tích trên màn hình

[Sửa giúp em đoạn lisp này với]

(defun c:tinhps ()

(initget +7)

(setq     a (getdist "nhap chieu dai: ")

    b (getdist "nhap chieu rong: ")

    p (+ a a b b )

    s (* a b )

)

(initget 1 "chuvi dientich")

(setq answer (getkword "tinh chu vi hay dien tich <chuvi/dientich>: "))

(cond     ((= answer "chuvi")     (progn

                (print "chu vi cua hcn la: " )

                (print p)

                )

    )

    ((= answer "dientich")     (progn

                (print "dien tich cua hcn la: " )

                (print s)

                )

    )

)

)

E chạy nó ko ra kết quả, giúp e ktra lỗi với

[Vẽ hình trụ vát bằng VBA cad]

Bạn nào giúp mình viết code VBA cad để vẽ 1 hình trụ vát có các thông số nhập vào là h1, h2, góc anpha,đường kính d.Sau đó vẽ nưả đtròn đk d ở dưới chia nửa đ tròn thành 6 đoạn ,từ các điểm chia vẽ các đt cắt đt vát của hình trụ tại các diểm 1',2'......7'.Khó quá hỏi các bác làm giúp e

 http://www.mediafire.com/download/ds235gv254bo12c/vetruvat.dwg

[Chuyển file ảnh sang file cad để chỉnh sửa]

Mình muốn chuyển đồ thị kia thành file cad để chỉnh sửa và vẽ thêm đồ thị vào, copy vào cad chỉ đc file ảnh thôi

[Chuyển file ảnh sang file cad để chỉnh sửa]

Các anh giúp e chuyển file ảnh này sang cad, e tìm mấy phần mềm chuyển mà ko đc .