cuongtk2

Mình chỉ viết riêng cho mtext có 2 dòng thôi vì yêu cầu của bạn chỉ xuất những mtext 2 dòng mà. Có gì zalo 0903492234

Dùng các polyline chung cạnh để hatch nó sẽ ra như thế

mình sửa lại rồi m2i.LSP

RSPPlan.dwg Mình chỉ test thử với 1 chữ thôi nhé, trong bản vẽ đã tạo blokc rồi m2i.LSP

Nó đây l2rec.LSP

[assembly: ExtensionApplication(typeof(Autocad_2020_plugin_001.MyPlugin))] namespace Autocad_2020_plugin_001 { public class MyPlugin { [CommandMethod("cmdhello")] public void cmdFirstCommand() {  var doc = AcAp.DocumentManager.MdiActiveDocument; //var db = doc.Database; var ed = doc.Editor;  ed.WriteMessage("\n Hello World"); } } } Bạn có thấy attribute [CommandMethod("cmdhello")] được khái báo ở class MyPlugin. Mà class này lại không được khai báo là class chứa lệnh, mà được khai báo là ExtensionApplication (tiện ích mở rộng). Nếu như bạn tạo mới Class1 , muốn build được ra lệnh trong đó, bạn phải khai báo [assembly: CommandClass(typeof(Autocad_2020_plugin_001.Class1))]

Đơn giản là kiểm soát những MTEXT cần truy xuất, vì vậy cần biến nó thành 1 block có 2 ATT RTD_ID VÀ SUY_HAO

Copy lần lượt text vào clipboard , dán vào thành 1cột (defun c:text2clipb( / ENT HTML ND RESULT STR) (setq str "") (while (setq ent (car (entsel))) (setq nd (cdr (assoc 1 (entget ent))) str (strcat str nd "\n")) ) (if (= 'STR (type str)) (progn (setq html (vlax-create-object "htmlfile") result (vlax-invoke (vlax-get (vlax-get html 'ParentWindow) 'ClipBoardData) 'setData "Text" str) ) (vlax-release-object html) str ) );end if )

[assembly: CommandClass(typeof(namespase1.MyClass))] Khai báo MyClass thuộc namespace1 là class chứa lệnh

Nên viết tool để lúc save thì cho phép backup thêm 1 bản tại đĩa khác.

bạn tìm một font vni shx nào đó rồi rename thành nó là được. ví dụ như vn_vni.shx trong kho của cadviet

Chắc dính virus em à. Lên đời cad version mới nhất đi. Đoán chắc giờ em vẽ lại bị tiếp . Thử new một bản vẽ xem.

Cái đó là công cụ để cấm sửa chữa trong bản vẽ đấy. Chắc không phải chủ thớt tự vẽ.

Cái này bạn chỉ cần vào VLIDE lấy nội dung 1 text được gõ bằng Unicode là được: (cdr (assoc 1 (entget (car (entsel)))))

Viết riêng cho lwpolyline, sửa ngại lắm: (defun c:test ( / F FN SS) (vl-load-com) (defun ss->list (ss) (mapcar 'cadr (vl-remove-if '(lambda (e) (/= 'ename (type (cadr e))) ) (ssnamex ss)) ) ) (defun pl_vertexs (ent) (mapcar 'cdr (vl-remove-if '(lambda (e) (/= 10 (car e))) (entget ent)) ) ) (setq ss (ssget '((0 . "LWPOLYLINE")))) (setq ss (ss->list ss)) (setq fn (getfiled "Text File" "" "txt" 1)) (setq f (open fn "w")) (foreach n ss (progn (WRITE-LINE "lwpolyline" f) (foreach m (pl_vertexs n) (WRITE-LINE (strcat (rtos (cadr m)) "\t" (rtos (car m))) f) );for2 );progn );for1 (close f) )