|
AutoLisp : Positionsnummern MDT2004 SP1
LutzJ am 01.09.2003 um 09:10 Uhr (0)
hallo holger, ich habe mit lisp die entsprechenden informationen an die bauteile als ampartref geschrieben und als unbenannte gruppe in zusammenhang gebracht. damit war es möglich die entsprechenden zeichnungsableitungen mit positionsnummern zu versehen. das ganze ging mit mdt5-6 sehr gut, erst mit mdt2004 fehlanzeige. ich suche dringend eine alternative um auch unter 2004 diese funktionalität zu realisieren. mit (vla-addcustomobject mSpace AcmPartRef ) kann ich wie gewohnt auch unter 2004 die informati ...
|
|
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 ...
|
|
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) ...
|
|
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
|
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
|