- Megrendszabályozza a Pornhubot az EU
- SkyShowtime
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- AI generálja majd a képeket a Photoshopban
- 3 évig még biztosan nem rendelhetünk Xiaomi EV-t
- Otthoni hálózat és internet megosztás
- Linux kezdőknek
- Milyen routert?
- Linux - haladóknak
- Kaspersky Antivirus és Internet Security Fórum
Új hozzászólás Aktív témák
-
-ZeeZee-
senior tag
Itt egy lisp (nem saját forrás):
;| RMB
=========================================================================
Rotate Block(s) at its insertion point(s) by specifying rotation angle
=========================================================================|;
(vl-load-com)
(defun C:RMB (/ CN ENT OS RA SS)
(setq SS (ssget (list (cons 0 "INSERT"))))
(if *RA (setq RA (getdist (strcat "Specify rotation angle <" (angtos *RA) ">: ")))
(progn
(initget 1)
(setq RA (getdist "\nSpecify rotation angle: "))
); progn
); if
(if (not RA)
(setq RA *RA)
); if
(setq *RA RA)
(repeat (setq CN (sslength SS))
(setq CN (1- CN)
ENT (ssname SS CN)
OS (vlax-ename->vla-object ENT)
); setq
(vla-put-rotation OS (+ (* (/ RA 180) pi)
(vla-get-rotation OS)
)
)
); repeat
(princ)
); defun C:RMB
[ Szerkesztve ]
Új hozzászólás Aktív témák
- A használt VGA piac kincsei - Július I
- Autós topik
- Megérkezett a Google Pixel 7 és 7 Pro
- PLC programozás
- Milyen egeret válasszak?
- Android alkalmazások - szoftver kibeszélő topik
- Megrendszabályozza a Pornhubot az EU
- Filmvilág
- Óra topik
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- További aktív témák...
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24