Chuyển đến nội dung
Diễn đàn CADViet

888x888x888

Thành viên
  • Số lượng nội dung

    19
  • Đã tham gia

  • Lần ghé thăm cuối

  • Ngày trúng

    1

Cộng đồng

-2 (hơi kém)

About 888x888x888

  • Cấp bậc
    biết zoom

Khách truy cập Tiểu sử gần đây

313 chế độ xem tiểu sử
  1. 888x888x888

    Nhờ vả. Xin lisp đo độ dài line xuất ra text (đơn giản)

    Thank bác nhé
  2. Mình tìm nhiều nhưng toàn lisp kiểu này mà toàn cái phức tạp quá mức mình cần thiết Mình muốn nhờ các bác làm hộ mình 1 cái lisp thật đơn giản thế này, pick vào line rồi xuất vào text có sẵn, chỉ vậy thôi, như cái lisp mình đang dùng mà ko phải pick điểm đầu, điểm cuối nữa mà pick vào line luôn (cả pline thì tốt) Cảm ơn các bác Lisp mình đang dùng đây: (defun c:gt (/ p1 p2 txt etxt d) (setq p1 (getpoint "\n Chon diem thu nhat") p2 (getpoint "\n Chon diem thu hai ") txt (car (entsel "\n Chon text can thay" )) d (distance p1 p2) etxt (entget txt) etxt (subst (cons 1 (rtos d 2 2)) (assoc 1 etxt) etxt) ) (entmod etxt) (princ) )
×