Chuyển đến nội dung
Diễn đàn CADViet
Học AutoCAD Online cùng CADViet

huunhantvxdts

Thành viên
 Xem Hồ Sơ  Xem hoạt động của họ

  • 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

  1. (command "_change" oldEntity "" "p" "c" "1" "")
  2. Bạn xem cái này có hữu ích không??

  3. [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

  4. [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

  5. [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ứ

  6. [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
  7. Copy cot excell trước đã rồi đánh lệnh
  8. Đã gửi cho bạn
  9. 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 )
  10. Chắc tương tự cái ni

  11. Hỏi về mã dxf 11 của Text

    huunhantvxdts đã trả lời Danh Cong trong Chủ đề AutoLisp

    (defun c:gfi() (setq ma (car (entsel))) (setq ma1 (entget ma)) (princ ma1) (princ) )
  12. Tìm trong thư rác hoặc gửi mail cho mình huunhantvxdts@gmail.com
  13. Đã gửi cho bạn xem thêm clip bản hoàn thiện hơn

  14. Cần hỗ trợ thêm tính năng cho Lisp

    huunhantvxdts đã trả lời hypepol trong Chủ đề AutoLisp

    ý là cái này chưa hiểu về các công đoạn mà chủ thớt làm

  15. Cần hỗ trợ thêm tính năng cho Lisp

    huunhantvxdts đã trả lời hypepol trong Chủ đề AutoLisp

    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
×