przez arrowman » 09 gru 2011, 15:25
Szanowni Forumowicze,
Pewnego szarego popołudnia wczytałem do ProdgeCAD pewnego lispa, nie wiem czy on jest winny, ale po tej operacji jak
klikam Save As zamiast pojawić się okno dialogowe, to uruchamia mi się tekstowo komenda _saveas.Bardzo prosze o pomoc.
Owy LIPS:
- Kod: Zaznacz cały
(defun c:spline2poly (/ SSet Name OldVar NameVar)
(cond
((setq SSet (ssget "_X" '((0 . "SPLINE"))))
(setq Name (strcat "$$" (rtos (getvar "cdate") 2 0) "$$.dxf")
NameVar '("cmdecho" "filedia")
OldVar (mapcar 'getvar NameVar)
)
(mapcar 'setvar NameVar '(0 0))
(command "_.-layer" "_u" "*" "")
(if (findfile Name)
(command "_.dxfout" Name "_y" "_v" "_r12" "_o" SSet "" "16")
(command "_.dxfout" Name "_v" "_r12" "_o" SSet "" "16")
) ;end if
(command "_.erase" "_p" "" "_.dxfin" Name)
(vl-file-delete Name)
(mapcar 'setvar NameVar OldVar)
)
(T (prompt "W rysunku nie ma splajnów. "))
) ;end cond
(princ)
) ;end file
Żeby było tragiczniej, to był program na kompie szefa:/
BARDZO proszę o pomoc:-(
Pozdrawiam,
A.
Szanowni Forumowicze,
Pewnego szarego popołudnia wczytałem do ProdgeCAD pewnego lispa, nie wiem czy on jest winny, ale po tej operacji jak [b]klikam Save As zamiast pojawić się okno dialogowe, to uruchamia mi się tekstowo komenda _saveas.[/b]
Bardzo prosze o pomoc.
Owy LIPS:
[code] (defun c:spline2poly (/ SSet Name OldVar NameVar)
(cond
((setq SSet (ssget "_X" '((0 . "SPLINE"))))
(setq Name (strcat "$$" (rtos (getvar "cdate") 2 0) "$$.dxf")
NameVar '("cmdecho" "filedia")
OldVar (mapcar 'getvar NameVar)
)
(mapcar 'setvar NameVar '(0 0))
(command "_.-layer" "_u" "*" "")
(if (findfile Name)
(command "_.dxfout" Name "_y" "_v" "_r12" "_o" SSet "" "16")
(command "_.dxfout" Name "_v" "_r12" "_o" SSet "" "16")
) ;end if
(command "_.erase" "_p" "" "_.dxfin" Name)
(vl-file-delete Name)
(mapcar 'setvar NameVar OldVar)
)
(T (prompt "W rysunku nie ma splajnów. "))
) ;end cond
(princ)
) ;end file [/code]
Żeby było tragiczniej, to był program na kompie szefa:/
BARDZO proszę o pomoc:-(
Pozdrawiam,
A.