[Yêu cầu]: lisp sao chép số liệu kích thước

[reddevil88 0]

 

Bạn thử code này nhé :

(vl-load-com)
(defun Tue:ss-drag-move (ss p / el lp)
;;;copyright by Tue_NV
(setq el (entlast))
(if (and ss p (vl-cmdf "copy" ss "" p pause) (null (equal (getvar "lastpoint") p)))
   (setq lp (getvar "lastpoint")) (setq lp nil)
)
	(while (setq el (entnext el)) (entdel el))
lp)
(defun c:dkt(/ p1 p2 ob)
(while  (setq p1 (getpoint "\n diem do dau tien :"))	 
  (if (vl-cmdf "DIMALIGNED" p1 (setq p2 (getpoint p1 "\n diem do tiep theo :")) pause )
    (progn
      (setq ob (vlax-ename->vla-object (entlast)))
      (vla-addtext (vla-get-modelspace(vla-get-activedocument(vlax-get-acad-object)))
  		 (rtos (vlax-get ob 'Measurement) 2 (vlax-get ob 'PrimaryUnitsPrecision))
  		 (vlax-3d-point (vlax-get ob 'TextPosition)) (vlax-get ob 'TextHeight) )
      (setq ptt (Tue:ss-drag-move (ssadd (entlast) (ssadd)) (vlax-get ob 'TextPosition)) )
      (command "move" (entlast) "" (vlax-get ob 'TextPosition) ptt)
  	 
      )
   )
)
)

Nếu có thể cộng thêm cao độ vừa xuất ra một số nữa thì quá tuyệt luôn.

Ví dụ: đo cao độ ra A đến lúc ghi cao độ ra text thì là A+X (X tùy chọn) 

Làm giao thông thường đo cao độ mà có thêm mức so sánh nữa mà :D

[vxb 0]

giúp e lisp mà đo và ghi kích thước đơn vị mét lên 1 đoạn pline dạng text k có đường gióng kích thước đc k ạ, cảm ơn mấy a nhiều.