|
Rund um Autocad : Bogenbemassung
LutzJ am 26.06.2002 um 20:13 Uhr (0)
hallo sven nimm folgendes lisp ;bogen bemaßen (defun c:bl (/ bogen) (setvar "cmdecho" 0) (setq bogen (entsel "Zu bemaßenden Bogen wählen !")) (command "_lengthen" (car bogen) "") (print "Maßposition zeigen !") (command "_dim" "_ang" bogen pause (rtos (getvar "PERIMETER") 2 2) "" "exit") ) lutz Zitat: Original erstellt von Seven: Eine etwas merkwürdige Frage: Wie bemast man die Bogenlänge in Autocad? Linear bemassen kein Problem, ausgerichtet geht auch noch, doch wie kann ich die Bogenlän ...
|
In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Text - Lisp
LutzJ am 21.08.2002 um 09:58 Uhr (0)
hallo mozi nimm dieses tool in lisp (defun c:bemassung_wert_aendern (/ FAKTOR GENAU INDEX OBJDATA SSET ) (setq sset (ssget "_X" (( 0 . "DIMENSION")))) (setq faktor (getreal "Multiplikator für Maßwerte :")) (setq genau (getint "Nachkommastellen :")) (setq index 0) (while ( index (sslength sset)) (setq objdata (entget (ssname sset index))) (setq objdata (subst (cons 1 (rtos (* faktor (atof (cdr (assoc 1 objdata)))) 2 genau)) (assoc 1 objdata) objdata)) (entmod objdata) ...
|
In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Dialogfeld "FARBE" beim erstellen von Layern
LutzJ am 17.09.2002 um 12:14 Uhr (0)
hallo karsten, hast du ein lisp gemacht, oder wie anders? sende mal den code... lutz
|
In das Form Rund um Autocad wechseln |