Đế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

#1 hhhhgggg

hhhhgggg

    biết dimedit

  • Members
  • PipPipPipPipPip
  • 393 Bài viết
Điểm đánh giá: 30 (tàm tạm)

Đã gửi 28 May 2009 - 02:49 PM

Em đã có Lisp cắt Dim rùi, nhưng mình làm sao để khi cắt Dim để lại phần chân Dim dài bằng nhau ??? Phiền bác Pro sửa giúp với !!!
CODE Lisp cắt Dim
(DEFUN C:CD (/ 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_Pham Hoang Giang 0985.136.988")
(print)
(SETQ CMD (GETVAR "CMDECHO"))
(SETQ OSM (GETVAR "OSMODE"))
(SETQ OLDERR *error*
*error* myerror)
(PRINC "Lam on chon vao duong kich thuoc !")
(SETQ SS (SSGET))
(SETVAR "CMDECHO" 0)
(SETQ PT (GETPOINT "Chon vi tri cut:"))
(SETQ PT (TRANS PT 1 0))
(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 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)
)
  • 0
Hoàng Giang

#2 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 28 May 2009 - 03:08 PM

Em đã có Lisp cắt Dim rùi, nhưng mình làm sao để khi cắt Dim để lại phần chân Dim dài bằng nhau ??? Phiền bác Pro sửa giúp với !!!

Bạn sử dụng cái này coi sao :
(DEFUN C:BDii (/ CMD SS LTH DEM PT DS KDL N70 GOCX GOCY PT13 PT14 PTI
PT10 PT10I PT10N O10 N10 PT11 PT11N O11 N11 KC OSM OLDERR)
(SETQ CMD (GETVAR "CMDECHO"))
(SETQ OSM (GETVAR "OSMODE"))
(SETQ OLDERR *error*
*error* myerror)
(PRINC "Please select dimension object!")
(SETQ SS (SSGET))
(SETVAR "CMDECHO" 0)
(SETQ PT (GETPOINT "Point to trim or extend:"))
(SETQ PT (TRANS PT 1 0))
(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 PT13 (CDR (ASSOC 13 DS)))
(SETQ PT14 (CDR (ASSOC 14 DS)))
(SETQ PT10 (CDR (ASSOC 10 DS)))
(SETQ PT11 (CDR (ASSOC 11 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 PTI (POLAR PT GOCX 2))
(SETQ PT10I (POLAR PT10 GOCY 2))
(SETQ PT10N (INTERS PT PTI PT10 PT10I NIL))
(SETQ KC (DISTANCE PT10 PT10N))
(SETQ O10 (ASSOC 10 DS))
(SETQ N10 (CONS 10 PT10N))
(SETQ DS (SUBST N10 O10 DS))
(SETQ PT11N (POLAR PT11 (ANGLE PT10 PT10N) KC))
(SETQ O11 (ASSOC 11 DS))
(SETQ N11 (CONS 11 PT11N))
(SETQ DS (SUBST N11 O11 DS))
(ENTMOD DS)
)
)
(SETQ DEM (+ DEM 1))
)
)
(COMMAND "UCS" "P")
(SETVAR "CMDECHO" CMD)
(SETVAR "OSMODE" OSM)
(setq *error* OLDERR)
(PRINC)
)
:s_big:
  • 1

#3 Updatelisp

Updatelisp

    biết vẽ pline

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

Đã gửi 28 May 2009 - 03:26 PM

Em đã có Lisp cắt Dim rùi, nhưng mình làm sao để khi cắt Dim để lại phần chân Dim dài bằng nhau ??? Phiền bác Pro sửa giúp với !!!

bạn thử đoạn code này xem sao:
;---------------HIEU CHINH KICH THUOC (Chỉnh đường chân Dim)-----------------------------
(DEFUN C:CD (/ 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)
(princ "\nCopyright by Nguyen Van Suu")
(SETQ CMD (GETVAR "CMDECHO"))
(SETQ OSM (GETVAR "OSMODE"))
(SETQ OLDERR *error*
*error* myerror)
(PRINC "Please select dimension object!")
(SETQ SS (SSGET))
(SETVAR "CMDECHO" 0)
(SETQ PT (GETPOINT "Point to trim or extend:"))
(SETQ PT (TRANS PT 1 0))
(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 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)
)
----------------------------
Chúc bạn may mắn!
  • 0
Thân Z707!
Không nên hiểu và cũng không nên,không nên hiểu!

#4 hhhhgggg

hhhhgggg

    biết dimedit

  • Members
  • PipPipPipPipPip
  • 393 Bài viết
Điểm đánh giá: 30 (tàm tạm)

Đã gửi 29 May 2009 - 01:35 PM

bạn thử đoạn code này xem sao:
;---------------HIEU CHINH KICH THUOC (Chỉnh đường chân Dim)-----------------------------
(DEFUN C:CD (/ 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)
(princ "\nCopyright by Nguyen Van Suu")
(SETQ CMD (GETVAR "CMDECHO"))
(SETQ OSM (GETVAR "OSMODE"))
(SETQ OLDERR *error*
*error* myerror)
(PRINC "Please select dimension object!")
(SETQ SS (SSGET))
(SETVAR "CMDECHO" 0)
(SETQ PT (GETPOINT "Point to trim or extend:"))
(SETQ PT (TRANS PT 1 0))
(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 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)
)
----------------------------
Chúc bạn may mắn!

Ko phải rùi, Các bác chưa hiểu ý em rồi. Ý của em là cắt Dim nhưng đường Dim nào sau khi cắt cũng có độ dài Chân DIM bằng nhau = hằng số. Độ dài chân DIM theo phương vuông góc với Dim ấy !!!
Ảnh minh họa : http://www.cadviet.c...nh_minh_hoa.jpg
  • 1
Hoàng Giang

#5 hhhhgggg

hhhhgggg

    biết dimedit

  • Members
  • PipPipPipPipPip
  • 393 Bài viết
Điểm đánh giá: 30 (tàm tạm)

Đã gửi 30 May 2009 - 08:04 AM

Ko phải rùi, Các bác chưa hiểu ý em rồi. Ý của em là cắt Dim nhưng đường Dim nào sau khi cắt cũng có độ dài Chân DIM bằng nhau = hằng số. Độ dài chân DIM theo phương vuông góc với Dim ấy !!!
Ảnh minh họa : http://www.cadviet.c...nh_minh_hoa.jpg

Có bác nào có cao kiến nào ko ?
  • 0
Hoàng Giang

#6 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 30 May 2009 - 08:22 AM

Có bác nào có cao kiến nào ko ?

Bạn đọc bài viết này : http://www.cadviet.c...?showtopic=5888

Hy vọng bạn đọc xong sẽ hiểu được điều tôi muốn nói và rút kinh nghiệm cho những lần sau.
  • 0

#7 hhhhgggg

hhhhgggg

    biết dimedit

  • Members
  • PipPipPipPipPip
  • 393 Bài viết
Điểm đánh giá: 30 (tàm tạm)

Đã gửi 30 May 2009 - 01:11 PM

Bạn đọc bài viết này : http://www.cadviet.c...?showtopic=5888

Hy vọng bạn đọc xong sẽ hiểu được điều tôi muốn nói và rút kinh nghiệm cho những lần sau.

OK ! Em xin rút kinh nghiệm, yêu cầu của em là như trong ảnh: http://www.cadviet.c...anh_yeu_cau.jpg
  • 0
Hoàng Giang

#8 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 31 May 2009 - 07:21 AM

Ko phải rùi, Các bác chưa hiểu ý em rồi. Ý của em là cắt Dim nhưng đường Dim nào sau khi cắt cũng có độ dài Chân DIM bằng nhau = hằng số. Độ dài chân DIM theo phương vuông góc với Dim ấy !!!
Ảnh minh họa : http://www.cadviet.c...nh_minh_hoa.jpg

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

Bạn phải nói rõ đối tượng là đt gì, text, dim, hay các loại đg như line, arc, pline, spline, circle, đồng thời phải định nghĩa thế nào là tâm mới đc, là trung điểm hay điểm đặt ... thì ng khác mới biết và giúp bạn chứ.


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)
)

  • 6

#9 hhhhgggg

hhhhgggg

    biết dimedit

  • Members
  • PipPipPipPipPip
  • 393 Bài viết
Điểm đánh giá: 30 (tàm tạm)

Đã gửi 01 June 2009 - 08:05 AM

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)
)

OK ! Với cái lisp này thì người duyệt dù khó tính đến mấy cũng phải hài lòng về bản vẽ, Nó sẽ làm bản vẽ trở nên Pro hơn nhìu !!! Cảm ơn bác Tuệ nhé !!!
  • 4
Hoàng Giang

#10 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 01 June 2009 - 09:17 AM

OK ! Với cái lisp này thì người duyệt dù khó tính đến mấy cũng phải hài lòng về bản vẽ, Nó sẽ làm bản vẽ trở nên Pro hơn nhìu !!! Cảm ơn bác Tuệ nhé !!!

Bạn chỉ cần bấm ticks thanks ủng hộ cho Tue_NV là được rồi. :s_big:

Mới thấy bạn post bài yêu cầu nhập 3 chức năng của dim thành 1 lệnh mà đâu rồi. Bạn del rồi hả? :s_big:
  • 1

#11 white_nightmare

white_nightmare

    biết pan

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

Đã gửi 07 June 2009 - 10:04 PM

Cho em hỏi là khi load file cd.lsp vào rồi gõ lệnh cd nó báo unknow command là bị gì ạ? cách khắc phục như nào ạ.
  • 0

#12 toai

toai

    biết vẽ ellipse

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

Đã gửi 08 June 2009 - 04:44 PM

Tôi đang dùng Acad 2008, đã appload file cd.lsp trong bài viết vào bản vẽ nhưng khi đánh lệnh CD thì Cad báo không hiểu câu lệnh. Bác Tuệ có thể xem lại cái lisp này được không.Thank!
  • 0
Mưu sự tại nhân, thành sự tại thiên.

#13 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 08 June 2009 - 04:50 PM

Tôi đang dùng Acad 2008, đã appload file cd.lsp trong bài viết vào bản vẽ nhưng khi đánh lệnh CD thì Cad báo không hiểu câu lệnh. Bác Tuệ có thể xem lại cái lisp này được không.Thank!

Tue_NV đã test lại -> không có lỗi => Bạn thử chép toàn bộ Code của Tue_NV theo cách copy (Ctrol+C) -> dán (Ctrol+V)
Không hiểu sao pick cái nút download Lisp file của diễn đàn về thì một số chữ kgông đúng -> sai câu lệnh

Các bạn thử chép toàn bộ Code của Tue_NV theo cách copy (Ctrol+C) -> dán (Ctrol+V) theo cách thông thường thì sẽ chạy OK ngay
  • 1

#14 toai

toai

    biết vẽ ellipse

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

Đã gửi 08 June 2009 - 05:33 PM

Bác Tuệ ơi, e cũng mới chỉ tập tuẹ với Cad thôi. E đã làm thử theo hướng dẫn của bác nhưng khi ctrl+V lại có kết quả như file em gửi theo, đồng nghĩa với việc appload lại và đánh lệnh CD Acad vẫn báo unknow bác ạ. Bác bớt chút thời gian để xem file e gửi theo và chỉ bảo em nhé.Thanks!
http://www.cadviet.c.../Coppy_code.jpg
http://www.cadviet.c...files/Paste.jpg
  • 0
Mưu sự tại nhân, thành sự tại thiên.

#15 xuantran15

xuantran15

    biết lệnh ddedit

  • Members
  • PipPipPipPip
  • 295 Bài viết
Điểm đánh giá: 112 (tàm tạm)

Đã gửi 08 June 2009 - 05:49 PM

Bạn vào đây xem sẽ rõ.

http://www.cadviet.c...?showtopic=1787
Bạn nên sử dụng chức năng tìm kiếm của diễn đàn, chúc bạn tc
  • 1
Hình đã gửi
Thu đi cho lá vàng bay
Lá rơi cho đám cưới về......

#16 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 08 June 2009 - 07:53 PM

Bác Tuệ ơi, e cũng mới chỉ tập tuẹ với Cad thôi. E đã làm thử theo hướng dẫn của bác nhưng khi ctrl+V lại có kết quả như file em gửi theo, đồng nghĩa với việc appload lại và đánh lệnh CD Acad vẫn báo unknow bác ạ. Bác bớt chút thời gian để xem file e gửi theo và chỉ bảo em nhé.Thanks!
http://www.cadviet.c.../Coppy_code.jpg
http://www.cadviet.c...files/Paste.jpg

Bạn download file này về và đánh lệnh ap (APLOAD) file này lên là sử dụng được ngay :
http://www.cadviet.com/upfiles/cd.lsp
Chúc thành công :lol2:

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


  • 2

#17 hatieu

hatieu

    biết vẽ pline

  • Advance Member
  • PipPip
  • 67 Bài viết
Điểm đánh giá: 13 (tàm tạm)

Đã gửi 09 June 2009 - 08:17 AM

Bạn download file này về và đánh lệnh ap (APLOAD) file này lên là sử dụng được ngay :
http://www.cadviet.com/upfiles/cd.lsp
Chúc thành công :lol2:


Sao lại thế này nhỉ??? Anh thử xem cho em xem lỗi là làm sao, em dùng autocad 2010!!!
Hình đã gửi
  • 0
Công ty cổ phần đầu tư và xây dựng AGA
Chuyên tư vấn, cung cấp, thi công hệ vách dựng nhôm kính khổ lớn, cửa nhôm kính,
kính cường lực, vách ngăn, lan can, cầu thang kinh, lam nhôm chăn nắng.
Hot: 0984.985.119

#18 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 09 June 2009 - 08:41 AM

Sao lại thế này nhỉ??? Anh thử xem cho em xem lỗi là làm sao, em dùng autocad 2010!!!
Hình đã gửi

Bạn xem topic này vấn đề của bạn được giải quyết :
http://www.cadviet.c...?showtopic=4028
  • 0

#19 namhai

namhai

    biết vẽ rectang

  • Members
  • PipPip
  • 81 Bài viết
Điểm đánh giá: 18 (tàm tạm)

Đã gửi 16 June 2009 - 02:18 PM

Tue_NV đã test lại -> không có lỗi => Bạn thử chép toàn bộ Code của Tue_NV theo cách copy (Ctrol+C) -> dán (Ctrol+V)
Không hiểu sao pick cái nút download Lisp file của diễn đàn về thì một số chữ kgông đúng -> sai câu lệnh

Các bạn thử chép toàn bộ Code của Tue_NV theo cách copy (Ctrol+C) -> dán (Ctrol+V) theo cách thông thường thì sẽ chạy OK ngay

Tuyệt vời!!!!!!!!
  • 0
Hãy làm việc hết mình rồi mọi điều tốt đẹp sẽ đến với bạn.....

#20 nataca

nataca

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 712 Bài viết
Điểm đánh giá: 553 (tốt)

Đã gửi 17 June 2009 - 07:45 AM

Em đã có Lisp cắt Dim rùi, nhưng mình làm sao để khi cắt Dim để lại phần chân Dim dài bằng nhau ??? Phiền bác Pro sửa giúp với !!!

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 :lol2: )
Hình đã gửi
Hình đã gửi
  • 1