playpro2013 1 Báo cáo bài đăng Đã đăng Tháng 5 23, 2015 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) 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 42 Báo cáo bài đăng Đã đăng Tháng 5 23, 2015 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 ^^ 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 Báo cáo bài đăng Đã đăng Tháng 5 23, 2015 (Đă chỉnh sửa) 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 Tháng 5 23, 2015 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 42 Báo cáo bài đăng Đã đăng Tháng 5 23, 2015 * 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 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
playpro2013 1 Báo cáo bài đăng Đã đăng Tháng 5 23, 2015 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ỉ) 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 42 Báo cáo bài đăng Đã đăng Tháng 5 23, 2015 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^^ 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
