Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
28 replies to this topic

#21 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 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
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉ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
  • 6007 Bài viết
Điểm đánh giá: 3113 (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á: 40 (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
  • 48 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