|
AutoCAD Architecture ACA (ADT) : AEC Vermassung
tmoehlenhoff am 19.03.2010 um 12:51 Uhr (0)
Hi Dani,das geht direkt im Bemaßungswerkzeug in den aktuellen Versionen leider nicht mehr und als Workaround dazu bleibt meines Wissens nur der Weg ein eigenes Befehlswerkzeug zu schaffen, in dem man dann den dimadd-Befehl mit der Option p hinterlegt (ggf. in ein bisschen Lisp verpackt). Die Fragestellung gab es hier auch schon mal...sayonaraTorstenACAD-Systemhaus Bremen------------------That makes me nobody so fast after ;-)
|
| In das Form AutoCAD Architecture ACA (ADT) wechseln |
|
AutoCAD Architecture ACA (ADT) : Auswahl Filtern
tmoehlenhoff am 26.04.2010 um 17:15 Uhr (0)
Ohne es näher in Augenschein genommen zu haben, würde ich mutmaßen, dass sowohl C#, VB oder anderes aus dem dotnet-Framework, Lisp als auch VBA (so man es denn in aktuellen Versionen von hier nachinstalliert) in Frage käme.Wenn man allerdings noch nicht für AutoCAD programmiert hat ist es vermutlich ein etwas längerer Weg (den es sich sicher trotzdem zu gehen lohnt) ...sayonaraTorstenACAD-Systemhaus Bremen------------------That makes me nobody so fast after ;-)
|
| In das Form AutoCAD Architecture ACA (ADT) wechseln |
|
AutoCAD Architecture ACA (ADT) : Assoziative Bemaßung
tmoehlenhoff am 14.02.2009 um 09:12 Uhr (0)
hhmmm, wie zu befürchten klappt es auch mit dieser Datei bei mir problemlos. Hast du es selbst auch mit der angehängten Datei probiert? Nicht das beim "entrümpeln" der Datei vor dem Upload das Problem mit entsorgt wurde? Vielleicht kann ja auch jemand anderes mal das oben angehängte Lisp auf die Datei loslassen. In Version 2008 und 2009 werden bei mir zumindest alle Bemaßungen "entassoziiert" ...sayonaraTorsten ------------------revitalisierend und Alles wirD guT
|
| In das Form AutoCAD Architecture ACA (ADT) wechseln |
|
Lisp : fensterstempel
tmoehlenhoff am 11.07.2006 um 12:28 Uhr (0)
Wenn man den Stempel hat kann man über den Anker das Fenster "finden". In Lisp sieht das dann so aus:Code:(setq tag (car (entsel "
Fensterstempel wählen:")) tagv (vlax-ename-vla-object tag) winv (vlax-get-property (vlax-invoke-method tagv getanchor) reference) win (vlax-vla-object-ename winv))Danach steht in win der Entity-Name des Fensters.sayonaraTorsten MöhlenhoffACAD-Systemhaus Bremen------------------Alles wirD guT
|
| In das Form Lisp wechseln |
|
ADT Architectural Desktop : Bemassungsstil
tmoehlenhoff am 11.01.2006 um 13:50 Uhr (0)
oder es ist eine AutoCAD-Bemassung (aus dem Werkzeugkasten Bemassung) und keine ADT-Bemassung (aus der Palette "Bemassung"). AutoCAD (und somit auch die AutoCAD-Bemassung) kann erst ab Version 2006 ohne weitere Hilfe eine feste Hilfslinienlänge, aber beim ADT ist man vermutlich mit der ADT-Bemassung eh besser bedient (und somit wäre wieder Lothars Tipp angesagt).Hui, so viele Klammern. Das sieht ja aus wie im Lisp-Forum sayonaraTorsten MöhlenhoffACAD-Systemhaus Bremen------------------Alles wirD guT
|
| In das Form ADT Architectural Desktop wechseln |
|
AutoCAD Architecture ACA (ADT) : exporttoautocad - Werkzeugkasten
tmoehlenhoff am 22.03.2010 um 09:24 Uhr (0)
Naja, Entwickler sind ja auch nur Menschen Schade, dass eine Tilde (also ein ~ ) nicht funktioniert (zumindest bei mir nicht, aber ich habe es auch nicht im Map probiert), denn damit kann man eigentlich an solchen Stellen auch ein öffnen eines Dateifenster bewirken. Da bleibt dann nur n bissl Lisp (was man sicher noch verfeinern kann):Code:(defun c:exp2acad() (if (setq fname (getfiled "DWG-Name festlegen" "" "dwg" 1)) (command "-exporttoautocad" "" fname) ))sayonaraTorstenACAD-Systemhaus Bremen---------- ...
|
| In das Form AutoCAD Architecture ACA (ADT) wechseln |
|
AutoLisp : Installationsprogramm für Lisp-Programme
tmoehlenhoff am 05.05.2004 um 14:13 Uhr (0)
Ich habe es noch nicht probiert, aber von Microsoft gibts ein Windows Installer XML (WiX) toolset als Open Source (hihi). Das ganze ist als Kommandozeilen-Prog ausgelegt, somit ohne Klicki-Klicki-Oberfläche und daher auch sicher nichts um mal schnell was zusammenzustricken) und erzeugt normale MSI-Päckchen und kann auch vorhandene MSIs zurückwandeln. Zu finden unter http://sourceforge.net/projects/wix/ Inwieweit das für AutoCAD-Erweiterungen einsetzbar ist weiss nicht nicht, aber villeicht hilfts ja w ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Mauskoordinaten bei Klick ?
tmoehlenhoff am 21.04.2004 um 09:23 Uhr (0)
Nicht in Lisp, aber in VBA: --- 8 --- hier den Glasschneider anssetzen --- 8 --- Private Declare Function GetCursorPos Lib user32 (lpPoint As POINTAPI) As Long Private Type POINTAPI x As Long y As Long End Type Sub WhereAmI() Dim pTargetPoint As POINTAPI Dim lRetVal As Long lRetVal = GetCursorPos(pTargetPoint) MsgBox Meine Position: & vbLf & _ pTargetPoint.x & , & pTargetPoint.y End Sub --- 8 --- hier den Glasschneider anssetzen --- 8 --- sayonara Torsten Möhlenhoff ...
|
| In das Form AutoLisp wechseln |
|
AutoCAD Architecture ACA (ADT) : Assoziative Bemaßung
tmoehlenhoff am 04.02.2009 um 20:55 Uhr (0)
Hi Nina,bin erst jetzt dazu gekommen nochmal einen Blick drauf zu werfen. Allerdings hilft mir die Datei nicht so wirklich weiter, denn hier sind die Bemaßungen ja schon keine AEC-Bemaßungen mehr und damit kommt das Progrämmchen nicht klar. Hast du noch eine Variante in der noch nichts (halb) umgewandelt wurde und somit noch AEC-Bemaßungen vorhanden sind? Dann könnte ich eher feststellen wobei das Lisp auf die Nase fällt ...sayonaraTorsten MöhlenhoffACAD-Systemhaus Bremen------------------revitalisierend u ...
|
| In das Form AutoCAD Architecture ACA (ADT) wechseln |
|
ADT Architectural Desktop : Beschriftung Aussparungen
tmoehlenhoff am 08.03.2007 um 22:33 Uhr (0)
Sehr dubios,wenn man im Designcenter den Befehl in ein Lisp-Command verpackt (command "_aecannomvblockinterferenceadd" "Aussparung-2")dann landet eine ggf. gleich beim Einfügen der Aussparung hinzugefügte Beschriftung auf dem Layerschlüssel ANNOBJ.Zieht man dann jedoch die Aussparung auf die Palette um sie von dort zu benutzen, so ist wieder Aussparung und Beschriftung auf dem gleichen Layer bzw. Layerschlüssel (eben dem im Designcenter konfigurietem CHASE).Strange.Hilft zwar so noch nicht weiter, aber vie ...
|
| In das Form ADT Architectural Desktop wechseln |
|
AutoLisp : ADT-Zeichnungseinheiten
tmoehlenhoff am 27.10.2005 um 15:25 Uhr (0)
Vermutlich ist es ganz einfach, aber ich kriege es einfach nicht hin Kann mir mal jemand folgendes VBA-Schnippselchen in Lisp übersetzen: Dim dwgSetup As AecArchBaseDatabasePreferences Set dwgSetup = AecArchBaseApplication.ActiveDocument.PreferencesIch kann mir zwar das AecArchBaseApplication Interface besorgen und der liefert mir auch artig ein ActiveDocument, aber beim Zugriff auf Preferences fliegt mir das Zeug um die Ohren.Alternativ fummel ich schon im aec_vars_dwg_setup-Dictionary rum, was auch klapp ...
|
| In das Form AutoLisp wechseln |
|
ADT Architectural Desktop : Stil für manuelle AEC-Bemassung
tmoehlenhoff am 20.05.2004 um 08:56 Uhr (0)
Naja, obwohl wir auch gerne das Update liefern sollte es eigenlich auch mit folgendem Lisp klappen: (defun c:ManBem() (command -dimmanadd ) (while (setq p (getpoint)) (command p) ) (command _style 2 Chain ) ) Ist sicherlich noch verbesserbar, sollte aber auch so schon einsetzbar sein und das gewünschte Ergebnis liefern. 2 Chain muss man dann natürlich durch den gewünschten Bemassungsstil ersetzen. Wünsche allen einen schönen Vatertag. sayonara Torsten Möhlenhoff ACAD-Systemhaus B ...
|
| In das Form ADT Architectural Desktop wechseln |
|
ADT Architectural Desktop : Inkrement-Block - ohne Bauteil ?
tmoehlenhoff am 07.09.2005 um 10:45 Uhr (0)
Danke für die netten Worte.Zu verbessern gibts allerdings fast immer noch was. Beispielsweise darf man bei der Anzahl der Stellen nicht einfach Return drücken, sonst fällt das Progrämmchen später auf die Nase, die zuletzt verwendete Nummer + 1 als Vorgabestartwert wäre auch nett usw. usw.Aber ich will das Teil ja nicht verkaufen Morgengymnastik? Ja, genau: Ein paar Zeilen Lisp am Morgen vertreiben Kummer und Sorgen. Letztendlich erkennt man aber auch, dass man oft selbst mit kleinen Anpassungen enorm viel ...
|
| In das Form ADT Architectural Desktop wechseln |
