Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
3 replies to this topic

#1 almodeus

almodeus

    biết vẽ arc

  • Members
  • PipPip
  • 43 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 21 February 2011 - 01:02 PM

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

#2 lp_hai

lp_hai

    biết lệnh measure

  • Members
  • PipPipPipPipPipPip
  • 456 Bài viết
Điểm đánh giá: 202 (khá)

Đã gửi 21 February 2011 - 03:24 PM

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à.
  • 0
Hình đã gửi

#3 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 696 (tốt)

Đã gửi 21 February 2011 - 05:07 PM

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á.
  • 1
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#4 almodeus

almodeus

    biết vẽ arc

  • Members
  • PipPip
  • 43 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 21 February 2011 - 11:20 PM

Đú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
  • 0