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

• #188 lúzer veterán jagger82 #170

  Új Válasz 2006-05-23 15:56:40 #188

  Ú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 jagger82 #170 üzenetére

  dobok egyet pontszám nélkül, ha kell másként kiindulásnak jó:
  Betölt és pontbe parancs
  
  
  ;;;A DWG FILE-VEL MEGEGYEZŐ NEVŰ TXT FÁJL BEKÉRÉSE, UGYANAZON A HELYEN.
  ;;;PONTOSVESSZŐVEL TAGOLT FÁJL - PONTKOORDINÁTÁK
  
  (defun C: Pontbe ()
  
  
  (setq v01 (strcat (getvar ''dwgprefix'') (getvar ''dwgname'')))
  (setq v01 (vl-string-translate ''dwg'' ''txt'' v01))
  (princ v01)(terpri)
  
  (setq v01 (open v01 ''r''))
  (SETQ V02 NIL)
  
  (while (SETQ V03 ( read-line v01 ))
  
  (setq v03 (VL-STRING-TRANSLATE '';'' '' '' v03 ))
  (princ v03)(terpri)
  
  ;;;ELSŐ A HÁROMBÓL
  (setq v02 (VL-STRING-RIGHT-TRIM ''0123456789,.'' v03 ))
  (setq v02 (VL-STRING-RIGHT-TRIM '' '' v02 ))
  (setq v02 (VL-STRING-RIGHT-TRIM ''0123456789,.'' v02 ))
  (setq val_x (ATOF v02))
  (princ val_x)(terpri)
  
  
  ;;;MÁSODIK A HÁROMBÓL
  (setq v02 (VL-STRING-TRIM ''0123456789,.'' v03 ))
  (setq v02 (VL-STRING-TRIM '' '' v02 ))
  (setq val_y (ATOF v02))
  (princ val_y)(terpri)
  
  
  ;;;HARMADIK A HÁROMBÓL
  (setq v02 (VL-STRING-LEFT-TRIM ''0123456789,.'' v03 ))
  (setq v02 (VL-STRING-LEFT-TRIM '' '' v02 ))
  (setq v02 (VL-STRING-LEFT-TRIM ''0123456789,.'' v02 ))
  (setq v02 (VL-STRING-TRIM '' '' v02 ))
  (setq val_z (ATOF v02))
  (princ val_z)(terpri)
  
  
  (setq val_xyz(list val_x val_y val_z))
  (princ val_xyz)(terpri)
  (terpri)
  
  
  (command ''_point'' val_xyz)
  )
  
  
  (close v01)(princ)
  )
  
  
  
  [Szerkesztve]
  
  [Szerkesztve]

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