Info | File | ||
Tác giả: Tue_NV Bài viết gốc: 241390 Tên lệnh: cpk |
Lisp move đối tượng theo giá trị cố định?
Ý bạn chủ topic chắc như thế này : (defun c:cpk(/ p pdich ss kcach ) (defun Tue-ss-drag-move (ss p / el lp) ;;;copyright by Tue_NV (setq el (entlast)) (if (and ss p (vl-cmdf "copy" ss "" "non" p pause) (null (equal (getvar "lastpoint") p))) (setq lp (getvar "lastpoint")) (setq lp nil) ) (while (setq el (entnext el)) (entdel el)) lp) (or *kc* (setq *kc* 100.0)) (setq ss (ssget)) (setq p...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 241397 Tên lệnh: ha |
Chia Polyline kín thành các Polyline kín
Lisp chia đôi nhiều lần 1 Pline kín không chứa Arc. Vòng lặp cho đến khi Enter thì ngừng chia. ;; Chia Pline kin khong chua Arc thanh 2 Pline kin. Vong lap den khi Enter thi dung. ;; Doan Van Ha - CadViet.com - 16/7/2013 (defun C:HA( / #List:Subtract1 #List:SubList LM:Collinear-p1 #List:InsertNth LWPoly ent p1 p2 lst i lst1 n1 n2) (defun #List:Subtract1(lst1 lst2) (foreach n (reverse (cdr (reverse (cdr lst2)))) ...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 241470 Tên lệnh: ha |
Lisp đổi đầu arrow của leader
Lisp thay đổi Arrowhead của Leader và Dimension. Tưởng bạn đã quên ai ngờ vẫn nhớ. ;; Thay doi Arrowhead cua cac Leader va Dimension duoc chon. ;; Doan Van Ha - CadViet.com - ngay 16/7/2013 (vl-load-com) (defun C:HA( / lst ss txt i ent L->Ptr #String:Replace) (defun L->Ptr(lst) (vl-string-trim "()" (vl-princ-to-string...
| ||
Tác giả: ndtnv Bài viết gốc: 241563 Tên lệnh: xtd |
lisp xuat tọa độ có điều kiện
Vì không có thời gian nên không xử lý lỗi nếu chọn sai đối tượng. (vl-load-com) (defun Dxf(n e) (cdr (assoc n e))) (defun C:XTD ( / d en es f fz g i k l lh lk ls ob p st v) ; xuat toa do (setq es (entsel "\nChon duong polyline ") ob (vlax-ename->vla-object (car es)) p (cadr es)) (setq st (vlax-curve-getStartPoint ob) en (vlax-curve-getEndPoint...
| ||
Tác giả: lyky Bài viết gốc: 241622 Tên lệnh: c2t |
lisp xuất bảng trong cad 2007 ra file exell
Bạn Explode Table để được Text (hoặc MText) trước đã, sau đó sử dụng LISP sau, Mở file lyky.txt được xuất ra tại "C:\\lyky.txt" bằng Excel. (defun C:C2T ( / e f lst ss y z) (setq ss (acet-ss-to-list (ssget '((0 . "TEXT,MTEXT,RTEXT")))) lst (mapcar '(lambda (e) (cons(Dxf 10 (entget e)) (Dxf 1 (entget e)))) ss) z (* (Dxf 40 (entget (car ss))) 0.5) lst (vl-sort lst...
| ||
Tác giả: ndtnv Bài viết gốc: 241689 Tên lệnh: xtd |
lisp xuat tọa độ có điều kiện
Chọn lần lượt polyline, text. Khi nào chọn xong thì enter. (vl-load-com) (defun Dxf(n e) (cdr (assoc n e))) (defun C:XTD ( / d en es f fz g i n k l lh lk ls ob p st v) ; xuat toa do (setq f (open (strcat (getvar "DWGPREFIX") "Toado.txt") "w") n 0) (setq fz 0.001) ; sai so lam tron k/c (while (setq es (entsel "\nChon duong polyline ")) (setq...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 241705 Tên lệnh: ha |
[YÊU CẦU] Xin lisp chuyển layer của các đối tượng trong block về cùng layer của block
Xét cả block lồng nhiều tầng. ;; Convert Layer cua cac doi tuong ben trong block (co the long nhau) ve cung Layer cua Block chinh. ;; Doan Van Ha - CadViet.com - ngay 18/7/2013 (defun C:HA ( / ent1 obj1 ) (if (setq ent1 (car (entsel "\nChon Block: "))) (foreach obj (Get_lst_Obj (vla-get-Name (setq obj1 (vlax-ename->vla-object ent1)))) (vla-put-Layer obj (vla-get-Layer obj1)))) (vla-update obj1)) (defun Get_lst_Obj...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 241604 Tên lệnh: xtt |
lỗi CAD khi load lisp
Lisp liên tù tì thường là do lỗi diễn đàn chứ bình thường nó ngắt quảng lấy hơi đàng hoàng. Sửa lại cho bạn, cũng liên tù tì, nhưng không lỗi. ;; free lisp from cadviet.com ;;; this lisp was downloaded from http://www.cadviet.com/forum/topic/205-viet-lisp-theo-yeu-cau/page-123#entry67734 (defun C:XTT(/ ss ss1 fuzzo fuzz n ent p ndung ent1 ndung1)(prompt "\n Chon Text,MTEXT : ") (setq ss...
| ||
Tác giả: duy782006 Bài viết gốc: 241659 Tên lệnh: dlb |
Xin lisp chuyển layer của các đối tượng trong block về cùng layer của block
Chi bằng ta đổi tất cả các đối tượng trong block thành layer 0 màu bylayer như vậy nó sẽ tự thành như ý nhỉ. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;sua ma dxf block ;;;Cu phap su dung (duy:block_s_dxf block mdxf thanh) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun block_s_dxf (blk mdxf thanh / e el name ob lname name mdxf...
| ||
Tác giả: gia_bach Bài viết gốc: 241792 Tên lệnh: sv |
Nhờ viết lisp chia màn hình (VPort)
Chắc các cao thủ bận thi đại học, ý nhầm: các cao thủ bận chấm thi và tuyển sinh rồi,
Sửa lại lisp của Thaistreetz cho bạn nè : >>
| ||
Tác giả: Namvanvo Bài viết gốc: 241241 Tên lệnh: baitap2-1 baitap2-2 | |||
Tác giả: Namvanvo Bài viết gốc: 241241 Tên lệnh: dtvk dttg dtmctt kltt klthhv1 klthhv2 |
Chữa bài tập chương 2
Mình nộp bài tập bài 2 Ketxu ơi.
| ||
Tác giả: vuminhchau Bài viết gốc: 241969 Tên lệnh: tcir |
Nhờ các anh coi giúp lisp vẽ đường tròn bao quanh chữ bị lỗi gì với!
Các anh ơi coi giúp em cái lisp này nó báo lỗi : ; error: no function definition: CONS0 là do thiếu định nghĩa chứa năng cons0 phải không ạ, nhờ các anh bổ sung giúp em với!
(defun C:TCir() (setq txtSet(ssget(list(cons0"text")))) (setq setlen(sslength txtSet)) (setq ctr 0) (repeat setlen (setq ent(ssname txtSet ctr)) (setq...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 241975 Tên lệnh: ha |
Xin lisp chuyển layer của các đối tượng trong block về cùng layer của block
Chưa hạn chế được hết tất cả các khiếm khuyết, nhưng cái này có "khá" hơn. ;; Convert Layer cua cac doi tuong ben trong block (co the long nhau) ve cung Layer cua Block chinh. De Undo tat ca: dung lenh "U" + "Regen" ;; Doan Van Ha - CadViet.com - ngay 21/7/2013 (defun C:HA ( / doc blkname lay) (princ "\nChon cac Blocks...") (if (ssget '((0 . "INSERT"))) (progn (vlax-for obj (vla-get-ActiveSelectionSet...
| ||
Tác giả: TaiNguyen79 Bài viết gốc: 242044 Tên lệnh: laytd ghitd |
Lisp thống kê tọa độ địa chính
| ||
Tác giả: thiep Bài viết gốc: 105325 Tên lệnh: sch |
Xem giúp đoạn lisp của mình vẽ pline có nhập chiều dài và góc
Chào bác Duy, thiep xin sửa giúp bác 1 chút cái lisp trên, đúng là đối tượng hatch không nên dùng hàm "entmod"
| ||
Tác giả: Doan Van Ha Bài viết gốc: 242156 Tên lệnh: ha |
tìm lisp đo diện tích trong diễn đàn
Quick code cho bạn. (defun C:HA( / ent1 ent2 elist) (vl-load-com) (while (and (setq ent1 (car (entsel "\nChon hinh kin: "))) (setq ent2 (car (entsel "\nChon Text de ghi: ")))) (setq elist (entget ent2)) (entmod (subst (cons 1 (rtos (vla-get-Area (vlax-ename->vla-object ent1)) 2 2)) (assoc 1 elist) elist))) (princ))
| ||
Tác giả: TaiNguyen79 Bài viết gốc: 242078 Tên lệnh: t id |
Lisp thống kê tọa độ địa chính
Tọa...
| ||
Tác giả: lyky Bài viết gốc: 241831 Tên lệnh: cd bd |
Nhờ chỉnh sửa LISP CUTDIM.
Sau khi sửa theo bác NĐT xong, bạn có thể tổng hợp 2 phần riêng lẻ thành một code chung, phần bẫy lỗi bạn tự bổ xung nhé (bởi vì: theo ý mình phần bẫy lỗi - thiết định và phục hồi giá trị các biến hệ thống được thực hiện bằng các hàm riêng (như là một Public function)) (defun CBD (p / dem ds gocx gocy kdl...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 242149 Tên lệnh: ha |
[Yêu cầu] Lisp cộng - trừ - nhân - chia 2 hàng số cho ra hàng thứ 3
Lisp + - * / vào 1 nhóm (hàng/cột) và trả kết quả ngay tại nhóm (hàng/cột)...
|
Trang 136/330