|
AutoLisp : versetzen
bu am 03.01.2005 um 13:06 Uhr (0)
hallo judith, kleiner fehler, grosse auswirkung. doch nun müsste es funktionieren. gruss (defun C:MV (/ OFFSETVAL STP1 X1 X2 Richtung) (if (setq X1 (entsel
Objekt zum Versetzen wählen: )) (if (if (and (= LINE (cdr (assoc 0 (entget (car x1))))) (or (= (car (cdr (assoc 10 (entget (car x1))))) (car (cdr (assoc 11 (entget (car x1))))) ) (= (nth 1 (cdr (assoc 10 (entget (car x1))))) (nth 1 (cdr (assoc 11 (entget (car x1))))) ) ) ;or ) ;a ...
| | In das Form AutoLisp wechseln |
|
AutoLisp : versetzen
bu am 03.01.2005 um 11:05 Uhr (0)
Hallo Leute, dies wäre mein vorschlag: (die optimierung habe ich dankend mitaufgenommen) das programm startet nach dem laden automatisch. wenn das gewählte objekt keine line ist oder eine linie ist aber weder senkrecht noch waagrecht funktioniert das programm wie gehabt. (defun C:MV (/ OFFSETVAL STP1 X1 X2 Richtung) (if (setq X1 (entsel
Objekt zum Versetzen wählen: )) (if (if (and (= LINE (cdr (assoc 0 (entget (car x1))))) (or (= (car (cdr (assoc 10 (entget (car x1))))) ...
| | In das Form AutoLisp wechseln |
|
AutoLisp : Lispproblem
bu am 17.03.2005 um 15:27 Uhr (0)
hallo leute, ich hab mal wieder ein echtes problem: das untenstehende lispprogramm soll mir in autocad lt 2002 toolkit eine positionsnummer erzeugen. das problem ist dass es auf manchen rechnern läuft und auf manchen nicht. was gehäuft auftritt ist das die zeile (setq pstart (getpoint
StartpunktPositionierung ))einfach überlaufen wird und dann natürlich das programm auf einen fehler läuft. vielleicht findet jemand den fehler. gruss bu (defun positionstart (/ pstart pende a b c alpha_rad alpha_grad pbasis ...
| | In das Form AutoLisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
