
huunhantvxdts
Thành viên-
Số lượng nội dung
409 -
Đã tham gia
-
Lần ghé thăm cuối
-
Ngày trúng
14
huunhantvxdts cuối cùng giành được ngày trong Tháng 4 9
huunhantvxdts có nội dung thích nhất!
Cộng đồng
70 (tàm tạm)About huunhantvxdts
- Hiện tại Xem Trang Diễn Đàn
-
Cấp bậc
biết lệnh block
-
NHỜ BỔ SUNG NỘI DUNG TRONG LISP "GHI CAO DO DIEM TREN TRAC NGANG by Thaistreetz"
huunhantvxdts đã trả lời toai trong Chủ đề AutoLisp
(command "_change" oldEntity "" "p" "c" "1" "") -
NHỜ BỔ SUNG NỘI DUNG TRONG LISP "GHI CAO DO DIEM TREN TRAC NGANG by Thaistreetz"
huunhantvxdts đã trả lời toai trong Chủ đề AutoLisp
Bạn xem cái này có hữu ích không?? -
[HELP] NHỜ SỬA LISP CHÈN BLOCK THEO FILE DCL
huunhantvxdts đã trả lời TrNghia.Do trong Chủ đề AutoLisp
Làm cái hình thôi mà, không biết đưa hình vô thế nào, nên đưa cai block vào, hehehe -
[HELP] NHỜ SỬA LISP CHÈN BLOCK THEO FILE DCL
huunhantvxdts đã trả lời TrNghia.Do trong Chủ đề AutoLisp
Cám ơn bác nhiều -
[HELP] NHỜ SỬA LISP CHÈN BLOCK THEO FILE DCL
huunhantvxdts đã trả lời TrNghia.Do trong Chủ đề AutoLisp
Vô đó tìm rồi mà không ra mới khổ chứ -
[HELP] NHỜ SỬA LISP CHÈN BLOCK THEO FILE DCL
huunhantvxdts đã trả lời TrNghia.Do trong Chủ đề AutoLisp
Đang tìm hàm LM:BlockPreview trên mạng mà không có Bác quocmanh04tt có cho mình xin với -
Lisp thay thế 1 cột Text trong Excel thay Thế các Text theo thứ tự được chọn trong Cad
huunhantvxdts đã trả lời lunapvt trong Chủ đề AutoLisp
Copy cot excell trước đã rồi đánh lệnh -
Vấn Đề Làm Thủ Công Khối Lượng Trên Trắc Ngang Đã Được Giải Quyết
huunhantvxdts đã trả lời huunhantvxdts trong Chủ đề Lập trình khác
Đã gửi cho bạn -
Lisp thay thế 1 cột Text trong Excel thay Thế các Text theo thứ tự được chọn trong Cad
huunhantvxdts đã trả lời lunapvt trong Chủ đề AutoLisp
Gửi bạn xem đã ok chưa???? (defun C:layt (/ oldos s text ndtext) (command "undo" "be") (setq oldos (getvar "OSMODE")) (setvar "cmdecho" 0) (setvar "osmode" 512) (setq s (GetClipBoardText)) (setq ndtext nil) (while (vl-string-search "\n" s) (setq text (substr s 1 (vl-string-search "\n" s))) (setq ndtext (cons (substr text 1 (- (strlen text) 1)) ndtext)) (setq s (substr s (+ 2 (vl-string-search "\n" s)))) ) (setq ndtext (reverse ndtext)) (foreach lst ndtext (thaythe lst) ) (setvar "osmode" oldos) (setvar "cmdecho" 1) (command "undo" "end") (princ ) ) (defun thaythe(s / giatrimoi giatricu thongtin) (setq giatriold (entsel "\nGia tri can thay the")) (while (or (null giatriold) (/= "TEXT" (cdr (assoc 0 (entget (car giatriold))))) ) (princ "\nDoi tuong khong phai la text! Chon lai") (setq giatriold (entsel "\nGia tri can thay the")) ) (setq thongtin (entget (car giatriold))) (setq giatricu (assoc 1 thongtin)) (setq giatrimoi (cons 1 s)) (setq thongtin (subst giatrimoi giatricu thongtin)) (entmod thongtin) (command "_change" giatriold "" "p" "c" "1" "") ) (defun GetClipBoardText( / htmlfile result ) ; By Patrick_35 (setq htmlfile (vlax-create-object "htmlfile") result (vlax-invoke (vlax-get (vlax-get htmlfile 'ParentWindow ) 'ClipBoardData) 'GetData "Text" ) ) (vlax-release-object htmlfile) result ) -
Lisp thay thế 1 cột Text trong Excel thay Thế các Text theo thứ tự được chọn trong Cad
huunhantvxdts đã trả lời lunapvt trong Chủ đề AutoLisp
Chắc tương tự cái ni -
(defun c:gfi() (setq ma (car (entsel))) (setq ma1 (entget ma)) (princ ma1) (princ) )
-
Vấn Đề Làm Thủ Công Khối Lượng Trên Trắc Ngang Đã Được Giải Quyết
huunhantvxdts đã trả lời huunhantvxdts trong Chủ đề Lập trình khác
Tìm trong thư rác hoặc gửi mail cho mình huunhantvxdts@gmail.com -
Vấn Đề Làm Thủ Công Khối Lượng Trên Trắc Ngang Đã Được Giải Quyết
huunhantvxdts đã trả lời huunhantvxdts trong Chủ đề Lập trình khác
Đã gửi cho bạn xem thêm clip bản hoàn thiện hơn -
ý là cái này chưa hiểu về các công đoạn mà chủ thớt làm
-
Chưa hiểu chủ thớt muốn làm cái gì??? 1 lần copy vào 1 sheet hay toàn bộ vào 1 sheets