Nhờ kiểm tra lisp

[tavantoan12 1]

Chào các bác, lisp của em muốn tạo hình hộp chữ nhật cao 20. Nhưng khi vẽ thì nó không cao lên được 20 như mong muốn, nhờ các pro check giúp và giải thích giúp em.

Em cám ơn trước.

1.lsp

[Doan Van Ha 3.186]

Chắc bị osnap

[tavantoan12 1]

2 phút trước, Doan Van Ha đã nói:

Chắc bị osnap

Em vừa check thì đúng là nguyên nhân osnap ạ, nhưng em muốn bật osnap thì có fix được không ạ

 

[Doan Van Ha 3.186]

;; Vẽ hình chữ nhật có chiều dày 20
(defun c:foo (/ p1 p2 p3 p4 p5 p6 p7 p8 os)
  (setq p1 (getpoint "\nChon point thu nhat")
        p3 (getpoint "\nChon point thu ba")
        p2 (list (car p3) (cadr p1))
        p4 (list (car p1) (cadr p3))
        ;
        p5 (list (car p1) (cadr p1) 20)
        p6 (list (car p2) (cadr p2) 20)
        p7 (list (car p3) (cadr p3) 20)
        p8 (list (car p4) (cadr p4) 20)
  )
  ;
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (command vpoint "" 1,-1,1 "")
  (command ".3dface" p1 p2 p3 p4 ""
           ".3dface" p5 p6 p7 p8 ""
           ".3dface" p1 p4 p8 p5 ""
           ".3dface" p2 p3 p7 p6 ""
           ".3dface" p3 p4 p8 p7 ""
           ".3dface" p1 p2 p6 p5 ""
  )
  (setvar "osmode" os)
  (command "zoom" "all")
)

[tavantoan12 1]

1 giờ} trướ}c, Doan Van Ha đã nói:

 

• foo.lsp
  
• [✎]
   

;; Vẽ hình chữ nhật có chiều dày 20
(defun c:foo (/ p1 p2 p3 p4 p5 p6 p7 p8 os)
  (setq p1 (getpoint "\nChon point thu nhat")
        p3 (getpoint "\nChon point thu ba")
        p2 (list (car p3) (cadr p1))
        p4 (list (car p1) (cadr p3))
        ;
        p5 (list (car p1) (cadr p1) 20)
        p6 (list (car p2) (cadr p2) 20)
        p7 (list (car p3) (cadr p3) 20)
        p8 (list (car p4) (cadr p4) 20)
  )
  ;
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (command vpoint "" 1,-1,1 "")
  (command ".3dface" p1 p2 p3 p4 ""
           ".3dface" p5 p6 p7 p8 ""
           ".3dface" p1 p4 p8 p5 ""
           ".3dface" p2 p3 p7 p6 ""
           ".3dface" p3 p4 p8 p7 ""
           ".3dface" p1 p2 p6 p5 ""
  )
  (setvar "osmode" os)
  (command "zoom" "all")
)

 

thank you bác

[duy782006 1.533]

Để khỏi phát sinh việc mất bắt điểm khi dừng lisp giữa chừng nên dùng entmake để tạo đối tượng cad.