Đến nội dung


Hình ảnh
- - - - -

Xin lisp hỗ trợ lengthen


  • Please log in to reply
2 replies to this topic

#1 Nauvtran

Nauvtran

    biết zoom

  • Members
  • Pip
  • 13 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 06 December 2012 - 09:51 AM

Chào các anh, các chị. Hiện em mới bắt đầu tìm hiểu phuơng pháp đồ giải để giải tường cừ. Em muốn xin cái lisp nội dung như sau:
1. Có một line 1 và một text1 tồn tại sẵn (ví dụ 5.39 chẳng hạn,
2. Dùng lệnh lengthen/total.
3. Chọn text1 (thay vì nhập giá trị 5.39)
4. Chọn line 1.
5.Kết thúc.
Cám ơn anh chị nhiều!
P/S: anh chị biết thêm thông tin về phuơng pháp đồ giải thì chia sẻ cho em tí.
  • 0

#2 hochoaivandot

hochoaivandot

    biết dimradius

  • Members
  • PipPipPipPipPip
  • 310 Bài viết
Điểm đánh giá: 106 (tàm tạm)

Đã gửi 06 December 2012 - 11:10 AM


(defun C:tt()
(defun dxf (group en) (cdr (assoc group (entget en))))
(command "lengthen" "T" (dxf 1 (car (entsel "\nSelect text"))) pause)
)

P/S: Bạn chú ý nội quy post bài tại topic autolisp bạn nhé!
  • 1

Dương Bá Diệp

 

www.cadonline.duyxuyen.vn 

 

Thành viên nhóm CADMAGIC

 


#3 Nauvtran

Nauvtran

    biết zoom

  • Members
  • Pip
  • 13 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 08 December 2012 - 12:59 AM

Dạ! Em xin chân thành cám ơn anh rất nhiều. Lần sau em rút kinh nghiệm!
  • 0