반응형 minsert2 MINSERT Block eXplode into ARRAYRECT ;=================== Multy inserted Block eXplode into arrayRect ===================== ;ARRAY MODULE (defun KM:ARR_non ( / ) (princ) ) (defun KM:ARR_rec (CNT_RW CNT_CL DIS_RW DIS_CL) (command "_.arrayrect" (entlast) "" "_row" CNT_RW DIS_RW "_col" CNT_CL DIS_CL "_exit") (princ) ) (defun KM:ARR_hor (CNT_RW CNT_CL DIS_CL) (command "_.arrayrect" (entlast) "" "_row" CNT_RW 100 "_col" CNT_CL DIS_CL "_.. 2022. 4. 13. Explode Minsert Block ;ARRAY MODULE (defun KM:ARR_non ( / ) (princ) ) (defun KM:ARR_rec (CNT_RW CNT_CL DIS_RW DIS_CL) (command ".-array" (entlast) "" "R" CNT_RW CNT_CL DIS_RW DIS_CL) (princ) ) (defun KM:ARR_lin (CNT_RW CNT_CL DIS) (command ".-array" (entlast) "" "R" CNT_RW CNT_CL DIS) (princ) ) ;EXPLODE MINSERT BLOCK (defun KM:XM ( ENT / NT DXF_ENT NAM_BL COR_IN CNT_RW CNT_CL DIS_RW DIS_CL LYR COLR CLYR) ;(if (setq E.. 2022. 1. 19. 이전 1 다음 반응형