Đến nội dung


Hình ảnh
- - - - -

Đổi màu khi cộng trừ các text


  • Chủ đề bị khóa Chủ đề bị khóa
24 replies to this topic

#1 hungtv0102

hungtv0102

    biết vẽ line

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

Đã gửi 06 November 2010 - 09:48 AM

Chào các bác em đanh dùng cái lisp cộng trừ nhân chia các text trong bản vẽ như ở dưới đây.
Tuy nhiên công việc của em thực hiện rất nhiều text (tính DT trong nô va) em muốn nhờ các anh sửa giúp em lisp trên sau khi thực hiện phép tính + - * / thi khích vào text kết quả Text kết quả này tự chuyển màu (ví dụ là màu 4 xanh nhạt)
Khẩn thiết mong các bác giúp đỡ
(chân thành cảm ơn)
;;; ****************** C¸c phÐp tÝnh trong AutoCad **********************************************
;;; **************************** PhÐp céng (+) **************************************************
(defun C:+(/ cmd i newe e ss sslen txt Tong)
(setq cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(command "Undo" "BEgin")
(princ "Phep tinh cong, Hung tv")
(setq Tong 0)
(setq ss (ssget))
(setq sslen (sslength ss))
(while (> sslen 0)
(setq e (entget (ssname ss (setq sslen (1- sslen)))))
(if (or
(= (cdr (assoc 0 e)) "TEXT")
(= (cdr (assoc 0 e)) "MTEXT")
(= (cdr (assoc 0 e)) "DIMENSION")
)
(progn
(setq tong (+ tong (distof (cdr (assoc 1 e)) 2)))
(entmod e)
)
)
)
(setq newe (car (entsel "\nKet qua:")))
(setq newe (entget newe '("ACAD")))
(redraw (cdr (assoc -1 newe)) 4)
(if (or
(= (cdr (assoc 0 newe)) "TEXT")
(= (cdr (assoc 0 newe)) "MTEXT")
(= (cdr (assoc 0 newe)) "DIMENSION")
)
(progn
(setq txt (rtos tong 2))
(setq newe (subst (cons 1 txt) (assoc 1 newe) newe))
(entmod newe)
)
)
(redraw (cdr (assoc -1 newe)) 1)
(command "Undo" "End")
)
;;; **************************** PhÐp nh©n (*) ****************************************************
(defun C:*(/ cmd i newe e ss sslen txt Tong)
(setq cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(princ "Phep tinh nhan-Cong ty TNHH KSTKCTGT (KTS) !")
(command "Undo" "BEgin")
(setq Tong 1)
(setq ss (ssget))
(setq sslen (sslength ss))
(while (> sslen 0)
(setq e (entget (ssname ss (setq sslen (1- sslen)))))
(if (or
(= (cdr (assoc 0 e)) "TEXT")
(= (cdr (assoc 0 e)) "MTEXT")
(= (cdr (assoc 0 e)) "DIMENSION")
)
(progn
(setq tong (* tong (distof (cdr (assoc 1 e)) 2)))
(entmod e)
)
)
)
(setq newe (car (entsel "\nKet qua:")))
(setq newe (entget newe '("ACAD")))
(redraw (cdr (assoc -1 newe)) 4)
(if (or
(= (cdr (assoc 0 newe)) "TEXT")
(= (cdr (assoc 0 newe)) "MTEXT")
(= (cdr (assoc 0 newe)) "DIMENSION")
)
(progn
(setq txt (rtos tong 2))
(setq newe (subst (cons 1 txt) (assoc 1 newe) newe))
(entmod newe)
)
)
(redraw (cdr (assoc -1 newe)) 1)
(command "Undo" "End")
)
;;; **************************** PhÐp trõ (-) *****************************************************
(defun C:-(/ cmd i newe e ss sslen txt Tong)
(setq cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(princ "Phep tinh tru-Cong ty TNHH KSTKCTGT (KTS) !")
(command "Undo" "BEgin")
(setq Tong 1)
(setq newe (car (entsel "\nSo tru-So bi tru: ")))
(setq newe (entget newe '("ACAD")))
(if (or
(= (cdr (assoc 0 newe)) "TEXT")
(= (cdr (assoc 0 newe)) "MTEXT")
(= (cdr (assoc 0 newe)) "DIMENSION")
)
(progn
(setq txt (cdr (assoc 1 newe)))
(redraw (cdr (assoc -1 newe)) 3)
)
)
(princ "Sè bÞ trõ:")
(setq ss (ssget))
(setq sslen (sslength ss))
(setq Tong (distof txt 2))
(while (> sslen 0)
(setq e (entget (ssname ss (setq sslen (1- sslen)))))
(if (or
(= (cdr (assoc 0 e)) "TEXT")
(= (cdr (assoc 0 e)) "MTEXT")
(= (cdr (assoc 0 e)) "DIMENSION")
)
(progn
(setq tong (- tong (distof (cdr (assoc 1 e)) 2)))
(entmod e)
)
)
)
(redraw (cdr (assoc -1 newe)) 1)
(setq newe (car (entsel "\nKet qua:")))
(setq newe (entget newe '("ACAD")))
(redraw (cdr (assoc -1 newe)) 4)
(if (or
(= (cdr (assoc 0 newe)) "TEXT")
(= (cdr (assoc 0 newe)) "MTEXT")
(= (cdr (assoc 0 newe)) "DIMENSION")
)
(progn
(setq txt (rtos tong 2))
(setq newe (subst (cons 1 txt) (assoc 1 newe) newe))
(entmod newe)

)
)
(redraw (cdr (assoc -1 newe)) 1)
(command "Undo" "End")
)
;;; **************************** PhÐp chia (/) *****************************************************
(defun C:/(/ cmd i newe e ss sslen txt Tong)
(setq cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(princ "Phep tinh chia-Cong ty TNHH KSTKCTGT (KTS) !")
(command "Undo" "BEgin")
(setq Tong 1)
(setq newe (car (entsel "\nSo bi chia-so chia: ")))
(setq newe (entget newe '("ACAD")))
(if (or
(= (cdr (assoc 0 newe)) "TEXT")
(= (cdr (assoc 0 newe)) "MTEXT")
(= (cdr (assoc 0 newe)) "DIMENSION")
)
(progn
(setq txt (cdr (assoc 1 newe)))
(redraw (cdr (assoc -1 newe)) 3)
)
)
;;;
(princ "Sè chia:")
(setq ss (ssget))
(setq sslen (sslength ss))
(setq Tong (distof txt 2))
(while (> sslen 0)
(setq e (entget (ssname ss (setq sslen (1- sslen)))))
(if (or
(= (cdr (assoc 0 e)) "TEXT")
(= (cdr (assoc 0 e)) "MTEXT")
(= (cdr (assoc 0 e)) "DIMENSION")
)
(progn
(setq tong (/ tong (distof (cdr (assoc 1 e)) 2)))
(entmod e)
)
)
)
(redraw (cdr (assoc -1 newe)) 1)
(setq newe (car (entsel "\nKet qua:")))
(setq newe (entget newe '("ACAD")))
(redraw (cdr (assoc -1 newe)) 4)
(if (or
(= (cdr (assoc 0 newe)) "TEXT")
(= (cdr (assoc 0 newe)) "MTEXT")
(= (cdr (assoc 0 newe)) "DIMENSION")
)
(progn
(setq txt (rtos tong 2))
(setq newe (subst (cons 1 txt) (assoc 1 newe) newe))
(entmod newe)
)
)
(redraw (cdr (assoc -1 newe)) 1)
(command "Undo" "End")
)
  • 0

#2 hungtv0102

hungtv0102

    biết vẽ line

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

Đã gửi 06 November 2010 - 09:50 AM

Chào các bác em đanh dùng cái lisp cộng trừ nhân chia các text trong bản vẽ như ở dưới đây.
Tuy nhiên công việc của em thực hiện rất nhiều text (tính DT trong nô va) em muốn nhờ các anh sửa giúp em lisp trên sau khi thực hiện phép tính + - * / thi khích vào text kết quả Text kết quả này tự chuyển màu (ví dụ là màu 4 xanh nhạt)
Khẩn thiết mong các bác giúp đỡ
(chân thành cảm ơn)
;;; ****************** C¸c phÐp tÝnh trong AutoCad **********************************************
;;; **************************** PhÐp céng (+) **************************************************
(defun C:+(/ cmd i newe e ss sslen txt Tong)
(setq cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(command "Undo" "BEgin")
(princ "Phep tinh cong, Hung tv")
(setq Tong 0)
(setq ss (ssget))
(setq sslen (sslength ss))
(while (> sslen 0)
(setq e (entget (ssname ss (setq sslen (1- sslen)))))
(if (or
(= (cdr (assoc 0 e)) "TEXT")
(= (cdr (assoc 0 e)) "MTEXT")
(= (cdr (assoc 0 e)) "DIMENSION")
)
(progn
(setq tong (+ tong (distof (cdr (assoc 1 e)) 2)))
(entmod e)
)
)
)
(setq newe (car (entsel "\nKet qua:")))
(setq newe (entget newe '("ACAD")))
(redraw (cdr (assoc -1 newe)) 4)
(if (or
(= (cdr (assoc 0 newe)) "TEXT")
(= (cdr (assoc 0 newe)) "MTEXT")
(= (cdr (assoc 0 newe)) "DIMENSION")
)
(progn
(setq txt (rtos tong 2))
(setq newe (subst (cons 1 txt) (assoc 1 newe) newe))
(entmod newe)

)
)
(redraw (cdr (assoc -1 newe)) 1)
(command "Undo" "End")
)
;;; **************************** PhÐp nh©n (*) ****************************************************
(defun C:*(/ cmd i newe e ss sslen txt Tong)
(setq cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(princ "Phep tinh nhan-Cong ty TNHH KSTKCTGT (KTS) !")
(command "Undo" "BEgin")
(setq Tong 1)
(setq ss (ssget))
(setq sslen (sslength ss))
(while (> sslen 0)
(setq e (entget (ssname ss (setq sslen (1- sslen)))))
(if (or
(= (cdr (assoc 0 e)) "TEXT")
(= (cdr (assoc 0 e)) "MTEXT")
(= (cdr (assoc 0 e)) "DIMENSION")
)
(progn
(setq tong (* tong (distof (cdr (assoc 1 e)) 2)))
(entmod e)
)
)
)
(setq newe (car (entsel "\nKet qua:")))
(setq newe (entget newe '("ACAD")))
(redraw (cdr (assoc -1 newe)) 4)
(if (or
(= (cdr (assoc 0 newe)) "TEXT")
(= (cdr (assoc 0 newe)) "MTEXT")
(= (cdr (assoc 0 newe)) "DIMENSION")
)
(progn
(setq txt (rtos tong 2))
(setq newe (subst (cons 1 txt) (assoc 1 newe) newe))
(entmod newe)
)
)
(redraw (cdr (assoc -1 newe)) 1)
(command "Undo" "End")
)
;;; **************************** PhÐp trõ (-) *****************************************************
(defun C:-(/ cmd i newe e ss sslen txt Tong)
(setq cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(princ "Phep tinh tru-Cong ty TNHH KSTKCTGT (KTS) !")
(command "Undo" "BEgin")
(setq Tong 1)
(setq newe (car (entsel "\nSo tru-So bi tru: ")))
(setq newe (entget newe '("ACAD")))
(if (or
(= (cdr (assoc 0 newe)) "TEXT")
(= (cdr (assoc 0 newe)) "MTEXT")
(= (cdr (assoc 0 newe)) "DIMENSION")
)
(progn
(setq txt (cdr (assoc 1 newe)))
(redraw (cdr (assoc -1 newe)) 3)
)
)
(princ "Sè bÞ trõ:")
(setq ss (ssget))
(setq sslen (sslength ss))
(setq Tong (distof txt 2))
(while (> sslen 0)
(setq e (entget (ssname ss (setq sslen (1- sslen)))))
(if (or
(= (cdr (assoc 0 e)) "TEXT")
(= (cdr (assoc 0 e)) "MTEXT")
(= (cdr (assoc 0 e)) "DIMENSION")
)
(progn
(setq tong (- tong (distof (cdr (assoc 1 e)) 2)))
(entmod e)
)
)
)
(redraw (cdr (assoc -1 newe)) 1)
(setq newe (car (entsel "\nKet qua:")))
(setq newe (entget newe '("ACAD")))
(redraw (cdr (assoc -1 newe)) 4)
(if (or
(= (cdr (assoc 0 newe)) "TEXT")
(= (cdr (assoc 0 newe)) "MTEXT")
(= (cdr (assoc 0 newe)) "DIMENSION")
)
(progn
(setq txt (rtos tong 2))
(setq newe (subst (cons 1 txt) (assoc 1 newe) newe))
(entmod newe)

)
)
(redraw (cdr (assoc -1 newe)) 1)
(command "Undo" "End")
)
;;; **************************** PhÐp chia (/) *****************************************************
(defun C:/(/ cmd i newe e ss sslen txt Tong)
(setq cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(princ "Phep tinh chia-Cong ty TNHH KSTKCTGT (KTS) !")
(command "Undo" "BEgin")
(setq Tong 1)
(setq newe (car (entsel "\nSo bi chia-so chia: ")))
(setq newe (entget newe '("ACAD")))
(if (or
(= (cdr (assoc 0 newe)) "TEXT")
(= (cdr (assoc 0 newe)) "MTEXT")
(= (cdr (assoc 0 newe)) "DIMENSION")
)
(progn
(setq txt (cdr (assoc 1 newe)))
(redraw (cdr (assoc -1 newe)) 3)
)
)
(princ "Sè chia:")
(setq ss (ssget))
(setq sslen (sslength ss))
(setq Tong (distof txt 2))
(while (> sslen 0)
(setq e (entget (ssname ss (setq sslen (1- sslen)))))
(if (or
(= (cdr (assoc 0 e)) "TEXT")
(= (cdr (assoc 0 e)) "MTEXT")
(= (cdr (assoc 0 e)) "DIMENSION")
)
(progn
(setq tong (/ tong (distof (cdr (assoc 1 e)) 2)))
(entmod e)
)
)
)
(redraw (cdr (assoc -1 newe)) 1)
(setq newe (car (entsel "\nKet qua:")))
(setq newe (entget newe '("ACAD")))
(redraw (cdr (assoc -1 newe)) 4)
(if (or
(= (cdr (assoc 0 newe)) "TEXT")
(= (cdr (assoc 0 newe)) "MTEXT")
(= (cdr (assoc 0 newe)) "DIMENSION")
)
(progn
(setq txt (rtos tong 2))
(setq newe (subst (cons 1 txt) (assoc 1 newe) newe))
(entmod newe)
)
)
(redraw (cdr (assoc -1 newe)) 1)
(command "Undo" "End")
)

giúp em với bác ơi
  • 0

#3 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 06 November 2010 - 11:12 AM

giúp em với bác ơi

Chào bạn hungtv0102,
Bạn hãy bỏ cái thói "ăn vạ" này đi nhé. 9 giờ 48 post yêu cầu, 9 giờ 50 kêu la ăn vạ .....
Xin lỗi bạn rằng cái trò ấy không bao giờ có tác dụng cả mà ngược lại đấy. Diễn đàn không chỉ có việc phục vụ cho yêu cầu của bạn đâu.
Nếu lần sau bạn còn như vậy thì mình tin rằng bạn sẽ không bao giờ có câu trả lời.

Còn về yêu cầu của bạn thì bạn hãy tự bổ sung các dòng code sau đây vào cái lisp mà bạn có sẵn. Vị trí của các dòng code này là dưới dòng
(setq newe (subst (cons 1 txt) (assoc 1 newe) newe))
và trên dòng.
(entmod newe)
(if (= (assoc 62 newe) nil )
(setq newe (cons (cons 62 3) newe))
(setq newe (subst (cons 62 3) (assoc 62 newe) newe))
)
Bạn nhớ là phải bổ sung đầy đủ vào tất cả các hàm cộng trừ nhân chia. Hy vọng bạn hài lòng...
Bài được sửa lỗi do bạn nguyentuyen6 phát hiện. Hề hề hề
  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#4 nguyentuyen6

nguyentuyen6

    biết lệnh chamfer

  • Advance Member
  • PipPipPipPip
  • 213 Bài viết
Điểm đánh giá: 124 (tàm tạm)

Đã gửi 06 November 2010 - 11:29 AM

Hi hì. Thiếu 1 đấu ) kìa bác bình.

(if (= (assoc 62 newe) nil )
(setq newe (cons (cons 62 3) newe))
(setq newe (subst (cons 62 3) (assoc 62 newe) newe))
)

Hì hì. Truớc đến h em cứa tưởng hàm cons chỉ có tác dụng tạo dotpair. bây h nhờ bác lại biết thêm công dụng của nó.
  • 1

Lisp In bản vẽ hàng loạt:
http://www.cadviet.c...ndpost&p=139860


#5 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 06 November 2010 - 11:46 AM

Hi hì. Thiếu 1 đấu ) kìa bác bình.

(if (= (assoc 62 newe) nil )
(setq newe (cons (cons 62 3) newe))
(setq newe (subst (cons 62 3) (assoc 62 newe) newe))
)

Hì hì. Truớc đến h em cứa tưởng hàm cons chỉ có tác dụng tạo dotpair. bây h nhờ bác lại biết thêm công dụng của nó.

Sorry, thiếu thiệt. Do đến giờ cơm rồi nên đói quá mình xơi tạm cái ngoặc. Các bác đừng giận nha. Mình sẽ edit ngay.
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#6 hungtv0102

hungtv0102

    biết vẽ line

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

Đã gửi 06 November 2010 - 05:10 PM

Trước tiên xin cảm ơn Phanthanhbinh vi đã trả lời mình.
thứ đến cảm ơn PTBinh đã có nhưng lời chia sẻ. Lần sau tôi sẽ rút kinh nghiệm. Nhưng đừng vì trả lời được 1 tí mà bạn nghĩ la muốn nói gì thi nói
Và Phanthanhbinh ah tôi phải nói cho anh biết rằng 1."Cười người hôm nay ngày mai người cười".
2."Cách cho hơn của đem cho"
:)
  • 0

#7 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 06 November 2010 - 09:01 PM

Trước tiên xin cảm ơn Phanthanhbinh vi đã trả lời mình.
thứ đến cảm ơn PTBinh đã có nhưng lời chia sẻ. Lần sau tôi sẽ rút kinh nghiệm. Nhưng đừng vì trả lời được 1 tí mà bạn nghĩ la muốn nói gì thi nói
Và Phanthanhbinh ah tôi phải nói cho anh biết rằng 1."Cười người hôm nay ngày mai người cười".
2."Cách cho hơn của đem cho"
:)

Hề hề hề,
Cám ơn về những lời góp ý của bạn.
Tuy nhiên phải nói thẳng cho bạn biết rằng, bạn nên nghiêm túc tự xem lại mình đi.
Mình chả cười ai cả mà bạn nên nhớ đó là cái cách mình nhắc nhở bạn khi tham gia diễn đàn, Những điều mình nói là dựa trên những biểu hiện của chính bạn đó. Hai bài post chỉ cách nhau hai phút, bài sau chỉ là sao lại bài trước với lời kêu cứu như là cần gấp gấp lắm. Điều đó chả giống với hành vi ăn vạ lắm sao ???? Đây là diễn đàn mở, cái gì cũng cần có thời gian chứ không thể nào đáp ứng ngay cái yêu cầu của bất cứ ai được, bạn có hiểu điều đó không???
Tuy nhiên, cái tưởng như là cần lắm lắm thì nửa ngày sau có cũng như không....????
Bạn cũng có thể chả cần đến ngày mai để cười mình mà có thể cười bất cứ lúc nào bạn thích. Mình cũng chẳng vì tiếng cười của bạn mà mất vui đâu. Hề hề hề...
Bạn tưởng rằng mình cho bạn ư??? Nhầm đó, mình chỉ là người chia xẻ chút kiến thức mót được với cộng đồng chứ không phải cho cá nhân ai cả. Cá nhân bạn , cá nhân mình chẳng thể làm nên một cộng đồng đâu. Đừng đặt mình cao hơn mọi người. Đừng tưởng rằng mọi thứ mình cần đều phải được đáp ứng.....
Bạn có thể thích, có thể không thích nhưng đã tham gia vào một cộng đồng nào đó, dù nhỏ cũng phải biết cái quy định chung của cộng đồng đó, chứ không thể chỉ biết có một mình mình.
Bạn cũng có thể chẳng cần dùng đến cái mà bạn tưởng rằng mình cho bạn, vì không có mình cũng sẽ còn có nhiều người khác thừa khả năng giúp bạn. Chỉ cần một điều, đó là bạn cần biết quy định và tôn trọng quy định của diễn đàn.

Hy vọng bạn sẽ vui khi tham gia diễn dàn
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#8 buimanhxd

buimanhxd

    biết pan

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

Đã gửi 06 November 2010 - 09:08 PM

Diễn đàn không phải là chỗ để các ông cái nhau. Ông thanhbinh sai rồi. Ông xin lỗi ông hungtv đi
  • 0

#9 yinjun8582

yinjun8582

    Chưa sử dụng CAD

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

Đã gửi 06 November 2010 - 09:15 PM

Diễn đàn là nơi mọi người trao đổi, học hỏi lẫn nhau để mọi người cùng tự hoàn thiện mình. Bạn phamthanhbinh nói như vậy là không hay rồi. Chẳng biết phamthanhbinh nói vậy có nghĩ là đã xúc phạm người khác không hay tự cho là mình giỏi.???
  • 1

#10 buimanhxd

buimanhxd

    biết pan

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

Đã gửi 06 November 2010 - 09:22 PM

Thôi ông Yinjun8582 đừng đổ thêm dầu vào lửa nữa đi.
  • 1

#11 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 06 November 2010 - 10:11 PM

Diễn đàn là nơi mọi người trao đổi, học hỏi lẫn nhau để mọi người cùng tự hoàn thiện mình. Bạn phamthanhbinh nói như vậy là không hay rồi. Chẳng biết phamthanhbinh nói vậy có nghĩ là đã xúc phạm người khác không hay tự cho là mình giỏi.???

Diễn đàn không phải là chỗ để các ông cái nhau. Ông thanhbinh sai rồi. Ông xin lỗi ông hungtv đi

Hề hề hề,
Cám ơn mọi người đã góp ý.
Song rất rất đáng tiếc là mình chưa thấy mình sai chỗ nào???? Và mình cũng không thấy mình cần phải xin lỗi ai ngoài ban quản trị của diễn đàn trong việc này cả.
Mình chả hề xúc phạm ai cả, mình dùng từ ăn vạ có vẻ không hay, song nó chả xúc phạm ai ở đây hết, chỉ là một cách nói cường điệu cho nó vui mà thôi. Nếu các bạn đã từng xem các bài post của mình, chắc sẽ hiểu được cái vốn tiếng Việt của mình. Mình vốn văn dốt vũ dát, chả dám hơn thua với ai, chỉ là các bạn tự cho là mình đúng mà thôi.
Nếu mọi người tham gia diễn đàn ai cũng làm như bạn Hungtv0102 thì có nhẽ vào diễn đàn các bạn sẽ không thể vui đâu, sẽ toàn là những lời kêu ca than vãn kiểu như : Help me, gấp gấp, cứu em với các bác ơi, gấp gấp lắm rồi, Có ai không giúp tôi với.........
Hãy bớt đi những điều không đáng như vậy để tập trung vào nội dung chính cần trình bày. Và hãy biết kiên nhẫn chờ sự giải đáp. Đó là thông điệp mình muốn nói qua những câu nói với bạn hungtv0102. Nó có thể chưa hay song có nhẽ mọi người cũng không thể bắt mình phải nói hay hơn được.
Mình chưa giỏi song cũng không quá dốt để không thể hiểu là mình là ai và mình muốn cái gì. Do vậy mình vẫn đang phải ngày ngày đi mót đấy các bạn ạ.
Và vì phải mót nên mình muốn diễn đàn bớt đi những cái mà các bạn gọi là rác thôi.
Hy vọng là các bạn hiểu được cái mong muốn nhỏ nhoi này của mình.
Chúc các bạn luôn vui khi tham gia diễn đàn.
  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#12 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 696 (tốt)

Đã gửi 06 November 2010 - 10:37 PM

Chào các bạn: yinjun8582, buimanhxd, hungtv0102!
Các bạn tham gia diễn đàn cũng đã lâu nhưng mình nghĩ là các bạn bạn chưa đọc bài viết nào của Bác Bình hay sao ấy. Tính bác ấy là vậy đấy "Rất thật" lúc đầu mới đọc mình cũng thấy rất chối nhưng càng ngày càng thích phong cách đó của Bác. Bạn tìm các bài viết của Bác Bình sẽ thấy những lời lẽ đo của Bác Bình là quá bình thường.
  • 1
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#13 duyhung

duyhung

    biết vẽ rectang

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

Đã gửi 06 November 2010 - 11:03 PM

Chào các bạn: yinjun8582, buimanhxd, hungtv0102!
Các bạn tham gia diễn đàn cũng đã lâu nhưng mình nghĩ là các bạn bạn chưa đọc bài viết nào của Bác Bình hay sao ấy. Tính bác ấy là vậy đấy "Rất thật" lúc đầu mới đọc mình cũng thấy rất chối nhưng càng ngày càng thích phong cách đó của Bác. Bạn tìm các bài viết của Bác Bình sẽ thấy những lời lẽ đo của Bác Bình là quá bình thường.

Đúng đấy các đồng chí ạ, suy nghĩ của bác bình là tinh thần đóng góp rất nhiều mình thấy chuẩn quá. Ai vào diễn đàn đều cố gắng học hỏi or có j share cho nhau được thì share. Mình thấy các ae ở topic viết lisp rất nhiệt tình share vì cộng đồng điều đó rất đáng quý, các ae ở đây làm hơn nói rất nhiều còn các bạn có thể vì công việc cần nên kêu ca rồi mới góp ý chút đã kêu ca chẳng hiểu j cả, hj dân kt hơi tí đã nổi nóng thì làm ăn j.
Đôi điều góp chút tâm sự, hj vọng ko có nhiều bài như thế này nhiều. :)
  • 2
Song va chien dau!

#14 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1435 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 07 November 2010 - 01:34 PM

Hề hề hề,
Cám ơn mọi người đã góp ý.
Song rất rất đáng tiếc là mình chưa thấy mình sai chỗ nào???? Và mình cũng không thấy mình cần phải xin lỗi ai ngoài ban quản trị của diễn đàn trong việc này cả.
Mình chả hề xúc phạm ai cả, mình dùng từ ăn vạ có vẻ không hay, song nó chả xúc phạm ai ở đây hết, chỉ là một cách nói cường điệu cho nó vui mà thôi. Nếu các bạn đã từng xem các bài post của mình, chắc sẽ hiểu được cái vốn tiếng Việt của mình. Mình vốn văn dốt vũ dát, chả dám hơn thua với ai, chỉ là các bạn tự cho là mình đúng mà thôi.
Nếu mọi người tham gia diễn đàn ai cũng làm như bạn Hungtv0102 thì có nhẽ vào diễn đàn các bạn sẽ không thể vui đâu, sẽ toàn là những lời kêu ca than vãn kiểu như : Help me, gấp gấp, cứu em với các bác ơi, gấp gấp lắm rồi, Có ai không giúp tôi với.........

Đồng ý với bác Bình
Tôi cũng không thấy bác Bình sai chỗ nào cả.
9 giờ 48 post yêu cầu, 9 giờ 50 post : giúp em với bác ơi
(gặp nhau lần nào cũng vội ...)

Chào các bạn: yinjun8582, buimanhxd, hungtv0102!
Các bạn tham gia diễn đàn cũng đã lâu nhưng mình nghĩ là các bạn bạn chưa đọc bài viết nào của Bác Bình hay sao ấy. Tính bác ấy là vậy đấy "Rất thật" lúc đầu mới đọc mình cũng thấy rất chối nhưng càng ngày càng thích phong cách đó của Bác. Bạn tìm các bài viết của Bác Bình sẽ thấy những lời lẽ đo của Bác Bình là quá bình thường.

Cá nhân tôi cho rằng : Vấn đề đúng hay sai tự nó đã có câu trả lời, không cần thiết phải đọc bất kì bài viết nào của Bác Bình (phân tích và bình luận văn phong của bác ấy -> rút ra kết luận : xin hứa ...) :)
  • 2

#15 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 08 November 2010 - 11:46 AM

Ê hungtv0102: mày thử hỏi thằng cho mày cái lisp này xem, với 2 phút nó có sửa được cho mày không?
mịa, ngu lại cứ tỏ ra nguy hiểm

  • 0

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#16 hungtv0102

hungtv0102

    biết vẽ line

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

Đã gửi 08 November 2010 - 01:09 PM

[quote name='Thaistreetz' date='Nov 8 2010, 11:46' post='116313']
Ê hungtv0102: mày thử hỏi thằng cho mày cái lisp này xem, với 2 phút nó có sửa được cho mày không?
mịa, ngu lại cứ tỏ ra nguy hiểm

[/quote
thaistreetZ muốn nói gì ah. :)
  • 0

#17 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 08 November 2010 - 01:29 PM

nói rồi đấy thôi. chưa hiểu à?
  • 0

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#18 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 08 November 2010 - 02:07 PM

Thôi thôi,các bác bình tĩnh,cãi nhau làm gì cho mất tình huynh đệ :)
Bác Bình k sai,chỉ có là bác ấy dùng từ hơi dễ phật lòng đó thôi.Quả như từ khi vào 4room,mình cũng coi bác Bình như 1 người anh lớn tuổi,có nói gì thì cũng nên hiểu từ ý tốt của bác ấy mà ra,nên cũng chẳng lấy gì làm giận khi được góp ý
-Có thể là bạn hungtv0102 do vội vã,cần gấp,cũng có thể bạn vô ý hối thúc mà làm nguồi đọc sốt ruột,có thể lời góp ý của bác Binh làm bạn tự ái,nhưng qua cách bạn cảm ơn bác Bình,cũng hiểu bạn là người thấu hiểu lý lẽ,vì vậy hungtv0102 cũng nên nghĩ lại rằng nếu chẳng muốn tốt thì bác Bình cũng chẳng bỏ công ngồi đọc code dài đó và sửa cho bạn.
Nhất là trường hợp cụ thể này,nhìn qua đã thấy bạn vi phạm nội quy diễn đàn,post nguyên 1 code dài dằng dặc mà chẳng code,quote gì cả,chẳng nói gì đến người bận rộn,người cần mẫn và nhiệt tình đọc cũng muốn nản luôn ý chứ ^^.
-Diễn đàn là 1 cộng đồng mở,khi đã post bài mong mọi người giúp đỡ tức là cũng nên mang xu hướng cầu thị,cầu tiến và nhất là tính kiên nhẫn.Vì đơn giản,đa số anh em trên CADViet là dân cày cuốc,đều đang đứng ngồi làm việc hết rồi,đâu phải lúc nào cũng ôm khư khư trang Cadviet để F5 liên tục,chờ có người post bài lên hỏi 1 cái là lao vào hùng hục suy nghĩ,giải quyết,trả lời ngay được cho bạn đâu :D Vì vậy rút kinh nghiệm,lần sau hãy kiên nhẫn hơn bạn nhé (4room khác IM ở chỗ đó)

P/S bác Thaistreetz : ấy chớ,bình tĩnh bác ^^..
Như dân XD mình,1 thuật ngữ ám chỉ Chủ đầu tư chăng ^^
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#19 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 696 (tốt)

Đã gửi 08 November 2010 - 08:32 PM

P/S bác Thaistreetz : ấy chớ,bình tĩnh bác ^^..
Như dân XD mình,1 thuật ngữ ám chỉ Chủ đầu tư chăng ^^

Thuật ngữ gì đâu. Bôi đen vào mà đọc. hê hê.
  • 0
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#20 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 08 November 2010 - 09:56 PM

Thì vì là e có đọc rồi nên mới hỏi vậy mà ^^
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC