Info | File | ||
Tác giả: ketxu Bài viết gốc: 193908 Tên lệnh: test |
Lisp lọc các số sau chữ L, rồi tính tổng.
^^ Fixed (defun c:test() (alert (vl-princ-to-string (apply '+ (mapcar '(lambda(x)(atof (vl-string-left-trim tmp (acet-dxf 1 (entget x))))) (acet-ss-to-list (ssget (list (cons 0 "TEXT")(cons 1 (setq tmp (strcat "D" (itoa (getint "\nD : ")) "`,L#*")))))) )))))
| ||
Tác giả: Doan Van Ha Bài viết gốc: 193880 Tên lệnh: ha | |||
Tác giả: Nguyen Hoanh Bài viết gốc: 21783 Tên lệnh: acl |
Hỏi về cách vẽ 1 cung có kích thước chính xác.
Cái này em cũng ngồi giải nát óc mà không ra. Search mỏi tay thì được phương pháp giải bài toán: f(x) = sin(x) - kx = 0. Nhưng người ta cũng phải sử dụng phương pháp lặp Newton để giải. Bài gốc (bằng tiếng Anh) ở đây: http://mathforum.org/dr.math/faq/faq.circle.segment.html#n1 Xin mô tả lại phương pháp này cho mọi người (cũng lặp giống pp của bác ssg): Khởi tạo:...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 193946 Tên lệnh: ha |
Lisp lọc các số sau chữ L, rồi tính tổng.
Nhiều khi nói ra thì hơi quê (mà quê thiệt!): tôi rất sợ dùng 3 hàm: vl-string-trim, vl-string-left-trim, vl-string-right-trim, vì cú pháp nó dễ nhầm lẫn. Nhân tiện, chơi luôn cái lisp tính chung cho các loại đường kính luôn (cầu mong nó không lỗi!)
| ||
Tác giả: Thaistreetz Bài viết gốc: 194027 Tên lệnh: vv |
Nhờ viết lisp chia màn hình (VPort)
Tỷ lệ 4/9 và 5/9 để phân chia màn hình chính và phụ không hợp lý lắm. Tại vì bạn phải thao tác bằng lệnh của cad nên chỉ tạo được tỷ lệ này là điều dễ hiểu. Mình đề xuất tỷ lệ 2/5 và 3/5 để tăng kích thước màn hình chính thêm 1 chút nữa. ;;; Copyright 2011 Thaistreetz from cadviet.com (defun C:VV (/ get-coordinate-screen TS:zoom PT1 PT2)
| ||
Tác giả: phamthanhbinh Bài viết gốc: 194024 Tên lệnh: arl acl acl1 |
Hỏi về cách vẽ 1 cung có kích thước chính xác.
Hề hề hề, Đây là code của bác SSG mình sửa lại chút chút theo yêu cầu của bạn. Lệnh vẽ là acl1 khác chút chút với lệnh acl của bác SSG. Ưu nhược điểm của nó thì bạn đọc các bài post phía trên sẽ hiểu.
| ||
Tác giả: nguyentienthanhddksct Bài viết gốc: 194067 Tên lệnh: rdt dtd rt rtd |
Lisp copy text tăng dần theo đường pl,arc,line
Lisp rtd đúng theo ý của mình nhưng text lại không tăng dần theo ý của mình. còn lệnh rt thì tăng dần nhưng text lại không nằm ở đường pl. bạn có thể sửa lại giúp mình được không bạn. đây là lsp đó: ;; free lisp from cadviet.com ;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=42771&st=60 (Defun c:rdt (/ ss doituong dsl dc ddd chondd chieudaicuver...
| ||
Tác giả: ketxu Bài viết gốc: 194090 Tên lệnh: vv |
Nhờ viết lisp chia màn hình (VPort)
Bác Thái hứng thú với các bài toán có cái Screen nhỉ ^^ Theo e thì nâng lên 1 tẹo nữa là dễ xài ngay : (defun C:VV (/ get-coordinate-screen TS:zoom PT1 PT2) (defun get-coordinate-screen (coner / Y1 X1) (cond ((= (strcase coner) "TL") (polar(polar(getvar "viewctr")(* 0.5 pi) (setq Y1 (* 0.5 (getvar "viewsize")))) pi (/(* Y1 (car(setq X1 (getvar "screensize"))))(cadr X1)))) ((= (strcase...
| ||
Tác giả: Thaistreetz Bài viết gốc: 194097 Tên lệnh: vv |
Nhờ viết lisp chia màn hình (VPort)
hà hà. ketxu giải quyết vấn đề đơn giản mà hiệu quả. Cứ thấy thế nào vừa mắt là chơi, đỡ fải lăn tăn tỷ lệ. Đã nâng thì nâng cho tới z luôn nhé. bỏ thằng "ThaistreetzView" kia đi khi không dùng nó nữa. như thế sẽ mềm dẻo hơn cho nhu cầu sử dụng (defun C:VV (/ get-coordinate-screen TS:zoom PT1 PT2 tl) (defun get-coordinate-screen (coner / Y1 X1) (cond ((= (strcase coner)...
| ||
Tác giả: ketxu Bài viết gốc: 194081 Tên lệnh: test |
Lisp copy text tăng dần theo đường pl,arc,line
Code cực nhanh và ẩu, theo hình bạn ấy post , k theo lời OP nói (vì k giống nhau ^^), nhưng bạn có thể bắt đầu từ đây : (defun c:test()(vl-load-com) (setq objPath (vlax-ename->vla-object (car (entsel "\nPath:"))) len (vlax-curve-getDistAtParam objPath (vlax-curve-getEndParam objPath)) objTxt (vlax-ename->vla-object (car (entsel "\nText:"))) basePnt (vlax-get objTxt 'InsertionPoint) num...
| ||
Tác giả: nguyentienthanhddksct Bài viết gốc: 194076 Tên lệnh: rdt dtd rt rtd |
Lisp copy text tăng dần theo đường pl,arc,line
Lisp này đã đúng yêu cầu của mình lệnh rtd chỉ copy ko tăng dần, nhờ mọi người sửa lại tăng dần cho minh. thanks ;; free lisp from cadviet.com ;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=42771&st=60 (Defun c:rdt (/ ss doituong dsl dc ddd chondd chieudaicuver diemdau diemcuoi krai chieudaidoan slc sl index d2 p2 d5 p5 d3 p3 dt l m) (vl-load-com) (command...
| ||
Tác giả: NguyenNgocSon Bài viết gốc: 194124 Tên lệnh: dc |
viết lisp copy nhảy cao độ tự động như hình vẽ kèm theo
Xin phép Ketxu. Mình sửa thêm cái chỗ cho thêm tỷ lệ vào cho bạn @svxd và hugo. Thú thực là không am hiểu code lisp từ đầu nên cũng thi thoảng sửa 1 hai chỗ đơn giản thôi. Mong các bác hiểu cho, có thời gian cũng tìm hiểu được. Cám ơn @Ketxu lisp rất hay. ;; free lisp from cadviet.com ;;; this lisp was downloaded from...
| ||
Tác giả: phamthanhbinh Bài viết gốc: 131517 Tên lệnh: chla |
Nhờ viết lisp dọn mặt bằng siêu tốc
Bạn dùng thử cái này coi sao. Với các dim mình chưa giải quyết do chưa hiểu hết, cần tìm hiểu thêm. Với các block, mặc dù mình đã sử dụng phép đệ quy nhưng không hiểu vì sao vẫn chưa triệt để được. Có lẽ các block của bạn còn phức tạp hơn cái mình nghĩ chăng. Hy vọng nó sẽ giúp bạn được phần nào trong công việc. Có gì cần bổ sung bạn cứ nói nhé. Phần về dim mình...
| ||
Tác giả: phamthanhbinh Bài viết gốc: 131686 Tên lệnh: chdim |
Nhờ viết lisp dọn mặt bằng siêu tốc
Gửi bạn cái lisp dùng để chuyển các đối tượng Dim trên bản vẽ về cùng lớp Architech và có màu là 8. Việc ghép lisp này với lisp trước mình chưa làm được nên bạn có thể nghiên cứu để tự ghép hoặc dùng kết hợp (phải gõ hai lệnh lisp). Chúc bạn vui.
| ||
Tác giả: ketxu Bài viết gốc: 194220 Tên lệnh: kmm |
Giúp viết lisp chuyển tất cả các đối tượng về 1 layer
Nguyên văn nó như thế này : (defun c:kmm(/ ss sss doc Util ent) (vl-load-com) (if (not (tblsearch "LAYER" "LAYERCHUNG")) (command "Layer" "N" "LAYERCHUNG" "S" "LAYERCHUNG" "") ) (setq ss (ssget "X" (list (cons -4 "<not") (cons 8 "LAYERCHUNG")(cons -4 "not>")))) (setq doc (vla-get-activeDocument...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 194244 Tên lệnh: ha |
Lisp chọn tập hợp đối tượng gần nhất được sinh ra bởi 1 lênh.
Có phải tương tự cái này không?
| ||
Tác giả: nguyentienthanhddksct Bài viết gốc: 194296 Tên lệnh: tc |
viết lisp di chuyển các text vào giữa vòng tròn
Đây bạn: ;; free lisp from cadviet.com ;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=22849 (defun C:TC (/ Txt PTxt PTX SS i prmt DK TEMP_JTF DCL_ID DCL_JTF) (setq SS (ssget "I" '((0 . "TEXT"))) i 0) (command "undo" "begin") (setvar "cmdecho" 0) (if (not JTF-T) (setq JTF-T (list 0 1 0))) (if (= (cadr JTF-T) 1) (setq prmt...
| ||
Tác giả: phamthanhbinh Bài viết gốc: 194344 Tên lệnh: xp2t xp2c |
( yêu cầu ) viết hộ mình líp này với !
Hề hề hề, Bạn dùng thử lisp này coi đã ưng ý chưa nhé. Có hai lệnh là xp2t và xp2c để xuất điểm qua file *.txt hoặc file *.csv tùy bạn lựa chọn. các file xuất ra đều nằm chung thư mục chứa bản vẽ của bạn. Nếu có gì không đồng ý thì hãy post lên để mình xem lại Chúc bạn vui.
| ||
Tác giả: Thaistreetz Bài viết gốc: 194408 Tên lệnh: wr |
- Lệnh Bật/Tắt wipeout thay cho lệnh của cad
Bức xúc với việc fải lòng vòng để bật tắt wipeout bằng lệnh wipeout của cad và việc nó cứ tự động thêm 1 bước regen bản vẽ khi thực hiện thao tác bật hoặc tắt, bản vẽ nhẹ thì không sao chứ bản vẽ nặng thì cứ việc ngồi chờ dài cổ. Thế nên mình viết lại lệnh này cho dễ dùng hơn. Tặng các bạn dùng chơi. ;;; Copyright 2012 Thaistreetz from Cadviet.com (defun c:wr (/ entmod-en...
| ||
Tác giả: Thaistreetz Bài viết gốc: 194444 Tên lệnh: sx |
Lisp chọn tập hợp đối tượng gần nhất được sinh ra bởi 1 lênh.
hà hà. chương trình của Detailing đạt 99% rồi. 1% còn lại hỏng khi có bước 4. cái này lúc trước bạn đã làm được nên mình đoán là có thể sửa được. Vừa hay mình cũng viết xong bằng lisp. Lệnh này thực hiện công việc tưởng chừng đơn giản nhưng không ngờ viết lại phức tạp vậy. đây là lisp khiến mình vất vả nhất để nghĩ ra thuật toán kể từ khi viết lisp đến giờ....
|
Trang 82/330