ghi số thửa tự động

[tnmtpc 207]

Mìmh muốn dùng lisp để ghi số số thửa tự động vào các tâm thửa. Sau khi tạo các tâm thửa xong, gõ lệnh , chương trình tự động thực hiện, có file ví dụ gửi kèm

http://www.cadviet.com/upfiles/VD.dwg

[doanduyhung 40]

(defun c:ghiso(/)

(setq osmode_first (getvar "osmode"))

(setvar "osmode" 0)

(setq chonthua (ssget '((0 . "LWPOLYLINE"))))

(setq i 0)

(repeat (sslength chonthua)

(setq tungdoituong (ssname chonthua i))

(setq tungdoituong (vlax-ename->vla-object tungdoituong))

(setq toado (vlax-get-property tungdoituong 'coordinates))

(setq toado (vlax-safearray->list (variant-value toado)))

(setq j 0)

(setq xtrungbinh 0.00)

(setq ytrungbinh 0.00)

(repeat (/ (length toado) 2)

(setq xtrungbinh (+ xtrungbinh (nth j toado)))

(setq ytrungbinh (+ ytrungbinh (nth (+ j 1) toado)))

(setq j (+ j 2))

)

(setq xtrungbinh (/ xtrungbinh (/ (length toado) 2)))

(setq ytrungbinh (/ ytrungbinh (/ (length toado) 2)))

(command "text" (list xtrungbinh ytrungbinh) "1" "0" (rtos (+ i 1) 2 0))

(setq i (+ i 1))

)

(setvar "osmode" osmode_first)

(princ "http://doanduyhung.googlepages.com/")

(princ)

)

[tnmtpc 207]

Cám ơn sự nhiệt tình của Bác doanhuyHung nhưng chương trình chạy không đúng. Yêu cầu chương trình là :nhập lệnh->chọn đối tượng (là các point tâm thửa)->chương trình ghi số thửa theo nguyên tắc :bắt đầu từ phía trên- trái ghi sang bên phải, kết thúc "hàng trên", xuống "hàng dưới", ghi ngược lại (như đường hình sin ấy mà). Khái niệm " hàng" chỉ là tương đối thôi. Vị trí ghi text là các point với J là BC. Các Bác xem file VD thì biết ngay. Còn đây là kết quả chạy lisp của Bác doanhuyhung, mong bác nghiên cứu chỉnh lại giúp. Cám ơn nhiều

http://www.cadviet.com/upfiles/ketqua.dwg

[dvdcad 1]

cám ơn bạn doanhuyHung bạn có thể sửa lại theo ý mình được ko.viết một lisp vừa tạo tâm thửa vừa đánh số thứ tự lên dc ko. hoặc tính diện tích rồi ghi lên như vậy.cám ơn....

 

đây là VD

http://www.cadviet.com/upfiles/Drawing1_11.dwg

[tnmtpc 207]

cám ơn bạn doanhuyHung bạn có thể sửa lại theo ý mình được ko.viết một lisp vừa tạo tâm thửa vừa đánh số thứ tự lên dc ko. hoặc tính diện tích rồi ghi lên như vậy.cám ơn....

 

đây là VD

http://www.cadviet.com/upfiles/Drawing1_11.dwg

Mình cũng đang cần sự giúp đỡ như bạn, nhưng với file ví dụ của bạn thì không ai giúp được gì đâu. Bỡi vì sự liên hệ giữa các text và point (tâm thửa) trên bản vẽ của bạn quá tự do không theo nguyên tắc nào cả. Khi nhờ sự giúp đỡ của người khác, nên cẩn thận bạn ạ! Có như thế họ mới giúp được mình. Mấy dòng góp ý nhân tình.

Hy vọng file dưới đây, ý mình trùng ý bạn. Mong các Pro giúp đỡ

http://www.cadviet.com/upfiles/vd2_1.dwg

[tnmtpc 207]

Không có bác nào giúp mình lisp ghi số thửa tự động à, tiếc nhỉ.

[ssg 1.102]

Không có bác nào giúp mình lisp ghi số thửa tự động à, tiếc nhỉ.

Đúng ra, đây là "món nợ" của ssg đối với bạn từ cái "dự án" LCV dang dở! Tham vọng hơi lớn nên bị... tắc, chứ chỉ như thế này thì LCV làm tốt. Ssg sẽ biên tập lại cái LCV, có cả tính năng này. Chỉ có điều là, hãy cho ssg một ít... thời gian!