Chuyển đến nội dung
Diễn đàn CADViet
Nguyen Hoanh

Viết Lisp theo yêu cầu

Bởi Nguyen Hoanh , trong AutoLisp

Các bài được khuyến nghị

Sony2007    86

Sony2007
Đã đăng
Nhờ các bác giúp em việc này cái, trong 1 bản vẽ có bảng thống kê thép đ­ược tạo bởi phần mềm thống kê thép. Để sửa bảng này rất mất công là kích vào sửa từng dòng, giờ em muốn chuyển bảng này ra Cad để sửa cho tiện lợi. Mong các bác chỉ dùm cách hoặc có lisp gì làm được việc đó cho em xin với. Đây là file Cad có bảng TK thép mà em cần chuyển: http://www.cadviet.com/upfiles/XA_CAT_V_16.rar

Mong có hồi âm sớm, xin cảm ơn nhiều!

Chọn Express > Blocks > Explode attributes to text > chọn các đối tượng của bảng thống kê là OK. Thử đi nhé

  • Vote tăng 1

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

cuongtk2    356

cuongtk2
Đã đăng
Nhờ các bác giúp em việc này cái, trong 1 bản vẽ có bảng thống kê thép đ­ược tạo bởi phần mềm thống kê thép. Để sửa bảng này rất mất công là kích vào sửa từng dòng, giờ em muốn chuyển bảng này ra Cad để sửa cho tiện lợi. Mong các bác chỉ dùm cách hoặc có lisp gì làm được việc đó cho em xin với. Đây là file Cad có bảng TK thép mà em cần chuyển: http://www.cadviet.com/upfiles/XA_CAT_V_16.rar

Mong có hồi âm sớm, xin cảm ơn nhiều!

Đây là bảng thống kê thép tròn dùng lisp tk.lsp hay là tkn.exp rất nhiều người dùng, bạn nên down lisp dó về mài xài, đừng xuất attribute sang text, thế thì còn gi` là thống kê nữa.

Rất tiếc mình đã xoá nó mất rồi, bạn nên tìm trong diễn đàn mình có đấy

  • Vote tăng 1

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

shinnikel    1

shinnikel
Đã đăng
11.jpg

Nhờ các bạn Cadviet viết dùm lisp tính diện tích tấm kim loại các bước thực hiện như sau: "Gọi lệnh - Chọn các kt bề mặt (phải chuột kết thúc lệnh)- chọn vào chiêù dài L= (hoặc nhập số)- pick vào đôí tượng text cho ra diện tích tính bằng m2 (không cần điền đơn vị vào) :s_big:

 

 

 

KHÔNG AI GIUP MÌNH A.

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

VoHoan    6

VoHoan
Đã đăng
Nhờ các bác giúp em việc này cái, trong 1 bản vẽ có bảng thống kê thép đ­ược tạo bởi phần mềm thống kê thép. Để sửa bảng này rất mất công là kích vào sửa từng dòng, giờ em muốn chuyển bảng này ra Cad để sửa cho tiện lợi. Mong các bác chỉ dùm cách hoặc có lisp gì làm được việc đó cho em xin với. Đây là file Cad có bảng TK thép mà em cần chuyển: http://www.cadviet.com/upfiles/XA_CAT_V_16.rar

Mong có hồi âm sớm, xin cảm ơn nhiều!

 

Em đã làm được rồi, cám ơn các bác đã quan tâm giúp đỡ.

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

conghoan1003    0

conghoan1003
Đã đăng

Các bác giúp mình viết cái lisp lấy số liệu từ cad đưa qua excel với.

File cad: http://www.cadviet.com/upfiles/load_2.dwg

File Excel: http://www.cadviet.com/upfiles/load.xls

Mình đưa ra ý tưởng thế này nhé:

- Khi mình chạy lisp thì nó hỏi chọn những giá trị cần nhập vào bảng Excel.

- Sau đo mình quyét tấc cả các giá trị trong 1 bảng (Chỉ có các text cần nhập giá trị vào excel còn lại ẩn đi hết). Sau đó ấn Enter thì các giá trị đó sẽ sắp xếp theo thứ tự: giá trị nào ở trên thì nằm bên trái, giá trị nào ở dưới thì nằm bên phải (cùng nằm trên một dòng trong file notepad sau đó dùng excel mở ra)

- Sau quét giá trị của bảng tiếp theo (trong cad) nó lại tự động sắp xếp tương tự ở hàng phía dưới trong file notepad.

- Cứ thế cho đến khi xong thì mình sẽ co một file notepad chứa các giá trị cần nhập, rồi mình chỉ cần lấy excel mở ra rồi coppy bỏ qua bảng khối lượng của mình.

Đó là ý tưởng của mình các bác tham khảo và viết giúp mình nhé!

Mình đang cần gấp lắm bác nào biết giúp mình với nhé. Thank!

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

thiep    365

thiep
Đã đăng
Các bác giúp mình viết cái lisp lấy số liệu từ cad đưa qua excel với.

File cad: http://www.cadviet.com/upfiles/load_2.dwg

File Excel: http://www.cadviet.com/upfiles/load.xls

...

Mình đang cần gấp lắm bác nào biết giúp mình với nhé. Thank!

Thật ra dữ liệu cần lấy ra của bạn chỉ là 23 số trong cột (S,L,.. ), còn trong bảng excel đã định dạng sẵn rồi, chờ một chút nhé.

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

shinnikel    1

shinnikel
Đã đăng
Có phải Lisp này không:

http://www.cadviet.com/upfiles/adim.lsp

Thật ra, không phải không ai giúp bạn đâu, có khi vì công việc bạn rộn thôi

 

 

Cám on bạn đã tặng Lisp mình đã sửa lại theo ý muốn nhưng vẩn chưa chèn dược kết quả vô text cho trước nhờ bạn hoàn thiện dùm .

 

 

 

(defun phay (soTP)

(vl-string-subst "," "." soTP)

)

;------------------------------

(defun ss2ent (ss / i Le e)

(setq i 0

Le nil

)

(repeat (sslength ss)

(setq

e (ssname ss i)

Le (append Le (list e)) ;bang list ten LWP

i (1+ i)

)

)

Le

)

;;;------------------------------------------------

(defun DXF (code en) (cdr (assoc code (entget en))))

;-----------------

(defun c:Adim ()

(princ "\nChon cac canh cua tam nhom: ")

(setq ssDc (ssget '((0 . "DIMENSION")))

chieucao 0

enLdc (ss2ent ssDc)

)

(foreach nLdc enLdc

(setq textdim (dxf 42 nLdc))

(setq chieucao (+ chieucao textdim))

)

(setq ssDd (entsel "\nChon kich thuoc chieu dai: ")

chieudai (dxf 42 (car ssDd ))

)

(setq dientich (* chieucao (/ chieudai 1000000)))

(princ

(strcat "\nDien tich cua Nhom la: " (phay (rtos dientich 2 4)) " m2" (chr 178))

)

(princ)

)

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

thiep    365

thiep
Đã đăng
Cám on bạn đã tặng Lisp mình đã sửa lại theo ý muốn nhưng vẩn chưa chèn dược kết quả vô text cho trước nhờ bạn hoàn thiện dùm .

Bạn sửa đoạn này

(setq ssDd (entsel "\nChon kich thuoc chieu dai: ")

chieudai (dxf 42 (car ssDd ))

)

thành:

(setq chieudai (getreal "\nChieu dai: "))

 

Như ý muốn.

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

thiep    365

thiep
Đã đăng
Thật ra dữ liệu cần lấy ra của bạn chỉ là 23 số trong cột (S,L,.. ), còn trong bảng excel đã định dạng sẵn rồi, chờ một chút nhé.

Bạn dùng tạm lisp này nhé:

http://www.cadviet.com/upfiles/SLB.lsp

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

VoHoan    6

VoHoan
Đã đăng
Các bác giúp mình viết cái lisp lấy số liệu từ cad đưa qua excel với.

File cad: http://www.cadviet.com/upfiles/load_2.dwg

File Excel: http://www.cadviet.com/upfiles/load.xls

Mình đưa ra ý tưởng thế này nhé:

- Khi mình chạy lisp thì nó hỏi chọn những giá trị cần nhập vào bảng Excel.

- Sau đo mình quyét tấc cả các giá trị trong 1 bảng (Chỉ có các text cần nhập giá trị vào excel còn lại ẩn đi hết). Sau đó ấn Enter thì các giá trị đó sẽ sắp xếp theo thứ tự: giá trị nào ở trên thì nằm bên trái, giá trị nào ở dưới thì nằm bên phải (cùng nằm trên một dòng trong file notepad sau đó dùng excel mở ra)

- Sau quét giá trị của bảng tiếp theo (trong cad) nó lại tự động sắp xếp tương tự ở hàng phía dưới trong file notepad.

- Cứ thế cho đến khi xong thì mình sẽ co một file notepad chứa các giá trị cần nhập, rồi mình chỉ cần lấy excel mở ra rồi coppy bỏ qua bảng khối lượng của mình.

Đó là ý tưởng của mình các bác tham khảo và viết giúp mình nhé!

Mình đang cần gấp lắm bác nào biết giúp mình với nhé. Thank!

Bạn thử dùng list này xem có vừa y không: http://www.cadviet.com/upfiles/Chyen_SL_sang_Excel.rar

Để có kết quả như ý muốn bạn có thể xử lý số liệu ngay trong Cad trước khi xuất ra Excel hoặc sau khi xuất ra Excel rồi xử lý cũng được.

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

conghoan1003    0

conghoan1003
Đã đăng
Bạn dùng tạm lisp này nhé:

http://www.cadviet.com/upfiles/SLB.lsp

cảm ơn bạn đã giúp đỡ, mình thấy cái này còn bất tiện ở chổ sau mỗi lần chọn thì nó lại hỏi mở một file. Mình muốn như thế này:

Sau khi chạy lisp thì nó hỏi lưu file vào chỗ nào

Sau đó mình chọn đối tượng rồi ấn enter thì nó sẽ lưu vào file đó. Rồi chọn đối tượng khác (mặt cắt khác) rồi ấn enter thì nó sẽ tiếp tục lưu vào file trên (ở dòng bên dưới của lần chọn trước)

Với lại khi mình dùng excel mở ra thì mỗi dòng nó lại nằm trong một ô trong excel (nhiều số cùng nằm trong một ô). Mình muốn mỗi số mỗi ô(mỗi text trong cad mỗi ô trong excel), như thế mình mới tính toán được.

Thank!

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Snowman    92

Snowman
Đã đăng
cảm ơn bạn đã giúp đỡ, mình thấy cái này còn bất tiện ở chổ sau mỗi lần chọn thì nó lại hỏi mở một file. Mình muốn như thế này:

Sau khi chạy lisp thì nó hỏi lưu file vào chỗ nào

Sau đó mình chọn đối tượng rồi ấn enter thì nó sẽ lưu vào file đó. Rồi chọn đối tượng khác (mặt cắt khác) rồi ấn enter thì nó sẽ tiếp tục lưu vào file trên (ở dòng bên dưới của lần chọn trước)

Với lại khi mình dùng excel mở ra thì mỗi dòng nó lại nằm trong một ô trong excel (nhiều số cùng nằm trong một ô). Mình muốn mỗi số mỗi ô(mỗi text trong cad mỗi ô trong excel), như thế mình mới tính toán được.

Thank!

Xin fép tác giả, em cải biên đoạn lisp này đi một chút (nhân tiện có việc cần dùng đến :lol2: Em có một cái trích xuất cả bảng dữ liệu sang excel nhưng chỉ tiện cho việc trình bày, ko tiện thống kê khối lượng)

(defun ss2ent (ss / i Le e)
 (setq	i  0
Le nil
 )
 (repeat (sslength ss)
   (setq
     e	 (ssname ss i)
     Le (append Le (list e))
     i	 (1+ i)
   )
 )
 Le
)
				;---------------------
(defun c:slb ()
 (command "undo" "be")
 (setvar "osmode" 0)

 (princ "\nSelect all texts of column S,L,B... ")
 (setq strlst '()
)
 (while
   (setq ssT (ssget '((0 . "text"))))
    (setq
      LenT (ss2ent sst)
    )
    (setq strnum "")
    (foreach enT LenT
      (redraw enT 3)
      (setq objText (vlax-ename->vla-object enT))
      (setq num (vlax-get-property objText 'TextString))
      (setq strnum (strcat strnum num "\t"))
    )
    (setq strlst (append strlst (list strnum)))
    (princ "\nSelect all texts of column (S,L,:D: ")
 )
 ;;---------------xuat ra file----------------
 (if flag
   (setq fn (getfiled "select file: " "" "xls" 8)
  f  (open fn "a")
   )
   (setq fn (getfiled "select file: " "" "xls" 1)
  f  (open fn "a")
  flag T
   )
 )
 (if ctl

 (setq
   ctl	(1+ ctl)
 )
 (setq
   ctl	1
 )
   )

 (foreach strline Strlst
   (setq Brkline (strcat "Du lieu trac ngang thu: " (itoa ctl))
  ctl	  (1+ ctl)
   )
   (write-line Brkline f)
   (write-line Strline f)
 )
 (close f)
 (command "REGENALL")
 (command "undo" "end")
 (princ "\nThank you for used my lisp - THIEP 0918841230")
 (princ)
)

(Cái codebox này vẫn chưa bỏ được lỗi emotion nhỉ paste code vào mà ko để ý là hỏng luôn)

(Lâu lắm rồi mới "tái xuất" CADVIET :lol2: )

  • Vote tăng 1

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

shinnikel    1

shinnikel
Đã đăng
Bạn sửa đoạn này

(setq ssDd (entsel "\nChon kich thuoc chieu dai: ")

chieudai (dxf 42 (car ssDd ))

)

thành:

(setq chieudai (getreal "\nChieu dai: "))

 

Như ý muốn.

 

 

Ý cùa mình không phải là mình đánh kt L= vô mình chì muốn điền kết quả vô text đã có sẳn trong bv thôi, Với lại lisp này cho ra kết quả sai đối với các kt giả bạn có thể chỉnh lại chút cho mình được không.Mình có 1 kho lisp của Japan hổ trợ vẽ và kiểm tra rất tôt nhưng lại hô trợ dộc quyền cho font Nhật và khung bv mẫu của nó mà thôi giờ mình cũng không thể sd được nếu rảnh các bạn có thể xem và chỉnh sửa dùm mình được ko mong các bạn cadViet có thể hổ trọ cho công việc của mình chân thành cảm ơn nhiều. :lol2:

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tue_NV    3.912

Tue_NV
Đã đăng (Đă chỉnh sửa)
Ý cùa mình không phải là mình đánh kt L= vô mình chì muốn điền kết quả vô text đã có sẳn trong bv thôi, Với lại lisp này cho ra kết quả sai đối với các kt giả bạn có thể chỉnh lại chút cho mình được không.Mình có 1 kho lisp của Japan hổ trợ vẽ và kiểm tra rất tôt nhưng lại hô trợ dộc quyền cho font Nhật và khung bv mẫu của nó mà thôi giờ mình cũng không thể sd được nếu rảnh các bạn có thể xem và chỉnh sửa dùm mình được ko mong các bạn cadViet có thể hổ trọ cho công việc của mình chân thành cảm ơn nhiều. :lol2:

Lời đầu tiên, Tue_NV muốn nhắn đến bạn là bạn hãy đọc bài viết này : Bài viết số 2082. Topic "Viết Lisp theo yêu cầu"

 

Còn đây là Code mà Tue_NV viết theo ý của bạn : 

(defun c:Adim(/ ss n i S duyet ent L entt Lnhan)
(prompt "\nChon cac canh cua tam nhom: ")
(setq ss (ssget '((0 . "DIMENSION"))))
(setq n (sslength ss) i 0 S 0 duyet 0)

(while ((setq ent (entget(ssname ss i)))

(if (= (cdr(assoc 1 ent)) "")
(setq duyet (cdr(assoc 42 ent)))
(setq duyet (atof(cdr(assoc 1 ent))))
)
(setq S (+ S duyet))
(setq i (1+ i))
)

(setq L (getreal "\n Nhap so L = hoac Enter de chon DIMENSION chieu dai : "))
(setq Lnhan L)

(if (null L) 
(progn
(setq L (car(entsel "\nChon kich thuoc chieu dai : ")))

(setq entt (entget L))

(if (= (cdr(assoc 1 entt)) "")
(setq Lnhan (cdr(assoc 42 entt)))
(setq Lnhan (atof(cdr(assoc 1 entt))))
)
)
)

(setq te (entget(car(entsel "\n Pick chon Text can xuat ket qua :"))))
(setq te (subst(cons 1 (strcat(rtos (/ (* S Lnhan) 1000000) 2 4) " m2")) (assoc 1 te) te))
(entmod te)

(princ)
)

:lol2:

Chỉnh sửa theo Tue_NV
  • Vote tăng 2

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

shinnikel    1

shinnikel
Đã đăng

Lời đầu tiên, Tue_NV muốn nhắn đến bạn là bạn hãy đọc bài viết này : Bài viết số 2082. Topic "Viết Lisp theo yêu cầu"

 

Cám ơn Tue_NV đã sửa lại lisp cho mình, Bài viết số 2082 mình đã từng đọc wa rồi ngày nào mình cũng vào Topic "Viết Lisp theo yêu cầu" để đọc cả công việc của mình đòi hỏi phải sd kích thước giả nên bạn có thể chấp nhận cho mình nhé. Trong Topic "Viết Lisp theo yêu cầu" Tue_NV coi nó là nhà của mình thì bản thân tôi cũng như bạn vậy vì không đóng góp gì cho diễn đàng nên không dám lên tiếng thôi mình chỉ âm thầm học hỏi và nhận quà của các bạn tặng :lol2: .Giờ này tôi vẩn còn làm đây nè :lol2: huhu... Chúc các thành viên trong Topic này gặt hái dược nhiều thành công trong công viêc

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

conghoan1003    0

conghoan1003
Đã đăng
Xin fép tác giả, em cải biên đoạn lisp này đi một chút (nhân tiện có việc cần dùng đến :lol2: Em có một cái trích xuất cả bảng dữ liệu sang excel nhưng chỉ tiện cho việc trình bày, ko tiện thống kê khối lượng)

Snowman xem lại cái này thử sao vẫn không dung được.

hôm trước Thiêp có cho mìh cái lisp chạy cũng tốt nhưng mà chưa đúng ý mình lắm, ai biết giúp mình với.

Mình muốn có một cái lisp nhập khối lượng từ cad qua excel. nó thực hiện như sau:

- Khi chạy lisp hỏi lưu file (.txt) vào chổ nào.

- Sau đó quét ký tự text cần nhập, sau khi ent se lưu các text vào file vừa lưu (text nào nằm trênlưu bên trái rồi text nằm dưới lưu bên phải)

- Rồi tiếp tục chọn các text khác, sau khi ent se lưu tiếp vào file (.txt) trước. (Lưu vào dòng phía dưới của dòng lưu trước)

- Để kết thúc lênh ấn Esc.

thanhk!

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

phamthanhbinh    3.146

phamthanhbinh
Đã đăng
có ai giúp mình ko vậy kìa

Chào bạn Ngocthinh84,

Mình đã xem cái bản v4 bạn gửi nhưng vẫn chưa hiểu rõ lắm ý bạn hỏi. Có lẽ bạn nên gửi một thằng mẫu trước khi dùng líp và một thằng hình bạn muốn có nó sau khi dùng líp để mọi người dễ hiểu vấn đề hơn bạn ạ.

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

thiep    365

thiep
Đã đăng
Mình có 1 kho lisp của Japan hổ trợ vẽ và kiểm tra rất tôt nhưng lại hô trợ dộc quyền cho font Nhật và khung bv mẫu của nó mà thôi giờ mình cũng không thể sd được nếu rảnh các bạn có thể xem và chỉnh sửa dùm mình được ko mong các bạn cadViet có thể hổ trọ cho công việc của mình chân thành cảm ơn nhiều. :lol2:

Ngôn ngữ Lisp là ngôn ngữ chung mà lận? Tôi đang học tiếng Campuchia để qua làm việc bên đó. Có thể tôi cũng dịch được Lisp của Nhật bổn bằng tiếng Campuchia! Bạn cứ mạnh dạng uploat thử xem?

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

conghoan1003    0

conghoan1003
Đã đăng
Ngôn ngữ Lisp là ngôn ngữ chung mà lận? Tôi đang học tiếng Campuchia để qua làm việc bên đó. Có thể tôi cũng dịch được Lisp của Nhật bổn bằng tiếng Campuchia! Bạn cứ mạnh dạng uploat thử xem?

A! Anh Thiệp đinh đi CPC hả? Có nhận đệ tử đi cùng không? em cũng thích đi làm ở nước ngoài lắm. Anh cho em đi với!

Xin lỗi admin vì đã post không đúng vị trí nha!

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

thiep    365

thiep
Đã đăng
Snowman xem lại cái này thử sao vẫn không dung được.

hôm trước Thiêp có cho mìh cái lisp chạy cũng tốt nhưng mà chưa đúng ý mình lắm, ai biết giúp mình với.

Mình muốn có một cái lisp nhập khối lượng từ cad qua excel. nó thực hiện như sau:

- Khi chạy lisp hỏi lưu file (.txt) vào chổ nào.

- Sau đó quét ký tự text cần nhập, sau khi ent se lưu các text vào file vừa lưu (text nào nằm trênlưu bên trái rồi text nằm dưới lưu bên phải)

- Rồi tiếp tục chọn các text khác, sau khi ent se lưu tiếp vào file (.txt) trước. (Lưu vào dòng phía dưới của dòng lưu trước)

- Để kết thúc lênh ấn Esc.

thanhk!

Lisp của Snowman, không có sai gì, chạy rất tốt, chỉ có điều khi copy lisp vào CODEBOX, nó bị lỗi ở dòng sau:

(princ "\nSelect all texts of column (S,L, " alt=cool.gif src="style_emoticons/default/cool.gif" border=0 emoid="B)">: "))

bạn chỉnh sửa lại:

(princ "\nSelect all texts of column (S,L,...): ")

Còn việc đi làm ở CPC ư, rừng thiêng, nước độc, thú dữ, bom mìn ... còn đầy. Đi 2 về 1, còn 1 phải vô bệnh viện! conghoan còn muốn làm đệ tử nữa không?

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

conghoan1003    0

conghoan1003
Đã đăng
Bạn dùng tạm lisp này nhé:

http://www.cadviet.com/upfiles/SLB.lsp

Rừng thiêng nước độc nói nghe ghê quá đi, rừng thiêng thì không sợ nhưng e chỉ sợ thất nghiệp thôi. hi hi

Uh! Anh Thiệp xem lại cái này giúp em với sao nó chạy mà không đúng gì hết. Em muốn nó sắp xếp theo thứ tự từ trên xuống thì khi chuyển qua file excel là từ trái sang phải.

Mà kết quả chẳng đúng, thậm chí còn có cái nó bỏ quên đâu mất mấy cái text của em nữa chứ. Cuối tuần này xuất hồ sơ rồi định đem ra áp dựng mà chẳng được chắc phải ngồi nhập từng số quá!

Thank!

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

http://www.cadviet.com/upfiles/khoiluong.txt

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

thiep    365

thiep
Đã đăng
Anh Thiệp xem lại cái này giúp em với sao nó chạy mà khong đúng gì hết. Em muốn nó sắp xếp theo thứ tự từ trên xuống thì khi chuyển qua file excel là từ trái sang phải.

Mà kết quả chẳng đúng, thậm chí còn có cái nó bỏ quên đâu mất.

Thank!

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

http://www.cadviet.com/upfiles/khoiluong.txt

Cad rất nhớ những đối tượng nào bạn tạo ra trước, DT nào tạo ra sau. Khi bạn chọn một bó đối tượng, nó sẽ sắp xếp DT nào bạn tạo ra trước sẽ đưa ra xử lý trước, (sẽ in ra trước trong file *.txt). Còn bỏ quên thì cad không quên đâu, chỉ có trường hợp bạn vừa chọn, vừa pan, zoom cho lớn rõ, những đối tượng đã chọn vượt ra khỏi màn hình, thì cad sẽ quên một số đối tượng không nhìn thấy này. khi chọn xong bạn phải zoom lại màn hình.

Thiep sẽ thêm một đoạn mã sắp xếp cho bạn. Chờ chút nhé, đang tiếp khách.

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

conghoan1003    0

conghoan1003
Đã đăng
Cad rất nhớ những đối tượng nào bạn tạo ra trước, DT nào tạo ra sau. Khi bạn chọn một bó đối tượng, nó sẽ sắp xếp DT nào bạn tạo ra trước sẽ đưa ra xử lý trước, (sẽ in ra trước trong file *.txt). Còn bỏ quên thì cad không quên đâu, chỉ có trường hợp bạn vừa chọn, vừa pan, zoom cho lớn rõ, những đối tượng đã chọn vượt ra khỏi màn hình, thì cad sẽ quên một số đối tượng không nhìn thấy này. khi chọn xong bạn phải zoom lại màn hình.

Thiep sẽ thêm một đoạn mã sắp xếp cho bạn. Chờ chút nhé, đang tiếp khách.

Thì ra là thế! hèn chi nó nhảy lung tung em chẳng biết đâu mà lần. làm phiền anh Thiệp nhiều qua rồi!

Cam ơn anh nhiều!

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Khách
Chủ đề này bây giờ đã bị đóng lại để trả lời thêm.
Về Đầu Trang AutoLisp
×