[Yêu cầu] Lisp insert field file name bỏ đi một số ký tự

[ngbmanh 0]

Gửi mọi người

Mình có 1 yêu cầu nho nhỏ mong mọi người giúp đỡ với.

Hiện tại mình có 1 file cad mình đặt tên là: ABC-XXX-C1

Nhưng mình chỉ muốn lấy insert field cho filename chỉ là: ABC-XXX tức là bỏ đi 3 ký tự cuối.

Mong mọi người giúp đỡ cái. Thank.

"chắc đề cũng rõ rồi, không phải chụp hình nữa chứ chủ thớt nhỉ"

[ketxu 2.983]

Chủ thớt chính là bạn mà ^^

[Thaistreetz 539]

=)) nửa đêm đọc bài này của bạn chủ thớt cười như điên!

Bạn Chủ thớt đâu rồi, mau vào giúp đỡ bạn chủ thớt đi =))

 

có fải bài này được tách ra từ topic khác không nhỉ? :lol:

[ngbmanh 0]

Hì, thông cảm nha, hôm qua về mệt quá, lâu rồi lại chưa quay lại forum

cáo lỗi cáo lỗi

[ketxu 2.983]

Vinh dự nhá ^^

http://www.cadviet.com/forum/index.php?showtopic=15687&view=findpost&p=197113

 

Về yêu cầu của bạn thì đây :

(defun c:test()(vl-load-com)
(vla-addmtext (vla-get-block (vla-get-activelayout(vla-get-activedocument (vlax-get-acad-object))))
           	(vlax-3d-point (getpoint "\nDiem chen Field"))
           	1
           	(strcat "%<$(substr, $(getvar, dwgname), 1 ,$(-, $(strlen, $(getvar, dwgname))," (itoa (getint "\nSo ky tu muon cat bot:")) ")) >%")
))

[ngbmanh 0]

Cảm ơn Moderator nhiều lắm.

[lankhoiphieudu 0]

Dear Moderator,

 

Nhờ bạn chỉnh dùm mình được ko. Cũng tương tự như ngbmanh, nhưng giả sử file của mình có số kí tự thay đổi, mình muốn lấy 1 vài ký tự tính từ bên trái (giả sử lấy 4 ký tự 21-22-23-24) thì như thế nào

Thanks bạn nhiều

[ketxu 2.983]

21-22-23-24 là 11 ký tự bạn ạ :D

[lankhoiphieudu 0]

Ý mình là kí tự thứ 23-24-25-26

Ví dụ: Mình có các file là :

ABC-XXXX-1-AS-RP-TP3-1221-00 Report of weight

ABC-XXXX-1-AS-RP-TP3-1268-00 Detail and Layout

ABC-XXXX-1-AS-RP-TP3-1297-00 Calculation

 

 

Giờ mình muốn lấy field của 1221-00 hoặc 1268-00 hoặc 1397-00 ấy, bạn giúp mình nhé

Thanks bạn nhiều

[lankhoiphieudu 0]

ban oi, ban co cach nao giup minh chua

[ketxu 2.983]

10 ngày rồi bạn mới ngó lại hén ^^ Dấu của bạn đâu ?

Bạn thử sửa dòng (strcat.....) thành :

(strcat "%<$(substr, $(getvar, dwgname)," (itoa (setq a (getint "\nBat dau tu so:"))) "," (itoa (getint "\nSo ky tu :")) ")>%")

xem có đúng không.

Srr vì mình ngồi máy k có CAD nên không test được

[lankhoiphieudu 0]

Thanks bạn, mình sẽ thử

[lankhoiphieudu 0]

Tình hình là ko được bạn ơi, bạn test lại giùm mình với

[ketxu 2.983]

K được là k đc thế nào ?

Mình chỉ thấy nó tự quy định ký tự đầu là dấu " ", cò chẳng thấy k được chỗ nào. Chủ đề đã trả lời cách đây 9 ngày, chả hiểu bạn có cần thật hay thích thì hỏi

(defun c:test()(vl-load-com)
(vla-addmtext (vla-get-block (vla-get-activelayout(vla-get-activedocument (vlax-get-acad-object))))
    		(vlax-3d-point (getpoint "\nDiem chen Field"))
    		1
    		(strcat "%<$(substr, $(getvar, dwgname)," (itoa (1+ (setq a (getint "\nBat dau tu so:")))) "," (itoa (getint "\nSo ky tu :")) ")>%")
))

Nói luôn là diễn đàn k đồng tình việc tạo 2 hoặc nhiều nick để hút máu mọi người đâu. Bạn có thắc mắc thì cứ hỏi, ai cũng hỏi cả mà, không việc chi phải thay tên đổi nick bạn ạ :)

[lankhoiphieudu 0]

Dear bạn,

 

Thanks bạn nhiều, mình đã thử lại và đã ok. Sorry bạn vì gần đây mình phải đi công tác liên tục nên ko thường xuyên vào diễn đàn được. Thực sự là mình đang rất cần Lisp này để set-up 1 số form trong công việc bạn ạ. Thanks bạn 1 lần nữa nhé!

(À, mình chỉ có 1 nick này thôi bạn ạ, ko còn nick thứ 2 nữa đâu) Thanks so much!

[ketxu 2.983]

ngbmanh (IP: 113.161.128.48)

 

 

lankhoiphieudu (IP: 113.161.128.48)

[lankhoiphieudu 0]

ngbmanh (IP: 113.161.128.48)

 

 

lankhoiphieudu (IP: 113.161.128.48)

 

À, mình và ngbmanh làm cùng công ty, xài máy công ty nên chắc IP nó giống nhau bạn ạ

[LoveLisp 21]

Mình cũng tương tự, muốn lấy tên của Layer bỏ đi một số ký tự đầu tiên thì làm sao hả bạn? Ví dụ tên layer là "abc123" thì chỉ lấy "123" thôi.

[Doan Van Ha 3.180]

Đổi tên layer hay chỉ lấy tên rồi cắt đầu nó? Cắt xong thì làm gì? Xuất đi đâu?...

[LoveLisp 21]

Dạ, yêu cầu thế này bác ạ:

- Chỉ lên một đối tượng để lấy tên layer

- Cắt đầu nó n ký tự

- Đè lên một cái text có sẵn

Cám ơn bác Hạ!

[ketxu 2.983]

Bạn tự sử dụng Field Layer để phát hiện ra công thức, sau đó tìm hàm GetObjectID64 trên diễn đàn, strcat cái công thức + ObjectID ghi đè lên text, thế là có cái bạn cần, bạn thử làm xem sao :) Mình đoán mất mấy phút thôi ^^

[Doan Van Ha 3.180]

Dạ, yêu cầu thế này bác ạ:

- Chỉ lên một đối tượng để lấy tên layer

- Cắt đầu nó n ký tự

- Đè lên một cái text có sẵn

Cám ơn bác Hạ!

(defun C:HA( / num ent1 ent2 lay)
(initget 7) (setq num (getint "\nSo ky tu can cat bot: "))
(while
 (and
  (setq ent1 (car (entsel "\nChon 1 doi tuong de lay Layer: ")))
  (setq ent2 (car (entsel "\nChon 1 Text de ghi len no: "))))
 (if (> (strlen (setq lay (cdr (assoc 8 (entget ent1))))) num)
  (vla-put-textstring (vlax-ename->vla-object ent2) (substr lay (1+ num))))))

[LoveLisp 21]

Thật tình mình không rành về các hàm VBA. Lần trước về tên file, mình thấy ketxu lập bằng diesel, cái này thì mình biết. Nhưng diesel không lấy thông tin của đối tượng được! Mình sẽ tìm hiểu sau vậy, tạm thời bây giờ mong được các bác giúp đỡ, xin cám ơn nhiều! :)

[LoveLisp 21]

(defun C:HA( / num ent1 ent2 lay)
(initget 7) (setq num (getint "\nSo ky tu can cat bot: "))
(while
 (and
  (setq ent1 (car (entsel "\nChon 1 doi tuong de lay Layer: ")))
  (setq ent2 (car (entsel "\nChon 1 Text de ghi len no: "))))
 (if (> (strlen (setq lay (cdr (assoc 8 (entget ent1))))) num)
  (vla-put-textstring (vlax-ename->vla-object ent2) (substr lay (1+ num))))))

 

Cám ơn bác Hạ! Mình muốn text này liên kết động với tên layer được không bác? Nghĩa là lúc mình đổi tên layer thì nó cũng thay đổi theo ấy!

[ketxu 2.983]

Thật tình mình không rành về các hàm VBA. Lần trước về tên file, mình thấy ketxu lập bằng diesel, cái này thì mình biết. Nhưng diesel không lấy thông tin của đối tượng được! Mình sẽ tìm hiểu sau vậy, tạm thời bây giờ mong được các bác giúp đỡ, xin cám ơn nhiều! :)

Sao lại hàm VBA ở đây bạn ^^ Bạn đã thử như mình nói chưa ? Và bạn dùng Field chưa (Field -> Object -> Select Object -> Property Layer )

Cấu trúc đoạn string sẽ dạng này :

 

%<\AcObjProp Object(%<\_ObjId 2130326624>%).Layer>%