CristianC
Guest
hallo jungs, platz unter einer lispe, jemand kann mir helfen, diese lispe 2 funktionell hinzufügen?
die erste wäre, während der ausführung die ucts in die welt einzurichten und dann zurück, um es wie vor der ausführung der lispe (funktionalität, die ich in vielen meiner lispe hinzufügen möchte), die zweite statt sicherzustellen, dass der erstellte text nicht nur auf der ebene des ausgewählten textes, sondern auch mit der gleichen farbe und mit dem gleichen stil ist.
ich fand es nicht, wo und ist sehr nützlich, weil es erlaubt, einen vorhandenen text auszuwählen und einen text sofort unten zu schreiben.
vielen dank für die hilfe, ich versuche, gemeinsam mit ihnen zu lernen, aber oft habe ich schwierigkeiten:
lisp:
(defun c:contxt (/ fht ent inpt align alignp str val x)
(defun val(x ent) (cdr (assoc x ent)))
(setq uecho (getvar "cmdecho")
(setvar "cmdecho" 0)
(sing)
(setq ent(entsel "\nlast textzeile: ")
(setq ent(entget(car ent)))
); ende und
(= (val 0 ent) "text"); auswahl prüfen, um text zu sein
(oder (/= (val'72 ent) 3) ; keine ausrichtung zulassen
(prompt "\ndoesn nicht funktionieren auf ausgerichteten text.")
)
(oder (/= (val'72 ent) 5); oder passtext
(prompt "\ndoesn nicht funktionieren auf fit text.")
)
(progn)
(sectq)
inpt(val 10 ent) ;find insert pt vorhandener text
fht(/= 0,0 (val 40 (tblsearch "style" (val 7 ent)))));fixed ht style?
)
; schicht auf die gleiche wie ausgewählter text
(falls (/= (val 8 ent) (getvar "clayer")
(befehl ".layer" "s" (val 8 ent) ")
)
;bestimmte textausrichtung
(setq align(val (val 72 ent)((1. "c") (2. "r") (4. "m"))))))
(setq alignp(val (val 73 ent)(((1. "b") (2. "m") (3. "t")))))))))))))
(falls (oder alignp)
(setq inpt(val 11 ent)
)
(wenn nicht ausrichten)
(setq align "l")
)
(falls alignp)
(setq align(strcatp align)
)
;einfügen sie eine leere zeile inpt der letzten zeile des textes dann kontinuierlichen text
(befehl ".text" "s" (val 7 ent) ;set style)
(falls (/= align "l")(befehlsausrichten)
(befehl inpt)
(wenn (nicht fht) (befehl (val 40 ent))); höhe, wenn nicht fester höhenstil
(anforderung (anhangtos (val 50 ent) ")
(prompt "\nnew text: "
(befehl ".dtext")
)
)
(setvar "cmdecho" uecho)
(princ)
)
die erste wäre, während der ausführung die ucts in die welt einzurichten und dann zurück, um es wie vor der ausführung der lispe (funktionalität, die ich in vielen meiner lispe hinzufügen möchte), die zweite statt sicherzustellen, dass der erstellte text nicht nur auf der ebene des ausgewählten textes, sondern auch mit der gleichen farbe und mit dem gleichen stil ist.
ich fand es nicht, wo und ist sehr nützlich, weil es erlaubt, einen vorhandenen text auszuwählen und einen text sofort unten zu schreiben.
vielen dank für die hilfe, ich versuche, gemeinsam mit ihnen zu lernen, aber oft habe ich schwierigkeiten:
lisp:
(defun c:contxt (/ fht ent inpt align alignp str val x)
(defun val(x ent) (cdr (assoc x ent)))
(setq uecho (getvar "cmdecho")
(setvar "cmdecho" 0)
(sing)
(setq ent(entsel "\nlast textzeile: ")
(setq ent(entget(car ent)))
); ende und
(= (val 0 ent) "text"); auswahl prüfen, um text zu sein
(oder (/= (val'72 ent) 3) ; keine ausrichtung zulassen
(prompt "\ndoesn nicht funktionieren auf ausgerichteten text.")
)
(oder (/= (val'72 ent) 5); oder passtext
(prompt "\ndoesn nicht funktionieren auf fit text.")
)
(progn)
(sectq)
inpt(val 10 ent) ;find insert pt vorhandener text
fht(/= 0,0 (val 40 (tblsearch "style" (val 7 ent)))));fixed ht style?
)
; schicht auf die gleiche wie ausgewählter text
(falls (/= (val 8 ent) (getvar "clayer")
(befehl ".layer" "s" (val 8 ent) ")
)
;bestimmte textausrichtung
(setq align(val (val 72 ent)((1. "c") (2. "r") (4. "m"))))))
(setq alignp(val (val 73 ent)(((1. "b") (2. "m") (3. "t")))))))))))))
(falls (oder alignp)
(setq inpt(val 11 ent)
)
(wenn nicht ausrichten)
(setq align "l")
)
(falls alignp)
(setq align(strcatp align)
)
;einfügen sie eine leere zeile inpt der letzten zeile des textes dann kontinuierlichen text
(befehl ".text" "s" (val 7 ent) ;set style)
(falls (/= align "l")(befehlsausrichten)
(befehl inpt)
(wenn (nicht fht) (befehl (val 40 ent))); höhe, wenn nicht fester höhenstil
(anforderung (anhangtos (val 50 ent) ")
(prompt "\nnew text: "
(befehl ".dtext")
)
)
(setvar "cmdecho" uecho)
(princ)
)