Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
boysock123456

Lisp chạy không ổn định trên cad2007???

Các bài được khuyến nghị

Các cao thủ cho mình hỏi với :mình có 1 đoạn lisp với mã như dưới đây, nhưng khi chạy thì nó lại vẽ ra những đoạn thẳng không song song và không cách đều nhau theo ý của mình, đôi khi những đoạn thẳng đó lại trùng nhau nữa chứ??Giúp mình với:

(defun c:te()

(setq a(getpoint))

(setq b(getpoint))

(setq c(getpoint))

(setq m 0)

(command "line" a b "")(command "lengthen" (entlast)"")(setq e(getvar "perimeter"))

(command "erase" (entlast)"")

(command "line" a c "")(command "lengthen" (entlast)"")(setq f(getvar "perimeter"))

(command "erase" (entlast)"")

(command "ucs" "n" "3" a b c)

(setq f1(+ 1 (fix(/ f 0.2))))

(repeat f1

(progn

(command "line" (list 0 m) (list e m) "")

(setq m(+ 0.2 m))

)

)

(princ)

)

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Nguyen Hoanh    4.524
Các cao thủ cho mình hỏi với :mình có 1 đoạn lisp với mã như dưới đây, nhưng khi chạy thì nó lại vẽ ra những đoạn thẳng không song song và không cách đều nhau theo ý của mình, đôi khi những đoạn thẳng đó lại trùng nhau nữa chứ??Giúp mình với:

(defun c:te()

(setq a(getpoint))

(setq b(getpoint))

(setq c(getpoint))

(setq m 0)

(command "line" a b "")(command "lengthen" (entlast)"")(setq e(getvar "perimeter"))

(command "erase" (entlast)"")

(command "line" a c "")(command "lengthen" (entlast)"")(setq f(getvar "perimeter"))

(command "erase" (entlast)"")

(command "ucs" "n" "3" a b c)

(setq f1(+ 1 (fix(/ f 0.2))))

(repeat f1

(progn

(command "line" (list 0 m) (list e m) "")

(setq m(+ 0.2 m))

)

)

(princ)

)

Bạn tắt Osnap trước khi chạy đi là các đoạn thẳng sẽ song song.

Vấn đề này ai lập trình lisp cũng gặp, nguyên nhân là do hàm command khi có tham số là tọa độ điểm, điểm đó sẽ bắt theo osnap (nếu được bật).

 

bạn search từ khóa osmode trên diễn đàn, sẽ ra được các ví dụ lisp xử lý về vấn đề này.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Bạn tắt Osnap trước khi chạy đi là các đoạn thẳng sẽ song song.

Vấn đề này ai lập trình lisp cũng gặp, nguyên nhân là do hàm command khi có tham số là tọa độ điểm, điểm đó sẽ bắt theo osnap (nếu được bật).

 

bạn search từ khóa osmode trên diễn đàn, sẽ ra được các ví dụ lisp xử lý về vấn đề này.

Cám ơn bạn rất nhiều...mình làm đc rồi!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Bạn tắt Osnap trước khi chạy đi là các đoạn thẳng sẽ song song.

Vấn đề này ai lập trình lisp cũng gặp, nguyên nhân là do hàm command khi có tham số là tọa độ điểm, điểm đó sẽ bắt theo osnap (nếu được bật).

 

bạn search từ khóa osmode trên diễn đàn, sẽ ra được các ví dụ lisp xử lý về vấn đề này.

Cám ơn bạn rất nhiều...mình làm đc rồi!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay


×