Info | File | ||
Tác giả: luanpq86 Bài viết gốc: 414193 Tên lệnh: p2e |
Nhờ viết lisp dim kích thước các pline và xuất ra file cel
| ||
Tác giả: littlerock Bài viết gốc: 116727 Tên lệnh: cvav 1 04 |
CADViet Antivirus !!!
| ||
Tác giả: proconeng86 Bài viết gốc: 241586 Tên lệnh: ha |
lisp chia ngang màn hình
http://www.cadviet.com/upfiles/3/9928_vv_chia_doc_2_man_hinh.lsp
Thanh công cụ của CAD thì mình biết chứ nhưng mỗi lần chọn lại rất mất thời gian, chọn view/view port/ 2 view port/horizontal. Rất mất thời gian mà. Nếu có lisp thì mình gõ lệnh rồi chọn điểm cái là đc, chuyển lại 1 màn hình gõ tiếp lệnh 1 lần nữa, sẽ đỡ tốn thời gian hơn nhiều chứ Ngoài ra CAD mặc định chia 2 màn hình đều nhau, có lisp thì mình có thể tùy ý chọn tỉ lệ bằng cách click chuột trên màn hình, sẽ tiện hơn để vẽ rất nhiều vì màn hình để gióng không cần thiết quá to mà. Trước mình thấy trên diễn đàn có chia lisp chia dọc rất hay, giá như lisp chia ngang thì tuyệt biết bao. Cao thủ nào giúp mình cái <<
| ||
Tác giả: phongtran86 Bài viết gốc: 328831 Tên lệnh: mbkc |
lisp vẽ mặt bằng kết cấu
| ||
Tác giả: qh2qa06 Bài viết gốc: 313683 Tên lệnh: tbcc |
Lisp tính giá trị trung bình của các Text !!!!
| ||
Tác giả: tungquach165 Bài viết gốc: 268317 Tên lệnh: cisov cunisov |
Ẩn hiện đối tượng theo màu
| ||
Tác giả: nguyenthe09d1 Bài viết gốc: 263653 Tên lệnh: khsn vol ttol themtext cdtc rgdd cdtb thkl |
xin lisp san nền
| ||
Tác giả: thanhduan2407 Bài viết gốc: 160697 Tên lệnh: adv edv |
Lisp thêm đỉnh cho PL
| ||
Tác giả: tvkill Bài viết gốc: 201620 Tên lệnh: kb ccd |
xin lisp ghi cao độ
| ||
Tác giả: Doan Van Ha Bài viết gốc: 420869 Tên lệnh: test |
Hàm block trong lisp?
Tặng bạn.
(defun c:test (/ p d1 d2 d3 tm1 tm2) (setq oldos (getvar "osmode")) (setvar "osmode" 0) (setq p (getpoint "\Chon diem dat:")) (setq d1 (polar p (/ (* pi 90) 180) 2000)) (setq d2 (polar p 0 2000)) (setq d (polar p (/ (* pi 45) 180) 1000)) (command "pline" p d1 d2 p "") (setq tm1 (entlast)) (command "-hatch" "p" "ANSI31" 500 0 d "") (setq tm2 (entlast)) (Objs2Blk (mapcar 'vlax-ename->vla-object (list tm1 tm2)) p "abc") (setvar... Tặng bạn.
(defun c:test (/ p d1 d2 d3 tm1 tm2) (setq oldos (getvar "osmode")) (setvar "osmode" 0) (setq p (getpoint "\Chon diem dat:")) (setq d1 (polar p (/ (* pi 90) 180) 2000)) (setq d2 (polar p 0 2000)) (setq d (polar p (/ (* pi 45) 180) 1000)) (command "pline" p d1 d2 p "") (setq tm1 (entlast)) (command "-hatch" "p" "ANSI31" 500 0 d "") (setq tm2 (entlast)) (Objs2Blk (mapcar 'vlax-ename->vla-object (list tm1 tm2)) p "abc") (setvar "osmode" oldos) (princ) ) ;----- Converts a selection of objects to a block reference. by HA. (defun Objs2Blk(lst pt bn / doc) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vlax-invoke doc 'copyobjects lst (setq bn (vlax-invoke (vla-get-blocks doc) 'add (trans pt 1 0) bn))) (vlax-invoke (vlax-get-property doc (if (= 1 (getvar 'cvport)) 'paperspace 'modelspace)) 'insertblock (trans pt 1 0) (vla-get-name bn) 1.0 1.0 1.0 0.0) (mapcar 'vla-delete lst))
<<
| ||
Tác giả: vantuan18nd Bài viết gốc: 285746 Tên lệnh: rft |
lisp Phun tọa độ các điểm từ file txt vào CAD
| ||
Tác giả: Khangrm Bài viết gốc: 323099 Tên lệnh: cc |
Hỏi cách đổi màu đối tượng trong CAD?
Thanks bạn elleHCSC. Lisp chạy tốt bạn nhé<<
| ||
Tác giả: hang xom Bài viết gốc: 15986 Tên lệnh: cot00 dc |
Đánh cốt tự động bằng lisp DC
| ||
Tác giả: vbao Bài viết gốc: 2083 Tên lệnh: mm |
Lisp tìm giá trị max hoặc min trong text
| ||
Tác giả: KE AN MAY DI VANG Bài viết gốc: 38011 Tên lệnh: ilp ipp |
Tìm giao điểm của 2 đối tượng trong bản vẽ CAD
Muốn tìm giao điển của hai đường thẳng cùng nằm trong một mặt phẳng bạn... >>
Muốn tìm giao điển của hai đường thẳng cùng nằm trong một mặt phẳng bạn dùng lệnh FILLET với R= 0 ( Auto Cad 2007) - Với hai đường thẳng không // với nhau hoặc một đường thẳng nằm trong phạm vi R của một đường cong nó sẽ cắt nhau tại 1 điểm. - Với hai đường thẳng // với nhau, giao đểm của nó sẽ là một nửa đường tròn có đường kính bằng khoảng cách giữa hai đường thẳng đó.
Trường hợp hai đường thẳng chéo nhau trong không gian sẽ không tìm được giao điểm của hai đường thẳng. Nhưng ta vẫn có thể tìm được giao điểm của hai đường thẳng này với đường thẳng thứ 3 vuông góc với mặt phẳng mà hai đường đó tạo bởi với mặt phẳng một góc <90 độ
Ví dụ đường thẳng a tạo với mặt phẳng XOY một góc 27 độ, đường thẳng b tạo với mặt phẳng một góc 38 độ. Dùng lệnh TRIM bạn sẽ tìm được giao điểm của hai đường thẳng này với đường thẳng vuông góc với mặt phẳng XOY. ( đường thẳng này sẽ đi qua hai điểm bị cắt bởi lệnh TRIM. Tôi thường xuyên dùng cách này để kết nối đường ống trong không gian nối hai thiết bị có chiều cao khác nhau. Tôi thấy có cái lips của bạn SSG bạn ngâm cứu thử xem !( lips tìm giao của đường thẳng với mặt phẳng, bạn có thể nhờ SSG viết lips tìm giao của hai đường thẳng)
<<
| ||
Tác giả: avi612 Bài viết gốc: 232549 Tên lệnh: cd |
Pro ơi Giúp em về lisp Cut Dim!
| ||
Tác giả: thanhlong.hygt Bài viết gốc: 247432 Tên lệnh: kk |
lisp xoay block theo hướng pline cho trước
| ||
Tác giả: nghiautc Bài viết gốc: 59919 Tên lệnh: t2u |
chuyển bảng mã từ TCVN3 sang UNICODE
| ||
Tác giả: NguyenNgocSon Bài viết gốc: 114853 Tên lệnh: tt |
Giúp tạo List copy nội dung text (khi nhấp chuột vào text1, text2 thì text1 chuyển thành text 2)!
| ||
Tác giả: Doan Van Ha Bài viết gốc: 422282 Tên lệnh: chon |
Lisp chọn tất cả các đối tượng thuộc 1 layer !
Thì vầy:
(defun c:chon() (cadr (sssetfirst nil (ssget "X" (list (assoc 8 (entget (car (entsel "\nChon doi tuong mau: "))))))))
|
Trang 227/330