Здравейте интересува ме как в AutoCad да си запълня един правоъгълниксъс собствена щриховка(по точно е изображение)

natisno "h" posle enter i se oprawqi

Съдържаниет е скрито
Влезте за да го видите

Това, което gena е дал е за щтриховка. От написаното разбирам, че се иска да се запълни правоъгълник със растерно изображение. Не знам ACAD да има команда за тази цел.
За това прилагам програмка за целта.
Работата с нея е следната:
Текста на праграмата се записва във файл с име IMAGE-PR.LSP (името е примерно)
Зарежда се с
(LOAD "IMAGE-PR")
Начертава се правоъгълника, вмъква се картинката с INSERT/RASTER IMAGE и се стартира праграмата с
(IMAGE-PR)


;ПОСТАВЯ РАСТЕР В ПРЕДВАРИТЕЛНО НАЧЕРТАН ПРАВОЪГЪЛНИК
(DEFUN IMAGE-pr(/ pict XV HV PTI ptlist corh PRAV ENT NN )
;ПОСОЧВА КАРТИНКА
(IF (AND
(SETQ pict (ENTSEL "\nПОСОЧИ КАРТИНКА"))
(= "IMAGE" (CDR(ASSOC 0 (ENTGET (SETQ pict (CAR pict))))))
);AND
(PROGN
(setq ent (entget pict))
(SETQ PTI (CDR(ASSOC 10 ENT)))
;вади върховете на границата на КАРТИНКАта
(setq ptlist nil)
(FOREACH nn ent
(if (= 14 (car nn))
(setq ptlist (APPEND ptlist (list (cdr nn))))
);if
);FOREACH
;11 - ХОРИЗОНТАЛЕН ВЕКТОР НА ЕДИНИЧЕН ПИКСЕЛ
(SETQ XV (CaDR(ASSOC 11 ENT)))
;12 - ВЕРТИКАЛЕН ВЕКТОР НА ЕДИНИЧЕН ПИКСЕЛ
(SETQ HV (CadDR(ASSOC 12 ENT)))
(setq corh (mapcar '- (car ptlist)(last ptlist))
corh (mapcar '* corh (list xv hv)))
;ПОСОЧВА ПРАВОЪГЪЛНИК
(IF (AND
(SETQ PRAV (ENTSEL"\nПОСОЧИ ПРАВОЪГЪЛНИК"))
(= "LWPOLYLINE" (CDR(ASSOC 0 (ENTGET (SETQ PRAV (CAR PRAV))))))
);AND
(PROGN
(SETQ MINPT (GETVAR "EXTMAX")
MAXPT (GETVAR "EXTMIN"))
;ОПРЕДЕЛЯ ГРАНИЦИТЕ НА ПРАВОЪГЪЛНИКА
(FOREACH NN (ENTGET PRAV)
(IF (= 10 (CAR NN))
(SETQ MINPT (mapcar 'MIN MINPT (CDR NN))
MAXPT(mapcar 'MAX MAXPT (CDR NN)))
);IF VERTEX
);FOREACH
(setq ent (subst (cons 10 MINPT)(ASSOC 10 ent)ent))
(setq ent (subst (cons 11 (mapcar '* (mapcar '/
(mapcar '- MINPT MAXPT)corh) (cdr(ASSOC 11 ENT))))(ASSOC 11 ENT)ent))
(setq ent (subst (cons 12 (mapcar '* (mapcar '/
(mapcar '- MINPT MAXPT)corh) (cdr(ASSOC 12 ENT))))(ASSOC 12 ENT)ent))
);PROGN
);IF LWPOLYLINE
(entmod ent)
);PROGN
);IF RAST
);IMAGE-pr

Ако някой я използва нека даде мнението си във форума

Може това да свърши работа :

Съдържаниет е скрито
Влезте за да го видите

ами ако нямам express

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите

По принцип Express Tools ги има към "почти" всяка инсталация на AutoCAD и подобни ... въпрос е на ориентация при инсталирането , но може и в последствие да се добави .

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите

Може това да свърши работа :

Съдържаниет е скрито
Влезте за да го видите

пробвах IMAGE-PR
Много е интересно ! Аз нямам Идея как в AutoCAD да деформирам картинка !
Огледах и Raster Design , но на "първо четене" и там не го виждам ... има в Mechanical един Scale по X и Y ...
Този лисп може да много да помогне , ако човек се сблъска с Проблема !
Опитах да разбера от лиспа коя команда/функция ползва , но немога да позная ?

В описанието на картинката има доста неща, които могат да се модифицират. В случая модифицирам размерността на векторите за единичен пиксел (групи 11 и 12). Истината е, че не съм се занимавал с обработка на растерни изображения. Днес, докато правих програмката, видях още възможности за модифициране, но ги изучавам - има възможност да се укаже граница на картинката различна от правоъгълник (т.е. някаква полилиния), да се променят brightnes, transparency
contrast, fade - както и да се превеждат на български. Последните могат да се променят от пропъртис, но граница като полилиния не виждам от къде може да се въведе. Има и още неща, но още не съм ги разучил. Работата е в това, че не ми остава време да пробвам всичко.