| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: entmake von mleader-objekt (1519 mal gelesen)
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1832 Registriert: 28.04.2009
|
erstellt am: 03. Dez. 2009 16:41 <-- editieren / zitieren --> Unities abgeben:
Ich weiss es ist nur ein Ansatz, aber wie kriege ich es hin, dass für die Variable r1 (Radius) tatsächlich der Radius eingetragen wird, bisher kommt nur r1 als Text (ich hätte gern den Wert) (defun c:ml () (setq ele (entget (car (nentsel "\nwähle bogen\n"))) r1 (cdr(assoc 40 ele)) ;wert radius pkt (getvar "lastpoint") ) (entmake (list '(0 . "MULTILEADER") '(5 . "2C51") '(102 . "{ACAD_XDICTIONARY") ; '(360 . <Entity name: 75499f10> ) '(102 . "}") '(102 . "{ACAD_REACTORS") ; '(330 . <Entity name: 75499f30> ) '(102 . "}") ; '(330 . <Entity name: 7e14fcf8> ) '(100 . "AcDbEntity") '(67 . 0) '(410 . "Model") '(8 . "0") '(100 . "AcDbMLeader") '(300 . "CONTEXT_DATA{") '(40 . 1.0) (cons 10 pkt) '(41 . 4.0) '(140 . 4.0) '(145 . 2.0) '(174 . 1) '(175 . 6) '(176 . 2) '(177 . 0) '(290 . 1) (cons 304 "r1") '(11 0.0 0.0 1.0) ; '(340 . <Entity name: 7e14fc88> ) '(12 117594.0 6.16516e+006 0.0) '(13 1.0 0.0 0.0) '(42 . 0.0) '(43 . 0.0) '(44 . 0.0) '(45 . 1.0) '(170 . 1) '(90 . -1073741824) '(171 . 3) '(172 . 5) '(91 . -1073741824) '(141 . 0.0) '(92 . 1112464) '(291 . 0) '(292 . 0) '(173 . 0) '(293 . 0) '(142 . 0.0) '(143 . 0.0) '(294 . 0) '(295 . 0) '(296 . 0) (cons 110 pkt) '(111 1.0 0.0 0.0) '(112 0.0 1.0 0.0) '(297 . 0) '(302 . "LEADER{") '(290 . 1) '(291 . 1) (cons 10 pkt) '(11 -1.0 0.0 0.0) '(90 . 0) '(40 . 0.36) '(304 . "LEADER_LINE{") (cons 10 pkt) '(91 . 0) '(305 . "}") '(303 . "}") '(301 . "}") ; '(340 . <Entity name: 7e1ec320> ) '(90 . 279552) '(170 . 1) '(91 . -1056964608) ; '(341 . <Entity name: 7e14fca0> ) '(171 . -2) '(290 . 1) '(291 . 1) '(41 . 0.36) '(42 . 4.0) '(172 . 2) ; '(343 . <Entity name: 7e14fc88> ) '(173 . 1) '(95 . 6) '(174 . 1) '(175 . 2) '(92 . -1056964608) '(292 . 0) '(93 . -1056964608) '(10 1.0 1.0 1.0) '(43 . 0.0) '(176 . 0) '(293 . 0) '(294 . 0) '(178 . 0) '(179 . 3) '(45 . 1.0) ) ) ) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
neurosis Mitglied dipl.ing.
Beiträge: 222 Registriert: 22.08.2006
|
erstellt am: 04. Dez. 2009 08:30 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1832 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 04. Dez. 2009 14:06 <-- editieren / zitieren --> Unities abgeben:
Ja ist mir klar, ich habe eine Liste vom r1 mit dem Inhalt (radiuswert). Wie kann ich aus der Liste den Textwert extrahieren ? getstring erfordert ja eine Eingabe vom Anwender, ich möchte jedoch den Wert von der Abfrage übernehmen. Gruss Dirk
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
neurosis Mitglied dipl.ing.
Beiträge: 222 Registriert: 22.08.2006
|
erstellt am: 04. Dez. 2009 15:17 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1832 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 04. Dez. 2009 15:33 <-- editieren / zitieren --> Unities abgeben:
|
neurosis Mitglied dipl.ing.
Beiträge: 222 Registriert: 22.08.2006
|
erstellt am: 04. Dez. 2009 16:01 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
in diesem falle, wenn nur ein wert in der liste steht, so: (rtos (car r1) 2 2) ergebnis waere "200.00" die nachkommastellen werden durch die zweite "2" geregelt. schau dir hierzu auch die hilfe zu rtos an. wenn in deiner liste mehrere radien stehen, z. b. (200 400 300 100 ...), koenntest du entweder ueber "nth", z.b. (nth 0 r1) fuer den ersten wert, oder ueber ein mapcar-lambda-konstrukt oder ueber "foreach" oder ... draufzugreifen. ------------------ Marco Heuer www.arc-aachen.de Airport Office Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Konstrukteur / Produktentwickler Mechanik (m/w/d) | Menschen und Technologien zu verbinden, den Perfect Match für unsere Kunden zu gestalten, immer die richtigen Expert:innen für die jeweilige Herausforderung zu finden - das ist unser Anspruch bei FERCHAU und dafür suchen wir dich: als ambitionierte:n Mitarbeitende:n für einen unserer Kunden. Wir realisieren spannende Projekte für namhafte Kunden in allen Technologiebereichen und für alle Branchen und übernehmen Verantwortung für komplexe Entwicklungsprojekte.... | Anzeige ansehen | Konstruktion, Visualisierung |
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1832 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 14. Dez. 2009 20:40 <-- editieren / zitieren --> Unities abgeben:
|