Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  entmake von mleader-objekt

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
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


Sehen Sie sich das Profil von cadplayer an!   Senden Sie eine Private Message an cadplayer  Schreiben Sie einen Gästebucheintrag für cadplayer

Beiträge: 1832
Registriert: 28.04.2009

erstellt am: 03. Dez. 2009 16:41    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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.


Sehen Sie sich das Profil von neurosis an!   Senden Sie eine Private Message an neurosis  Schreiben Sie einen Gästebucheintrag für neurosis

Beiträge: 222
Registriert: 22.08.2006

erstellt am: 04. Dez. 2009 08:30    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für cadplayer 10 Unities + Antwort hilfreich

moin, moin,
dann solltest du auch den variablenwert uebergeben, also:
(cons 304 r1)
r1 muss ein string sein (laut hilfe).

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

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

cadplayer
Ehrenmitglied
CADniker


Sehen Sie sich das Profil von cadplayer an!   Senden Sie eine Private Message an cadplayer  Schreiben Sie einen Gästebucheintrag für cadplayer

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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.


Sehen Sie sich das Profil von neurosis an!   Senden Sie eine Private Message an neurosis  Schreiben Sie einen Gästebucheintrag für neurosis

Beiträge: 222
Registriert: 22.08.2006

erstellt am: 04. Dez. 2009 15:17    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für cadplayer 10 Unities + Antwort hilfreich

wie sieht denn die liste aus?

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

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

cadplayer
Ehrenmitglied
CADniker


Sehen Sie sich das Profil von cadplayer an!   Senden Sie eine Private Message an cadplayer  Schreiben Sie einen Gästebucheintrag für cadplayer

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

ja wenn ich auf einen Bogen klicke mit Radius 200 steht in der var r1 (200), die müsste ich also in einen Textstring "200" umformen ?!

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

neurosis
Mitglied
dipl.ing.


Sehen Sie sich das Profil von neurosis an!   Senden Sie eine Private Message an neurosis  Schreiben Sie einen Gästebucheintrag für neurosis

Beiträge: 222
Registriert: 22.08.2006

erstellt am: 04. Dez. 2009 16:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für cadplayer 10 Unities + Antwort hilfreich

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 ansehenKonstruktion, Visualisierung
cadplayer
Ehrenmitglied
CADniker


Sehen Sie sich das Profil von cadplayer an!   Senden Sie eine Private Message an cadplayer  Schreiben Sie einen Gästebucheintrag für cadplayer

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

korrekt, ging glatt.

gruss cp

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz