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

[888x888x888 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)
)

[Bee 154]

10 giờ trước, 888x888x888 đã nói:

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)
) 

Lisp đây chủ thớt nhé:

(defun c:gt1  (/ line txt etxt d)
  (setq line (car (entsel "\Chon line: ")))
  (setq d (distance (cdr (assoc 10 (entget line))) (cdr (assoc 11 (entget line)))))
  (setq txt  (car (entsel "\n Chon text can thay"))
        etxt (entget txt)
        etxt (subst (cons 1 (rtos d 2 2)) (assoc 1 etxt) etxt)
        )
  (entmod etxt)
  (princ)
  )

 

[888x888x888 2]

Vào lúc 28/1/2021 tại 07:56, Bee đã nói:

Lisp đây chủ thớt nhé:

• gt1.lsp
  
• [✎]
   

(defun c:gt1  (/ line txt etxt d)
  (setq line (car (entsel "\Chon line: ")))
  (setq d (distance (cdr (assoc 10 (entget line))) (cdr (assoc 11 (entget line)))))
  (setq txt  (car (entsel "\n Chon text can thay"))
        etxt (entget txt)
        etxt (subst (cons 1 (rtos d 2 2)) (assoc 1 etxt) etxt)
        )
  (entmod etxt)
  (princ)
  )

 

Thank bác nhé

[vanquang1409 0]

Vào lúc 28/1/2021 tại 07:56, Bee đã nói:

Lisp đây chủ thớt nhé:

• gt1.lsp
  
• [✎]
   

(defun c:gt1  (/ line txt etxt d)
  (setq line (car (entsel "\Chon line: ")))
  (setq d (distance (cdr (assoc 10 (entget line))) (cdr (assoc 11 (entget line)))))
  (setq txt  (car (entsel "\n Chon text can thay"))
        etxt (entget txt)
        etxt (subst (cons 1 (rtos d 2 2)) (assoc 1 etxt) etxt)
        )
  (entmod etxt)
  (princ)
  )

 

Bạn thêm giúp mình lisp này dùng cho cả Polyline nữa với nhé. Cảm ơn bạn.