Új hozzászólás Aktív témák
-
#1436
lúzer
veterán
stupid user
#1435
lúzer
veterán
válasz
stupid user
#1435
üzenetére
az nem olyan sok
-
#1434
lúzer
veterán
stupid user
#1432
lúzer
veterán
válasz
stupid user
#1432
üzenetére
esetleg elnevezett fóliaszűrőket letisztítani-törölni
vágólap műveletet befolyásolja rendesen -
#1431
lúzer
veterán
stupid user
#1430
lúzer
veterán
válasz
stupid user
#1430
üzenetére
hanyas cad?
(vagy hányás?)
-
lúzer
veterán
-
#1393
lúzer
veterán
stupid user
#1392
lúzer
veterán
válasz
stupid user
#1392
üzenetére
OK. nincs mit
-
#1391
lúzer
veterán
stupid user
#1390
lúzer
veterán
válasz
stupid user
#1390
üzenetére
parancssorba:
(vl-load-com)
be is írhatod a lisp fájlba, a (defun.... utáni sorba
-
lúzer
veterán
-
lúzer
veterán
válasz
sto1911
#1382
üzenetére
színek csak a magyarázat miatt
1. négyszög, ahogy írtam _offset parancs, érték 1, ráböksz a négyzetre majb bele és szétvet
2. kék vonallal párhuzamos 5-el majd 7-el ahogy az előbb: ráböksz majd aláböksz, megkapod a két pirosat
3. _trim parancs és kijelölöd a 3 sárgát
4. kattints oda ahol az előző ábrán még volt a vonal, itt meg nincs
-
-
lúzer
veterán
válasz
sto1911
#1380
üzenetére
talán legegyszerűbb:
_RECTANGLE parancs, beleböksz a rajzba majd: @10,12ezzel rajzoltál egy négyzetet 10,12 oldalakkal
ha centiben akarsz rajzolni akkor 1000,1200ezzel párhuzamos parancs falvastagággal, pl. 0,25 majd szétveted
ezután párhuzamosokkal szerkeszted a nyílászárók helyét -
#1372
lúzer
veterán
stupid user
#1370
lúzer
veterán
válasz
stupid user
#1370
üzenetére
_solprof TESTVET
csak nézetablakban (2002)
-
lúzer
veterán
válasz
hdcsaba87
#1346
üzenetére
biztos nincs egy síkban
jelöld ki az összes ívet és középpont Z legyen 0 a tulpanelon
ugyanez vonalaknál is csak ott kezdő - végpont Z legyen nulla-----------------------------
ha viszont az elem normálisa szaródott el, az már gáz
tulpanelen látszik ívnél pl:
normális X 0
normális Y 0
normális Z 1ekkor jó
-
#1333
lúzer
veterán
stupid user
#1330
lúzer
veterán
válasz
stupid user
#1330
üzenetére
rajzban vannak
esetleg dxf-be menteni, az szöveges és megkeresni a definíciót -
-
lúzer
veterán
válasz
Dagaddt
#1237
üzenetére
esetleg másold arrébb ezt a 2 testet.
pl. 1000-el egyik irányba, úgy hogy normális távolságba legyen
a másolaton csinálj közösrészt: _intersectvan értékelhető eredmény?
ha kapsz valami értékelhetőt:
töröld a kivonni kívánt szilárdtestet
másold vissza az közösrészt, és azt a picit vond ki a kivonandó testből -
#1224
lúzer
veterán
stupid user
#1223
lúzer
veterán
válasz
stupid user
#1223
üzenetére
szerintem a blokk beillesztési főpontja valahol máshol van, nincs a strechben
érdemes a blokkon belüli meglévő pontot használni, pl egyik végpont -
#1219
lúzer
veterán
stupid user
#1217
lúzer
veterán
válasz
stupid user
#1217
üzenetére
500 pixel
és ezek az U-k szövegek, blokkattribok vagy mik?
ja, szövegek, írtad -
#1218
lúzer
veterán
stupid user
#1215
lúzer
veterán
válasz
stupid user
#1215
üzenetére
oké, köszi, látom!
-
#1213
lúzer
veterán
stupid user
#1212
lúzer
veterán
válasz
stupid user
#1212
üzenetére
az a vicc, hogy te lehet hogy látod a képet, mert sajátgépen fut
tedd fel ide
majd
direct link to image, na azt másold be -
#1209
lúzer
veterán
stupid user
#1205
lúzer
veterán
válasz
stupid user
#1205
üzenetére
{ tcount} helyett {tcount} ?
akkor van szóköz? -
#1207
lúzer
veterán
stupid user
#1205
lúzer
veterán
válasz
stupid user
#1205
üzenetére
2008-at még nem ismerem
miben van ez?
blokként ahogy kellett, vagy szövegobjektum? -
lúzer
veterán
módosítva, mert a többi atribot is cserélné, nem ellenőriztem, ez már jó:
(defun C:BLC()
(setq rajzelem(CAR (ENTSEL)))
(command "_copybase" pause rajzelem "")
(while T (command "_pasteclip")(command pause)
(setq BL (entget (entlast) ))
(setq blokknevem (cdr(assoc 2 (entget rajzelem) ) ))
(setq sorsz (itoa (sslength (ssget "_X" (list (cons 0 "INSERT")(cons 2 blokknevem))))))
(setq BL (entget(entlast)))
(setq BN (entnext (cdr (car BL))))
(if BN (progn (setq ATT (entget BN))
(while (= "ATTRIB" (cdr (assoc 0 ATT)))
(setq ATTNÉV (cdr (assoc 2 ATT)))
(setq lista (entget (CDR(assoc -1 ATT))))
(IF (= ATTNÉV "sorszam")(progn
(setq regiattassoc (assoc 1 ATT))
(setq attszoveg (CDR(assoc 1 ATT)))
(setq ujattassoc (cons 1 sorsz))
(setq lista (subst ujattassoc regiattassoc lista))
(entmod lista) (entupd(CDR(assoc -1 ATT)))))
(setq BN (entnext BN))(setq ATT (entget BN))
))))(princ)) -
#1202
lúzer
veterán
stupid user
#1200
lúzer
veterán
válasz
stupid user
#1200
üzenetére
kell egy olyan blokk amiben van egy sorszam nevű attribútum
parancs neve: BLC
kiválasztod a blokkot, aztán a koordinátát, majd beilleszted ahova kell
ahány azonos nevű blokk van, azt a sorszámot kapja
hibakezelés nincs, blokkot kell kiválasztani, 1 db-ot, sorszam attribútummal
vágólapot használja
kilépés ESCezt egy *.lsp fájlba és _appload-al betölteni
(defun C:BLC()
(setq rajzelem(CAR (ENTSEL)))
(command "_copybase" pause rajzelem "")
(while T (command "_pasteclip")(command pause)
(setq BL (entget (entlast) ))
(setq blokknevem (cdr(assoc 2 (entget rajzelem) ) ))
(setq sorsz (itoa (sslength (ssget "_X" (list (cons 0 "INSERT")(cons 2 blokknevem))))))
(setq BL (entget(entlast)))
(setq BN (entnext (cdr (car BL))))
(if BN (progn (setq ATT (entget BN))
(while (= "ATTRIB" (cdr (assoc 0 ATT)))
(setq ATTNÉV (cdr (assoc 2 ATT)))
(setq lista (entget (CDR(assoc -1 ATT))))
(setq regiattassoc (assoc 1 ATT))
(setq attszoveg (CDR(assoc 1 ATT)))
(setq ujattassoc (cons 1 sorsz))
(setq lista (subst ujattassoc regiattassoc lista))
(entmod lista) (entupd(CDR(assoc -1 ATT)))
(setq BN (entnext BN))(setq ATT (entget BN))
))))(princ)) -
#1201
lúzer
veterán
stupid user
#1200
lúzer
veterán
válasz
stupid user
#1200
üzenetére
hát ha lesz időm átgondolom
nem olyan egyszerű -
#1199
lúzer
veterán
procikereső
#1196
lúzer
veterán
válasz
procikereső
#1196
üzenetére
első körben google: autolisp
van érdekes dolog is
majd képet nyomj!
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
- Nvidia GPU-k jövője - amit tudni vélünk
- Vezetékes FEJhallgatók
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Okos otthon - Home Assistant, openHAB és más nyílt rendszerek
- TCL LCD és LED TV-k
- Path of Exile (ARPG)
- AMD vs. INTEL vs. NVIDIA
- gerner1
- Gitáros topic
- Parfüm topik
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- MS SQL Server 2016, 2017, 2019
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- LG Gram 16 i7-1165G7 / 16GB RAM / 512GB SSD / 2.5K kijelző
- AKCIÓ! LENOVO ThinkPad P15s Gen2 munkaállomás - i7 1165G7 16GB DDR4 512GB SSD Quadro T500 4GB W
- iPhone 15 128GB 100% (1év Garancia)- ÚJ EREDETI AKKUMULÁTOR - AKCIÓ
- Eladó Realme 11 5G 8/256GB arany / 12 hónap jótállás
- A Legújabb! Dobozos Új DELL XPS 13 9340/ULTRA 7-155H/32 GB Ram/1TB SSD/AI BOOST+INTEL ARC
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest