som
Guest
hallo an alle, dank ihrer hilfe gelang es mir, einen kleinen code zu schreiben, der meine situation passt und das erlaubt mir, einen teil eines dwg zu wählen, um es in jpeg von plotter zu verwandeln.
nun sollte ich einige texte bewegen, die ich selbst aus dem ausgewählten fenster herausfinde, also schrieb ich die übersetzende funktion, die ich mit autocad verwenden kann, aber nicht auf der anderen lisp-funktion, was bin ich falsch? !
danke.
um zu sehen, ob es funktioniert ich versuchte, direkt zahlen einzufügen.. dann muss ich einen wert eingeben, der von den grenzen des fensters abhängt.
nun sollte ich einige texte bewegen, die ich selbst aus dem ausgewählten fenster herausfinde, also schrieb ich die übersetzende funktion, die ich mit autocad verwenden kann, aber nicht auf der anderen lisp-funktion, was bin ich falsch? !
danke.
Code:
(Defun c:puntiassi)
(Setvar "cmdecho" 0)
(setq gr(ssget "x" ( (0. "line") (8. "assi"))))))
(falls gr)
(setq kk 0)
(setq xlimitedestro 0)
(setq xlimitesinistro 0)
(setq ylimitesup 0)
(setq ylimiteinf 0)
(Repeat)
(setq point(entget(sname gr kk)))))
(setq pnew)
(auto(cdr(assoc 10 punkt));
(cdr(cdr(assoc 10 point));
(cadr(cdr(assoc 10 point));
)
(princ "\n")
(falls = kk 1)
(setq ylimitesup (cdr(assoc 10 point)))
)
(falls = kk 2)
(setq ylimiteinf (cdr(cdr(assoc 10 point)))
)
(falls = kk 3)
(setq xlimitedestro (car(cdr)))
)
(falls = kk 4)
(setq xlimitesinistro (car(cdr(assoc 10 point))))
)
(princ (car(cdr(assoc 10 point)))))
;(sekundarpunkt(Substrat (cons 10 pnew))
(eingeschlossen)
(setq kk(+kk 1))
)
)
(princ "\n limitedestro x : ")
(princ xlimitedestro)
(princ "\n limitless x : ")
(princ xlimitesinistro)
(princ "\n limitup y : ")
(princ ylimitesup)
(princ "\n limitinf y : ")
(princ ylimiteinf)
(setq p3 (list xlimitesinistro ylimiteinf)); links unten
(setq p4 (list xlimitedestro ylimitesup)); oben rechts
(princ "\n")
(princ "p3")
(princ p3)
(princ "p4")
(prinz p4)
[COLOR="Red"] (Befehl "traslatesto" 300.0 10.0 )[/COLOR];(Befehl "300")
;(Befehl "10")
(Befehl "_plot" "ja" "Modell" "jpeg.pc3"" "horizontal" "no" "fenster"
p3 p4 "suitable" "center" "ja" "acad.ctb" "no" "versteckt" "no" "ja" "ja" "ja" "ja" "ja" "ja" "ja"
; nach versteckt habe ich den dateinamen
)
(defunc c:translatesto(/ traslx trasly)
(setq traslx 300.0)
(setq trasly 10.0)
(setq traslx (getint "\ninseri traslation x:"))
(setq trasly (getint "\ninserire translation y:"))
(Setvar "cmdecho" 0)
(setq gr(ssget "x" ((8. "text"))))))
(falls gr)
(setq kk 0)
;(seq übersetzung 300)
;(seq traslazioney 10)
(Repeat)
(setq point(entget(sname gr kk)))
(setq oldx (car(cdr(assoc 10 point)))))
(setq alty (cadr(cdr(assoc 10 point))))
(setq newx (- altx traslx)
(setq newy)
(setq pnew)
Newx; x
Newy, y
(cdr(cdr(assoc 10 point));
)
(princ "\n")
(princ oldy)
(satzpunkt(subst (cons 10 pnew) (assoc 10 point)))
(zwischenpunkt)
(setq kk(+ kk 1))
)
)
)