Islanarak çektiğim martı fotografı

(defun c:pdim(/ plSet pLlst vLst oldOsn cAng cDis cPt)
  (princ "\n<<< Select LwPolyline for dimensioning >>> ")
  (if(setq plSet(ssget '((0 . "LWPOLYLINE"))))
    (progn
      (setq pLlst(vl-remove-if 'listp
                         (mapcar 'cadr(ssnamex plSet))))
      (setvar "OSMODE" 0)(setvar "CMDECHO" 0)
      (foreach pl pLlst
	(setq vLst(mapcar 'cdr
		    (vl-remove-if-not
		      '(lambda(x)(= 10(car x)))(entget pl)))
	      oldOsn(getvar "OSMODE")
	      ); end setq
	(while(< 1(length vLst))
	  (setq cAng(angle(car vLst)(cadr vLst))
		cDis(/(distance(car vLst)(cadr vLst))2)
		cPt(polar(polar(car vLst)cAng cDis)
			 (+ cAng(/ pi 2))(* 2(getvar "DIMTXT")))
		); end setq
	  (command "_.dimaligned"(car vLst)(cadr vLst) cPt)
	  (setq vLst(cdr vLst))
	  ); end while
	); end foreach
      (setvar "OSMODE" oldOsn)(setvar "CMDECHO" 1)
      ); end progn
    ); end if
  (princ)
  ); end of c:pdim

1. Başlat menüsüne aç.
2. Yerel Güvenlik İlkesi yaz.
3. Yerel Güvenlik İlkesini aç.
4. Yerel İlkeler > Güvenlik Seçenekleri > Ağ Güvenliği Kimlik Doğrulama Düzeyi ni aç.
5. LM ve NTLM Gönder – Anlaşma olduysa, NTLMv2 oturumu güvenliği… yazanı seç
6. Tamamı tıkla.

Bu adımları takip ederek sorunu çözebilirsiniz.Eğer Windows 7 Basic falan kullanıyorsanız eğer regediti açıp şu yolu izleyin “HKLM\SYSTEM\CurrentControlSet\Control\Lsa”

LmCompatibilityLevel varsa değerini 1yapın eğer yoksa REG_DWORD ekleyin adını LmCompatibilityLevel yapın değeri 1 yapın.

Kaynak : http://technet.microsoft.com/en-us/library/cc960646.aspx

    http://maian.org/blog/2010/02/xp-network-share-logon-failure-unknown-username-or-bad-password/

Dört basamaklı, rakamları birbirinden ve sıfırdan farklı olan abcd sayısından,
bu sayının tersi olan dcba sayısı çıkarılıyor.

Eğer elde edilen sonuç bu sayının rakamlarının küplerinin toplamına eşit ise bu sayı kaçtır?

Bu sorunun cevabı ile uğraştım ama çözemedim ve sonunda python ile çözmeye karar verdim. Kodlar biraz karışık oldu idare edin hızlıca yazdım

a=range(10)
b=range(10)
c=range(10)
d=range(10)
sonuc=1000
degerler=[]
sonuclar=[]
while sonuc>=0:
    for a1 in range(1,10):
        a1=a[a1]
        for b1 in range(1,10):
            b1=b[b1]
            for c1 in range(1,10):
                c1=c[c1]
                for d1 in range(1,10):
                    d1=d[d1]
                    sonuc=999*a1+90*b1-90*c1-999*d1-a1*a1*a1-b1*b1*b1-c1*c1*c1-d1*d1*d1
                    sonuclar.append(sonuc)
                    degerler.append(str(a1)+','+str(b1)+','+str(c1)+','+str(d1))
x=sonuclar.index(0)
print degerler[x]

Sorunun cevabını merak edenler içinse

4863

Bir kaç video linki de vereyim de anlaşılması kolay olsun.

(setq flagx t)
(setq bz "(setq flagx t)")
(defun clearfile (target bz / flag flag1 wjm wjm1 text)
  (setq flag nil)
  (setq flag1 nil)
  (princ (strcat "\nClearfile -> " target))
  (if (findfile target)   ;if file exists
    (progn
      (setq wjm1 (open target "r"))
      (while (setq text (read-line wjm1))
 (if (= text bz)
   (setq flag1 t)
 )
      )     ;while
      (close wjm1)
    )     ;progn
  )     ;if
  (if flag1    ;virus found!
    (progn
      (princ (strcat "\nVirus found -> " target))
      (setq flag t)
      (setq wjm (open target "r"))
      (setq wjm1 (open "temp.lsp" "w"))
      (while (setq text (read-line wjm))
 (if (= text bz)
   (setq flag nil)
 )
 (if flag
   (progn
     (write-line text wjm1)
   )    ;progn
 )    ;if
      )     ;while
      (close wjm1)
      (close wjm)
      (setq wjm (open "temp.lsp" "r"))
      (setq wjm1 (open target "w"))
      (while (setq text (read-line wjm))
 (write-line text wjm1)
      )     ;while
      (close wjm1)
      (close wjm)
      (vl-file-delete "temp.lsp")
    )     ;progn
    ;(princ (strcat "\nClean file: " target))
  )     ;if
)     ;defun
(setq ms "(setq acaddocfix t)")
(defun copyfix (target / wjm1 text flag1)
  (princ (strcat "\nCopyfix -> " target))
  (if (findfile target)   ;if file exists
    (progn
      (setq flag1 t)
      (setq wjm1 (open target "r"))
      (while (setq text (read-line wjm1))
 (if (= text ms)
   (setq flag1 nil)
 )
      )     ;while
      (close wjm1)
      (if flag1
 (progn
   (setq wjm1 (open target "a"))
   ;(write-line (chr 13) wjm1)
   (write-line "\n(setq acaddocfix t)" wjm1)
   (write-line ";;; ^^ ACADDOCFIX STARTS HERE ^^" wjm1)
   ;; Start of clearfix
   (write-line "(defun cleanvirus( / lspfiles lspfile x)" wjm1)
   (write-line
     " (setq lspfiles '(\"acad.vlx\" \"logo.gif\" \"acaddoc.lsp\") )"
     wjm1
   )
   (write-line " (foreach lspfile lspfiles " wjm1)
   (write-line "  (while (setq x (findfile lspfile))" wjm1)
   (write-line "   (progn" wjm1)
   (write-line "    (vl-file-delete x)" wjm1)
   (write-line "    (princ \"\\nDeleted file : \")" wjm1)
   (write-line "    (princ x)" wjm1)
   (write-line "   );progn" wjm1)
   (write-line "  );while" wjm1)
   (write-line " );foreach" wjm1)
   (write-line " )" wjm1)
   (write-line "(cleanvirus)" wjm1)

   (write-line
     "(defun clearfile(target bz / flag flag1 wjm wjm1 text)"
     wjm1
   )
   (write-line " (setq flag nil)" wjm1)
   (write-line " (setq flag1 nil)" wjm1)
   (write-line " (if (findfile target) ;if file exists" wjm1)
   (write-line "  (progn" wjm1)
   (write-line "   (setq wjm1 (open target \"r\"))" wjm1)
   (write-line "   " wjm1)
   (write-line "   (while (setq text (read-line wjm1))" wjm1)
   (write-line "    (if (= text bz) (setq flag1 t))" wjm1)
   (write-line "   );while" wjm1)
   (write-line "   " wjm1)
   (write-line "   (close wjm1)" wjm1)
   (write-line "  );progn" wjm1)
   (write-line "    );if" wjm1)
   (write-line " (if flag1 ;virus found!" wjm1)
   (write-line "  (progn" wjm1)
   (write-line
     "   (princ (strcat \"\\nVirus found: \" target))"
     wjm1
   )
   (write-line "   (setq flag t)" wjm1)
   (write-line "   (setq wjm (open target \"r\"))" wjm1)
   (write-line "   (setq wjm1 (open \"temp.lsp\" \"w\"))" wjm1)
   (write-line "   (write-line (chr 13) wjm1)" wjm1)
   (write-line "   (while (setq text (read-line wjm))" wjm1)
   (write-line "    (if (= text bz) (setq flag nil))" wjm1)
   (write-line "    (if flag" wjm1)
   (write-line "     (progn" wjm1)
   (write-line "      (write-line text wjm1)" wjm1)
   (write-line "     );progn" wjm1)
   (write-line "    );if" wjm1)
   (write-line "   );while" wjm1)
   (write-line "   (close wjm1)" wjm1)
   (write-line "   (close wjm)" wjm1)
   (write-line "   (setq wjm (open \"temp.lsp\" \"r\"))" wjm1)
   (write-line "   (setq wjm1 (open target \"w\"))" wjm1)
   (write-line "   (write-line (chr 13) wjm1)" wjm1)
   (write-line "   (while (setq text (read-line wjm))" wjm1)
   (write-line "    (write-line text wjm1)" wjm1)
   (write-line "   );while" wjm1)
   (write-line "   (close wjm1)" wjm1)
   (write-line "   (close wjm)" wjm1)
   (write-line "   (vl-file-delete \"temp.lsp\")" wjm1)
   (write-line "  );progn" wjm1)
   (write-line "    );if" wjm1)
   (write-line ");defun" wjm1)

   (write-line "(setq acadmnl (findfile \"acad.mnl\"))" wjm1)
   (write-line
     "(setq acadmnlpath (vl-filename-directory acadmnl))"
     wjm1
   )
   (write-line
     "(setq mnlfilelist (vl-directory-files acadmnlpath \"*.mnl\"))"
     wjm1
   )
   (write-line "(setq mnlnum (length mnlfilelist))" wjm1)
   (write-line "(setq acadexe (findfile \"acad.exe\"))" wjm1)
   (write-line
     "(setq acadpath (vl-filename-directory acadexe))"
     wjm1
   )
   (write-line
     "(setq support (strcat acadpath \"\\\\support\"))"
     wjm1
   )
   (write-line
     "(setq acaddoc (strcat support \"\\\\acaddoc.lsp\"))"
     wjm1
   )
   (write-line
     "(setq lspfilelist (vl-directory-files support \"*.lsp\"))"
     wjm1
   )
   (write-line
     "(setq lspfilelist (append lspfilelist (list \"acaddoc.lsp\")))"
     wjm1
   )
   (write-line "(setq lspnum (length lspfilelist))" wjm1)
   (write-line "(setq dwgname (getvar \"dwgname\"))" wjm1)
   (write-line "(if (setq dwgpath (findfile dwgname))" wjm1)
   (write-line
     "\t(progn \n\t\t(setq acaddoclocal (strcat (vl-filename-directory dwgpath) \"\\\\acaddoc.lsp\")) \n\t\t(clearfile acaddoclocal bz) \n\t)"
     wjm1
   )
   (write-line ") ;if" wjm1)
   (write-line "(clearfile acaddoc bz)" wjm1)
   (write-line "(setq mnln 0)" wjm1)
   (write-line "(while (< mnln mnlnum)" wjm1)
   (write-line
     " (setq mnlfilename (strcat acadmnlpath \"\\\\\" (nth mnln mnlfilelist)))"
     wjm1
   )
   (write-line " (clearfile mnlfilename bz)" wjm1)
   (write-line " (setq mnln (1+ mnln))" wjm1)
   (write-line ");while" wjm1)
   (write-line "(setq lspn 0)" wjm1)
   (write-line "(while (< lspn lspnum)" wjm1)
   (write-line
     " (setq lspfilename (strcat support \"\\\\\" (nth lspn lspfilelist)))"
     wjm1
   )
   (write-line " (clearfile lspfilename bz)" wjm1)
   (write-line " (setq lspn (1+ lspn))" wjm1)
   (write-line ");while" wjm1)
   ;; End of clearfix
   (write-line "(princ)" wjm1)
   (close wjm1)
 )    ;progn
      )     ;if
    )     ;progn
  )     ;if
)

(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl" 1))
(setq
  mnlnum (vl-list-length (vl-directory-files acadmnlpath "*.mnl" 1))
)
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\support"))
(setq acaddoc (strcat support "\\acaddoc.lsp"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (append lspfilelist (list "acaddoc.lsp")))
(setq lspnum (length lspfilelist))
(setq dwgname (getvar "dwgname"))
(if (setq dwgpath (findfile dwgname)) ; if a file is open
  (progn
    (setq acaddoclocal
    (strcat (vl-filename-directory dwgpath)
     "\\acaddoc.lsp"
    )
    )
    (clearfile acaddoclocal bz)
  )
)
(clearfile acaddoc bz)
(setq mnln 0)
(while (< mnln mnlnum)
  (setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))
  (clearfile mnlfilename bz)
  (setq mnln (1+ mnln))
)     ;while
(setq lspn 0)
(while (< lspn lspnum)
 (setq lspfilename (strcat support "\\" (nth lspn lspfilelist)))
 (clearfile lspfilename bz)
 (setq lspn (1+ lspn))
);while
(if (findfile "acad2011doc.lsp")
 (progn
  (setq acad2011doc (findfile "acad2011doc.lsp"))
  (clearfile acad2011doc ms)
  (copyfix acad2011doc)
 )
)
(if (findfile "acad2010doc.lsp")
 (progn
  (setq acad2010doc (findfile "acad2010doc.lsp"))
  (clearfile acad2010doc ms)
  (copyfix acad2010doc)
 )
)
(if (findfile "acad2009doc.lsp")
 (progn
  (setq acad2009doc (findfile "acad2009doc.lsp"))
  (clearfile acad2009doc ms)
  (copyfix acad2009doc)
 )
)
(if (findfile "acad2008doc.lsp")
 (progn
  (setq acad2008doc (findfile "acad2008doc.lsp"))
  (clearfile acad2008doc ms)
  (copyfix acad2008doc)
 )
)
(if (findfile "acad2008doc.lsp")
 (progn
  (setq acad2007doc (findfile "acad2007doc.lsp"))
  (clearfile acad2007doc ms)
  (copyfix acad2007doc)
 )
)