Xin trả lời bạn về chương trình như sau:
1. Việc quét quanh trọng tâm để tìm 3 điểm tuy có tốt hơn nhưng lisp lại phức tạp hơn rất nhiều. Hơn nữa, mã lệnh lisp trên tôi viết đã lâu, bây giờ đọc lại cũng chẳng còn nhớ nữa. Việc nâng cấp như vậy rất khó.
2. Giống 1.
3. Để kiểm tra lisp có làm sót hay không, trước khi bạn chạy lisp, hãy cho tất cả các giá trị về rỗng...

Xin trả lời bạn về chương trình như sau:
1. Việc quét quanh trọng tâm để tìm 3 điểm tuy có tốt hơn nhưng lisp lại phức tạp hơn rất nhiều. Hơn nữa, mã lệnh lisp trên tôi viết đã lâu, bây giờ đọc lại cũng chẳng còn nhớ nữa. Việc nâng cấp như vậy rất khó.
2. Giống 1.
3. Để kiểm tra lisp có làm sót hay không, trước khi bạn chạy lisp, hãy cho tất cả các giá trị về rỗng (như file mẫu của tôi). Nếu sót chỗ nào thì chỗ đó không hiện số (vì hiện giá trị cũ là rỗng).

Trả lời kiến thức lisp:
1. Để đọc được attribute bằng lisp, bạn cần lấy được entname của attribute đó thông qua entname của block (INSERT). muốn lấy entame của attribute thứ n (n=1,2,3,4...) từ ename của block, mã lệnh như sau:

OK rồi bác. Thanks bác nhiều!!!
Thiếu 1 dòng (vl-load-com), em bổ sung luôn.

;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=64524
;Doan Van Ha - CADViet.com - Ngay 06/6/2012
;Muc dich: sap xep cac doi tuong doc theo curve.
(defun C:HA( / z ent pt pg ptc pdh cur d1 dh d2 p lst)
(vl-load-com)
(command "undo" "be") (setq osm (getvar...

OK rồi bác. Thanks bác nhiều!!!
Thiếu 1 dòng (vl-load-com), em bổ sung luôn.

;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=64524
;Doan Van Ha - CADViet.com - Ngay 06/6/2012
;Muc dich: sap xep cac doi tuong doc theo curve.
(defun C:HA( / z ent pt pg ptc pdh cur d1 dh d2 p lst)
(vl-load-com)
(command "undo" "be") (setq osm (getvar "osmode"))
(setq z 1)
(while
(and
(setq ent (car (entsel (strcat "\nChon doi tuong thu " (itoa z) ": "))))
(setq pt (getpoint (strcat "\nChon diem goc cua doi tuong thu " (itoa z) ": "))))
(if (= z 1) (setq pg pt))
(setq lst (cons (list ent pt (distance pg pt)) lst))
(setq z (1+ z)))
(setq lst (reverse lst))
(setq ptc (getpoint "\nChon diem dat cua doi tuong thu 1 tren Curve: "))
(setq pdh (getpoint ptc "\nChon 1 diem tren Curve de xac dinh huong: "))
(setq cur (car (nentselp ptc)))
(setq d1 (vlax-curve-getDistAtPoint cur ptc))
(setq dh (vlax-curve-getDistAtPoint cur pdh))
(setvar "osmode" 0)
(foreach n lst
(if (> dh d1)
(setq d2 (+ d1 (caddr n)))
(setq d2 (- d1 (caddr n))))
(setq p (vlax-curve-getPointAtDist cur d2))
(command "move" (car n) "" (cadr n) p)
(command "rotate" (car n) "" p (/ (* 180 (angle '(0 0 0) (vlax-curve-getFirstDeriv cur (vlax-curve-getParamAtPoint cur p)))) pi)))
(command "undo" "end") (setvar "osmode" osm) (princ))

Chúc bạn thành công.

(defun c:itext(/ blk *tH* lstDis lstDisX lstVal fn mLstPnt rl i j p mtext)(vl-load-com)
(setq blk (vla-get-block (vla-get-activelayout(vla-get-activedocument (vlax-get-acad-object)))))
(setq *tH* 1)
(cond
((setq fn (getfiled "Chon file so lieu" "" "txt" 8))
(defun mtext (str p blk h / obj)
(vla-put-AttachmentPoint (setq obj (vla-addmtext blk (vlax-3d-point p) h str)) 4)
...

Chúc bạn thành công.

(defun c:itext(/ blk *tH* lstDis lstDisX lstVal fn mLstPnt rl i j p mtext)(vl-load-com)
(setq blk (vla-get-block (vla-get-activelayout(vla-get-activedocument (vlax-get-acad-object)))))
(setq *tH* 1)
(cond
((setq fn (getfiled "Chon file so lieu" "" "txt" 8))
(defun mtext (str p blk h / obj)
(vla-put-AttachmentPoint (setq obj (vla-addmtext blk (vlax-3d-point p) h str)) 4)
(vla-put-rotation obj (* pi 0.5))
)
(defun mLstPnt (p lstDisX lstVal)
(mapcar '(lambda(y z)(mtext y z blk *tH*))
lstVal
(cons p (mapcar '(lambda(x)(setq p (cons (+ (car p) x) (cdr p)))) lstDisX))
)
)

(setq fn (open fn "r"))
(while (setq rl (read-line fn))
(setq i 1 j 0
p (getpoint (strcat "\nDiem dat Text dong thu "(itoa (setq j (1+ j)))" :"))
lstVal (mapcar 'vl-princ-to-string (read (strcat "(" rl ")")))
lstDisX
(reverse
(repeat (1- (length lstVal))
(setq lstDis (cons (getdist (strcat "\nKhoang cach tu cot H" (itoa i) "-> H" (itoa (setq i (1+ i))) ":")) lstDis))
)
)
)
(mLstPnt p lstDisX lstVal)
(setq lstDis '())
)
(close fn)
)
)
)

Sau khi pick điểm đặt dòng, nếu đánh sai khoảng cách thì Undo lại


(defun c:itext(/ blk *tH* lstDis lstDisX lstVal fn mLstPnt rl i j p mtext)(vl-load-com)
(setq blk (vla-get-block (vla-get-activelayout(vla-get-activedocument (vlax-get-acad-object)))))
(setq *tH* 1)
(cond
((setq fn (getfiled "Chon file so lieu" "" "txt" 8))
(defun mtext (str p blk h / obj)
(vla-put-AttachmentPoint (setq obj...

Sau khi pick điểm đặt dòng, nếu đánh sai khoảng cách thì Undo lại


(defun c:itext(/ blk *tH* lstDis lstDisX lstVal fn mLstPnt rl i j p mtext)(vl-load-com)
(setq blk (vla-get-block (vla-get-activelayout(vla-get-activedocument (vlax-get-acad-object)))))
(setq *tH* 1)
(cond
((setq fn (getfiled "Chon file so lieu" "" "txt" 8))
(defun mtext (str p blk h / obj)
(vla-put-AttachmentPoint (setq obj (vla-addmtext blk (vlax-3d-point p) h str)) 4)
(vla-put-rotation obj (* pi 0.5))
)
(defun mLstPnt (p lstDisX lstVal)
(mapcar '(lambda(y z)(mtext y z blk *tH*))
lstVal
(cons p (mapcar '(lambda(x)(setq p (cons (+ (car p) x) (cdr p)))) lstDisX))
)
)

(setq fn (open fn "r") j 0)
(or tmpDis (setq tmpDis 1))
(while (setq rl (read-line fn))
(setq i 1 )
(setq p (getpoint (strcat "\nDiem dat Text dong thu "(itoa (setq j (1+ j)))" :"))
lstVal (mapcar 'vl-princ-to-string (read (strcat "(" rl ")"))))
(while (< i (1+ (length lstVal)))
(initget "u")
(setq tmpDis (cond ((getdist (strcat "\nKhoang cach tu cot H" (itoa i) "-> H" (itoa (setq i (1+ i))) " <" (vl-princ-to-string tmpDis) ">:")))(tmpDis)))
(cond
((or (= tmpDis "u")(= tmpdis "U"))(setq i (- i 2)))
(T (setq lstDisX (cons tmpDis lstDisX)))
)
)
(mLstPnt p (reverse lstDisX) lstVal)
(setq lstDis '())
)
(close fn)
)
)
)

Hề hề hề,
Đúng như bác Ketxu đã góp ý. Việc pick điểm sẽ khó chính xác và tốt hơn là nên dùng phương án thay thế text có sẵn. Tuy nhiên vì là yêu cầu của bạn mà mình cũng không hiểu rõ lắm về chuyên môn của bạn nên mình cứ theo ý bạn mà mần ra cái ni. Lisp này sử dụng các thuộc tính của text y chang cái bản vẽ mà bạn post. Do vậy nếu với các bản vẽ mà text có các thuộc...

Hề hề hề,
Đúng như bác Ketxu đã góp ý. Việc pick điểm sẽ khó chính xác và tốt hơn là nên dùng phương án thay thế text có sẵn. Tuy nhiên vì là yêu cầu của bạn mà mình cũng không hiểu rõ lắm về chuyên môn của bạn nên mình cứ theo ý bạn mà mần ra cái ni. Lisp này sử dụng các thuộc tính của text y chang cái bản vẽ mà bạn post. Do vậy nếu với các bản vẽ mà text có các thuộc tính như layer, chiều cao chữ, font chữ, độ rộng ký tự ... của text khác với bản vẽ này sẽ có thể có trục trặc. bạn lưu ý điều này để có thể chỉnh lisp theo yêu cầu của bạn.
Hãy dùng thử và cho biết ý kiến nếu cần chỉnh sửa thêm cái chi.

Chúc bạn vui.

Các bác chỉnh sửa giúp em theo cách này với
- mình chỉ cần nhập khoảng cách giữa H1-H2, H2-H3,....
- sau đó tự động phun các cột đó vào CAD ( bỏ qua bước nhập điểm đặt dòng text thứ 1, 2...)

;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=64582&pid=202432&st=20&#entry202432

(defun c:itext(/ blk *tH* lstDis lstDisX lstVal fn...

Các bác chỉnh sửa giúp em theo cách này với
- mình chỉ cần nhập khoảng cách giữa H1-H2, H2-H3,....
- sau đó tự động phun các cột đó vào CAD ( bỏ qua bước nhập điểm đặt dòng text thứ 1, 2...)

;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=64582&pid=202432&st=20&#entry202432

(defun c:itext(/ blk *tH* lstDis lstDisX lstVal fn mLstPnt rl i j p mtext)(vl-load-com)
(setq blk (vla-get-block (vla-get-activelayout(vla-get-activedocument (vlax-get-acad-object)))))
(setq *tH* 1)
(cond
((setq fn (getfiled "Chon file so lieu" "" "txt" 8))
(defun mtext (str p blk h / obj)
(vla-put-AttachmentPoint (setq obj (vla-addmtext blk (vlax-3d-point p) h str)) 4)
(vla-put-rotation obj (* pi 0.5))
)
(defun mLstPnt (p lstDisX lstVal)
(mapcar '(lambda(y z)(mtext y z blk *tH*))
lstVal
(cons p (mapcar '(lambda(x)(setq p (cons (+ (car p) x) (cdr p)))) lstDisX))
)
)

(setq fn (open fn "r") j 0)
(or tmpDis (setq tmpDis 1))
(while (setq rl (read-line fn))
(setq i 1 )
(setq p (getpoint (strcat "\nDiem dat Text dong thu "(itoa (setq j (1+ j)))" :"))
lstVal (mapcar 'vl-princ-to-string (read (strcat "(" rl ")"))))
(while (< i (1+ (length lstVal)))
(initget "u")
(setq tmpDis (cond ((getdist (strcat "\nKhoang cach tu cot H" (itoa i) "-> H" (itoa (setq i (1+ i))) " <" (vl-princ-to-string tmpDis) ">:")))(tmpDis)))
(cond
((or (= tmpDis "u")(= tmpdis "U"))(setq i (- i 2)))
(T (setq lstDisX (cons tmpDis lstDisX)))
)
)
(mLstPnt p (reverse lstDisX) lstVal)
(setq lstDis '())
)
(close fn)
)
)
)