CAD Fórum : Výber objektu - jak upravit efekty https://www.cadforum.cz/forum/ Tue, 26 May 2026 09:49:28 +0000 Thu, 11 May 2023 14:38:14 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=34127 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Výber objektu - jak upravit efekty : Děkuji za nakopnutí. Teď už je...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=34127&PID=128365&title=vyber-objektu-jak-upravit-efekty#128365 Autor: Petr75
Předmět: 34127
Zasláno: 11.kvě.2023 v 14:38

Děkuji za nakopnutí. Teď už je to rychlejší.

(defun C:posx (/ cmdsave ss1 ss2 p1 enN)
    (setq cmdsave (getvar "cmdecho"))
   (setvar "cmdecho" 0)
   (setq ss1 (ssget "_I"))
   (command-s "_.undo" "_m")
   (command-s "_.undo" "_be")
   (setq temperr *error*)
   (setq *error* ErrorTrap)
   
   (if (null ss1)
      (progn
         (princ "\nVyberte objekty: ")
         (Command "_.SELECT")
         (while (= (getvar "CMDNAMES") "SELECT")
            (command pause)
         )
      )
   )
   (setq ss1 (ssget "_P"))
   (setq ss2 (ssadd))
;   (setq enN (entlast))
   (setq enN (lastent))
   (command-s "_.copy" ss1 "" "_non" '(0 0) "")
   (while (entnext enN)
      (setq enN (entnext enN))
      (ssadd enN ss2)         
   )
   
   (princ "\n")
   (setq p1 (getpoint "\nUrčete výchozí bod: "))
   (command "_.move" ss1 "" "_non" p1 "_non" pause)
   (command-s "_.erase" ss2 "")
   (Command-s "._regen")
   (command-s "_.undo" "_e")
   (setvar "cmdecho" cmdsave)
   (setq *error* temperr)
   (princ)
)

(defun lastent (/ a b)
   (if (setq a (entlast))
      (while (setq b (entnext a))
         (setq a b)
      )
   )
  a
)

(defun ErrorTrap (errmsg)
   (if (not (member errmsg '("console break" "Function Cancelled")))
      (princ (strcat "\nError: " errmsg))
   )                
   (command-s "_.undo" "_b")
   (Command-s"._regen")
   (setvar "cmdecho" cmdsave)
   (setq *error* temperr)
   (princ)
)

(princ)


Upravil Petr75 - 11.kvě.2023 v 15:18]]> Thu, 11 May 2023 14:38:14 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=34127&PID=128365&title=vyber-objektu-jak-upravit-efekty#128365 <![CDATA[Výber objektu - jak upravit efekty : Asi nejjednodušší je uložit si...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=34127&PID=128363&title=vyber-objektu-jak-upravit-efekty#128363 Autor: johny
Předmět: 34127
Zasláno: 11.kvě.2023 v 13:42

Asi nejjednodušší je uložit si (entlast), udělat kopii a do nové ss dát všechny (entnext) od uloženého entlast. Příklad třeba toto:

(defun c:Coalign ( / s e)
    
  (if (and (setq s (ssget "_:L"))
   (setq e (entlast))
   (setq e (progn (while (entnext e) (setq e (entnext e))) e))
   (vl-cmdf "_.copy" s "" "_non" '(0 0 0) "_non" '(0 0 0))
   (setq s (ssadd))
   )
    (progn
      (while (setq e (entnext e)) (ssadd e s))
      (command-s "_.align" s "")))
  (princ)
  )

Je dobré si taky uvědomit, že (entlast) nemusí být nutně poslední entita ve výkresu. Pokud máte blk s att, tak entlast je blk, entity att pak následují. 


Upravil johny - 11.kvě.2023 v 13:46]]> Thu, 11 May 2023 13:42:31 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=34127&PID=128363&title=vyber-objektu-jak-upravit-efekty#128363 <![CDATA[Výber objektu - jak upravit efekty : Původně jsem myslel, že zkopíruji...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=34127&PID=128362&title=vyber-objektu-jak-upravit-efekty#128362 Autor: Petr75
Předmět: 34127
Zasláno: 11.kvě.2023 v 12:59

Původně jsem myslel, že zkopíruji celou skupinu najednou, ale problém je ten, že zatím nevím, jak vybrat celou skupinu zkopírovaných objektů. Parametr "Poslední" (_Last) vybere jen poslední nakreslený objekt a paramter "Předchozí" (_Previous) vyber původní skupinu.
Moc neplánuji toto používat. AutoLisp se po zhruba 20 letech znovu učím, co do AutoCADu LT přidali AutoLisp.
Teď mně napadlo, že bych mol udělat dočasný blok, ten už bych mohl vložit jako celek.
]]> Thu, 11 May 2023 12:59:45 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=34127&PID=128362&title=vyber-objektu-jak-upravit-efekty#128362 <![CDATA[Výber objektu - jak upravit efekty : Petr75 napsal(a):Vzpomněl jsem...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=34127&PID=128360&title=vyber-objektu-jak-upravit-efekty#128360 Autor: johny
Předmět: 34127
Zasláno: 11.kvě.2023 v 12:29

Původně odeslal(a) Petr75 Petr75 napsal(a):

Vzpomněl jsem si na toto téma a vytvořil modifikovaný příkaz v AutoLispu na posun.

V podstatě to funguje tak, že napřed zkopíruji vybrané entity na stejné místo, pak původní  entity přesunu a nakonec zkopírované entity smažu. Není to sice dokonalé, ale v některých případech to může být lepší jak původní příkaz pro posun.


(defun C:posx (/ cmdsave ss1 ss2 i p1) ...


Byl bych s něčím takovým HODNĚ opatrný. Já sice používám lispy na kde co, ale na toto teda bacha. Pokud upravujete takto základní příkaz a předpokládáte jeho každodenní používání namísto jeho základní verze, tak ten LISP opravdu MUSÍ být dokonalý. Používá se to furt, používá se to na všechny typy entit, a někdy třeba i na celý výkres o 100000 entit. A pokud ten příkaz namísto prostého posunu udělá i kopii každého objektu (a pěkně jednoho po druhém a nikoliv "najednou")... naprosto si odrovnáte celý autocad.
Abych jen neblábolil... zkusil jsem to na výkresu s 27000 entit. Klasický posun je prakticky mžikem. POSX jsem po pár minutách killnul.
]]> Thu, 11 May 2023 12:29:25 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=34127&PID=128360&title=vyber-objektu-jak-upravit-efekty#128360 <![CDATA[Výber objektu - jak upravit efekty : Vzpomněl jsem si na toto téma...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=34127&PID=128355&title=vyber-objektu-jak-upravit-efekty#128355 Autor: Petr75
Předmět: 34127
Zasláno: 10.kvě.2023 v 16:01

Vzpomněl jsem si na toto téma a vytvořil modifikovaný příkaz v AutoLispu na posun.

V podstatě to funguje tak, že napřed zkopíruji vybrané entity na stejné místo, pak původní  entity přesunu a nakonec zkopírované entity smažu. Není to sice dokonalé, ale v některých případech to může být lepší jak původní příkaz pro posun.


(defun C:posx (/ cmdsave ss1 ss2 i p1) (setq cmdsave (getvar "cmdecho")) (setvar "cmdecho" 0) (setq ss1 (ssget "_I")) (command-s "_.undo" "_m") (command-s "_.undo" "_be") (setq temperr *error*) (setq *error* ErrorTrap) (if (null ss1) (progn (Command "_.SELECT") (while (= (getvar "CMDNAMES") "SELECT") (command pause) ) ) ) (setq ss1 (ssget "_P")) (setq ss2 (ssadd)) (setq i 0) (repeat (ssLength ss1) (command "_.copy" (ssadd (ssname ss1 i)) "" "_non" '(0 0) "") (ssadd (ssname (ssget "_L") 0) ss2) (setq i (1+ i)) ) (princ "\n") (setq p1 (getpoint "\nUrčete výchozí bod: ")) (command "_.move" ss1 "" "_non" p1 "_non" pause) (command "_.erase" ss2 "") (Command "._regen") (command-s "_.undo" "_e") (setvar "cmdecho" cmdsave) (setq *error* temperr) (princ))(defun ErrorTrap (errmsg) (if (not (member errmsg '("console break" "Function Cancelled"))) (princ (strcat "\nError: " errmsg)) ) (command-s "_.undo" "_b") (Command-s"._regen") (setvar "cmdecho" cmdsave) (setq *error* temperr) (princ))(princ)

]]> Wed, 10 May 2023 16:01:40 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=34127&PID=128355&title=vyber-objektu-jak-upravit-efekty#128355 <![CDATA[Výber objektu - jak upravit efekty : Jemné doladění barvy pozadí (tmavší...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=34127&PID=128227&title=vyber-objektu-jak-upravit-efekty#128227 Autor: Vladimír Michl
Předmět: 34127
Zasláno: 15.dub.2023 v 12:37

Jemné doladění barvy pozadí (tmavší nebo barevné) je asi jediná rozumná cesta. Nemožnost nastavení barvy pro skryté objekty v náhledu je určitě chyba a opomenutí, protože jinak jde nastavovat uživatelské barvy pro každou blbůstku, které je podstatně méně důležitá.]]> Sat, 15 Apr 2023 12:37:26 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=34127&PID=128227&title=vyber-objektu-jak-upravit-efekty#128227 <![CDATA[Výber objektu - jak upravit efekty : Tady jedna poměrně nedávná diskuse,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=34127&PID=128226&title=vyber-objektu-jak-upravit-efekty#128226 Autor: johny
Předmět: 34127
Zasláno: 14.dub.2023 v 20:45

Tady jedna poměrně nedávná diskuse, třeba pro inspiraci.

]]> Fri, 14 Apr 2023 20:45:28 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=34127&PID=128226&title=vyber-objektu-jak-upravit-efekty#128226 <![CDATA[Výber objektu - jak upravit efekty : Takže budeme zachranovat nedokonalost...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=34127&PID=128223&title=vyber-objektu-jak-upravit-efekty#128223 Autor: Lufttechnik
Předmět: 34127
Zasláno: 14.dub.2023 v 15:35

Takže budeme zachranovat nedokonalost vývojarov v Autodesk-u : - )
Skusim to , už ked to máme , ale vopred vidím jeden háček – že ten kdo používa tmavú obrazovku , používa barvy , ktoré na bilem podklade nebudú konfortné - žltá 3 , svetlomodra 4 , svetlozelena 5.
A pri každém príkaze Stretch prepinat barvu ! No ,ale aspoň sa cosi deje.

Dik.
]]> Fri, 14 Apr 2023 15:35:04 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=34127&PID=128223&title=vyber-objektu-jak-upravit-efekty#128223 <![CDATA[Výber objektu - jak upravit efekty : Tak jsem si našel jednoduchý Lisp...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=34127&PID=128222&title=vyber-objektu-jak-upravit-efekty#128222 Autor: Petr75
Předmět: 34127
Zasláno: 14.dub.2023 v 14:04

Tak jsem si našel jednoduchý Lisp program, který jedním příkazem změní pozadí na bílé a druhým spuštěním na černé. Takže toto může v některých případech docela pomoci.

(defun c:tbg ( / col )    (if tbg:flg        (setq col 16777215 tbg:flg nil)        (setq col 0        tbg:flg  t )    )    (foreach prp '(graphicswinmodelbackgrndcolor modelcrosshaircolor)        (vlax-put-property (acdisp) prp (setq col (- 16777215 col)))    )    (princ))(defun acdisp nil    (eval        (list 'defun 'acdisp 'nil            (vla-get-display (vla-get-preferences (vlax-get-acad-object)))        )    )    (acdisp))(vl-load-com) (princ)
]]> Fri, 14 Apr 2023 14:04:20 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=34127&PID=128222&title=vyber-objektu-jak-upravit-efekty#128222 <![CDATA[Výber objektu - jak upravit efekty : No , je to hrozné.Momentálne...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=34127&PID=128214&title=vyber-objektu-jak-upravit-efekty#128214 Autor: Lufttechnik
Předmět: 34127
Zasláno: 14.dub.2023 v 12:39

No , je to hrozné.   Momentálne sa rozhodujeme , či nepresedláme na autocad LT , pretože v autocade aj tak používame len 2-d a plný autocad sme držali len kvoli Autolispu. Na a ak v LT už funguje lisp , tak finančne to vypadá , že Autocad nepotrebujeme ak je LT za tretinu. Ale ak to bude i tam takto zprasené , tak to už snad zkusím i nejaký Bricscad či co je to. Uf .
Skúšal som nastavenie monitora. Pri zmene parametra Gama je to trocha vditelnejšie , ale neni to ok.
]]> Fri, 14 Apr 2023 12:39:12 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=34127&PID=128214&title=vyber-objektu-jak-upravit-efekty#128214