Info | File | ||
Tác giả: Tue_NV Bài viết gốc: 41317 Tên lệnh: scc vtd dlm |
Viết Lisp theo yêu cầu
Đầu tiên, có thể bạn sử dụng lệnh Tjust để chuyển một chữ căn lề trái, một chữ căn lề phải ( mà không bị thay đổi vị trí của text) theo bạn Nataca. Hoặc có thể bạn không dùng cũng được. sau này bạn move ra một chút . Và bạn sử dụng đoạn Code của mình để thực hiện ý muốn của mình. Dưới đây là Code : Để mình giải thích . Đoạn code trên dựa...
| ||
Tác giả: mrphuocvie Bài viết gốc: 297682 Tên lệnh: %60cr1 %60cr2 |
Tư vấn hiệu chỉnh giúp đoạn lisp về lệnh COPY!
Command: COPY Select objects: 1 found Select objects: Current settings: Copy mode = Multiple Specify base point or <Displacement>: Specify second point or <use first point as displacement>: a Enter number of items to array: 10 Specify second point or : f Specify second point or : Specify second point or <Exit>: ;Phía trên là các dòng lệnh thực hiện trong Autocad2015, mình muốn đơn giản thao tác trên bằng...
| ||
Tác giả: ketxu Bài viết gốc: 162964 Tên lệnh: f+nil%3Cbr%3E |
(Yêu cầu) lisp fillet. lấy một đối tuợng chọn làm chuân
Định nghĩa lại thì mệt lắm hè...
| ||
Tác giả: huunhantvxdts Bài viết gốc: 403174 Tên lệnh: test |
Hàm Reverse
Nh? m?i ng??i gi?i thích t?i sao hàm reverse n?m trong ?o?n lisp tôi ?ang dùng nó không ch?y (Chu?i danh sách nó không ??o ng??c l?i, mu?n text ch?n tr??c nó ph?i x?p tr??c) ?ây là lisp: (defun c:test (/ lsttn lstte) (setq lop1 "entdauco") (setq ent (car (entsel "\nChon Pline hoac Hatch mau tinh dien tich:"))) (while ent (setq fltr (ssx_nhan ent)) (setq lsttn (cons...
| ||
Tác giả: Nguyen Hoanh Bài viết gốc: 402687 Tên lệnh: xinchaohoanh1 |
test code
(defun c:test() (entget (car (entsel "\nAbcde: "))) (princ))sdfdsf sdfsdf (defun c:xinchaohoanh1() (entget (car (entsel "\nAbcde: "))) (princ))
| ||
Tác giả: dckonhi1987 Bài viết gốc: 403216 Tên lệnh: 1234 round hs n |
Sửa Lisp Làm Tròn Số
Hiện tại mình đang dùng 1 đoạn code (round3) của bác ssg để làm tròn số, nhưng nó giặp lỗi khi làm tròn số 0 hoặc số nhỏ là không làm tròn được Nhờ các bác xem và sửa dùm mình với! (defun c:1234 () (load "test.LSP")) ;;;;;;;;;;;;;;;Chuyen thanh thap phan;;;;;;;;;;;;;;;;;;;;; (defun etype (e);;;Entity Type (cdr...
| ||
Tác giả: duy782006 Bài viết gốc: 403258 Tên lệnh: xuatgoc |
Nhờ Viết Lisp Xuat Xyz Sang Góc Cạnh
-Trước tết mình nhận được cái yêu cầu i chang như vậy. Tin rằng với yêu cầu như của bạn với cái suy nghĩ ai biết viết lisp thì mọi lĩnh vực chỉ cần nhá xèng cái video cái là viết theo được ngay thì bạn sẽ chờ đến muôn thu trừ khi cái người viết lisp làm cùng lĩnh vực với bạn. -Còn cái tác giả theo như bạn nói cũng là mem của cadviet đấy thì phải. -Kết quả của...
| ||
Tác giả: Thaistreetz Bài viết gốc: 192484 Tên lệnh: rsv+nil%3Cbr%3E |
- Lisp theo dõi sự thay đổi biến hệ thống trong quá trình vẽ
Đôi khi ta cần biết những biến hệ thống nào đã bị thay đổi trong và sau khi thực hiện 1 lệnh nào đó trong quá trình vẽ. Việc lấy ra danh sách giá trị của tất cả biến hệ thống trước và sau khi thực hiện lệnh rồi so sánh thực sự vất vả mà kết quả không được đây đủ chi tiết nếu bạn lấy không đủ danh sách biến. Lisp này có tác dụng theo dõi và thống kê cho bạn biết những...
| ||
Tác giả: master_worse Bài viết gốc: 109300 Tên lệnh: muondatgithidat |
Viết lisp theo yêu cầu [phần 2]
Sao bạn không dùng fi (FILTER) ? Command: fi -> Select filter chọn Text Value nhập vào ô trống bên dưới *nguyễn văn* -> Add to list -> Apply -> chọn tất tần tật ---------------------------- Không biết đúng ý không
| ||
Tác giả: phamngoctukts Bài viết gốc: 110477 Tên lệnh: tdd |
Viết lisp theo yêu cầu [phần 2]
Cái này mình làm theo đúng ý của bạn. Nó xuất toạ độ các đỉnh ra file txt trong cùng thư mục và cùng tên với bản vẽ đang mở.
| ||
Tác giả: quocmanh04tt Bài viết gốc: 403670 Tên lệnh: tt%C2%A0 |
Nhờ Mọi Người Sửa Hộ Lisp Leader.
Điểm C chỉ là để lấy khoảng cách và góc hợp giữa đoạn thẳng nối A-C với khúc đầu của leader. Hướng rải luôn theo hướng mũi tên leader, nếu góc ở trên < 90 thì rải giật lùi và ngược lại. (defun c:tt (/ ang apt dis ele ent i lea len lsc lsm lsp pt pt1 pt2) (vl-load-com) (vla-startundomark (vla-get-activedocument (vlax-get-acad-object))) (if (and (setq...
| ||
Tác giả: quocmanh04tt Bài viết gốc: 403829 Tên lệnh: tt%C2%A0 |
Bóc Khối Lượng Block Dynamic Tích Hợp Nhiều Đối Tượng
Ồ vậy mà...! Khi làm lisp, lấy tên block nó ra tiếng Hàn, chỗ thì được chỗ thì lỗi, làm mình phải cài thêm tiếng Hàn cho máy để kiểm tra LISP... Đây là lisp sửa lại từ BLKQTY của Bác GiaBach (Nếu muốn đổi chiều cao chữ thì gõ lệnh TEXTSIZE nhập giá trị trước khi chạy Lisp). (defun c:tt (/ LM:al-effectivename LM:getdynprops blk blk_name ent i lst_blk pt row ss...
| ||
Tác giả: Tot77 Bài viết gốc: 403865 Tên lệnh: tt | |||
Tác giả: duy782006 Bài viết gốc: 3791 Tên lệnh: nd+%3Cbr%3E |
Viết Lisp theo yêu cầu
Mình có cái này hồi xưa thấy trong CD bán ngoài thị trường chẳng biết của ai viết nhưng đúng ý của bạn nè. Tên lệnh là ND Chọn chử muốn chỉnh trước rồi chọn chử làm mẫu sau. Chúc vui !!!!!!
| ||
Tác giả: saocuoitroi Bài viết gốc: 396628 Tên lệnh: gktc |
Hỏi-Lisp Ghi Kích Thước Cạnh Tự Động Cho Polyline Theo Tỷ Lệ Tự Chọn
Em sưu tầm được lisp ghi kích thước cạnh tự động của bác Duân, nhưng khi chạy lisp muốn chọn tỷ lệ trước: ví dụ: chọn tỉ lệ 1/1000; 1/2000;1/… thì vẽ độ dài ra text theo đúng tỷ lệ (Tương ứng với tỉ lệ) , đồng thời phần thập dấu chấm “.” thay bằng dấu phẩy “,” . Mong các bác giúp đỡ, cảm ơn nhiều ạ. LISP: (Em mem mới không biết up lisp thế nào xin thông cảm...
| ||
Tác giả: various Bài viết gốc: 403929 Tên lệnh: ob2wo wof wo2pl |
Lỗi Lisp Vẽ Wipeout Không Có Tác Dụng Trong Acad2016
Link ảnh gif để mọi người view cho dễ http://gifyu.com/image/ZyQ Em sử dụng lisp có code như thế này. Ở Acad2010 vẫn bình thường, sang 2016 thì không có tác dụng nữa. Mong mọi người giúp đỡ ;;; OB2WO (gile) -Gilles Chanteau- 10/03/07 ;;; UPDATE BY KETXU (04/04/2012) ;;; Creates a "Wipeout" from an object (circle, ellipse, or...
| ||
Tác giả: conmasitinh Bài viết gốc: 15630 Tên lệnh: ax az |
Vẽ đường thằng đặc biệt
Có nhiều trường hợp đấy bạn, phải có thêm ràng buộc thì may ra
| ||
Tác giả: Tot77 Bài viết gốc: 403997 Tên lệnh: ob2wo wof wo2pl |
Lỗi Lisp Vẽ Wipeout Không Có Tác Dụng Trong Acad2016
Sửa lại và test trên AC2015 ok. (defun c:OB2WO (/ ent lst nor ss) (vl-load-com) (if (setq ss (ssget (list (cons 0 "CIRCLE,ELLIPSE,LWPOLYLINE")))) (progn (vla-StartundoMark (vla-get-ActiveDocument (vlax-get-acad-object))) (initget "Yes No") (setq ans (getkword "\nDelete source object? [Yes/No] <No>: ")) (foreach ent...
| ||
Tác giả: minhtu2004 Bài viết gốc: 404057 Tên lệnh: z0 | |||
Tác giả: thanh_kta Bài viết gốc: 404244 Tên lệnh: gc |
Trang 207/330