Đến nội dung


Hình ảnh
- - - - -

[xin] Lisp tạo cao độ đường đồng mức san nền


  • Please log in to reply
2 replies to this topic

#1 quochuyksxd

quochuyksxd

    biết lệnh fillet

  • Members
  • PipPipPipPip
  • 201 Bài viết
Điểm đánh giá: 24 (tàm tạm)

Đã gửi 27 December 2013 - 10:12 AM

Mình hay làm san nền, khi lập bình đồ đường đồng mức san nền bằng pline, sau đó lại vào properties chỉnh cao độ (elevation) từng pline bằng thủ công nên rất mất thời gian (với những khu san nền lớn). Các bác trên forum có thể viết giúp mình 1 lisp thay đổi cao độ đường pline được ko?

Ý tưởng cũng rất đơn giản:

1-Đánh lệnh eln (hoặc là tên khác)

2-Chọn pline, hiện ra 1 dialog nhỏ nhập cao độ (eleavtion)

Ghi chú: có thể quét nhiều pline và nhập cao độ hoặc đơn lẻ từng pline

 


  • 0

#2 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 27 December 2013 - 11:21 AM

Quick code:

(defun C:ELN ( / cd ss)
 (if
  (and
   (setq cd (getreal "\nNhap cao do moi: "))
   (princ "\nChon cac Pline...")
   (setq ss (ssget)))
  (foreach ent (acet-ss-to-list ss)
   (entmod (subst (cons 38 cd) (assoc 38 (entget ent)) (entget ent)))))
 (princ))

  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#3 quochuyksxd

quochuyksxd

    biết lệnh fillet

  • Members
  • PipPipPipPip
  • 201 Bài viết
Điểm đánh giá: 24 (tàm tạm)

Đã gửi 27 December 2013 - 04:43 PM

Cảm ơn bác nhé


  • 0