| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Fallbeispiel gesucht zum Gegenzeichnen von Obj (1613 mal gelesen)
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 27. Nov. 2014 16:06 <-- editieren / zitieren --> Unities abgeben:
Folgendes Vorhaben: Ich wähle 3 Objekte, Text mit Markierblase als Kreis und eine Linie, die auf die Anmerkungsstelle hinweisen soll. Markiere ich alle 3 Objekte und ändere das eine Linienende auf die zuweisende Stelle, soll die Linie immer zentrisch zum Kreis dargestellt werden. Stehe gern offen für Ideen ?! ------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 27. Nov. 2014 16:44 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
... Zentrumspunkt vom Kreis hast du, ebenfalls den Kreisradius. Du kannst doch vom neuen Zielpunkt die Strecke zum Kreismittelpunkt abzüglich des Kreisradius berechnen - fertig. Grüße! Holger ------------------ Holger Brischke CAD on demand GmbH Individuelle Lösungen von Heute auf Morgen.
defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 27. Nov. 2014 16:57 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 28. Nov. 2014 11:22 <-- editieren / zitieren --> Unities abgeben:
Hi! Dachte ich mir doch, nur Einwürfe, nix konkretes Handhabung Objektreactor ? Das Erzeugen eines Nummerierungstools ist nicht das Problem, sondern die Inteligenz, die in der "Fahne" (strich von Kreistext zum Beschriftungsobjekt), dass wenn der Nummerierungstext verschoben wird, es auch die Fahne entspr. mitzieht Soweit bin ich bisher gekommen, ich erzeuge ein Symbol bspw. "DBNR" oder "LEDNR" und setze daran eine Linie, die wiederum unterschiedl. je nach Block gezeichnet wird (ist aber vorerst für den Objektreaktor egal)
Code: (defun c:brNr ( / ) (defun fahne () (cond ((= blk "DBNR") (apply '(lambda (p1 p2) (entmakex (list (cons 0 "LINE") (cons 10 p1) (cons 11 p2)))) (list (cdr (assoc 10 (entget (entlast)))) (getpoint (cdr (assoc 10 (entget (entlast)))) "\nSelect Fahne zielpunkt")) ) ) ((= blk "LEDNR") (setq p1 (cdr (assoc 10 (entget (entlast))))) (setq p2 (getpoint p1 "\nSelect Fahne zielpunkt")) (apply '(lambda (p1 p2) (entmakex (list (cons 0 "LINE") (cons 10 p1) (cons 11 p2)))) (list (polar p1 (angle p1 p2) (* 1.5 dsc)) p2) ) ) (T "\n Block nicht vorhanden! ") ) ) (setq dsc (CD:USR_ABFRAGE "\nText höhe: " (if (null dsc) (setq dsc 1.0) dsc))) (setq tx (CD:USR_ABFRAGE "\nBrunnen Bezeichnung: " (if (null tx) (setq tx "S") tx))) (setq num (CD:USR_ABFRAGE "\nBrunnen Nummer: " (if (null num) (setq num 101) num))) (setq blk (strcase (CD:USR_ABFRAGE "\nBrunnen Block: " (if (null blk) (setq blk "DBNR") blk)))) (while (progn (setq pt (getpoint "\nPositon ")) (cond ((= "DBNR" blk) (command "insert" blk pt dsc dsc 0 (strcat tx " " (itoa num)) (rtos 0 2 2)) (setq num (1+ num)) (fahne) ) ((= "LEDNR" blk) (command "insert" blk pt dsc dsc 0 tx (itoa num) 0.00 0.00) (setq num (1+ num)) (fahne) ) (T "\n Block nicht vorhanden! ") ) ) ) (princ) )
------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 28. Nov. 2014 12:40 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
|
erstellt am: 29. Nov. 2014 14:38 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
jupa Ehrenmitglied V.I.P. h.c. Ruheständler
Beiträge: 6052 Registriert: 16.09.2004 WINDOWS Vista Ultimate SP2 (64bit), NVIDIA Geforce 9600M GT, AutoCAD 2013.
|
erstellt am: 29. Nov. 2014 15:06 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Wir sind zwar im Lisp-Brett, aber muß es unbedingt was gelispeltes sein? Warum nicht einfach eine parametrische Abhängigkeit "zusammenfallend" zwischen dem Zentrumspunkt des Kreises und der Linie (Objekt) sowie eine weitere Abhängigkeit "zusammenfallend" zwischen der Kreislinie (Objekt) und dem Endpunkt der Linie? Jürgen ------------------ Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 01. Dez. 2014 12:03 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|