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

• #192 lúzer veterán ABnormal #182

  Új Válasz 2006-05-23 16:40:50 #192

  Ú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 ABnormal #182 üzenetére

  Átértelmezve a problémádat, legegyszerűbben:
  
  Összeérő vonalakból csinálj vonalláncot, és vesd szét.
  Akkor tuti hogy végpont=kezdőpont (következő)
  
  Én 2002Mapon nyomom ott adedwgclean parancs
  2004-ben mapclean
  egyéb Cad esetleg Pljoin parancs, de az már bónusz.
  

• #185 lúzer veterán ABnormal #182

  Új Válasz 2006-05-23 15:41:11 #185

  Ú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 ABnormal #182 üzenetére

  ezt egy .lsp fájlba és keresd meg:
  Eszköz->alkalmazás betöltése
  
  vagy appload parancs
  ja és a VF paranccsal indul, kilépés: escape
  
  (DEFUN C:VF()
  (vl-load-com)
  (setq ciklusv nil)
  (while (= ciklusv nil)
  (setq valt1 nil)
  
  (while (= valt1 nil) ;rajzelem kiválasztás
  (initget '' Kilép'')
  (setq valt1(entsel ''\nVálasszon ki egy vonalat - vagy -[Kilép]:''))
  (if (= valt1 nil) (alert ''Nem választott! '') )
  ) ; kiválasztás megtörtént-while valt1
  (if (= valt1 ''Kilép'') (setq ciklusv 1) (progn ;+++++++ciklusvégre ugrás
  
  
  (setq ELEM_LISTA (entget (car valt1 )) ) ;setq
  (SETQ tipus (assoc 0 ELEM_LISTA))
  
  (if (/= (cdr tipus) ''LINE'') (progn (alert ''Ez nem vonal rajzelem! \n Válasszon vonalat !'') ;if01
  (setq w nil) ); igen-ág-prognban
  (progn
  (setq qw 2.5) ;érték ne nil
  (SETQ kpont (assoc 10 ELEM_LISTA))
  (SETQ vpont (assoc 11 ELEM_LISTA))
  (setq ujvpont (cons 11(cdr kpont)))
  (setq ujkpont (cons 10(cdr vpont)))
  
  (setq ELEM_LISTA (subst ujkpont kpont ELEM_LISTA))
  (setq ELEM_LISTA (subst ujvpont vpont ELEM_LISTA))
  (entmod ELEM_LISTA) ); hamis-ág-prognban
  
  ); if01
  
  
  ))
  );ciklusvég
  );defun
  
  
  
  [Szerkesztve]

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