Lisp vẽ mặt cắt cầu thang !

[chutuocttm 0]

Các bác có thể cho em xin 1 lisp vẽ mặt cắt cấu thang nhý sau ðýợc không ạ !

- Ðánh lệnh

- Pick ðiểm ðầu tiên

- Chọn hýớng vẽ thang

- Nhập chiều cao bậc thang

- Nhập bề rộng thang

- Nhập số bậc thang

- Ok

Em xin cảm õn trýớc ạ !rất mong ðýợc các bác giúp ðỡ !

[Nguyen Hoanh 4.663]

Các bác có thể cho em xin 1 lisp vẽ mặt cắt cấu thang nhý sau ðýợc không ạ !

- Ðánh lệnh

- Pick ðiểm ðầu tiên

- Chọn hýớng vẽ thang

- Nhập chiều cao bậc thang

- Nhập bề rộng thang

- Nhập số bậc thang

- Ok

Em xin cảm õn trýớc ạ !rất mong ðýợc các bác giúp ðỡ !

Lệnh là VT (vẽ thang)

 

(defun c:vt( / p c r sb oldos)
 (setq
   p (getpoint "\nVao diem dau tien: ")
   c (getdist p "\nVao chieu cao bac: ")
   r (getdist p "\nVao chieu rong bac: ")
   sb (getint "\nVao so bac: ")
   oldos (getvar "osmode")
 )
 (setvar "osmode" 0)  
 (command ".pline")
 (command p)  
 (repeat sb
   (command (strcat "@0," (rtos c)))
   (command (strcat "@" (rtos r) ",0"))
 )
 (command "")
 (setvar "osmode" oldos)
 (princ)
)

[ssg 1.102]

...

(repeat sb

(command (strcat "@0," (rtos c)))

(command (strcat "@" (rtos r) ",0"))

)

...

 

Fantastically! Thank you! :)

[chutuocttm 0]

Em xin cảm õn các bác ạ ! Cadviet ðã giúp em rất nhiều !Em rất vui khi là 1 thành viên của cadviet !Cadviet là 1 kho tàng kiến thức của cad, và trong ðó thì các thành viên pro chính là nhân tố chính của kho tàng ðó !:)Mong ðýợc các bác giúp ðỡ nhiều hõn !

[ngayve324 270]

[Líp này mình cũng đang cần cám ơn các Pro!

[hiepga1981 1]

bác Nguyen Hoanh siêu thật, e mới vào đây mà tìm được nhiều cái hay quá, mong VN có nhiều người như bác thì VN sắp phát triển bằng Mỹ rồi các bác ạ

[lecorbuduong 0]

thank anh nguyễn hoành . chúc anh thành công hơn

[dungtaeki2009 0]

Chào bạn!

Mình đọc những bài viết của bạn rất nhiều cái tiện ích cho việc vẽ Cad. Minh đang cần Lisp để vẽ những thang phức tạp trong 3D. Nhưng file minh download của bạn về Load nhưng không dùng được. Bạn có thể gửi cho minh xin dược không???? Địa chỉ mail của mình: dungtaeki2009@gmail.com

Cảm ơn bạn nhiều!

[kunopro 0]

Lệnh là VT (vẽ thang)

 

(defun c:vt( / p c r sb oldos)  (setq    p (getpoint "\nVao diem dau tien: ")    c (getdist p "\nVao chieu cao bac: ")    r (getdist p "\nVao chieu rong bac: ")    sb (getint "\nVao so bac: ")    oldos (getvar "osmode")  )  (setvar "osmode" 0)    (command ".pline")  (command p)    (repeat sb    (command (strcat "@0," (rtos c)))    (command (strcat "@" (rtos r) ",0"))  )  (command "")  (setvar "osmode" oldos)  (princ))

Bác Hoành nhà ta thật là tuyệt vời..... Thanks bác rất nhiều @@

[tranhieu.kisuxaydung 5]

Vào lúc 17/12/2007 tại 16:18, Nguyen Hoanh đã nói:

Lệnh là VT (vẽ thang)

 

 

• vt.lsp
  
• [✎]
   

(defun c:vt( / p c r sb oldos)
 (setq
   p (getpoint "\nVao diem dau tien: ")
   c (getdist p "\nVao chieu cao bac: ")
   r (getdist p "\nVao chieu rong bac: ")
   sb (getint "\nVao so bac: ")
   oldos (getvar "osmode")
 )
 (setvar "osmode" 0)  
 (command ".pline")
 (command p)  
 (repeat sb
   (command (strcat "@0," (rtos c)))
   (command (strcat "@" (rtos r) ",0"))
 )
 (command "")
 (setvar "osmode" oldos)
 (princ)
)

 

 

quá đỉnh, cảm ơn bác