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

NHỜ VÃ ANH EM - Lệnh autoslip " sb_ste.lsp " của bác Nguyễn Hoanh

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

playpro2013    1

Lệnh autoslip " sb_ste.lsp " của bác Nguyễn Hoanh " đối với mình rất cần nhưng chạy trên nền cad 2015 thì báo lỗi .Đọc trong diễn đàn thấy giải thích với lý do " Hàm Bẫy " -Nhưng vì mình không viết được "autoslip" và cũng không có kiến thức căn bản về môn này .Nên nhờ vã ANH EM trong diễn đàn và TÁC GIẢ ra tay giúp đỡ 02 Lệnh : "SB VÀ STE : chạy được trên nền cad 2015 - rất cảm ơn (vì mới tham gia , néu phạm lỗi gì anh em bỏ qua cho)  

  • Vote giảm 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
Tr.CongSon    41

Lệnh autoslip " sb_ste.lsp " của bác Nguyễn Hoanh " đối với mình rất cần nhưng chạy trên nền cad 2015 thì báo lỗi .Đọc trong diễn đàn thấy giải thích với lý do " Hàm Bẫy " -Nhưng vì mình không viết được "autoslip" và cũng không có kiến thức căn bản về môn này .Nên nhờ vã ANH EM trong diễn đàn và TÁC GIẢ ra tay giúp đỡ 02 Lệnh : "SB VÀ STE : chạy được trên nền cad 2015 - rất cảm ơn (vì mới tham gia , néu phạm lỗi gì anh em bỏ qua cho)  

Mình cũng mới tham gia nhưng góp ý bạn tý:

  •  Bạn muốn người khác giúp thì it nhất phải có file Lisp đó,để mọi người có thể giúp bạn sửa hoặc giúp đỡ bạn được chớ
  • Đọc xong yêu cầu của bạn,anh em muốn giúp thì phải vào search file Lisp SB và STE gì đó, mà khổ nổi seach xong không biết bạn dùng bản đã update hay chưa ^^
  • 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
playpro2013    1

 

Mình cũng mới tham gia nhưng góp ý bạn tý:

  •  Bạn muốn người khác giúp thì it nhất phải có file Lisp đó,để mọi người có thể giúp bạn sửa hoặc giúp đỡ bạn được chớ
  • Đọc xong yêu cầu của bạn,anh em muốn giúp thì phải vào search file Lisp SB và STE gì đó, mà khổ nổi seach xong không biết bạn dùng bản đã update hay chưa ^^

 

* Cám ơn  bạn ,mình dung files này " http://www.cadviet.vn/caddata/?act=downloadfile#http://www.cadviet.vn/lisp/download/766_sb_ste.lsp "

 

*Bị báo lỗi " "Cannot invoke (command) from *error* without prior call to (*push-error-using-command*).

Converting (command) calls to (command-s) is recommended."
 
*Bạn có biết files update không ? chỉ hộ mình với - thanks
Chỉnh sửa theo playpro2013

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
Tr.CongSon    41

 

* Cám ơn  bạn ,mình dung files này " http://www.cadviet.vn/caddata/?act=downloadfile#http://www.cadviet.vn/lisp/download/766_sb_ste.lsp "

 

*Bị báo lỗi " "Cannot invoke (command) from *error* without prior call to (*push-error-using-command*).

Converting (command) calls to (command-s) is recommended."
 
*Bạn có biết files update không ? chỉ hộ mình với - thanks

 

Chào bạn,

Lisp bạn down của a Nguyễn Hoành nhưng hình như còn thiếu các hàm con như là init,luuos,done,traoos...

Mình đã fix giúp bạn đây

;; free lisp from cadviet.com

;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=2105

(defun c:sb (/ tapblock sodt index soblocksua

entdt tt diemchen tyle DAIHT DAIMOI

TEMP

)

(init)

(princ "\nDay la lenh Scale block!")

(setq tapblock (ssget '((0 . "INSERT")))

temp (initget "R C")

temp (getreal "\nTy le phong: ")

tyle (cond

((= temp "R")

(setq

daiht (getdist "\nDo dai hien tai: ")

daimoi (getdist "\nDo dai moi: ")

tyle (/ daimoi daiht)

)

)

((= temp "C")

(setq tyle (getreal "\nTy le moi: "))

)

(t temp)

)

sodt (sslength tapblock)

index 0

soblocksua 0

)

(repeat sodt

(setq entdt (ssname tapblock index)

index (1+ index)

tt (entget entdt)

diemchen (trans (cdr (assoc '10 tt)) 0 1)

soblocksua (1+ soblocksua)

)

(luuos)

(setvar "OSMODE" 0)

(command ".scale" entdt "" diemchen tyle)

(traos)

)

(princ (strcat "\nSo block da sua: " (itoa soblocksua)))

(sssetfirst nil tapblock)

(done)

)

;;-----------------------------------

(defun c:ste (/ tapblock sodt index soblocksua

entdt tt diemchen tyle DAIHT DAIMOI

TEMP

)

(init)

(princ "\nDay la lenh Scale TEXT!")

(setq tapblock (ssget '((0 . "TEXT")))

temp (initget "R C")

temp (getreal "\nTy le phong: ")

tyle (cond

((= temp "R")

(setq

daiht (getdist "\nDo dai hien tai: ")

daimoi (getdist "\nDo dai moi: ")

tyle (/ daimoi daiht)

)

)

((= temp "C")

(setq tyle (getreal "\nTy le moi: "))

)

(t temp)

)

sodt (sslength tapblock)

index 0

soblocksua 0

)

(repeat sodt

(setq entdt (ssname tapblock index)

index (1+ index)

tt (entget entdt)

diemchen (trans (cdr (assoc '10 tt)) 0 1)

soblocksua (1+ soblocksua)

)

(luuos)

(setvar "OSMODE" 0)

(command ".scale" entdt "" diemchen tyle)

(traos)

)

(princ (strcat "\nSo TEXT da sua: " (itoa soblocksua)))

(sssetfirst nil tapblock)

(done)

)

;;;;;;;;;;;Cac ham Con

(defun luuos ()

(setq HOANH_OSMODE (getvar "OSMODE")

HOANH_AUTOSNAP (getvar "AUTOSNAP") ))

(defun traos ()

(if HOANH_OSMODE

(setvar "OSMODE" HOANH_OSMODE) )

(if HOANH_AUTOSNAP

(setvar "AUTOSNAP" HOANH_AUTOSNAP)

))

(defun init ()

(setq

HOANH_CMD (getvar "CMDECHO")

HOANH_OLDERROR *error*

*error* hoanh_newerror

)

(setvar "CMDECHO" 0)

(command ".undo" "BE")

)

 

(defun done ()

(command ".redraw")

(command ".undo" "E")

(if HOANH_CMD

(setvar "CMDECHO" HOANH_CMD)

)

(if HOANH_OLDERROR

(setq *error* HOANH_OLDERROR)

)

(princ)

)

 

 

P/s: Nhớ ấn nút thanks nhá^^ hi

  • Vote tăng 2

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
Tr.CongSon    41

OK ,cám ơn bạn " Tr .CongSon " rất nhiều bạn nhé - Chúc bạn sức khoẻ và thành công 

(sao mình không thấy nút Thanks nhỉ)

Nút màu xanh góc dưới bên phải của bài viết đó bạn^^

 
  • 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

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


×