Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Đăng nhập để thực hiện theo  
friendship293a

Nhờ mọi người sửa dùm lisp này với ạ

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

Em cần cho thêm tính năng sau khi đưa về text width =0.9 thì tự chuyển thành font vnarial. cảm ơn các anh đã quan tâm.


;;*********Dua text ve do day 0.9 ****************

(defun c:ct2(/ ss tw)
(defun Tue-ent-mod (dxf ename newValue / entget-ename)
    (setq entget-ename (entget ename))
  (if (and (or (= dxf 62) (= dxf 6)) (null (assoc dxf entget-ename)))
          (setq entget-ename (append entget-ename (list (cons dxf newValue))))
  )
  (setq entget-ename (subst (cons dxf newValue) (assoc dxf entget-ename) entget-ename))
  (entmod entget-ename)
  ename
)
(defun Tue-ss-list (L-ss-vlaobj / n L Lst ssg vlaobj)
 
  (mapcar 'set '(ssg vlaobj) L-ss-vlaobj)
  (setq L (sslength ssg))
  (Repeat L
        (setq ename (ssname ssg (setq L (1- L))))
          (setq Lst (cons (if vlaobj (vlax-ename->vla-object ename) ename) Lst))
  )
)
(if (setq ss (ssget '((0 . "TEXT"))))
  (progn
        (foreach x (Tue-ss-list (list ss))
      (Tue-ent-mod 41 x 0.9)
    )
  )
)
)

 

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
ketxu    2.653

Bạn chú ý cách đặt tên topic, cách đặt vấn đề. Cadviet không đặt ra nội quy nhưng văn minh post bài thì ở đâu cũng vậy.

Trước đây có nhắc rồi, giờ mình không muốn nhắc nhưng mấy ngày rồi bạn post một đống bài " Nhờ mọi người giúp em lisp này .." .

Tiêu đề i xì đúc, một lisp thì post nửa này nửa kia mỗi nơi 1 bài, yêu cầu thì bản thân không rõ mình cần cái gì nên lúc thế này lúc thế khác, lúc thì lại chơi nguyên file CAD lên chờ người khác down về mới biết mình cần gì mà k lấy 1 lời diễn giải trước ..

Theo bạn, tại sao danh tiếng mọi người toàn Xanh không mà của bạn cứ đỏ choét thế kia, hay là bạn thấy đỏ đẹp hơ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

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×