Copyright © 2004-2022 SQL: 1.857 saniye - Sorgu: 100 - Ortalama: 0.01857 saniye
10.12.2014 12:12
Travaci |
özkan-wien Kalbimi kırıyorsun, vl-string-right-trim değil vl-filename-base :love
|
10.12.2014 12:24
özkan-wien |
Alıntı severim seni travaci :-) ctrl+2 design Center la layoutu cagirinca olmuyomu?
|
10.12.2014 12:57
özkan-wien |
designcenter i biliyosundur öyle tahmin ediyorum.
Ama bilmeyenler icin layoutu getirmek istediginiz hedef dosya ve kaynak dosyayinin ikisini de acin. hedef dosyanin icinden "ctrl+2" yapip designcenter i acin kaynak dwg nin layout sekmesine tiklayin ve ve sag taraftaki layoutlardan istediginizi sag tiklayip ciziminize ekleyin.
|
10.12.2014 13:58
alumina |
dxf i dwg ye çevirme isi gerçekten zorluyor beni. denemediğim yol kalmadi. yapan yok mu hala?
|
10.12.2014 13:59
Travaci |
alumina niye zorladı ?
|
10.12.2014 14:09
alumina |
dxf dosyasini blok olarak insert etmiyor. blok olarak tanımıyor.
vl-file-copy ise yaramiyor. aslında ise yarıyor gibi gorunuyor ama kaydettiği dosya bozuk dosya olarak algılanıyor. vl-file-extension i değiştirme imkani yok. olsa zaten insert e gerek kalmaksızın cozulur. Geriye tek bir yol kaldı. oda "._open" la yeni bir cizim olarak dxf dosyasini actirip saveas la dwg olarak almak. onuda yapamadım bir turlu
|
10.12.2014 14:10
Travaci |
Kod: (setq ds (vl-directory-files "C:/Temp" "*.dxf" 1) n 0) (repeat (length ds) (vla-open (vla-get-documents (vlax-get-acad-object)) (strcat "c:/Temp/" (nth n ds)...)) Kayıt ettiğin dxf dosyalarını açtırıp, daha sonra diğer dwglerin üzerine save edip dxf dosyasını silsen olmazmı ? Yazmaya vaktim yok bi dene istersen. Buarada ilk açtığın dosyaları dxfout ile kaydetsen daha iyi olmazmı ?
|
10.12.2014 14:12
alumina |
abi hemen hemen hemen deniyorum.
|
10.12.2014 14:57
alumina |
hani script le yapmıştın :)
|
10.12.2014 14:57
özkan-wien |
:)
|
10.12.2014 15:03
raskoln |
neyi
|
10.12.2014 15:04
raskoln |
gönderin bi bakalım :D:D:D:D:D:D:D
|
10.12.2014 15:18
özkan-wien |
rasko tam arizasin valla :-)
denedin mi lispi cevap bile yazmadin.
|
10.12.2014 15:23
alumina |
raskoln soruyu ilk sorduğun iletine bak. cok orijinal başlamıştın. "arkadaşlar elimde 100 tane resmi var".. eee.. alıcıysanız tanesini 10 TL den veriyim, yoksa tezgahın onunu kapatmayın..
|
11.12.2014 09:19
halilozcakir |
raskoln ! Lütfen Üstadların ZEYBEK oynayışını kesme. Sadece onları seyret, iştahlarını, heveslerini kesme. İnsicamını bozma.
|
12.12.2014 11:20
halilozcakir |
alumina ilk paylaştığın sadece dxf yapan lisp , oda güzeldi şimdi ona ulaşamıyorum yeniden paylaşır mısın ?
|
12.12.2014 11:37
alumina |
Iyi calismalar.
Kod: (defun c:alumina ()
(setq fn (vl-directory-files (strcat "c:/temp") "*.dwg" 1) i 0) (repeat (length fn) (command "._erase" "all" "" "._purge" "_all" "" "_n" "._insert" (strcat "c:/temp/" (nth i fn)) '(0 0 0) 1 "" 0 "" "._layer" "_thaw" "*" "" "._layer" "_unlock" "*" "") (vl-file-delete (strcat "c:/temp/" (nth i fn))) (vl-cmdf "._saveas" "DXF" "" (strcat "c:/temp/" (vl-filename-base (nth i fn))) "") (setq i (1+ i))) (vl-cmdf "._close") (princ)) alumina (12.12.2014 11:44 GMT) |
12.12.2014 11:43
Travaci |
Alumina "*.dwg"
|
12.12.2014 11:45
alumina |
Alıntı duzenlendi.
|
özkan-wien |
dxf leri dwg yapmak icin
c altina "Lisp" adinda bir klasör olusturup bu lispi "c2dwg.lsp" olarak klasöre kaydedin. komut "c2dwg" acilan pencereden dxf lerinizi secip sol alttaki "add files" e tiklayip sag tarafa gecirin ve "ok" e basin [code (defun C:c2dwg(/ dwgs scr-name lsp-name) (setq dwgs (LM:GetFiles "Select Drawings to Copy to" "" "dxf")) (setq scr-name "C:/lisp/tmp.scr" lsp-name "C:/lisp/c2dwg.lsp") (create-script scr-name dwgs lsp-name "(cevir)" T) (command "_.SCRIPT" scr-name) (vl-file-delete scr-name) (princ) ) (defun cevir() (command-s "_.saveas" "" "") ) (defun create-script(scr dwgs lsp cmd save / f dwg) (setq f (open scr "w")) (foreach dwg dwgs (progn (write-line (strcat "_.OPEN "" dwg """) f ) (write-line (strcat "(load "" lsp "")") f ) (write-line cmd f) (if save (write-line "_.QSAVE" f) ) (write-line "_.CLOSE" f) ) ) (close f) (princ) ) (defun LM:GetFiles ( title default ext / *error* dch dcl des dir dirdata lst rtn ) (defun *error* ( msg ) (if (= 'file (type des)) (close des) ) (if (and (= 'int (type dch)) (< 0 dch)) (unload_dialog dch) ) (if (and (= 'str (type dcl)) (findfile dcl)) (vl-file-delete dcl) ) (if (and msg (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*"))) (princ (strcat "\nError: " msg)) ) (princ) ) (if (and (setq dcl (vl-filename-mktemp nil nil ".dcl")) (setq des (open dcl "w")) (progn (foreach x '( "lst : list_box" "{" " width = 40.0;" " height = 20.0;" " fixed_width = true;" " fixed_height = true;" " alignment = centered;" " multiple_select = true;" "}" "" "but : button" "{" " width = 20.0;" " height = 1.8;" " fixed_width = true;" " fixed_height = true;" " alignment = centered;" "}" "" "getfiles : dialog" "{" " key = "title"; spacer;" " : row" " {" " alignment = centered;" " : edit_box { key = "dir"; label = "Folder:"; }" " : button" " {" " key = "brw";" " label = "Browse";" " fixed_width = true;" " }" " }" " spacer;" " : row" " {" " : column" " {" " : lst { key = "box1"; }" " : but { key = "add" ; label = "Add Files"; }" " }" " : column {" " : lst { key = "box2"; }" " : but { key = "del" ; label = "Remove Files"; }" " }" " }" " spacer; ok_cancel;" "}" ) (write-line x des) ) (setq des (close des)) (< 0 (setq dch (load_dialog dcl))) ) (new_dialog "getfiles" dch) ) (progn (setq ext (LM:getfiles:str->lst (strcase ext) ";")) (set_tile "title" (if (= "" title) "Select Files" title)) (set_tile "dir" (setq dir (LM:getfiles:fixdir (if (or (= "" default) (not (vl-file-directory-p (LM:getfiles:fixdir default)))) (getvar 'dwgprefix) default ) ) ) ) (setq lst (LM:getfiles:updatefilelist dir ext nil)) (mode_tile "add" 1) (mode_tile "del" 1) (action_tile "brw" (vl-prin1-to-string '(if (setq tmp (LM:getfiles:browseforfolder "" nil 512)) (setq lst (LM:getfiles:updatefilelist (set_tile "dir" (setq dir tmp)) ext rtn) rtn (LM:getfiles:updateselected dir rtn) ) ) ) ) (action_tile "dir" (vl-prin1-to-string '(if (= 1 $reason) (setq lst (LM:getfiles:updatefilelist (set_tile "dir" (setq dir (LM:getfiles:fixdir $value))) ext rtn) rtn (LM:getfiles:updateselected dir rtn) ) ) ) ) (action_tile "box1" (vl-prin1-to-string '( (lambda ( / itm tmp ) (setq itm (mapcar '(lambda ( n ) (nth n lst)) (read (strcat "(" $value ")")))) (if (= 4 $reason) (cond ( (equal '("..") itm) (setq lst (LM:getfiles:updatefilelist (set_tile "dir" (setq dir (LM:getfiles:updir dir))) ext rtn) rtn (LM:getfiles:updateselected dir rtn) ) ) ( (and (not (vl-filename-extension (car itm))) (vl-file-directory-p (setq tmp (LM:getfiles:checkredirect (strcat dir "" (car itm))))) ) (setq lst (LM:getfiles:updatefilelist (set_tile "dir" (setq dir tmp)) ext rtn) rtn (LM:getfiles:updateselected dir rtn) ) ) ( (setq rtn (LM:getfiles:sort (append rtn (mapcar '(lambda ( x ) (strcat dir "" x)) itm))) rtn (LM:getfiles:updateselected dir rtn) lst (LM:getfiles:updatefilelist dir ext rtn) ) ) ) (if (vl-some 'vl-filename-extension itm) (mode_tile "add" 0) ) ) ) ) ) ) (action_tile "box2" (vl-prin1-to-string '( (lambda ( / itm ) (setq itm (mapcar '(lambda ( n ) (nth n rtn)) (read (strcat "(" $value ")")))) (if (= 4 $reason) (setq rtn (LM:getfiles:updateselected dir (vl-remove (car itm) rtn)) lst (LM:getfiles:updatefilelist dir ext rtn) ) (mode_tile "del" 0) ) ) ) ) ) (action_tile "add" (vl-prin1-to-string '( (lambda ( / itm ) (if (setq itm (vl-remove-if-not 'vl-filename-extension (mapcar '(lambda ( n ) (nth n lst)) (read (strcat "(" (get_tile "box1") ")"))) ) ) (setq rtn (LM:getfiles:sort (append rtn (mapcar '(lambda ( x ) (strcat dir "" x)) itm))) rtn (LM:getfiles:updateselected dir rtn) lst (LM:getfiles:updatefilelist dir ext rtn) ) ) (mode_tile "add" 1) (mode_tile "del" 1) ) ) ) ) (action_tile "del" (vl-prin1-to-string '( (lambda ( / itm ) (if (setq itm (read (strcat "(" (get_tile "box2") ")"))) (setq rtn (LM:getfiles:updateselected dir (LM:getfiles:removeitems itm rtn)) lst (LM:getfiles:updatefilelist dir ext rtn) ) ) (mode_tile "add" 1) (mode_tile "del" 1) ) ) ) ) (if (zerop (start_dialog)) (setq rtn nil) ) ) ) (*error* nil) rtn ) (defun LM:getfiles:listbox ( key lst ) (start_list key) (foreach x lst (add_list x)) (end_list) lst ) (defun LM:getfiles:listfiles ( dir ext lst ) (vl-remove-if '(lambda ( x ) (member (strcat dir "" x) lst)) (cond ( (cdr (assoc dir dirdata))) ( (cdar (setq dirdata (cons (cons dir (append (LM:getfiles:sortlist (vl-remove "." (vl-directory-files dir nil -1))) (LM:getfiles:sort (if (member ext '(("") ("*"))) (vl-directory-files dir nil 1) (vl-remove-if-not (function (lambda ( x / e ) (and (setq e (vl-filename-extension x)) (setq e (strcase (substr e 2))) (vl-some '(lambda ( w ) (wcmatch e w)) ext) ) ) ) (vl-directory-files dir nil 1) ) ) ) ) ) dirdata ) ) ) ) ) ) ) (defun LM:getfiles:sort ( lst ) (apply 'append (mapcar 'LM:getfiles:sortlist (vl-sort (LM:getfiles:groupbyfunction lst (lambda ( a b / x y ) (and (setq x (vl-filename-extension a)) (setq y (vl-filename-extension b)) (= (strcase x) (strcase y)) ) ) ) (function (lambda ( a b / x y ) (and (setq x (vl-filename-extension (car a))) (setq y (vl-filename-extension (car b))) (< (strcase x) (strcase y)) ) ) ) ) ) ) ) (defun LM:getfiles:sortlist ( lst ) (mapcar (function (lambda ( n ) (nth n lst))) (vl-sort-i (mapcar 'LM:getfiles:splitstring lst) (function (lambda ( a b / x y ) (while (and (setq x (car a)) (setq y (car b)) (= x y) ) (setq a (cdr a) b (cdr b) ) ) (cond ( (null x) b) ( (null y) nil) ( (and (numberp x) (numberp y)) (< x y)) ( (= "." x)) ( (numberp x)) ( (numberp y) nil) ( (< x y)) ) ) ) ) ) ) (defun LM:getfiles:groupbyfunction ( lst fun / tmp1 tmp2 x1 ) (if (setq x1 (car lst)) (progn (foreach x2 (cdr lst) (if (fun x1 x2) (setq tmp1 (cons x2 tmp1)) (setq tmp2 (cons x2 tmp2)) ) ) (cons (cons x1 (reverse tmp1)) (LM:getfiles:groupbyfunction (reverse tmp2) fun)) ) ) ) (defun LM:getfiles:splitstring ( str ) ( (lambda ( l ) (read (strcat "(" (vl-list->string (apply 'append (mapcar (function (lambda ( a b c ) (cond ( (= 92 b) (list 32 34 92 b 34 32) ) ( (or (< 47 b 58) (and (= 45 b) (< 47 c 58) (not (< 47 a 58))) (and (= 46 b) (< 47 a 58) (< 47 c 58)) ) (list b) ) ( (list 32 34 b 34 32)) ) ) ) (cons nil l) l (append (cdr l) '(( ))) ) ) ) ")" ) ) ) (vl-string->list (strcase str)) ) ) (defun LM:getfiles:browseforfolder ( msg dir flg / err fld pth shl slf ) (setq err (vl-catch-all-apply (function (lambda ( / app hwd ) (if (setq app (vlax-get-acad-object) shl (vla-getinterfaceobject app "shell.application") hwd (vl-catch-all-apply 'vla-get-hwnd (list app)) fld (vlax-invoke-method shl 'browseforfolder (if (vl-catch-all-error-p hwd) 0 hwd) msg flg dir) ) (setq slf (vlax-get-property fld 'self) pth (vlax-get-property slf 'path) pth (vl-string-right-trim "" (vl-string-translate "/" "" pth)) ) ) ) ) ) ) (if slf (vlax-release-object slf)) (if fld (vlax-release-object fld)) (if shl (vlax-release-object shl)) (if (vl-catch-all-error-p err) (prompt (vl-catch-all-error-message err)) pth ) ) (defun LM:getfiles:full->relative ( dir path / p q ) (setq dir (vl-string-right-trim "" dir)) (cond ( (and (setq p (vl-string-position 58 dir)) (setq q (vl-string-position 58 path)) (not (eq (strcase (substr dir 1 p)) (strcase (substr path 1 q)))) ) path ) ( (and (setq p (vl-string-position 92 dir)) (setq q (vl-string-position 92 path)) (eq (strcase (substr dir 1 p)) (strcase (substr path 1 q))) ) (LM:getfiles:full->relative (substr dir (+ 2 p)) (substr path (+ 2 q))) ) ( (and (setq q (vl-string-position 92 path)) (eq (strcase dir) (strcase (substr path 1 q))) ) (strcat "." (substr path (+ 2 q))) ) ( (eq "" dir) path ) ( (setq p (vl-string-position 92 dir)) (LM:getfiles:full->relative (substr dir (+ 2 p)) (strcat ".." path)) ) ( (LM:getfiles:full->relative "" (strcat ".." path))) ) ) (defun LM:getfiles:str->lst ( str del / pos ) (if (setq pos (vl-string-search del str)) (cons (substr str 1 pos) (LM:getfiles:str->lst (substr str (+ pos 1 (strlen del))) del)) (list str) ) ) (defun LM:getfiles:updatefilelist ( dir ext lst ) (LM:getfiles:listbox "box1" (LM:getfiles:listfiles dir ext lst)) ) (defun LM:getfiles:updateselected ( dir lst ) (LM:getfiles:listbox "box2" (mapcar '(lambda ( x ) (LM:getfiles:full->relative dir x)) lst)) lst ) (defun LM:getfiles:updir ( dir ) (substr dir 1 (vl-string-position 92 dir nil t)) ) (defun LM:getfiles:fixdir ( dir ) (vl-string-right-trim "" (vl-string-translate "/" "" dir)) ) (defun LM:getfiles:removeitems ( itm lst / idx ) (setq idx -1) (vl-remove-if '(lambda ( x ) (member (setq idx (1+ idx)) itm)) lst) ) [/code] özkan-wien (15.12.2014 08:42 GMT) |