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.
Đăng nhập để thực hiện theo  
tsanhthi

Nhờ các cao thủ xem giúp!

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

tsanhthi    0

          Nhờ các cao thủ xem giúp em sai chỗ nào mà nó không tạo ra block được, xin cảm ơn

 

          Nhờ các cao thủ xem giúp em sai chỗ nào mà nó không tạo ra block được, xin cảm ơn

 

(defun c:thu ()

(setq p1 (getpoint "\nchon diem bat dau:"))
(setq pt1 (list (+ (car p1) 6000) (+ (cadr p1) 4300)))
(setq pt2 (list (+ (car pt1) 8000) (+ (cadr pt1) 0)))
(setq pt3 (list (+ (car pt2) 0) (+ (cadr pt2) 9000)))
(setq e1 (entlast))
(command ".line" p1 pt1 pt2 pt3 "" )
(setq e2 (sssetfirst nil (acet-ss-new e1)))
(command "block" "thu" pt3 e2 "")
)
Chỉnh sửa theo tsanhthi

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
tsanhthi    0

Không thấy file lsp bạn ơi, bạn cho code vào trong dấu <> bên dưới mặt cười nhé

Mình gởi code, cảm ơn bạn nhiều, mình mới tham gia diễn đàn nên không rành lắm ^^

(defun c:thu ()
(setq p1 (getpoint "\nchon diem bat dau:"))
(setq pt1 (list (+ (car p1) 6000) (+ (cadr p1) 4300)))
(setq pt2 (list (+ (car pt1) 8000) (+ (cadr pt1) 0)))
(setq pt3 (list (+ (car pt2) 0) (+ (cadr pt2) 9000)))
(setq e1 (entlast))
(command ".line" p1 pt1 pt2 pt3 "" )
(setq e2 (sssetfirst nil (acet-ss-new e1)))
(command "block" "thu" pt3 e2 "")
)

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

Chào bạn, cái lisp của bạn nếu luôn luôn đặt tên là "thu" thì nó sẽ bị đè lên nhau, với lại đã làm block thì cũng không nhất thiết phải vẽ ra làm gì rồi lại xóa đi, khi nào cần thì gõ insert nó ra là được, mình đã sửa lại, chúc bạn thành công.

(defun c:thu( / p1 pt1 pt2 pt3 e1 oldos)
(command "undo" "be")
(setq p1 (list 0.0 0.0) )
(setq ten (getstring t "\nNhap ten block:"))
;(setq oldos (getvar "osmode"))
;(setvar "osmode" 0)
(setq pt1 (list (+ (car p1) 6000) (+ (cadr p1) 4300)))
(setq pt2 (list (+ (car pt1) 8000) (+ (cadr pt1) 0)))
(setq pt3 (list (+ (car pt2) 0) (+ (cadr pt2) 9000)))
(setq e1 (entlast))
(command ".pline" "non" p1 "non" pt1 "non" pt2 "non" pt3 "" )
;(setq e2 (sssetfirst nil (acet-ss-new e1)))
(command "-block" ten pt3 "last" "" "N" "" )
;(setvar "osmode" oldos)
(command "undo" "end")
)

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
tsanhthi    0

 

Chào bạn, cái lisp của bạn nếu luôn luôn đặt tên là "thu" thì nó sẽ bị đè lên nhau, với lại đã làm block thì cũng không nhất thiết phải vẽ ra làm gì rồi lại xóa đi, khi nào cần thì gõ insert nó ra là được, mình đã sửa lại, chúc bạn thành công.

(defun c:thu( / p1 pt1 pt2 pt3 e1 oldos)
(command "undo" "be")
(setq p1 (list 0.0 0.0) )
(setq ten (getstring t "\nNhap ten block:"))
;(setq oldos (getvar "osmode"))
;(setvar "osmode" 0)
(setq pt1 (list (+ (car p1) 6000) (+ (cadr p1) 4300)))
(setq pt2 (list (+ (car pt1) 8000) (+ (cadr pt1) 0)))
(setq pt3 (list (+ (car pt2) 0) (+ (cadr pt2) 9000)))
(setq e1 (entlast))
(command ".pline" "non" p1 "non" pt1 "non" pt2 "non" pt3 "" )
;(setq e2 (sssetfirst nil (acet-ss-new e1)))
(command "-block" ten pt3 "last" "" "N" "" )
;(setvar "osmode" oldos)
(command "undo" "end")
)

          Cảm ơn bác, nhưng cái lisp bạn sửa cũng không tạo được block mà nó có thể hiển thị trên bản vẽ như mình dùng lệnh block -> make . . .,

thật ra mình muốn tạo lisp vẽ mặt cắt móng cọc nên mới cần tạo block để bổ sung cho cọc.

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ảm ơn bác, nhưng cái lisp bạn sửa cũng không tạo được block mà nó có thể hiển thị trên bản vẽ như mình dùng lệnh block -> make . . .,

thật ra mình muốn tạo lisp vẽ mặt cắt móng cọc nên mới cần tạo block để bổ sung cho cọc.

Híc, thế thì lạm dụng lisp quá. Cái này đâu cần phải dùng lisp gì đâu trước lệnh block  đánh thêm dấu "-" là được, ví dụ gõ là -b hoặc -block.

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

Đăng nhập để thực hiện theo  

×