Befehl doppelter Offset einer Linie

[Angelo2449]

Hallo alle,
Ich versuche, ein Programm zu schreiben, das den doppelten Offset einer Linie führt, ich habe ein wenig gefickt, aber das Ergebnis funktioniert nicht.
Hilft mir jemand?

 (defun c:wpoint (/ os pt1 pttxy ptv ptv ptvett ptd ptdir Distance)

(setvar "blipmode" 1)

(setq os (getvar "osmode")
(setvar "osmode" 8)
(setq pt1 (getpoint "\nselect the wpoint: ")
(Sectq pt)
(setq ptt)
(setq ptxy (strcat (rtos pt 2 4) "," (rtos ptt 2 4))

(Befehl "_circle" pt1 1.00 ")

(princ)
(princ ptvett)
(princ)
(setq ptv (getpoint))
(falls ptvett (setq point ptv))
(Befehl "_line" pt1 ptv ")
(setq line1 (entlast)

(princ)
(princ ptdir)
(princ)
(setq ptd (getpoint))
(falls ptdir (setq point ptd)

(Setq Entfernung 30.00)

(vla-offset line1 Entfernung)
(vla-offset line1 (- Entfernung)

;

Grazieeeeeeee!

 

[rpor66]

(defunc c:offsetdouble(/ sel n pt Abstand p1 p2)
(setq sel (nentsel "\nsel select unit: ")
(Satzabstand 10)
(Sectq n (Auto sel)
(Sectq pt)
(Befehl "_ucs" pt)
(setosnaponoff "off")
(setq p1 (trans (list 0 -100) 0 1))
(setq p2 (trans (list 0 100) 0 1))
(Befehl "_ucs" "_w")
(Befehl "_offset" Entfernung n p1 ")
(Befehl "_offset" Entfernung n p2 ")
(setosnaponoff "on")
)

; ein- oder ausschalten osnap, äquivalent zu f3 Schlüssel
(defun setosnaponoff(mode/osmode)
(setq osmode (getvar "osmode")
(falls)
(falls) osmode 16384)
(Setvar "osmode" (- osmode 16384))
)
(falls) osmode 16384)
(setvar "osmode" (+ osmode 16384))
)
)
)

wählt Entität, Linie oder Polylinie, die Distanz auferlegt es in der Abstandsvariable.
mit Nentsel Ich bekomme den Namen der ausgewählten Einheit und die Koordinaten des ausgewählten Punktes.
durch den auferlegten Punkt das Objekt, das nach der x-Achse ausrichtet, die Berechnung 2 Punkte entlang der y-Achse und durch Umwandeln in wcs Punkte.
An diesem Punkt schritt ich bis zum Offset-Befehl den Namen der Einheit und den ersten berechneten Punkt, ich wiederhole mit dem zweiten Punkt.

 

[x11start]

der berühmte Lee-Mac hatte schon daran gedacht:http://www.lee-mac.com/doubleoffset.html