|
Lisp : schriftfelder via lisp (ac2005)
snp am 15.02.2012 um 07:42 Uhr (0)
Hallo,kann mir jemand dabei helfen den Code so zu bearbeiten damit auch das Material dazu ausgegeben wird.DankeCode:(vl-load-com)(defun C:LNKFLD (/ INDEX SELSET) (setq INDEX 0) ;_ Zähler für Repeat initialisieren (princ "
Zu beschriftende Linienobjekte wählen:") (if (setq SELSET (ssget ((0 . "*POLYLINE,LINE,ARC")))) ;_ Auswahlsatz mit Filter erstellen (repeat (sslength SELSET) ;_ Jedes Objekt des Auswahlsatzes durchgehen... (LINKEDLENGTH(ssname SELSET INDEX) ;_ Name des Objekts aus Auswahlsatz ermitteln ...
| | In das Form Lisp wechseln |
|
Lisp : schriftfelder via lisp (ac2005)
snp am 23.01.2013 um 09:42 Uhr (0)
Hallo,tut mir leid das ich so einen alten Beitrag aufrolle.Kann mir jemand sagen wo ich die Schriftgröße und die Ausrichtung ändern kann. Habe mir die LSP was den Text angeht an meine Bedürfnisse angepasst, leider weiß ich nicht wo ich die Größe und Ausrichtung (Mitte zentriert) ändern kann.hier die LSP:(vl-load-com)(defun C:LNKFLD (/ INDEX SELSET) (setq INDEX 0) ;_ Zähler für Repeat initialisieren (princ "
Zu beschriftende Linienobjekte wählen:") (if (setq SELSET (ssget ((0 . "*POLYLINE,LINE,ARC")))) ;_ A ...
| | In das Form Lisp wechseln |
|
Lisp : schriftfelder via lisp (ac2005)
snp am 23.01.2013 um 14:29 Uhr (0)
Hallo,danke für die Antwort, habe aber keine Ahnung von LSP-programmieren.Ist hier jemand der mir diese LSP um die Funktion Schriftgröße, Ausrichtung erweitern kann, Bitte.Danke, Gruß
| | In das Form Lisp wechseln |
|
Lisp : schriftfelder via lisp (ac2005)
snp am 15.02.2012 um 11:01 Uhr (0)
Hallo CADchup,danke für die Antwort, jedoch komme ich in keiner Weise weiter. Vielleicht kannst Du mir weiterhelfen.Danke und Gruß,Peter
| | In das Form Lisp wechseln |
|
Lisp : schriftfelder via lisp (ac2005)
snp am 15.02.2012 um 11:48 Uhr (0)
Hallo CadChup,leider komme ich nicht weiter:Hier der Code dem ich erstellt habe -- FEHLER: Falsch platzierter Punkt in Eingabeauf das "
" habe ich bewusst verzichtet, möchte alles in einer Zeile mit einen "; " getrennt haben.;;set the string - this creates the fieldSTR (strcat "%AcObjProp.16.2 Object(%\_ObjId " (rtos OBJID 2 0) "%)" STRPROPERTY " f "%lu2%pr2"%" ) "%AcObjProp.16.2 Object(%\_ObjId " (.Material) "%)" )[Diese Nachricht wurde von snp am 15. Feb. 20 ...
| | In das Form Lisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
