|
Rund um Autocad : GeoCAD
m-troeger am 30.09.2002 um 19:22 Uhr (0)
Hallo Daniel42, ich bin GeoCAD Nutzer seit ca. 2 Jahren. Ich muß Dir etwas Recht geben, am Anfang hatte ich ettliche Probleme dieses Teil zum laufen zu bringen, mitlerweile möchte ich es aber nicht mehr missen. Wir arbeiten jedoch nur mit dem Grundmodul. Als erstes haben wir GeoCad füe uns angepaßt, und uns komplett eigene Planarten und Signaturen erstellt, was GeoCAD ja vorsieht. Vom zeichnerischen was mir da geboten wird bin ich schon begeistert, und wenn wir was anders haben wollten, so haben wir uns an ...
| | In das Form Rund um Autocad wechseln |
|
AutoLisp : BAND od. PLINE-Teil versetzen
m-troeger am 19.06.2006 um 22:37 Uhr (0)
Hallo Holger,nu genau - das funztVielen Dank. so wird ausCode:(setq DISTANCELIST (mapcar (lambda (ARG) (vlax-curve-getdistatpoint AX-OBJ ARG)) PKTLIST))Code:(setq DISTANCELIST (mapcar (lambda (ARG) (vlax-curve-getdistatparam AX-OBJ ( vlax-curve-getparamatpoint AX-OBJ ARG))) PKTLIST)) also:Code:(vlax-curve-getdistatparam AX-Objectname ( vlax-curve-getparamatpoint AX-Objectname Punkt));; "Punkt" im Format/als Liste (123.321 456.987 0.0)???@Alle Wenn ich nun mal überleg wie viel (Frei-)Zeit das hier gekostet ...
| | In das Form AutoLisp wechseln |
|
Rund um Autocad : x , y , z Koordinatenabfrage
m-troeger am 11.03.2003 um 22:02 Uhr (0)
Hi Jürgen, hier ne keine LISP, durch picken der Punkte, werden die Differenzen in der Befehlszeile angezeigt. (defun C: DELTA_KOOR (/ POINT1 POINT2 P2_X P2_Y P2_Z) (setq P2_X 0) (setq P2_Y 0) (setq P2_Z 0) (while (= POINT2 NIL) (princ " " ) ;_ Ende von princ (initget 1 "Basispunkt Ende ") (setq POINT2 (getpoint (strcat "
Delta X: " (rtos P2_X 2 3) " Delta Y: " (rtos P2_Y 2 3) " Delta Z: " ...
| | In das Form Rund um Autocad wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
