Đến nội dung


Hình ảnh
* * * - - 8 Bình chọn

Viết lisp theo yêu cầu [phần 2]


  • Chủ đề bị khóa Chủ đề bị khóa
3783 replies to this topic

#2941 phamvanthiet108

phamvanthiet108

    biết vẽ polygon

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

Đã gửi 23 December 2010 - 08:27 AM

nhờ các bác giúp: mình có file micro khi chuyển qua autocad không mở được báo lỗi " drawing is not valid". Bác nào biết xin chuyển dùm. Xin cảm ơn
http://www.cadviet.c.../3/mptanvan.rar

Của bác đây.em đã save xuống cad 2004 cho bác rùii.
http://www.cadviet.c...s/3/gui_bac.rar
  • 2

#2942 thichhoabinh

thichhoabinh

    biết vẽ circle

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

Đã gửi 23 December 2010 - 08:50 AM

Không hiểu xóa group của bạn nghĩa là thế nào luôn. (xóa group trên bản vẽ hay là explode group)
đây là lệnh tạo nhanh group. group được tạo là 1 group không tên. với chú thích Desgription là: thichhoabinh's Group. bạn có thể tìm thấy nó trong Group manager bằng cách pick chọn Include unnamed.
(defun c:TG ()(ACET-GROUP-MAKE-ANON (acet-ss-to-list (ssget)) "thichhoabinh's Group"))

Tks bạn.Xóa group tức ý mình là explode nó đó :"> .Bạn làm cái explode khi kick vào 1 đối tượng, và 1 cái explode toàn bộ group nhé :undecided:
  • 0

#2943 Vutuananh174

Vutuananh174

    biết vẽ circle

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

Đã gửi 23 December 2010 - 09:30 AM

Sorry bà con!
Tình hình là bị mất cái lisp trích dẫn đối tuợng ( copy đối tưọng trong vùng kín rồi lấy ra để trích dẫn chi tiết). Search hoài mà không thấy! Ai có repost dùm mình nhé!
Thanks và hậu tạ 2 ly cà phê!
  • 0

#2944 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 23 December 2010 - 09:54 AM

Tks bạn.Xóa group tức ý mình là explode nó đó :"> .Bạn làm cái explode khi kick vào 1 đối tượng, và 1 cái explode toàn bộ group nhé :undecided:

Explode toàn bộ group thì bạn thử dùng dòng này xem sao
(defun c:xg() (vlax-map-collection (vla-get-groups (vla-get-activedocument (vlax-get-acad-object))) '(lambda (x) (vla-delete x))))

P/S bác Sờ Trít : các hàm ACET ấy sao e tìm thấy mỗi tí nhỉ :leluoi:
  • 2

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#2945 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 23 December 2010 - 10:19 AM

Mình dùng tới bước 6 thì tắt ngấm rồi bạn ơi,
Mình không tách được.
Mong được bạn giúp
khi mình thao tách như sau

Command: loc

Chon 1 doi tuong lam mau loc
Chon cach loc: Kieu,Lop,Mau,Dangduong k

Select objects: Specify opposite corner: 2421 found

Select objects:

Command:
Command: change
2421 found
Specify change point or [Properties]: li

Point or option keyword required.
Specify change point or [Properties]:

Specify new text insertion point :

Enter new text style :

Specify new height <2.00>:

Specify new rotation angle <354>:
Không chuyển về lớp text, khi mình chọn đối tượng text số

Hề hề hề,
Cái bạn post chứng tỏ kỹ năng về CAD của bạn còn kém lắm. Hãy học tập và bổ sung đi nhé.
Theo như cái bạn post thì lisp đã chọn được tập đối tượng cho bạn rồi, nhưng khi bạn thực hiện lệnh Change trong CAD thì bạn thực hiện sai mà thôi.
Sau khi nhập lệnh Change, bạn phải nhập P tức là properties. Nhấn Enter nó sẽ hiện ra một dãy các tham số mà bạn phải chọn.
Nếu bạn định chuyển layer của các đối tượng chọn, bạn phải nhập tiếp LA, tức layer và nhấn enter.
Khi đó Cad sẽ hiện các tham số để bạn chọn tiếp, nếu không chọn thay đổi gì nữa thì bạn nhấn tiếp enter , Cad sẽ thoat khỏi lệnh change.

Túm lại là ban cần học kỹ về các thao tác sử dụng các lệnh của CAd nếu bạn muốn trở thành một Cadman.
Hề hề hề,
Như vậy một lần nữa mình khẳng định lisp không sai mà là bạn sai....
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#2946 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 23 December 2010 - 10:33 AM

Việc xác định tim đường giao thông và thủy lợi trong bản vẻ quá lớn, phài đo, chia và vẽ đoạn giửa 2 đường .
Nay nhờ các anh giúp cho một Lisp xác dịnh tim giửa 2 đường, Khi ta chọn đường lề thứ nhứt và thứ 2 thì vẻ đường ở giửa và ghi ra lớp tim điuờng, khi chọn vẻ tim thuy hệ thì tao lớp tim thủy hệ.
Rất mong được các anh giúp
http://www.cadviet.c...tim_gt_tloi.rar

Chào bạn khaosat2009,
Hề hề hề, chả gì bạn cũng là một cây đa cây đề trong cái làng Cadviet này rồi mà. Vậy mà bạn chả chịu tìm kiếm trước khi post bài. Thật là .... thiếu gương mẫu...
Nếu mình nhớ không lộn thì trong phần viết lisp theo yêu cầu đã có cái lisp này rồi đó. Hề hề hề.
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#2947 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 23 December 2010 - 10:43 AM

Sorry bà con!
Tình hình là bị mất cái lisp trích dẫn đối tuợng ( copy đối tưọng trong vùng kín rồi lấy ra để trích dẫn chi tiết). Search hoài mà không thấy! Ai có repost dùm mình nhé!
Thanks và hậu tạ 2 ly cà phê!

Hình như nó chính là cái lisp của bác NguyenNdait ngay phía trên bài của bạn mấy bài đó. thử xem có đúng không
@Ketxu: có 1 topic về các hàm acet đấy, bạn có thể tham khảo trong topic đó.
  • 0

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#2948 VUVUZELA

VUVUZELA

    biết lệnh chamfer

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

Đã gửi 23 December 2010 - 11:01 AM

bác VUVUZELA có thể đặt khoảng cách miacần xóa không ạ?? ý em là tùy thuộc vào địa hình của mình mà xóa mia dày, mỏng cho phù hợp đó.gửi bác file cad 2008 :http://www.cadviet.com/upfiles/3/sua.rar .bác sửa được trắc ngang ở bản 08 ko a?


chài
bác này chơi khó tui kô à
bác gửi tui cái file nova mà bị bác ẽplođe tùm lum sao mà sửa cho nổi
bác gửi lại tui file khác (nguyên bản chưa explode j hết) í
mà có thể chạy các lệnh nova như : t , td, tn ... thì mới sửa ok được
ok?
  • 1

Hệ thống Liên Kết, Thiết Kế Tự Động

ttps://www.facebook...etThietKeTuDong


#2949 quan08

quan08

    biết vẽ pline

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

Đã gửi 23 December 2010 - 01:38 PM

Mình sửa và bổ xung cho bạn rồi này. Chúc bạn như ý.


;; free lisp from cadviet.com

(DEFUN C:gct ()
(SETQ DK1 (GETVAR "USERR3"))
(IF (= DK1 0)
    (PROGN
     (SETQ STR "1")
     (SETVAR "USERR3" 1)
    )    
    (SETQ STR (RTOS DK1))
)
(SETQ PRPT (STRCAT "\nSize <" STR ">:"))
(SETQ DK1 (GETREAL PRPT))
(IF (= DK1 NIL)
    (SETQ DK1 (GETVAR "USERR3"))
    (SETVAR "USERR3" DK1)
)
(setq dk (* DK1 50))
(INITGET 7)
(SETQ PTD (GETPOINT "\nFrom point:"))
(INITGET 7)
(SETQ PTC (GETPOINT PTD "\nTo point:"))
(SETQ GOCX (ANGLE PTD PTC))
(SETQ GOCY (+ GOCX (/ PI 2)))
(setq v (rtos dk))
(setq t (distance ptd ptc))
(setq r (/ t 2))
(SETQ PT1 (POLAR  PTc  0   (* 33 DK)))
(SETQ o (POLAR  PT1  0   (* 5.2 DK)))
(setq h (substr v 1 1))
(setq y (substr v 2 3))
(setq l (distance ptc pt1))
(setq pt3 (polar ptc 0 (/ l 1.85)))
(setq pt4 (polar pt3 (/ pi 2) (* 4 DK)))
(setq pt5 (polar ptd (- gocx (/ pi 2)) r))
(setq pt6 (polar ptd (+ gocx (/ pi 2)) r))
(setq pt7 (polar ptd (+ gocx  pi) r))
(setq pt8 (polar ptd  gocx   100))
(command "osnap"  "")
(command "layer" "m" "ghichu" "c" "163" """")
(COMMAND "COLOR" "84" "")
(COMMAND "STYLE" "T_THEP"  "romans.shx,vn1.shx" "" "" "" "" "" "" )
(command "text" "j" "m" pt4 (* 5 DK) 0)
(command "%%c10a150" )
(setq sua (entlast))
(if (= (tblsearch "block" "ghithep_t") nil)
(progn
(COMMAND "STYLE" "VnAvant"  ".VnAvant" "" "" "" "" "")
(command "attdef" "" 1 1 1 "j" "m" o (* 5 50) 0)
(setq ss (ssadd))
(setq ss (ssadd (entlast) ss))
(COMMAND "COLOR" "4" "")
(command "circle" o (* 5.2 50)"")
(setq ss (ssadd (entlast) ss))
(command "block" "ghithep_t" o ss "")
(command "insert" "ghithep_t" o DK1 DK1 "" "1")
)
(command "insert" "ghithep_t" o DK1 DK1 "" "1")
)
(initget 1 "TR T C")
(setq w (getkword "\nBan muon dung: [TRong/duong Tron/duong Cheo]: "))
(if (= (strcase w) "T")
(progn
(COMMAND "COLOR" "150" "")
(setvar "plinewid" 0)
(COMMAND "PLINE" pt8 ptc pt1 "")
(command "circle" ptd 100 "")
)
)
(if (= (strcase w) "C")
(progn
(COMMAND "COLOR" "150" "")
(setvar "plinewid" 0)
(COMMAND "PLINE" PTD ptc pt1 "")
(setq pg1 (polar PTD (- pi (/ pi 4)) 100))
(setq pg2 (polar PTD (- (* pi 2) (/ pi 4)) 100))
(setvar "plinewid" 20)
(command "pline" pg1 pg2 "")
)
)
(if (= (strcase w) "TR")
(progn
(COMMAND "COLOR" "150" "")
(setvar "plinewid" 0)
(COMMAND "PLINE" PTD ptc pt1 "")
)
)
(COMMAND "COLOR" "BYLAYER" "")
(command "osnap" "End,Mid,Cen,Quad,Int,Perp,Tan,Near,App,Int,Ext,Par"  )
(command "ddedit" sua pause)
)

Lisp rất hay,nhưng bác ơi khi thực hiện lệnh có dấu gạch chéo xong rồi thực hiện lệnh khác thì ok nhưng khi vẽ lệnh pline thì nó sẽ gán chiều dày của pline này là 20 giống trong lisp.Mong bác sửa lisp này sao cho không ảnh hưởng đến pline.Cảm ơn các bác rất nhiều.
  • 0

#2950 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 24 December 2010 - 12:20 PM

Lisp rất hay,nhưng bác ơi khi thực hiện lệnh có dấu gạch chéo xong rồi thực hiện lệnh khác thì ok nhưng khi vẽ lệnh pline thì nó sẽ gán chiều dày của pline này là 20 giống trong lisp.Mong bác sửa lisp này sao cho không ảnh hưởng đến pline.Cảm ơn các bác rất nhiều.

Hề hề hề,
Bạn bổ sung thêm dòng code sau vào trước khi kết thúc lisp : (setvar "plinewid" 0).
  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#2951 quan08

quan08

    biết vẽ pline

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

Đã gửi 24 December 2010 - 01:53 PM

Hề hề hề,
Bạn bổ sung thêm dòng code sau vào trước khi kết thúc lisp : (setvar "plinewid" 0).

Phiền bác chỉ thêm vào chỗ nào cho e luôn nha vì e chưa biết lisp.Cảm ơn bác rất nhiều.
  • 0

#2952 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 24 December 2010 - 02:02 PM

Phiền bác chỉ thêm vào chỗ nào cho e luôn nha vì e chưa biết lisp.Cảm ơn bác rất nhiều.

Hề hề hề,
Bạn không chịu đọc kỹ đấy thôi. Mình đã nói là thêm vào trước khi kết thúc lisp mà.
Bạn xem nhé:
Đây là đoạn lisp kết thúc:
(COMMAND "COLOR" "BYLAYER" "")
(command "osnap" "End,Mid,Cen,Quad,Int,Perp,Tan,Near,App,Int,Ext,Par" )
(command "ddedit" sua pause)
)

Và bạn thêm vào thành:
(COMMAND "COLOR" "BYLAYER" "")
(command "osnap" "End,Mid,Cen,Quad,Int,Perp,Tan,Near,App,Int,Ext,Par" )
(command "ddedit" sua pause)
(setvar "plinewid" 0)
)

Rồi chạy thử coi sao hè....
  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#2953 quan08

quan08

    biết vẽ pline

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

Đã gửi 24 December 2010 - 03:02 PM

Hề hề hề,
Bạn không chịu đọc kỹ đấy thôi. Mình đã nói là thêm vào trước khi kết thúc lisp mà.
Bạn xem nhé:
Đây là đoạn lisp kết thúc:
(COMMAND "COLOR" "BYLAYER" "")
(command "osnap" "End,Mid,Cen,Quad,Int,Perp,Tan,Near,App,Int,Ext,Par" )
(command "ddedit" sua pause)
)

Và bạn thêm vào thành:
(COMMAND "COLOR" "BYLAYER" "")
(command "osnap" "End,Mid,Cen,Quad,Int,Perp,Tan,Near,App,Int,Ext,Par" )
(command "ddedit" sua pause)
(setvar "plinewid" 0)
)

Rồi chạy thử coi sao hè....

Vẫn còn bị bác ơi.
  • 0

#2954 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 24 December 2010 - 04:22 PM

Vẫn còn bị bác ơi.

Chào bạn quan08,
Sau khi sửa lisp bạn có load lại lisp không??? Nếu đã load lại mà vẫn còn bị thì chắc phải nhờ tới bác phamngoctukts gỡ thôi. Không nhẽ lại do cái thằng biến USERR3 gây ra. Mình chưa hiểu bạn ạ....
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#2955 quan08

quan08

    biết vẽ pline

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

Đã gửi 24 December 2010 - 04:50 PM

Chào bạn quan08,
Sau khi sửa lisp bạn có load lại lisp không??? Nếu đã load lại mà vẫn còn bị thì chắc phải nhờ tới bác phamngoctukts gỡ thôi. Không nhẽ lại do cái thằng biến USERR3 gây ra. Mình chưa hiểu bạn ạ....

E có load lại rồi bác ah.thanks.
  • 0

#2956 ngocnam.cad

ngocnam.cad

    biết vẽ ellipse

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

Đã gửi 24 December 2010 - 06:41 PM

Không phải lúc nào nó cũng lỗi nếu không chạy lệnh NS. truờng hợp nỗi thỉnh thoảng mới xảy ra. thay vì hỏi lại mình như thế này sao bạn không thử chạy với truờng hợp như bạn vừa nêu để thấy kết quả? :undecided:

hì. em xin lỗi bác.. đừng giận bác à. em trả lời bác ngay mà chưa có dịp thử nên hỏi vội quá. bác bỏ quá em nhé . Cám ơn bác nhiều.
  • 0

#2957 ngocnam.cad

ngocnam.cad

    biết vẽ ellipse

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

Đã gửi 24 December 2010 - 06:44 PM

chài
bác này chơi khó tui kô à
bác gửi tui cái file nova mà bị bác ẽplođe tùm lum sao mà sửa cho nổi
bác gửi lại tui file khác (nguyên bản chưa explode j hết) í
mà có thể chạy các lệnh nova như : t , td, tn ... thì mới sửa ok được
ok?

Vâng em sơ ý quá. giờ em đang onl nhà bạn, mai em gửi file cho bác nhé !Bác VuVuzela có bí kíp gì thì chỉ dạy cho em với... Em xin cảm ơn và hậu tạ, coi như học phí. dc ko bác?? :undecided:
  • 0

#2958 quan08

quan08

    biết vẽ pline

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

Đã gửi 24 December 2010 - 10:26 PM

Chào bạn quan08,
Sau khi sửa lisp bạn có load lại lisp không??? Nếu đã load lại mà vẫn còn bị thì chắc phải nhờ tới bác phamngoctukts gỡ thôi. Không nhẽ lại do cái thằng biến USERR3 gây ra. Mình chưa hiểu bạn ạ....

Bác phamngoctukts chắc cuối năm bận lo chia......nên dạo này ít thấy trên diễn đàn giúp đỡ a e.
  • 0

#2959 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 25 December 2010 - 12:46 PM

Bác phamngoctukts chắc cuối năm bận lo chia......nên dạo này ít thấy trên diễn đàn giúp đỡ a e.

Chào bạn quan08,
Có thể bác ấy đang bận nhiều việc khác chứ không hẳn đã là chia bạn ạ. Mình đã test thử cái lisp của bác ấy sau khi bổ sung dòng code như mình nói thì thấy không bị lưu biến plinewid nữa mà bạn. Hay là mình làm sai cái gì chăng???
Các thao tác mình đã sử dụng như sau:
1/- load lisp đã chỉnh sửa
2/- nhập lệnh gct
3/- Nhập size - enter
4/- nhập diểm from và điểm to
5/- Lisp nó chạy loằng ngoằng một lúc và trả ra dòng lệnh Ban muon dung: [TRong/duong Tron/duong Cheo]:
6/- Nhập C (đường chéo). lisp nó lại loằng ngoằng một tí rồi trả về cái nét chéo với độ rộng 20 và trên dòng command: Select an annotation object or [Undo]:
7/ Nhấn OK hay cancel thì Lisp trả về: Command: 0

Thế rồi mình vẽ pline thoải mái với chiều rộng nét vẫn là 0 mà.

Không rõ có đúng cái bạn cần hay không, và cũng không rõ bạn đã làm thế nào nên mình nói vầy để bạn thử làm lại coi sao nhé.
Hy vọng đúng với cái yêu cầu của bạn...
  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#2960 hugo75

hugo75

    biết vẽ polygon

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

Đã gửi 26 December 2010 - 10:49 AM

Trên diễn đàn có 1 lisp vẽ mặt cắt dầm:
;; free lisp from cadviet.com
(defun c:MCD (/ A B C BV D E D1 E1 F P1 P2 S)
(setq oldosmode (getvar "osmode"))
(setvar "osmode" 0)
(setq
A (getreal "\nBe rong mc DAM:")
B (getreal "\nBe dai mc DAM:")
S (getreal "\nBe day san:")
BV (getreal "\nLop bv mc DAM:")
D (getint "\nS.luong thep ngang mc DAM:")
E (getint "\nS.luong thep doc mc DAM:")
P1 (getpoint "\nDiem chen:")
F (* bv 0.7)
D1 (/ (- A (* 2 BV) (* F 2)) (- D 1))
E1 (/ (- B (* 2 BV) (* F 2)) (- E 1))
); end of setq
(command ".rectangle" "f" (* bv 0.5) (list (+ (car P1) BV) (+ (cadr P1) BV))
(list (+ (car P1) (- A BV)) (+ (cadr P1) (- B BV))) "" "f" "0" ""
".change" "L" "" "P" "C" 1 ""
".pline" (Polar P1 0 (/ A 2)) "W" 0 0
P1
(setq P11 (list (car P1) (+ (cadr P1) (- B S))))
(setq P11 (list (- (car P11) (* 2 S)) (cadr P11)))
(list (car P11) (- (cadr P11) (* 0.4 S)))
(setq P11 (list (car P11) (+ (cadr P11) (* 0.4 S))))
(setq P11 (list (- (car P11) (* 0.4 S)) (cadr P11)))
(setq P11 (list (+ (car P11) (* 0.8 S)) (+ (cadr P11) (* 0.2 S))))
(setq P11 (list (- (car P11) (* 0.4 S)) (cadr P11)))
(list (car P11) (+ (cadr P11) (* 0.8 S)))
(setq P11 (list (car P11) (+ (cadr P11) (* 0.4 S))))
(setq P11 (list (+ (car P11) (* 2 S) (/ A 2)) (cadr P11)))
""
".mirror" "L" "" (Polar P1 0 (/ A 2)) P11 ""
".pedit" "l" "j" "p" "l" "" ""

); end of command
(setq P2 (list (+ (car P1) BV F) (+ (cadr P1) BV F)))
(repeat D
(command ".donut" 0 F P2 ^C)
(setq P2 (polar P2 0 D1))
); end of repeat1
(setq P2 (list (+ (car P1) BV F) (+ (cadr P1) (- B BV F) )))
(repeat D
(command ".donut" 0 F P2 ^C)
(setq P2 (polar P2 0 D1))
); end of repeat2
(setq P2 (list (+ (car P1) BV F) (+ (cadr P1) BV F)))
(repeat (- E 2)
(setq P2 (polar P2 (/ pi 2) E1))
(command ".donut" 0 F P2 ^C)
); end of repeat3
(setq P2 (list (+ (car P1) (- A BV F)) (+ (cadr P1) BV F)))
(repeat (- E 2)
(setq P2 (polar P2 (/ pi 2) E1))
(command ".donut" 0 F P2 ^C)
); end of repeat3
(setvar "osmode" oldosmode)
)
Giả sử mình có sẵn 4 layer tên là:1,2,3,4 vậy mình muốn gán cho đường bao là layer 1 ,dấu cắt là số 2,chấm tròn thép là số
3,thép đai là số 4 thì phải sửa làm sao trong lisp này.Các bác thông cảm e đã viết bài này trong mục khác nhưng hình như mục đó ít cao thủ vào đọc nên mạn phép cho e viết vào mục này.Mong được sự giúp đỡ của các bác.Thanks
  • 0