Hallo Mozi,
nur ein Ansatz, im folgende Code wird ein Linienelement gepickt, dann ein Text mit Maßzahl, dann der Punkt, auf der zu versetzenden Seite.
Code:
(defun c[Doppelpunkt]offsetByTxt ( / OBJENTSELLIST OBJTXT ZAHL)
(vl-load-com)
(if (and(setq objEntselList (entsel "\nObjekt zum Versetzen picken:"))
(setq objtxt (car(entsel "\nText mit Maßzahl picken:")))
(setq zahl (atof(vl-string-subst "." ","
(vla-get-TextString
(vlax-ename->vla-object objtxt)))))
(or(/= zahl 0.0)
(alert "Der Zahlenwert darf nicht 0.0 sein.")))
(command "_.offset" zahl objEntselList (getpoint)"")
)
(princ)
)
Unter 2019 im Schnelltest hatte es bei mir funktioniert, das kann man dann aber bestimmt noch optimieren, so dass man in einer Schleife abgefragt wird oder so, naja, was zum ausprobieren.
Start mit "offsetbytxt"
Befehl: OFFSETBYTXT
Objekt zum Versetzen picken:
Text mit Maßzahl picken:_.offset
Aktuelle Einstellungen: Quelle löschen=Nein Layer=Quelle OFFSETGAPTYPE=0
Abstand angeben oder [Durch punkt/lÖschen/Layer] <2.5000>: 2.5
Zu versetzendes Objekt wählen oder [Beenden/Rückgängig] <Beenden>:
Punkt auf Seite angeben, auf die versetzt werden soll, oder [Beenden/Mehrfach/Rückgängig] <Beenden>:
Zu versetzendes Objekt wählen oder [Beenden/Rückgängig] <Beenden>:
Befehl:
------------------
viele Grüße
Jörn
PS: [Doppelpunkt] durch ":" im Quelltext ersetzen (sonst gab es einen Smilie)
http://www.bosse-engineering.com
Bosse_tools-Überblick
[Diese Nachricht wurde von joern bosse am 22. Sep. 2021 editiert.]
[Diese Nachricht wurde von joern bosse am 22. Sep. 2021 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP