Đến nội dung


Hình ảnh
- - - - -

Xin Lisp Vẽ Nét Cắt Gán Layer Mặc Định


  • Please log in to reply
1 reply to this topic

#1 frpx123

frpx123

    biết pan

  • Members
  • Pip
  • 8 Bài viết
Điểm đánh giá: -2 (bình thường)

Đã gửi 13 February 2016 - 12:34 AM

http://www.cadviet.c...netcat_nc_1.lsp

 

xin chỉnh giúp mình khi vẽ nét cắt lisp như bên dưới sẽ được gán 1 layer mặc định có trong phần layer mình đã tạo , mặc dù layer hiện hành đang vẽ là layer khác 
 
 
 
 
 (Defun c:q1(/ p1 p2 p3 p4 p5 p6 p11 p12 l ang)
(setq x (getvar "osmode"))
(setq p1 (getpoint "First point : ")
     p2 (getpoint p1 "Second point : "))
(setq l (distance p1 p2))
(setq p11 (polar p1 (angle p2 p1) (/ l 5))
     p12 (polar p2 (angle p1 p2) (/ l 5)))
(setq ang (angle p1 p2))
(setq p3 (polar p1 ang (/ l 2.5))
     p4 (polar p3 (+ (/ pi 2) ang) (/ l 5))
     p5 (polar p3 ang (/ l 5))
p6 (polar p5 (- ang (/ pi 2)) (/ l 5)))
(setvar "osmode" 0)
 (command "pline" p11 p3 p4 p6 p5 p12 "")
 (setvar "osmode" x)
)

 

 


xin chỉnh giúp mình khi vẽ nét cắt lisp như bên dưới sẽ được gán 1 layer mặc định có trong phần layer mình đã tạo , mặc dù layer hiện hành đang vẽ là layer khác 
 
 
 
 
 (Defun c:q1(/ p1 p2 p3 p4 p5 p6 p11 p12 l ang)
(setq x (getvar "osmode"))
(setq p1 (getpoint "First point : ")
     p2 (getpoint p1 "Second point : "))
(setq l (distance p1 p2))
(setq p11 (polar p1 (angle p2 p1) (/ l 5))
     p12 (polar p2 (angle p1 p2) (/ l 5)))
(setq ang (angle p1 p2))
(setq p3 (polar p1 ang (/ l 2.5))
     p4 (polar p3 (+ (/ pi 2) ang) (/ l 5))
     p5 (polar p3 ang (/ l 5))
p6 (polar p5 (- ang (/ pi 2)) (/ l 5)))
(setvar "osmode" 0)
 (command "pline" p11 p3 p4 p6 p5 p12 "")
 (setvar "osmode" x)
)

 


  • 0

#2 frpx123

frpx123

    biết pan

  • Members
  • Pip
  • 8 Bài viết
Điểm đánh giá: -2 (bình thường)

Đã gửi 13 February 2016 - 09:50 PM

cái mình muốn là  giống vơi yêu cầu ông #13 ở topic này ý:

 

http://www.cadviet.c...-tong-kinh-hay/

 

ở #13 ông ý có yêu cầu là : 

Bác có cách nào để khi em dùng hatch "G" là nó đúng layer I-Wall-hatch không mặc dù layer hiện hành đang vẽ là layer khác 

 

mình cũng muốn chỉnh lisp vẽ nét cắt cũng thế.

 

BHsdF2q.jpg


  • 0