. 1 2 3 4 5 6 7 A B C D E F G H I J K L M N O P Q R S T U V W X Z أ ا ب ت ج ح خ ر ص ض ع ق ل م ن ه

minsert block

minsert block   هو بلوك استخدم لعملة امرMinsert لتنزيل مصفوفة من البلوكات بصورة خفيفة على الملف بحيث يكون حجمه صغير  و لا يمكن تفجيرة

ممكن تجرب امر FLATTEN

ممكن تروح للخصائص و تجعل “columns” and “rows” to 1    “column spacing” and “row spacing” to

0.   كدة اصبح عنصر واحد

\يمكنك تعديلة الان REFEDIT

استخدم الاداة  www.cadstudio.cz/download.

او الاداة 

XMINSERT  ExplodeMINSERT object.

هناك ليسب اتمنى ان يعمل معه

(defun C:Xminsert (/ Ent EntLst Bname Lay InsPt

Xfac Yfac Rot ColCnt RowCnt

ColSpc RowSpc BlkNum Index ColLst

RowLst InsLst *Error*)

(defun *Error* (msg)

(if (or (= msg “Function cancelled”) (= msg “quit / exit abort”))

(princ) (princ (strcat “\nError: ” msg))

)

)

(while (not (setq Ent (entsel “\nSelect a Minsert: “))))

(setq Ent (car Ent)

EntLst (entget Ent)

ColCnt (cdr (assoc 70 Entlst))

RowCnt (cdr (assoc 71 Entlst))

)

(if (or (> ColCnt 1) (> RowCnt 1))

(progn

(setq Bname (cdr (assoc 2 EntLst))

Lay (cdr (assoc 8 EntLst))

InsPt (cdr (assoc 10 EntLst))

Xfac (cdr (assoc 41 Entlst))

Yfac (cdr (assoc 42 Entlst))

Rot (cdr (assoc 50 EntLst))

ColSpc (cdr (assoc 44 EntLst))

RowSPc (cdr (assoc 45 Entlst))

BlkNum (* RowCnt ColCnt)

)

(setq Index 1)

(repeat (1- ColCnt)

(setq ColLst (cons (polar InsPt Rot (* Index ColSpc)) ColLst))

(setq Index (1+ Index))

)

(setq ColLst (cons InsPt ColLst))

(setq Index 1)

(foreach x ColLst

(progn

(repeat (1- RowCnt)

(progn

(setq Rowlst (cons (polar x (+ Rot (* pi 0.5)) (* Index

RowSpc)) Rowlst))

(setq Index (1+ Index))

)

)

(setq Index 1)

)

)

(foreach x RowLst (setq InsLst (cons x InsLst)))

(foreach x ColLst (setq InsLst (cons x InsLst)))

(setq Index 0)

(repeat BlkNum

(entmake (list ‘(0 . “INSERT”)

‘(100 . “AcDbEntity”)

(cons 8 Lay)

‘(100 . “AcDbBlockReference”)

(cons 2 Bname)

(cons 10 (nth Index InsLst))

(cons 41 Xfac)

(cons 42 Yfac)

(cons 50 Rot)

)

)

(setq Index (1+ Index))

)

(entdel Ent)

)

;else

(princ “\nSelection was not a Minsert”)

)

(princ)

)

ملحوظة ممكن يكون الموضوع ابسط من كدة

يكون اللي عمل البلوك منعة انه يتفجر

كل ما عايك تروح للخصائص و تغيرها لامكانية التفجير