Đến nội dung


Hình ảnh
5 stars - based on 24598 reviews
- - - - -

Cộng trừ nhân chia các số trong block att


  • Please log in to reply
29 replies to this topic

#21 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 02 May 2015 - 11:03 PM

Khổ thân bạn Pawuta! Tôi down về test thì cũng bị lỗi như bạn. Hóa ra do lỗi của forum nên lisp sinh lỗi. Bạn down file này xem:

(defun c:atc (/ goc cal e1 en ph)
 (setq goc (atof (cdr (assoc 1 (entget (car (nentsel "\n Chon text goc tinh toan")))))))
 (setq cal (getstring "\n Chon phep tinh toan <+ - * /> : "))
 (while (setq e1 (nentsel "\n Chon text can tinh toan"))
  (setq ph (atof (cdr (assoc 1 (entget (car e1))))))
  (cond
   ((= cal "+") (setq goc (+ goc ph)))
   ((= cal "-") (setq goc (- goc ph)))
   ((= cal "*") (setq goc (* goc ph)))
   ((= cal "/") (setq goc (/ goc ph)))
   (T nil))
  goc)
 (setq en (car (nentsel "\n Chon text can thay the")))
 (entmod (subst (cons 1 (rtos goc 2 2)) (assoc 1 (entget en)) (entget en)))
 (entupd en))

  • 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.


#22 pawuta

pawuta

    biết lệnh move

  • Members
  • PipPipPip
  • 126 Bài viết
Điểm đánh giá: -12 (hơi kém)

Đã gửi 03 May 2015 - 10:40 PM

Oke, mình làm được rồi, cảm ơn mọi người đã nhiệt tình giúp đỡ, chúc mọi người luôn thành công trong cuộc sống nhé!


  • 0

#23 pawuta

pawuta

    biết lệnh move

  • Members
  • PipPipPip
  • 126 Bài viết
Điểm đánh giá: -12 (hơi kém)

Đã gửi 03 May 2015 - 11:07 PM

Nhờ các bác sửa thêm một chút lisp ATC này là khi select ATT ở block nào thì block đó sáng lên với nhé, chứ cái này dễ bị lộn quá. thanhks mọi người trước nha!


  • 0

#24 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4301 Bài viết
Điểm đánh giá: 3814 (đỉnh cao)

Đã gửi 04 May 2015 - 05:24 AM

Nhờ các bác sửa thêm một chút lisp ATC này là khi select ATT ở block nào thì block đó sáng lên với nhé, chứ cái này dễ bị lộn quá. thanhks mọi người trước nha!

 

Bạn thêm dòng 

(redraw (car e1) 3)

dưới dòng : (while (setq e1 (nentsel "\n Chon text can tinh toan"))


  • 1

#25 pawuta

pawuta

    biết lệnh move

  • Members
  • PipPipPip
  • 126 Bài viết
Điểm đánh giá: -12 (hơi kém)

Đã gửi 04 May 2015 - 08:41 AM

Oke, cảm ơn bạn nhiều! chúc bạn đầu tuần làm việc vui vẻ nhé!


  • 0

#26 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6011 Bài viết
Điểm đánh giá: 3115 (tuyệt vời)

Đã gửi 04 May 2015 - 12:01 PM

Oke, cảm ơn bạn nhiều! chúc bạn đầu tuần làm việc vui vẻ nhé!

Hề hề hề,

Bạn lưu ý thêm cái hướng dẫn sau đây trong Help của CAD:

 

The use of entity highlighting (mode 3) must be balanced with entity unhighlighting (mode 4). 


  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#27 pawuta

pawuta

    biết lệnh move

  • Members
  • PipPipPip
  • 126 Bài viết
Điểm đánh giá: -12 (hơi kém)

Đã gửi 10 May 2015 - 12:00 AM

Hề hề hề,

Bạn lưu ý thêm cái hướng dẫn sau đây trong Help của CAD:

 

The use of entity highlighting (mode 3) must be balanced with entity unhighlighting (mode 4). 

cái này mình không hiểu lắm, bạn có thể cho mình biết thêm về nó không


  • 0

#28 Tr.CongSon

Tr.CongSon

    biết lệnh array

  • Members
  • PipPipPip
  • 183 Bài viết
Điểm đánh giá: 41 (tàm tạm)

Đã gửi 26 May 2015 - 09:46 AM

cái này mình không hiểu lắm, bạn có thể cho mình biết thêm về nó không

The use of entity highlighting (mode 3) must be balanced with entity unhighlighting (mode 4). 

Nghĩa là

Bạn thêm dòng 

(redraw (car e1) 4)

dưới dòng : (entupd en)

--> Trả về entity unhighlighting


  • 0

#29 bEan

bEan

    Edu level: ab10, ai6

  • Members
  • PipPip
  • 50 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 06 July 2016 - 08:29 PM

bác có thể chỉnh thêm phần quét chọn 1 lền nhiều block đc ko


  • 0

#30 chanquabn

chanquabn

    biết zoom

  • Members
  • Pip
  • 17 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 24 March 2017 - 11:40 AM

Chào bác phamthanhbinh. Bác có thể viết lại lisp trên được không ạ. Yêu cầu của e như sau: E có block att ghi cao độ cos cống thoát nước. Cần lisp cộng trừ mà vẫn thể hiện cao độ theo cos cao độ hiện trang (vd: Biến a +4.80, Biến b: +4.00). E đã chạy thử lisp trên thấy hơi rườm rà. E có góp ý : B1- chọn text cần tính, B2- +số hoặc - số (vd: +10; -10); B3: chọn text thay đổi. Và lưu kết quả cho lần tính sau. Muốn thay đỏi thì gõ lại lệnh ( cái này e chưa rõ thay đổi như nào). Cám ơn bác. 


  • 0