Đến nội dung


Hình ảnh
- - - - -

khi Cắt Dim để lại phần chân Dim dài bằng nhau !!!


  • Please log in to reply
23 replies to this topic

#21 keodang

keodang

    HVKT-12

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

Đã gửi 04 July 2009 - 04:16 PM

Bạn thử dùng cách Fixdim này xem sao. Mình hầu như không phải dùng đến cutdim bao giờ (đỡ tốn công cắt :s_big: )
Hình đã gửi
Hình đã gửi

Cách này cũng hay đấy, nhưng chỉ có từ cad 08 trở lên thôi thì phải
  • 0

#22 hoa tam that

hoa tam that

    biết vẽ line

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

Đã gửi 27 October 2009 - 02:18 PM

Lời đầu tiên, Tue_NV xin góp ý chân thành với bạn hhhhgggg : Khi viết bài bạn nên nhìn nhận vấn đề một cách tổng quát và nói rõ vấn đề vì có thể mọi người không hiểu theo ý bạn và từ đó làm mất thời gian của chính mình và làm mất thời gian của người khác là điều không nên và phải tránh

Cứ như bài viết này, Tue_NV muốn giúp bạn mà chẳng biết làm thế nào nữa
http://www.cadviet.c...showtopic=11138
Tue_NV đã chỉnh sửa lại Code trên. Hy vọng nó có ích cho mọi người.

Tên lệnh Cd
1. Lisp yêu cầu chọn DIM
2. Lisp yêu cầu : nhập khoảng cách đường dóng.
3. Lisp thực hiện công việc : cắt chân dim đã chọn với khoảng cách đường dóng do user nhập vào.
Lisp này có 1 điểm hay mà Tue_NV rất thích là ở bước thứ 2 : Nhập khoảng cách đường dóng

Khoảng cách đường dóng này mang ý nghĩa tương đối.
Khoảng cách đường dóng có thể là số dương (>0), có thể là số âm (<0) và có thể bằng 0
Và khoảng cách có thể pick 2 điểm trên màn hình. Lisp sẽ lấy khoảng cách 2 điểm pick trên màn hình làm khoảng cách đường dóng. Và khoảng cách khi ta pick 2 điểm này sẽ mang giá trị dương ( + )

Bạn hãy chạy thử và nghiệm ra điều mà Tue_NV nói.
Các bạn hãy cho ý kiến, nếu có gì chưa được thì Tue_NV sẽ sửa lại. Hy vọng nó có ích cho mọi người


(DEFUN C:CD (/ KC KCo CMD SS LTH DEM PT DS KDL N70 GOCX GOCY PT13 PT14 PTI PT13I PT14I
PT13N PT14N O13 O14 N13 N14 OSM OLDERR PT10 PT11)
(prompt "\n KS VO QUANG TUE")
(print)
(SETQ CMD (GETVAR "CMDECHO"))
(SETQ OSM (GETVAR "OSMODE"))
(SETQ OLDERR *error*
*error* myerror)
(PRINC " Moi Chon duong kich thuoc :")
(SETQ SS (SSGET'((0 . "DIMENSION"))))
(SETVAR "CMDECHO" 0)
(If (not KCo) (setq KCo 100))
(SETQ KC (GETDIST (strcat "\n Khoang cach cut dim : <" (rtos KCo 2 0) ">")))
(if (null KC) (setq KC KCo) (setq KCo KC))

(COMMAND "UCS" "W")
(SETQ LTH (SSLENGTH SS))
(SETQ DEM 0)
(WHILE (< DEM LTH)
(PROGN
(SETQ DS (ENTGET (SSNAME SS DEM)))
(SETQ KDL (CDR (ASSOC 0 DS)))
(IF (= "DIMENSION" KDL)
(PROGN
(SETQ PT10 (CDR (ASSOC 10 DS)))
(SETQ PT11 (CDR (ASSOC 11 DS)))
(SETQ PT13 (CDR (ASSOC 13 DS)))
(SETQ PT14 (CDR (ASSOC 14 DS)))
(SETQ N70 (CDR (ASSOC 70 DS)))
(IF (OR (= N70 32) (= N70 33) (= N70 160) (= N70 161))
(PROGN
(SETQ GOCY (ANGLE PT10 PT14))
(SETQ GOCX (+ GOCY (/ PI 2)))
)
)
(SETVAR "OSMODE" 0)
(setq PT (POLAR PT10 GOCY KC))
(SETQ PTI (POLAR PT GOCX 2))
(SETQ PT13I (POLAR PT13 GOCY 2))
(SETQ PT14I (POLAR PT14 GOCY 2))
(SETQ PT13N (INTERS PT PTI PT13 PT13I NIL))
(SETQ PT14N (INTERS PT PTI PT14 PT14I NIL))
(SETQ O13 (ASSOC 13 DS))
(SETQ O14 (ASSOC 14 DS))
(SETQ N13 (CONS 13 PT13N))
(SETQ N14 (CONS 14 PT14N))
(SETQ DS (SUBST N13 O13 DS))
(SETQ DS (SUBST N14 O14 DS))
(ENTMOD DS)
)
)
(SETQ DEM (+ DEM 1))
)
)
(COMMAND "UCS" "P")
(SETVAR "CMDECHO" CMD)
(SETVAR "OSMODE" OSM)
(setq *error* OLDERR) ; Restore old *error* handler
(PRINC)
)

bạn ơi
sau khi ap load kh
a kh ông sử dụng bằng lệnh cd được tại sao???
  • 0

#23 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3805 (đỉnh cao)

Đã gửi 27 October 2009 - 02:41 PM

bạn ơi
sau khi ap load kh
a kh ông sử dụng bằng lệnh cd được tại sao???

Chào bạn 'hoa tam that'
Bạn nhấn nút Reply bài viết của Tue_NV chép hết code của Tue_NV (không sót nhé) về chạy là được.
Chức năng download Lisp file của diễn đàn bị lỗi mấy hôm nay.

Ôi! ngày nào cũng viết lại điệp khúc này đến mỏi tay mất thui :tongue2: :D
Mọi người trong Ban Quản trị có ai biết sửa lại Chức năng download Lisp file thì xin hãy sửa lại cho anh em sử dụng được dễ dàng hơn.

Cảm ơn.
  • 0

#24 lequoctrieu

lequoctrieu

    Chưa sử dụng CAD

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

Đã gửi 12 March 2013 - 04:59 PM

Bạn thử dùng cách Fixdim này xem sao. Mình hầu như không phải dùng đến cutdim bao giờ (đỡ tốn công cắt cheers.gif )
ScreenHunter_01_Feb_17_0738.gif
ScreenHunter_02_Feb_17_0740.gif

Đúng cái cách này mình đang cần, cảm ơn rất nhiều, sáng giờ search toàn ra lisp, nhưng mình không thích xài. Thanks again!


  • 0