Học AutoLisp

[Học AutoLisp]

ủa cái này cũng cần dùng lisp hay sao???? :(

làm nhiều mà

mỗi lần ấn lệnh move lại phải nhập số 0.08 lâu phết

thôi không cần nữa đâu

tôi tự viết được rồi

cũng không khó lắm

[Học AutoLisp]

Các bác viết giúp em cái lisp với yêu cầu như sau với:

move 1 số đối tượng được chọn theo chiều thẳng đứng một khoảng cách cho trước là 0.08 đơn vị

[Học AutoLisp]

"perimeter" là gì hả a Tue_NV

[Học AutoLisp]

xin các bác sửa lisp xác định chiều dài đối tượng

 

(defun c:tcd( / sel ent chieudai)

(setq sel (entsel "\nHay chon doi tuong: "))

(setq ent (car sel))

(command "lengthen" ent)

(setq chieudai (getvar "lengthen"))

(princ "\nChieu dai doi tuong vua roi la: ")

(princ chieudai)

(princ "\nm")

 

(princ)

)

[Vì sao Chim chóc đậu trên dây điện không chết?]

Không phải. 2 Chân đứng trên 1 dây nên đây là đẳng thế, không có luồng điện chạy qua người chim, chim ko chết. Bạn thử buộc vào 2 chân chim 2 cực điện xem dù khoảng cách nhỏ thế nào chim chả chín

 

đúng vậy

Nếu không tin bạn cứ thử đu 2 tay bám vào một dây điện xem sao

[Mẹo sử dụng AutoCAD]

cho em hỏi cái

em muốn chia một đoạn thẳng thành 2 đoạn mà điểm chia là điểm cắt với đoạn thẳng khác thì làm thế nào?

Thanks a trước