BKS ohne Command (Autodesk/Lisp)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

Exklusives EDU-Programm für RTX PRO Blackwell, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: BKS ohne Command (2348 mal gelesen)

CADesigner
Mitglied
Diplom-Ingenieur

Senden Sie eine Private Message an CADesigner

Schreiben Sie einen Gästebucheintrag für CADesigner

Beiträge: 45
Registriert: 20.10.2003

erstellt am: 07. Jun. 2004 16:32

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Ist es möglich den befehl (command "_ucs" ....) zu umgehen, d.h. das BKS auch ohne Command zu setzen???

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

CADmium
Moderator
Maschinenbaukonstrukteur

Senden Sie eine Private Message an CADmium

Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13533
Registriert: 30.11.2003

erstellt am: 07. Jun. 2004 19:47

<-- editieren / zitieren -->

Unities abgeben:

Nur für CADesigner

Ja, geht... z.B.
(entmake '((0 . "UCS")
(100 . "AcDbSymbolTableRecord")
(100 . "AcDbUCSTableRecord")
(2 . "BKS-BSP")
(70 . 0)
(10 129.702 116.267 0.0)
(11 0.993394 0.114756 0.0)
(12 0.114756 -0.993394 0.0)
(79 . 0)
(146 . 0.0))
)

Siehe dir hierzu auch mal den Thread an.

------------------
- Thomas -

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator

Senden Sie eine Private Message an marc.scherer

Schreiben Sie einen Gästebucheintrag für marc.scherer

Beiträge: 2494
Registriert: 02.11.2001

Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)

erstellt am: 07. Jun. 2004 22:07

<-- editieren / zitieren -->

Unities abgeben:

Nur für CADesigner

Hi Cadmi,
Du bist mein Held :-X... :grins 10U's für Dich, damit Du nicht wieder rummeckerst.

------------------
Ciao,
Marc

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

CADesigner
Mitglied
Diplom-Ingenieur

Beiträge: 45
Registriert: 20.10.2003

erstellt am: 08. Jun. 2004 09:16

<-- editieren / zitieren -->

Unities abgeben:

Danke für den tollen Tip!

Zitat:
Original erstellt von CADmium:
Ja, geht... z.B.
(entmake '((0 . "UCS")
   (100 . "AcDbSymbolTableRecord")
   (100 . "AcDbUCSTableRecord")
   (2 . "BKS-BSP")
   (70 . 0)
   (10 129.702 116.267 0.0)
   (11 0.993394 0.114756 0.0)
   (12 0.114756 -0.993394 0.0)
   (79 . 0)
   (146 . 0.0))
)
Siehe dir hierzu auch mal den Thread an.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

gmk
Mitglied
Dipl.-Ing.(FH) Vermessung

Schreiben Sie einen Gästebucheintrag für gmk

Beiträge: 672
Registriert: 23.10.2002

Autocad 2004, WS CadCompass, Normica V2000, WinXP Prof., AMD Athlon 64 X2, 2GB, NVIDIA GeForce 7600GS, HP1055CM

erstellt am: 10. Nov. 2004 11:40

<-- editieren / zitieren -->

Unities abgeben:

Nur für CADesigner

hi thomas!

unter welcher bezeichnung wird eigentlich ein temporäres bks abgespeichert, z.B erzeugt durch _ucs _o.

wie kann ich das aus deinem beispiel erzeugt ucs wieder löschen.
(entdel (tblobjname "ucs" "BKS-BSP")) gibt nur nil zurück.

ciao georg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

CADmium
Moderator
Maschinenbaukonstrukteur

Beiträge: 13533
Registriert: 30.11.2003

erstellt am: 10. Nov. 2004 11:47

<-- editieren / zitieren -->

Unities abgeben:

Nur für CADesigner

Zitat:
Original erstellt von gmk:
wie kann ich das aus deinem beispiel erzeugt ucs wieder löschen.
(entdel (tblobjname "ucs" "BKS-BSP")) gibt nur nil zurück.

da hilft dir ActivX weiter, mit entdel, endmode usw. kommste an UCS nicht ran (leider)

(vl-load-com)
(vla-delete (vla-item(vla-get-UserCoordinateSystems
(vla-get-activedocument
(vlax-get-acad-object)
)
)
"BKS-BSP"
)
)

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

gmk
Mitglied
Dipl.-Ing.(FH) Vermessung

Beiträge: 672
Registriert: 23.10.2002

Autocad 2004, WS CadCompass, Normica V2000, WinXP Prof., AMD Athlon 64 X2, 2GB, NVIDIA GeForce 7600GS, HP1055CM

erstellt am: 10. Nov. 2004 14:12

<-- editieren / zitieren -->

Unities abgeben:

Nur für CADesigner

schade (wegen lt), dann evtl. doch über command.
(wie ging's dann vor der activx-zeit?)

das temporäre würde mich noch interessieren ....

ciao georg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Infos zum Werbeplatz >>

ELCOVISION ELTheo CAD APP für AEC - Architektur-, Ingenieur- und Bauwesen, GIS, Vermessung und Kartografie, Messtechnik

ELCOVISION ElTheo ist ein "Gerätetreiber" für Tachymeter mit serieller oder Bluetooth Schnittstelle, der es einem CAD Programm ermöglicht, direkt mit dem Tachymeter zu kommunizieren. Dadurch wird jede Funktion des CAD-Systems zu einer Messfunktion. Der Tachymeter wird zu einem 3D Digitizer für CADs.

mapcar
Mitglied
CADmin

Senden Sie eine Private Message an mapcar

Schreiben Sie einen Gästebucheintrag für mapcar

Beiträge: 1250
Registriert: 20.05.2002

Time flies like an arrow, fruit flies like a banana (Groucho Marx)

erstellt am: 10. Nov. 2004 16:14

<-- editieren / zitieren -->

Unities abgeben:

Nur für CADesigner

> Ist es möglich den befehl (command "_ucs" ....) zu umgehen,
> d.h. das BKS auch ohne Command zu setzen???

Was für eine Frage... Ich schließe daraus, dass deine Aufgabenstellung etwa diese ist: Du möchtest 2,5 Millionen Koordinatensysteme erzeugen, und mit Command dauert's einfach zu lange;-)

Wie viele BKS-Aufrufe finden in einem Lisp-Programm statt - und was hat man gespart, wenn jeder dieser Aufrufe um 0.0001 s schneller wird?

Gruß, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)