Konstruktor budowlany

kozi

Czy jest taka możliwość, aby tak zaprogramować Autocada, aby po uruchomieniu funkcji wymiarowania (jakiegokolwiek - liniowego, łukowego, wymiarowania kąta, szeregowego) warstwa sama przełączała się na np.: "018_DIM", na której mam same wymiary?

Tomasz79

Jest tylko kwestia czy uruchamiasz te polecenia za pomocą ikon czy z klawiatury czy za pomocą skrótów. W wierszu poleceń, które jest przypisane do ikony lub skrótów należy dodać przed tym istniejącym poleceniem następujące polecenie (command "_layer" "_set" "018_DIM" "")
To powinno działać w każdej wersji językowej Cad-a

Przykład takiego poleceni w całości dla wymiarowania liniowego:

(command "_layer" "_set" "018_DIM" "") _DIMLINEAR

Pozdrawiam

kozi

Więc - edytowałem sobie plik acadlt.pgp i
I podstawowe wymiary uruchamiam, za pomocą ["w" (wymiar liniowy), "wq"(wymiar normalny) i "we"(wymiar szeregowy)]+spacja, resztę wymiarów ( łuki i kąty, promień) uruchamiam z ikonek - stosunkowo rzadko ich używam.
Autacad jaki posiadam to 2010LT angielski.

Tomasz79

Chyba wersja LT nie obsługuje Lisp-ów.

kozi

No fakt nie działa to.
Ale mam też 2009 wersję studencką - pełną,
gdzie wkleić dokładnie ta komendę, żeby za każdym razem po kliknięci "w+spacja" powstawała linia wymiarowa na warstwie 018_DIM,
No i co zrobić, żeby po narysowaniu wymiaru warstwa się nie przełączała na 018_DIM tylko żeby nadal pozostawała na tej na której rysowałem np.: 05_line lub 035_line??

Yaro

na pełnym cadzie nie działa też sprawdzałem, może składnia polecenia ma inaczej wygladac

kozi

Jak wkleiłem to polecenie do wiersza na dole, to bardzo ładnie zadziałało.
Tylko, chciałbym aby tak to działało abym nie musiał wklejać tej komendy z forum za każdym razem jak chcę coś zwymiarować.
No i chciałbym aby wróciło do poprzedniej warstwy którą rysowałem.

Wiem, że są to dziwne wymagania, ale bardzo by mi to ułatwiło życie, myślę że też tym co drukują monochromem.

Tomasz79

Może z innej beczki.
Wklep do pliku acad.lsp poniższy kod najlepiej na końcu:

Procedura uruchamiająca polecenia: w+

kozi

Bardzo chętnie, ale nie mam takiego pliku Sad

Mam acad2009.lsp , acad2009doc.lsp, acadinfo.lsp,
w którym mam coś namieszać, żeby było OK.

Mam jeszcze cos takiego: dimassoc.lsp

i musi być "w+", nie może być samo "w" ??

Yaro

w twoim przypadku bedzie to najprawdopodobniej plik acad2009doc.lsp, a w+ to jest skrot Tomasza79 ty wstaw ten ktory masz zdefiniowany w swoim pgp do wymiarowania

dziala to ale zostaje na koniec ta warstwa do wymiarow

kozi

To może inaczej:

ten plik *.lsp powinien być w katalogu autocad2009\support czy autocad2009\express?

w pliku acad2009.lsp mam tylko tyle:

; MODULE_ID ACAD2007_LSP_
;;; ACAD2008.LSP Version 1.0 for AutoCAD 2009
;;;
;;; Copyright (C) 1994-2008 by Autodesk, Inc.
;;;
;;; Permission to use, copy, modify, and distribute this software
;;; for any purpose and without fee is hereby granted, provided
;;; that the above copyright notice appears in all copies and
;;; that both that copyright notice and the limited warranty and
;;; restricted rights notice below appear in all supporting
;;; documentation.
;;;
;;; AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
;;; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.
;;; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
;;; UNINTERRUPTED OR ERROR FREE.
;;;
;;; Use, duplication, or disclosure by the U.S. Government is subject to
;;; restrictions set forth in FAR 52.227-19 (Commercial Computer
;;; Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
;;; (Rights in Technical Data and Computer Software), as applicable.
;;;
;;;.
;;;
;;; Note:
;;; This file is normally loaded only once per AutoCAD session.
;;; If you wish to have LISP code loaded into every document,
;;; you should add your code to acaddoc.lsp.

;;;
;;; Globalization Note:
;;; We do not support autoloading applications by the native
;;; language command call (e.g. with the leading underscore
;;; mechanism.)

(if (not (= (substr (ver) 1 11) "Visual LISP")) (load "acad2009doc.lsp"))

;; Silent load.
(princ)

Yaro

poprawilem swojego posta wyzej, zobacz, prawidlowy plik to acad2009doc.lsp.
Jest on w miejscu: C:\Program Files\AutoCAD 2009\Support

kozi

Wielkie dzięki!!!
Szkoda że takiego programowania nie nauczyli nas na studiach...

A czy dałoby się tak zrobić, żeby tylko na rysowanie wymiaru ta warstwa się ustawiała na 018_DIM, a później wracała inną?

Tomasz79

Da się tylko kwestia coś za coś (trzeba podać 2 punkty wymiaru i odsunięcie od tych punktów)

kozi

Więc zrobiłem sobie taki wpis:

(defun C:5 ();nazwa polecenia
(progn
(command "_layer" "_set" "050_LINE" ""); włączenie warstwy
))

Włączam AC2009 klikam "5" zatwierdzam spacją, i warstwa się nie zmienia.

Coś jeszcze powinienem zapisać??