Új hozzászólás Aktív témák

• #1152 lúzer veterán petkow #1145

  Új Válasz 2008-03-21 11:06:30 #1152

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lúzer

  veterán

  válasz petkow #1145 üzenetére

  Itt van egy egyszerű, sajna egyféle mintára cserél
  csinálj a pat fájlba egy ALTERNATIV nevű sraffmintát, azzal a mintával amit látni akarsz

  ezt a kódot egy lsp kiterjesztésű fájlba, _appload, töltsd be
  parancs: srcsere
  nyugodtan jelöld ki az egész rajzot, vagy amit akarsz, csak a sraffot veszi figyelembe
  utána már klattyinthatsz a sraffon és megjelenik az alternatív minta

  nem tudom, jól működik-e építész szutykon, amennyire ki tudtam próbálni, úgy jó (egyedi sraff pat-ba, utána töröltem, és ezután ugye hibát jelez)

  (defun c:srcsere()
  (setq tmp (ssget "_I" '((0 . "HATCH")) ) )
  (if (= tmp nil)(setq tmp (ssget '((0 . "HATCH")) ) ))
  (setq tmpdb (sslength tmp))
  (setq INDULO tmpdb)
  (REPEAT tmpdb
  (setq INDULO (1- INDULO))
  (setq rajzelem (ssname tmp INDULO))
  (setq lista (entget rajzelem ))
  (setq lista (subst (cons 2 "ALTERNATIV")(assoc 2 lista) lista))
  (entmod lista)
  )(princ)
  )

  [ Szerkesztve ]

  MO. RIP. - az utolsó kapcsolja le a villanyt.

Új hozzászólás Aktív témák