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

friendship293a

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

  • Số lượng nội dung

    102

  • Đã tham gia

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

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

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

    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)
    )
  )
)
)

     

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

    Lisp của bác Tot77 chạy nó báo lỗi Select objects:  ; error: no function definition: DXF chả hiểu tại sao. còn lisp của bác hiệpttr thì chạy rất ok. cảm ơn các bác đã tận tình giúp đỡ, tiện thể sửa giúp em lisp của bác hiepttr thêm lựa chọn điẻm đầu vào bất kỳ mô tả như file cad em gửi được không ạ?http://www.cadviet.com/upfiles/3/1030_hoi_2_1.dwg

×