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.
almodeus

Nhờ các cao thủ xem giúp lỗi Lisp fittext

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

Có cái lisp fittext fit vùng trống Mtext nhưng khi load lisp thì cad bị treo (Not respond), nhờ các bạn xem giúp

(defun fit(ent / tz)

(setq ls (entget ENT))

(setq l42 (cdr (assoc 42 ls))

tz (cdr (assoc 40 ls))

)

(setq ls (subst (cons 41 (+ l42 (/ tz 15))) (assoc 41 ls) ls))

(entmod ls)

)

 

(defun c:fittext (/ dt sdt ent in)

(setq dt (ssget))

(setq sdt (sslength dt)

id 0

)

(repeat sdt

(setq entht (ssname dt id)

id (1+ id)

)

(fit entht)

)

(princ)

)

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

Có cái lisp fittext fit vùng trống Mtext nhưng khi load lisp thì cad bị treo (Not respond), nhờ các bạn xem giúp

(defun fit(ent / tz)

(setq ls (entget ENT))

(setq l42 (cdr (assoc 42 ls))

tz (cdr (assoc 40 ls))

)

(setq ls (subst (cons 41 (+ l42 (/ tz 15))) (assoc 41 ls) ls))

(entmod ls)

)

 

(defun c:fittext (/ dt sdt ent in)

(setq dt (ssget))

(setq sdt (sslength dt)

id 0

)

(repeat sdt

(setq entht (ssname dt id)

id (1+ id)

)

(fit entht)

)

(princ)

)

bạn nói sao chứ mình thử text lại thấy OK mà.

bạn thử copy toàn bộ đoạn mã trên rồi paste vào dòng command. (bạn khoan hãy apload lisp nha.) sau đó gõ lệnh Fittext xem sao. mình thấy bình thường mà.

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

It proved to be very useful to me and I'm certain to all of the mems right here!

Bác Hoành chém ngay con "virus" này để nó lộng hành quá.

  • Vote tăng 1

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

Đúng là sài được...nhưng tự nhiên giờ không hiểu sao cad của mình bị gì đó moi lần load rồi thoát khỏi hộp thoại appload lisp thì nó treo ah...cad 2010. Nó hiện cái dòng thông báo là appload thành công thôi ah. nhờ các cao thủ xem giùm mình với...mình làm theo bạn lp_hai thì được nhưng appload vẫn bị treo CAD...không hiểu lí do la bị lỗi ở đâu nữa

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


×