Nhờ anh em giúp lisp ghi cao độ mặt cắt ngang

[cocobubu 1]

Em thâý ông anh dùng lisp ghi cao độ trên mặt cắt ngang bản vẽ hoàn công như sau: Chuyển trục tọa độ về gốc 0,sau đó copy một text về dưới chân cột cần ghi cao độ.Đánh lệnh rồi kích chuột vào điểm đầu cần lấy cao độ,chọn đối tượng text mà đã copy ở dưới.Kết quả là text đó đổi sang thành cao độ cần ghi.Lisp này giúp ích cho công việc vẽ hoàn công rất nhiều.Nhưng hiện nay em ko tìm thấy lisp này nữa.Ông anh cũng ko còn nhớ dow ở đâu nữa.Ai biết chỉ giùm hoặc viết giúp em.TRân trọng cảm ơn

[NguyenNgocSon 43]

Cái này trên diễn đàn có nhiều rồi mà. Lisp đơn giản hơn cái lisp mà bạn nhìn thầy nhiều.

Bạn dùng Search của diễn đàn tìm kiếm nhé !

[cocobubu 1]

Em cũng đã tìm nhưng chỉ là ghi cao độ sang bên cạnh mà không phải ghi cao độ vào text copy,vị trí là vị trí của text mình copy đến.Như vậy khi làm hoàn công sẽ nhanh hơn rất nhiều.

[cocobubu 1]

Cụ thể là em làm thiết kế thi công và hoàn công đường,khi có thay đổi thiết kế hoặc hồ sơ hoàn công thì lại phải vẽ lại mặt cắt ngang như vậy cao độ cũng thay đổi theo.Em muốn ghi cao độ mới lên cao độ cũ.Trước khi viết bài này em cũng đã tìm hiểu trên diễn đàn và thấy có lisp cdx của anh Thaitreetz nhưng cũng không phải là ghi trên text cũ.Em mong được các anh giúp đỡ!

[Doan Van Ha 3.192]

Em cũng đã tìm nhưng chỉ là ghi cao độ sang bên cạnh mà không phải ghi cao độ vào text copy,vị trí là vị trí của text mình copy đến.Như vậy khi làm hoàn công sẽ nhanh hơn rất nhiều.

Trong trường hợp search vẫn chưa có cái ưng ý thì bạn post bản vẽ lên, thể hiện càng rõ y/c của bạn càng tốt. Hy vọng có người giúp.

[cocobubu 1]

em xin gửi ý tưởng của mình vào trong bản vẽ.Em mong được anh chị em giúp đỡhttp://www.cadviet.com/upfiles/3/106377_ban_ve_hoan_cong_1.dwg

e

[ketxu 2.984]

Yêu cầu của bạn không khó tẹo nào, tuy nhiên lại vi phạm nội quy post bài yêu cầu. Mời bạn đọc kỹ lại nội quy (dưới chữ ký của mình)

[Doan Van Ha 3.192]

@cocobubu: lần sau post bài nhớ đọc kỹ nội quy kẻo bị đưa qua tạm trú ở thùng rác thì khổ.

Code nhanh cho bạn đây:

(defun C:HA( / y0 y1 ent)
(command "ucs" "w")
(setq y0 (cadr (cdr (assoc 10 (entget (car (entsel "\nChon Line de lam duong chuan: ")))))))
(while
 (and
  (setq y1 (cadr (getpoint "\nPick diem de lay cao do: ")))
  (setq ent (car (entsel "\nChon Text de sua cao do: ")))
  (entmod (subst (cons 1 (rtos (- y1 y0) 2 2)) (assoc 1 (entget ent)) (entget ent)))))
(princ))

[cocobubu 1]

Em thấy lisp anh viết rất tuyệt vời vì giúp em tiết kiệm được rất nhiều thời gian trong công việc.(Dù với anh Hà là đơn giản).Em xin trân thành cám ơn anh.Còn việc vi phạm nội quy anh thông cảm,vì đây là lần đầu tiên em tham gia diễn đàn nên chưa đọc kỹ nội dung.

[mr.trunghd 47]

@cocobubu: lần sau post bài nhớ đọc kỹ nội quy kẻo bị đưa qua tạm trú ở thùng rác thì khổ.

Code nhanh cho bạn đây:

(defun C:HA( / y0 y1 ent)
(command "ucs" "w")
(setq y0 (cadr (cdr (assoc 10 (entget (car (entsel "\nChon Line de lam duong chuan: ")))))))
(while
 (and
  (setq y1 (cadr (getpoint "\nPick diem de lay cao do: ")))
  (setq ent (car (entsel "\nChon Text de sua cao do: ")))
  (entmod (subst (cons 1 (rtos (- y1 y0) 2 2)) (assoc 1 (entget ent)) (entget ent)))))
(princ))

Không ổn lắm bạn ah, đánh cốt thì phải kèm ký hiệu "âm, dương" chứ?

[cocobubu 1]

Không ổn lắm bạn ah, đánh cốt thì phải kèm ký hiệu "âm, dương" chứ?

Đây không phải đánh cốt bạn ah.Bạn đọc kỹ nhé,mình dùng và thấy rất ổn

[hieuhx68 1]

 

@cocobubu: lần sau post bài nhớ đọc kỹ nội quy kẻo bị đưa qua tạm trú ở thùng rác thì khổ.

Code nhanh cho bạn đây:

(defun C:HA( / y0 y1 ent)
 (command "ucs" "w")
 (setq y0 (cadr (cdr (assoc 10 (entget (car (entsel "\nChon Line de lam duong chuan: ")))))))
 (while
  (and
   (setq y1 (cadr (getpoint "\nPick diem de lay cao do: ")))
   (setq ent (car (entsel "\nChon Text de sua cao do: ")))
   (entmod (subst (cons 1 (rtos (- y1 y0) 2 2)) (assoc 1 (entget ent)) (entget ent)))))
 (princ))

Lips này của bác DOAN VAN HA rất tuyệt vời. nhân tiện đọc bài này. em muốn nhờ bác và mọi người giúp em sửa lips này cho thêm 1 số tính năng nữa được ko ạ.

1. Thay vì lấy đường thẳng làm chuẩn Bác có thể cho em là nhập cao độ so sánh (ví dụ em lấy là 90 thì các điểm sau sẽ + hay trừ vào giá trị này) vì khi vẽ mặt cắt em toàn vẽ có mốc so sánh 

2. Đồng thời pick điểm tiếp theo sẽ cho luôn khoảng cách giữa 2 điểm và ghi luôn xuống dưới thì tuyệt quá.

 

em cảm ơn mọi người.

[lephuocly 7]

Vào lúc 18/3/2012 tại 10:49, Doan Van Ha đã nói:

@cocobubu: lần sau post bài nhớ đọc kỹ nội quy kẻo bị đưa qua tạm trú ở thùng rác thì khổ.

Code nhanh cho bạn đây:

 

• ha.lsp
  
• [✎]
   

(defun C:HA( / y0 y1 ent)
(command "ucs" "w")
(setq y0 (cadr (cdr (assoc 10 (entget (car (entsel "\nChon Line de lam duong chuan: ")))))))
(while
 (and
  (setq y1 (cadr (getpoint "\nPick diem de lay cao do: ")))
  (setq ent (car (entsel "\nChon Text de sua cao do: ")))
  (entmod (subst (cons 1 (rtos (- y1 y0) 2 2)) (assoc 1 (entget ent)) (entget ent)))))
(princ))

 

 

 

Vào lúc 18/3/2012 tại 10:49, Doan Van Ha đã nói:

@cocobubu: lần sau post bài nhớ đọc kỹ nội quy kẻo bị đưa qua tạm trú ở thùng rác thì khổ.

Code nhanh cho bạn đây:

 

• ha.lsp
  
• [✎]
   

(defun C:HA( / y0 y1 ent)
(command "ucs" "w")
(setq y0 (cadr (cdr (assoc 10 (entget (car (entsel "\nChon Line de lam duong chuan: ")))))))
(while
 (and
  (setq y1 (cadr (getpoint "\nPick diem de lay cao do: ")))
  (setq ent (car (entsel "\nChon Text de sua cao do: ")))
  (entmod (subst (cons 1 (rtos (- y1 y0) 2 2)) (assoc 1 (entget ent)) (entget ent)))))
(princ))

 

 

Hình như chưa đúng bạn ơi ! Đó là khoảng cách từ điểm chọn tới đường chuẩn. Bạn viết lại giúp đi .