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

[boysock123456 0]

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)

)

[Nguyen Hoanh 4.663]

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.

[boysock123456 0]

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!

[boysock123456 0]

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!