Đến nội dung


Hình ảnh
- - - - -

Mục lục các lisp


  • Please log in to reply
3 replies to this topic

#1 bemove

bemove

    biết lệnh divide

  • Vip
  • PipPipPipPipPipPip
  • 446 Bài viết
Điểm đánh giá: 1308 (rất tốt)

Đã gửi 15 March 2007 - 11:50 AM

1. Vẽ thang
http://www.cadviet.com/upfiles/tinhthang.lsp

2. Dựng phối cảnh nhà trong quy hoạch
...

3. Đánh cốt
http://www.cadviet.com/upfiles/danhcot.lsp
http://www.cadviet.com/upfiles/DANHCOT.zip

4. Align it
http://www.cadviet.com/upfiles/alignit.zip

5. Hide & show object
http://www.cadviet.com/upfiles/hideshow.lsp

6. Nối arc, line thành polyline
http://www.cadviet.com/upfiles/joinline.lsp

7. Tính diện tích
...

8. Tự động đánh chữ theo thứ tự
...
  • 1

#2 be_chanh

be_chanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 1712 Bài viết
Điểm đánh giá: 889 (rất tốt)

Đã gửi 22 March 2007 - 02:48 AM

Có nên chăng thêm mấy dòng help không bắc bemove :lol:
  • 0

t: 097.323.1199 | m: cudstk@gmail.com | w: http://www.aicollect.com


#3 conghoa

conghoa

    biết lệnh attdef

  • Members
  • PipPipPipPipPipPip
  • 411 Bài viết
Điểm đánh giá: 88 (tàm tạm)

Đã gửi 20 August 2007 - 10:44 PM

1. Vẽ thang
http://www.cadviet.com/upfiles/tinhthang.lsp


Bạn nào biết chỉ cho mình cách dùng lisp này với.
Thanks.
  • 0

#4 ainhandilac

ainhandilac

    biết vẽ pline

  • Members
  • PipPip
  • 63 Bài viết
Điểm đánh giá: 5 (bình thường)

Đã gửi 29 August 2007 - 08:50 AM

Bạn nào biết chỉ cho mình cách dùng lisp này với.
Thanks.

Tôi dowload thử cái danh cốt của bro về đúng nhưng thấy nó có về bát tiết
cac pac thử dùng cái của tôi và cho ý kiến nhé
nhung truc khi dung cac pac tao cho em cai bloc cd và 1 con text atribute trước nhé
cảm ơn các pac đóng góp ý kiến !

(defun c:j ()
;chon cao do 0.00
; (princ "chon cao do 0.00")
; (setq mc (getpoint))
; (command "ucs" "n" mc)
;(setq tl (getreal "\n nhap ty le")) ;chon diem ghi cao do
(setq tl 1000)
(while
(setq pt1 (getpoint "\n chon diem ghi cao do"))
(princ pt1)
(setq ta (cadr pt1))
(setq th (/ ta tl))
(princ tl )
(setq f (rtos th 2 2))
(command "insert" "cd" pt1 "" "" "" f))
(princ f)

(princ "go\"j\" to start")
)

  • 0
SỐNG TRÊN ĐỜI CẦN CÓ NIỀM TIN