Nhờ Các Bác Sửa Giúp Em Lisp Này Với

[namtrantt206xd 1]

Em có download trên diễn đàn lisp tính tổng các đường Line và Polyline:http://www.cadviet.com/upfiles/6/89361_tg.lsp

Em muốn sửa Lisp này như sau:

1. Làm tròn 2 số sau dấu phẩy của các đường Line và Polyline trước khi cộng tổng lại

2. Đổi text sang màu 6

Nhờ các bác giúp em với.

;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/topic/3778-lisp-tinh-tong-chieu-dai-cac-line-hay-pline/
(defun add_mline ()
(foreach e_record_sub e_record
(cond ((= 10 (car e_record_sub))
(setq pt1 (cdr e_record_sub)
mline_len 0.0
)
)
((= 11 (car e_record_sub))
(setq pt2 (cdr e_record_sub)
mline_len (+ mline_len (distance pt2 pt1))
pt1 pt2
)
)
)
)
(setq tot_len (+ tot_len mline_len))
(ssdel e_name ss)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun C:tg (/ tot_len ss e_name e_record e_type)
(princ "\nCADViet.com © 2007")
(setq tot_len 0.0)
(setq ss (ssget))
(if (null ss)
(exit)
)
(while (> (sslength ss) 0)
(setq e_name (ssname ss 0))
(setq e_record (entget e_name))
(setq e_type (cdr (assoc '0 e_record)))
(cond ((wcmatch e_type "LINE,ARC,CIRCLE,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE")
(command "lengthen" e_name "")
(setq tot_len (+ tot_len (getvar "PERIMETER")))
(ssdel e_name ss)
)
((wcmatch e_type "MLINE") (add_mline))
(e_type (ssdel e_name ss))
)
)
(prompt (strcat "\nTotal length is: " (rtos tot_len 2 2)))
(princ)
)
(princ "\ntg - free lisp from www.cadviet.com")
(princ)

[Danh Cong 422]

Thay (getvar "PERIMETER") bằng (atof (rtos (getvar "PERIMETER") 2 2))

 

Còn đổi màu chữ thì có câu lệnh nào chèn text đâu mà đổi ?

[namtrantt206xd 1]

Thay (getvar "PERIMETER") bằng (atof (rtos (getvar "PERIMETER") 2 2))

 

Còn đổi màu chữ thì có câu lệnh nào chèn text đâu mà đổi ?

Thanks bác nhiều nhé. Nhân tiện bác sửa giúp em cách đổi màu TEXT trong đoạn code sau luôn:

;; free lisp from cadviet.com

;;; this lisp was downloaded from http://www.cadviet.com/forum/topic/3778-lisp-tinh-tong-chieu-dai-cac-line-hay-pline/

(defun add_mline ()

(foreach e_record_sub e_record

(cond ((= 10 (car e_record_sub))

(setq pt1 (cdr e_record_sub)

mline_len 0.0

)

)

((= 11 (car e_record_sub))

(setq pt2 (cdr e_record_sub)

mline_len (+ mline_len (distance pt2 pt1))

pt1 pt2

)

)

)

)

(setq tot_len (+ tot_len mline_len))

(ssdel e_name ss)

)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

 

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun C:tg (/ tot_len ss e_name e_record e_type)

(princ "\nCADViet.com © 2007")

(setq tot_len 0.0)

(setq ss (ssget))

(if (null ss)

(exit)

)

(while (> (sslength ss) 0)

(setq e_name (ssname ss 0))

(setq e_record (entget e_name))

(setq e_type (cdr (assoc '0 e_record)))

(cond ((wcmatch e_type "LINE,ARC,CIRCLE,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE")

(command "lengthen" e_name "")

(setq tot_len (+ tot_len (atof (rtos (getvar "PERIMETER") 2 2))))

(ssdel e_name ss)

)

((wcmatch e_type "MLINE") (add_mline))

(e_type (ssdel e_name ss))

)

)

(prompt (strcat "\nTotal length is: " (rtos tot_len 2 2)))

(setq te (entget(car(entsel"\n Chon Text de gan ket qua :")))   (setq elst (entget en))

  (setq elst (subst (cons 1 (strcat " " (rtos dtl 2 2))) (assoc 1 elst) elst))

  (setq elst (append elst '((62 . 6))))

  (prin1 elst)

  (entmod elst)

;  (print)

;  (prompt (strcat "\nTotal area : " (rtos dTy_le 2 4)))

;  (print)

;  (setq pt2 (getpoint "\nPoint to write: "))

;  (command "text" pt2 "" "0" (rtos dtl 2 2))

);defun

[Danh Cong 422]

Đọc đến cuối đoạn lisp của bác mà em tí thì sặc nước  :D  :D

Bác copy đoạn lisp ở đâu thêm vào thế này ko chạy được đâu.

Đây, gửi lại lisp cho bác.

 

http://www.cadviet.com/upfiles/6/124641_tgtext_1.lsp

[quocmanh04tt 635]

Như vậy người ta gọi là: "Râu bà nọ cắm nhầm vào cằm ông kia" :D

[namtrantt206xd 1]

Đọc đến cuối đoạn lisp của bác mà em tí thì sặc nước  :D  :D

Bác copy đoạn lisp ở đâu thêm vào thế này ko chạy được đâu.

Đây, gửi lại lisp cho bác.

 

http://www.cadviet.com/upfiles/6/124641_tgtext_1.lsp

Cảm ơn bạn nhiều nhé. tại không hiểu bản chất nên mới copy dán lung tung xem nó có được không.

Lisp bạn sửa giúp mình được rồi nhưng nhờ bạn sửa thêm cho 1 tí nữa là:

1. sau khi chọn Text là gán kết quả luôn không cần phải ấn enter thêm.

2. Text luôn trả về 2 số sau dấu phẩy. ví dụ kết quả là 0.80 thay vì như hiện tại là 0.8

Thanks bạn nhiều nhé!

[quocmanh04tt 635]

Thử sử dụng lsp này http://www.cadviet.com/forum/topic/157561-yeu-cau-nho-sua-lisp-udt/?p=391571

Chú ý lệnh TLDIA.

@Danh Cong: Biến DIMZIN.

[Danh Cong 422]

Anh @QuocManh giải đáp thắc mắc giùm.

Sử dụng biến Dimzin thấy khác biệt rõ giá trị:   0.....không Trim số "0" đằng sau.  8..... Trim sạch mấy số 0 sau text.

Còn các giá trị khác như 1, 2 ,..... 9 thì sao nhỉ . Em chưa hiểu rõ cách xài cho lắm.  Nhưng cũng hiểu lỗi tại sao lại 0.8 với 0.80 rồi  :D

[quocmanh04tt 635]

Bạn xem ở đây (hoặc nếu đã cài Expess tool thì gõ lệnh SYSVDLG và tìm đến DIMZIN):

[namtrantt206xd 1]

Thử sử dụng lsp này http://www.cadviet.com/forum/topic/157561-yeu-cau-nho-sua-lisp-udt/?p=391571

Chú ý lệnh TLDIA.

@Danh Cong: Biến DIMZIN.

Cảm ơn bác nhé. Nhưng sao em tải Lisp của bác về không dùng được nhỉ?

[quocmanh04tt 635]

Cảm ơn bác nhé. Nhưng sao em tải Lisp của bác về không dùng được nhỉ?

 

Câu hỏi thì dễ, nhưng câu trả lời thì khó quá!

CAD nó báo thế nào? F2 chụp hình gửi lên thì mới chẩn đoán lâm sàng được chứ!

[Danh Cong 422]

Sửa lại theo sở thích của bạn đây : Bạn xem ổn chưa. Lệnh "tgg".

 

Thank a #QuocManh đã giải đáp thắc mắc  :D  :D

 

http://www.cadviet.com/upfiles/6/124641_tgg_1.lsp

[namtrantt206xd 1]

Sửa lại theo sở thích của bạn đây : Bạn xem ổn chưa. Lệnh "tgg".

 

Thank a #QuocManh đã giải đáp thắc mắc  :D  :D

 

http://www.cadviet.com/upfiles/6/124641_tgg_1.lsp

Quá tuyệt vời. Đúng như mình muốn. Cảm ơn bạn rất nhiều nhé!