Info | File | ||
Tác giả: phamthanhbinh Bài viết gốc: 291239 Tên lệnh: dsty |
đổi chữ thường thành chữ hoa
| ||
Tác giả: Tot77 Bài viết gốc: 291384 Tên lệnh: mat1 mat2 mat3 |
[Xin] lisp chuyển màu các thuộc tính dynamic block
Tôi viết lại gọn hơn và thêm cơ chế bắt lỗi, bạn thử lại xem sao. (vl-load-com)
(defun dxf(id v) (cdr (assoc id (entget v))))
(defun setColor(tag tval col v kieu)
(foreach item
(vlax-safearray->list (vlax-variant-value
(vla-GetAttributes (vlax-ename->vla-object v))))
(cond ((and (not kieu) (= tag (vla-get-TagString item)) (= tval...
| ||
Tác giả: Tot77 Bài viết gốc: 291411 Tên lệnh: mat1 mat2 mat3 |
[Xin] lisp chuyển màu các thuộc tính dynamic block
Không nghĩ tới tình huống bạn bấm cancel khi chọn màu. Bạn thử cái dưới đây xem sao.
(vl-load-com)
(defun dxf(id v) (cdr (assoc id (entget v))))
(defun *error* ( msg )
(if (< 0 dch) (unload_dialog dch))
(setq *error* temperr)
(princ)
)
(setq temperr *error*)
(defun setColor(tag tval col v kieu)
...
| ||
Tác giả: Tot77 Bài viết gốc: 291416 Tên lệnh: mat1 mat2 mat3 |
[Xin] lisp chuyển màu các thuộc tính dynamic block
Chắc như vầy là ok rồi.
(vl-load-com)
(defun dxf(id v) (cdr (assoc id (entget v))))
(defun *error* ( msg )
(if (< 0 dch) (unload_dialog dch))
(setq *error* temperr)
(princ)
)
(setq temperr *error*)
(defun setColor(tag tval col v kieu)
(foreach item
(vlax-safearray->list...
| ||
Tác giả: Tot77 Bài viết gốc: 291428 Tên lệnh: mat4 |
[Xin] lisp chuyển màu các thuộc tính dynamic block
Tạm gọi Mat4, nhưng tôi nghĩ bạn thay thành mat2 vì cũng na ná như nhau. Vì nhiều tên lệnh quá đôi khi mình cũng không nhớ. (defun C:mat4(/ a col kt tag)
(setq a (car (nentsel "\nChon Attribute:"))
col (acad_colordlg (dxf 62 a))
kt (dxf 1 a)
tag (dxf 2 a))
(mapcar '(lambda(x) (setColor tag kt col x t))
(acet-ss-to-list (ssget (list '(0 . "INSERT")...
| ||
Tác giả: Tot77 Bài viết gốc: 291431 Tên lệnh: test |
[Yêu cầu] viết Lisp dời text về vị trí điểm point gần nhất
Tôi còn giữ cái lisp đó, nhưng file dwg để test thì không còn.
(defun c:test(/ os ss ss1 ss2 cd)
(defun layxy(a) (list (car a) (cadr a)))
(defun leftL(L n / l1 i) (setq l1 nil i -1) (while (and (< (setq i (1+ i)) n) (nth i L)) (setq l1 (append l1 (list (nth i L))))))
(defun doi (id tri v) (entmod (subst (cons id tri) (assoc id (entget v)) (entget v))))
;;;chuong trinh...
| ||
Tác giả: duy782006 Bài viết gốc: 16397 Tên lệnh: molenhdi khoalenhdi | |||
Tác giả: proconeng86 Bài viết gốc: 291403 Tên lệnh: mat1 mat2 mat3 |
[Xin] lisp chuyển màu các thuộc tính dynamic block
Tôi viết lại gọn hơn và thêm cơ chế bắt lỗi, bạn thử lại xem sao. (vl-load-com)
(defun dxf(id v) (cdr (assoc id (entget v))))
(defun setColor(tag tval col v kieu)
(foreach item
(vlax-safearray->list (vlax-variant-value
(vla-GetAttributes (vlax-ename->vla-object v))))
(cond ((and (not kieu) (= tag (vla-get-TagString item)) (= tval...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 291714 Tên lệnh: lbl |
xin gúp đỡ lisp ve đường tâm
Forum dạo này bị sao ấy. Thử down thừ đây xem: ;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/topic/77029-xin-gup-do-lisp-ve-duong-tam/
; Draw (LW)Polyline between two selected curves (at midpoint of vertices).
(defun c:LBL ( / foo AT:GetSel _pnts _pline _lwpline _dist e1 e2 xx...
| ||
Tác giả: Tot77 Bài viết gốc: 291749 Tên lệnh: lap ofs |
I"m training to be an engineer lisinopril-hydrochlorothiazide oral tablet 20-12.5 mg LSD is one of the most potent known psychoactive drugs and was used in the 1950s and 1960s as an aid to psychothera
cataflam dose per day Kelsey Hibberd, from Southend, remembers her years at secondary school as being miserable
| ||
Tác giả: Tot77 Bài viết gốc: 291762 Tên lệnh: lap ofs | |||
Tác giả: Tue_NV Bài viết gốc: 86403 Tên lệnh: tthe |
Nhờ các bác sửa giùm em file cao độ này với
Anh Duy xem lại chứ không được rồi : Giải pháp đưa ra phải chọn hết -> Không biết anh đã xem bản vẽ của bạn dieptit upload lên chưa? Nếu theo cách của anh mà Nhớ chọn cho đúng mấy anh bị dư nhé. thì có đến .... Tết cônggô cũng chưa xong Giải pháp đưa ra như...
| ||
Tác giả: Tot77 Bài viết gốc: 291959 Tên lệnh: tmp |
[Yêu cầu] Lisp tính diện tích chữ cái.
Bạn thử cái này, máy phải cài express. (vl-load-com)
(defun c:tmp (/ v0 el en l tong oe)
(setq oe (getvar 'cmdecho))
(setvar 'cmdecho 0)
(command "undo" "be")
(setq v0 (car (entsel "\nChon text de tinh dien tich:"))
nd (acet-dxf 1 (entget v0)))
(command "copy" v0 "" "" "")
(setq el (entlast)
l nil)
(sssetfirst nil...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 292059 Tên lệnh: ha |
[Đã xong] Lisp xác định nhanh màu sắc đối tượng để đặt nét in.
Xuất phát từ nhu cầu in ấn, cần phải xác định chỉ số màu của từng đối tượng để đặt nét in, tôi viết lisp này để phục vụ forum. Ai có nhu cầu thì down về dùng. Ưu điểm của lisp này là xác định rất nhanh chỉ số màu của các đối tượng con: di mouse tới đâu thì hiện lên tới đó. Nhược điểm: có một số hạn chế chưa khắc phục được + đang chờ mọi người test và...
| ||
Tác giả: Tot77 Bài viết gốc: 291965 Tên lệnh: mat0 mat1 mat2 mat4 mat3 |
lisp chuyển màu các thuộc tính dynamic block
Cái lisp dưới đây có những cái mới như sau: 1. Lấy att "KT" làm chuẩn. Nếu bạn muốn đổi sang att khác thì đánh lệnh mat0, trong lệnh mat0 nếu bạn không chọn att nào khác thì nó vẫn lấy "KT" làm chuẩn. 2. Vì KT làm chuẩn nên trong lệnh mat3 không cần chọn att hay text, bạn "quơ" bao nhiêu thì nó lên bấy nhiêu.
Bạn test thử, tôi thấy cái lisp này giống như đám rừng vì rẽ...
| ||
Tác giả: npham Bài viết gốc: 122246 Tên lệnh: llt |
Chon đối tượng theo dang đường linetype !
Không biết thế này đúng ý của bác chưa? bạn dùng select p để xem lại chọn lựa nhé. Cái này chỉ chọn với *LINE, nếu muốn chọn đối tượng khác thì bạn thêm vào nhé.
| ||
Tác giả: Tot77 Bài viết gốc: 292167 Tên lệnh: dan |
[Yêu cầu] lisp dãn text trùng nhau trên mặt cắt ngang
Bạn thử dùng cái này. Nếu chạy 1 lần mà vẫn còn có text bị chạm nhau là do trước đó nó cách xa nhau nên nó không nằm trong tập chọn, nhưng sau khi di chuyển tập chọn nó lại đè lên text bên ngoài. Nếu vậy bạn chạy thêm 1 lần nữa là được. Đây là đề tài không đơn giản, tôi phải nhờ vào hàm express, do đó bạn phải cài express mới chạy được. (defun c:dan...
| ||
Tác giả: Nguyen Hoanh Bài viết gốc: 38715 Tên lệnh: t1 t2 | |||
Tác giả: thanhduan2407 Bài viết gốc: 292484 Tên lệnh: itt |
Lisp Zoom và in trong Layout theo tọa độ Text
Chào các bác trên diễn đàn Cadviet.com Lọ mọ mấy ngày nay mà em chưa tìm được cách để chương trình nó chạy. Trong bản vẽ Model có các Text nằm trong từng 1 vùng kín. Trong Layout đã tạo Mview Mục đích của em là chui vào trong cửa sổ Mview đó, quét chọn các Text. Từ mỗi Text quét chọn được tìm ra được tọa độ của nó Từ Tọa độ đó tiến hành Boundary...
| ||
Tác giả: Tot77 Bài viết gốc: 292171 Tên lệnh: mat0 mat1 mat2 mat4 mat3 |
[Xin] lisp chuyển màu các thuộc tính dynamic block
Bạn thử lại với mat3 xem. (vl-load-com)
(defun c:mat0()
(setq attchuan (dxf 2 (car (nentsel "\nChon Attribute de lam chuan:"))))
(if (not attchuan) (setq attchuan "KT"))
)
(defun dxf(id v) (cdr (assoc id (entget v))))
(defun *error* ( msg )
(if (< 0 dch) (unload_dialog dch))
(setq *error* temperr)
(vl-bt)
...
|
Trang 157/330