|
ADT Architectural Desktop : ADT-Bemassung mit VBA
tmoehlenhoff am 08.02.2005 um 18:00 Uhr (0)
naja, der Nutzer muss in dem Fall ja nicht eingreifen können. Mittels SendCommand kann man ja alle erforderliche Infos in den ADT pumpen, so dass der Benutzer gar keine Möglichkeiten mehr hat noch einzugreifen. Schön ist das nicht und es stellt auch wohl kaum die hohe Kunst des Programmierens da, aber man kann halt nur nutzen was zur Verfügung steht und meines Wissens gibt es in VBA keinen anderen Weg. Vielleicht hat aber ja jemand anderes noch ne bessere Idee. In Lisp gäbe es wahrscheinlich auch die Mögl ...
|
| In das Form ADT Architectural Desktop wechseln |
|
AutoCAD Architecture ACA (ADT) : nicht assoziativ bemaßen
tmoehlenhoff am 13.12.2010 um 16:27 Uhr (0)
Das sollte auch überall so sein und wenn man mag kann man in dem NonAssoAecDim-Lisp noch die Zeile (command "")durch (command "" "_style" "tomo")ersetzen und obwohl ich es jetzt nicht probiert habe sollte dann immer der Stil tomo verwendet. Dieser muss dann allerdings in der Datei vorhanden sein, ein automatischer Import wie bei den "normalen" AEC-Bemaßungswerkzeugen findet hier nicht statt (das ACA weiß ja auch gar nicht woher es den Stil nehmen soll).sayonaraTorstenACAD-Systemhaus Bremen----------------- ...
|
| In das Form AutoCAD Architecture ACA (ADT) wechseln |
|
AutoCAD Architecture ACA (ADT) : ACA registry Einstellungen
tmoehlenhoff am 23.01.2011 um 11:12 Uhr (0)
Hi,wenngleich ich auch eine Lisp-Lösung bevorzugen würden, war die arg-Datei übrigens auch ein gutes Stichwort (und letztendlich soll ja jeder so glücklich werden wie er will :-). Wenn man das AutoCAD-Profil exportiert (so man denn schon eine Version installiert hat) kann man die arg-Datei auch mal inspizieren. Im Prinzip ist das auch nicht viel was anderes als eine Reg-Datei und somit stehen die Registry-Pfade weitestgehend drin und da die Schlüssel recht sprechende (wenn auch englische) Namen haben sollt ...
|
| In das Form AutoCAD Architecture ACA (ADT) wechseln |
|
AutoCAD Architecture ACA (ADT) : Bemassung mit ACD-A 2008
tmoehlenhoff am 06.08.2007 um 09:56 Uhr (0)
Tja, dummerweise kommt die Stilabfrage ja erst wenn man mit der Eingabe der Punkte fertig ist. Da die Anzahl eingegebener Punkte ja i.d.R. differiert würde ich mich mit ein bisschen Lisp behelfen:--- 8 --- hier den Glasschneider ansetzen --- 8 ---(defun c:acadimman() (command "dimadd" "p") (while (setq p (getpoint "
Punkt wählen: ")) (command p) ) (command "" "stil" "Wände (2 Maßketten)"))--- 8 --- hier den Glasschneider ansetzen --- 8 ---Somit steht ein Befehl acadimman zur Verfügung, den man dann auch a ...
|
| In das Form AutoCAD Architecture ACA (ADT) wechseln |
|
ADT Architectural Desktop : eigene Architekturobjekte im ADT
tmoehlenhoff am 21.03.2004 um 14:26 Uhr (0)
Hups, darauf eine knappe Antwort zu schreiben ist schon fast unmöglich. Es ist in erster Linie die Frage, auf welcher Ebene man einsteigen will bzw. kann. Möglich wäre z.B der Einsatz von VBA oder Lisp, für beide gibt es hier auf CAD.DE auch eigene Foren. Darin kann man aber nur die bestehenden Bauteile nehmen und miteinander verwursten, wirklich eigene Objekte kann man damit nicht anlegen. Fürs AutoCAD bräuchte man dann mindestens ObjectARX und einen Visual C Compiler. Darüber gibts dann noch das Obje ...
|
| In das Form ADT Architectural Desktop wechseln |
|
ADT Architectural Desktop : Hilfe
tmoehlenhoff am 26.02.2005 um 17:44 Uhr (0)
hhhmmm, irgendwie erschliesst es sich mir nicht auf die Schnelle warum es beim Tragwerk nicht will. Aber ich hätte noch ne Alternative (und die tut s auch beim Tragwerk): Code: (defun c:hyperhyper( / ten txt hen) (sssetfirst nil) (if (setq ten (car (entsel Text wählen: ))) (if (setq txt (cdr (assoc 1 (entget ten)))) (if (setq hen (car (entsel
Objekt für Hyperlink wählen: ))) (command .-hyperlink _ins _obj hen txt ) ) ) ) (princ) ) Ich hoffe aller ...
|
| In das Form ADT Architectural Desktop wechseln |
|
ADT Architectural Desktop : plotstiltabellen verwalten?!
tmoehlenhoff am 05.08.2004 um 16:04 Uhr (0)
Na ganz so lange warten macht ja auch kein Spaß: Das Verhalten ist im ADT 2005 identisch, es gibt also auch nur einen Ordner und man kann beim Plotten keinen anderen anwählen. Dafür gibts aber statt pack n go ein etransmit, der auch die Plotstile in den Unterverzeichnissen des konfigurierten Ordners mit einpackt und TrueColor gibts dann ja eh schon als AutoCAD-Farbe, sodass man dafür gar keine Plotstiltabelle mehr braucht. Nachtrag: Das man das Lisp sicherlich anpassen kann (wenn denn im Quelltext vorhande ...
|
| In das Form ADT Architectural Desktop wechseln |
|
AutoLisp : Layerbeschreibung im Layerdialog von ADT 2004
tmoehlenhoff am 21.07.2003 um 12:33 Uhr (0)
Da muss man wohl etwas weiter ausholen: Im Normalfall steht die Beschreibung überhaupt nicht in der Zeichnung, da sind per default z.B. im Layerstandard Architectural Desktop Format aus einem vorangestelltem ADT:, dem Entwurfsverfasser (in der Regel also Architekt), einem / und dem Komponentenfeld Inhalt 1 des Layerschlüssels besteht. Der Layermanager baut also die Beschreibung immer dynamisch zusammen, was man gut beobachten kann, denn wenn man den Layer umbenennt paßt sich die Beschreigung automatisch ...
|
| In das Form AutoLisp wechseln |
|
ADT Architectural Desktop : Gesamtlänge von Wänden
tmoehlenhoff am 04.11.2005 um 08:56 Uhr (0)
Einfacher ists zwar nicht, aber in Lisp geht es natürlich auch:--- 8 --- Hier den Glasschneider ansetzten --- 8 ---(defun c:wandlaenge (/ ss stylename wallstyle sum i) (setq i 0 sum 0 ) (princ "
Wände wählen ") (if (setq ss (ssget ((0 . "AEC_WALL")))) (progn (setq stylename (getstring T "
Stilename: ")) (repeat (sslength ss) (setq vlaobj (vlax-ename-vla-object (ssname ss i)) i (1+ i) wallstyle (vla-get-stylename vlaobj) ) (if (= wallstyle stylename) (setq sum (+ sum (vla-ge ...
|
| In das Form ADT Architectural Desktop wechseln |
|
ADT Architectural Desktop : 3D-Polylinie
tmoehlenhoff am 02.08.2004 um 14:37 Uhr (0)
Deswegen würde ich ja das BKS verdrehen. Die Punkte liegen auf einer Fläche, also benutze ich zuerst BKS 3p um die Richtung der X- und Y-Achse festzulegen und anschließend drehe ich das BKS um die X-Achse (bks x). Der Winkel ist dann zwar in Grad einzugeben, aber dafür gibts ja Lisp: (defun r2w(w) (* (/ w pi) 180.0) ) (defun stg( / proz) (setq proz (getreal
Steigung (in %): )) (r2w (atan (/ proz 100.0))) ) Bei der Abfrage des Winkels einfach (stg) eingeben und dann die Abfrabe in Prozent beantwort ...
|
| In das Form ADT Architectural Desktop wechseln |
|
AutoCAD Architecture ACA (ADT) : Fenster in Wand verankern
tmoehlenhoff am 10.11.2015 um 20:04 Uhr (1)
Zitat:Original erstellt von Vincentderfalke:super, meine erste Lisp-Anwendung und sie funktioniert sogar auf Anhieb. Danke.Gerne und eine Funktion auf Anhieb ist bei einem neuen Thema ja schon mal ein guter Start.Es ist leider nicht egal welchen Punkt ich wähle.Das hatte ich ja auch nicht geschrieben, sondern "einen Punkt auf dem Fenster (der dann von aussen auf der Wand betrachtet immer rechts am Fenster liegt" Gibst auch eine Möglichkeit unabhännig von anklicken.Klar, könnte man vermutlich auch programm ...
|
| In das Form AutoCAD Architecture ACA (ADT) wechseln |
|
ADT Architectural Desktop : Nachbearbeitung 2D-Schnitt
tmoehlenhoff am 17.09.2005 um 16:02 Uhr (0)
Nun ja, das Entfernen von Linien aus dem Schnitt finde ich gar nicht so dramatisch, aber wenn man es komplett auf ein Knöpfchen haben will hilft im Zweifelsfall ein bisschen Lisp. Folgende Progrämmchen erzeugt einen Befehl SLE, mit dem man (sofern man es auf eine Schaltfläche eines Werkzeugkastens legt) auf Knopfdruck mehrere Linien aus einem berechneten Schnitt entfernen kann:--- 8 --- Hier den Glasschneider ansetzen --- 8 ---; Schnitt Linien Entfernen(defun c:sle( / en oldcmd) (setq oldcmd (getvar "cmdec ...
|
| In das Form ADT Architectural Desktop wechseln |
|
ADT Architectural Desktop : Gleiches Objekt hinzufügen
tmoehlenhoff am 27.10.2004 um 12:52 Uhr (0)
Mit ein bisschen Lisp vielleicht: Code: (defun c:addSelected( / ss en ed elemtype) (if (cadr (ssgetfirst)) (setq ss (ssget) en (ssname ss 0) ) ;else (setq en (car (entsel))) ) (if en (progn (setq ed (entget en) elemtype (cdr (assoc 0 ed)) ) (cond ((= elemtype AEC_WALL ) (command walladdselected en) ) ((= elemtype AEC_DOOR ) (command dooraddselected en) ) ((= elemtype ...
|
| In das Form ADT Architectural Desktop wechseln |
