2 replies to this topic

[victor85]

Bác nào viết dùm mình lisp Chia khoảng cách thành các đoạn đều nhau thay cho lệnh divide trong cad có nhiều điểm không mong muốn với.
Lệnh: dv
Đối tượng đầu vào: pick 2 điểm tạo nên khoảng cách cần chia đều.
Nhập số khoảng cách muốn chia ra.
Đối tượng đầu ra: tạo ra các point cách đều nhau nằm tại đầu mút các khoảng cách cần chia.
Cảm ơn các bác trước nhé.

Similar topics from web:
+: Nhờ viết lisp
Visual Lisp? [Lưu Trữ]
Download Phần mềm thống kê cốt thép TIP
Bác nào biết cách thống nhất kích thước text trong layout mode [Lưu ...
Thảo luận [Nên đọc] Xây dựng cấu hình và các giải pháp cho các ...
Chương trình vẽ và Tkê thép dầm cột sàn chỉ bằng 1 cái click chuột ...
Thảo luận về Autolisp
Các lệnh về Layer!
Cần giúp về chỉnh sửa kích thước trong AutoCAD [Lưu Trữ ...
Giao trinh Ngon ngu lap trinh.pdf
bai_giang_autocad
Diễn Đàn CĐV SLNA: Điểm danh các phần mềm dành cho dân kỹ ...
Kiểu dữ liệu
Tưởng Thị Tú Khuyên
Cộng đồng mua bán

[Doan Van Ha]

Bác nào viết dùm mình lisp Chia khoảng cách thành các đoạn đều nhau thay cho lệnh divide trong cad có nhiều điểm không mong muốn với.
Lệnh: dv
Đối tượng đầu vào: pick 2 điểm tạo nên khoảng cách cần chia đều.
Nhập số khoảng cách muốn chia ra.
Đối tượng đầu ra: tạo ra các point cách đều nhau nằm tại đầu mút các khoảng cách cần chia.
Cảm ơn các bác trước nhé.

Bạn dùng cái này xem:

(defun C:DV(/ p1 p2 sk x)
 (setq p1 (getpoint "\nPick diem 1: "))
 (setq p2 (getpoint p1 "\nPick diem 2: "))
 (setq sk (getint "\nNhap so khoang chia: "))
 (setq x 0)
 (repeat (+ sk 1)
  (command "point" (polar p1 (angle p1 p2) (* x (/ (distance p1 p2) sk))))
  (setq x (1+ x))))

[victor85]

Cảm ơn bác nhé.