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

840244

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

  • Số lượng nội dung

    12

  • Đã tham gia

  • Lần ghé thăm cuối

Bài đăng được đăng bởi 840244

  3. Đã đăng · Trả lời báo cáo

    Thanks anh KETXU nhìu nhé !

    Phiền anh KETXU bổ xung thêm dòng lệnh ghi giá trị của Line type scale của đối tượng hiện tại để tiện so sánh đc ko ạ ? Nếu có nhiều đối tượng được chọn 1 lúc mà chúng có line type scale khác nhau thì mình xuất giá trị của cái đầu tiên được chọn ạ !

  7. Đã đăng · Trả lời báo cáo

    hì.Ngon rồi. Lúc em post yêu cầu lên em có post thêm cái dòng nhờ anh cho thêm cái dòng lệnh hiển thị chiều cao text hiện tại để mình tiện so sánh ( nếu nó có nhiều text được chọn có chiều cao khác nhau thì hiển thị cái đầu tiên được chọn ) nhưng chắc do mạng lỗi sao ý nên nó không cập nhật được. hic hic ! Lúc nào rảnh anh thêm giúp em nhé ! Thanks anh nhiều ạ !

    Em thêm cái dòng đó vào mà ko đc. hì

    ;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=60254&pid=183606&st=0entry183606
;Doan Van Ha - CADViet.com. 27-11-2011. Thay doi chieu cao Text/Mtext.
(defun C:HTT (/ ss i hei)
(vl-load-com)
(setq i 0)
(princ "\nChon cac Text/Mtext can thay doi chieu cao...")
(setq ss (ssget '((-4 . "<OR") (0 . "MTEXT") (0 . "TEXT") (-4 . "OR>"))))
(if ss
 (progn
  (or size (setq size  (getvar "textsize")))
 (prompt (strcat "\nChieu cao chu hien tai = " (rtos size 2 2)))
  (setq hei (getdist (strcat "\nChieu cao moi <" (rtos size 2) ">: ")))
  (if (= hei nil) (setq hei size) (setq size hei))
  (repeat (sslength ss)
(vla-put-height (vlax-ename->vla-object (ssname ss i)) hei)
(setq i (1+ i)))))
(princ))

  8. Đã đăng · Trả lời báo cáo

    840244 chú ý quy định về đặt yêu cầu ở box nhé!

     

    Đặt Linetype:

    (defun C:test ( / ss d);
(grtext -1 "Free Lisp from Cadviet @Ketxu")
(cond ( (and (setq  ss (ssget (list (cons 0 "*LINE,ARC,CIRCLE"))))
(setq d (getreal "\nLineType Scale :"))
(vl-load-com)
(setq ss (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object))))
 )
 (vlax-for obj ss (vla-put-LinetypeScale obj d))
)
((princ "\nError!"))
)
(princ)
)

    Thanks anh KETXU nhìu nhé !

  9. Đã đăng · Trả lời báo cáo

     

    Thay đổi chiều cao Text/Mtext

    ;Doan Van Ha - CADViet.com. 27-11-2011. Thay doi chieu cao Text/Mtext.
(defun C:HT (/ ss i heig size)
(vl-load-com)
(setq i 0)
(princ "\nChon cac Text/Mtext can thay doi chieu cao...")
(setq ss (ssget '((-4 . "<OR") (0 . "MTEXT") (0 . "TEXT") (-4 . "OR>"))))
(if ss
 (progn
  (setq size (getvar "textsize"))
  (setq hei (getdist (strcat "\nSpecify text height <" (rtos size 2) ">: ")))
  (if (= hei nil) (setq hei size))
  (repeat (sslength ss)
(vla-put-height (vlax-ename->vla-object (ssname ss i)) hei)
(setq i (1+ i)))))
(princ))

     

     

    Cảm ơn anh DVH, nhưng anh xem lại cái Rtos giúp em với. Nó luôn luôn lưu giá trị là 2, mà cái cần lưu là giá trị nhập của lần trước ạ !

  11. Đã đăng · Chỉnh sửa theo ketxu
    Sai quy định     · Trả lời báo cáo

    Em cần 2 lisp như ở tiêu đề. Sở dĩ phải dùng lisp vì mình hay phải chọn đối tượng, Mo rồi chỉnh xong thì tắt cái bảng properties đó đi. Mất công bật tắt khi chỉ phải chỉnh 1 thông số. CAD 2007 không có tính năng auto hide cái bảng đó. Xin các anh viết giúp em ạ !

  12. Đã đăng · Trả lời báo cáo

    Chào cả nhà ạ ! em có một vấn đề này cần các anh tư vấn cho. đó là nhiều khi mình mở file lên, autocad không tự động load lisp theo mặc dù mình đã đưa lisp đó vào trong mục startup của cad rồi, cái này thì tùy từng lúc và nhiều khi phụ thuộc bản winxp, lúc thì nó load, lúc nó không load tự động. Open cad lên thì có nhưng khi tích đúp trực tiếp vào file để open lên thì khả năng không load là cao nhất. VẬy có cao thủ nào có cách nào đó để bắt cad luôn luôn load lisp lên khi open file không ạ ?, em thấy có lần có anh trên diễn đàn chia sẻ bộ lisp mà mình phải cài đặt, sau đó mình ko cần AP và đưa vào starup mà cad đã load lisp lên rùi, anh nào biết thì chia sẻ với mọi người được ko ạ ? Em xin cảm ơn !

×