Community
Abonnements, Installation & Lizenzierung - Deutsch
Das Forum für alle Fragen rund um Abonnements, Installation & Lizenzierung. Der Ort zum Fragen stellen, Antworten erhalten und Wissen teilen.
abbrechen
Suchergebnisse werden angezeigt für 
Anzeigen  nur  | Stattdessen suchen nach 
Meintest du: 

Linien mit wenigen Klicks kürzen/stützen

6 ANTWORTEN 6
GELÖST
Antworten
Nachricht 1 von 7
yannik.tuechler
642 Aufrufe, 6 Antworten

Linien mit wenigen Klicks kürzen/stützen

Hallo,

 

Durch die weitere Bearbeitung unserer Pläne muss ich bestimmte Objekte ausgrenzen. Dadurch habe ich eine "Basis Linie" (rot) und anschließende Linien (blau). Die blauen Linien sollen dann gekürzt werden, somit diese nur 50cm von der Basis-Linie abstehen.

 

Ich kenne den Befehl Stutzen, aber wollte fragen ob es ein schnelleren Weg gibt, evtl auch vorzugsweise gerne mit einer Autolisp-Datei.

6 ANTWORTEN 6
Nachricht 2 von 7
komondormrex
als Antwort auf: yannik.tuechler

hey,

Posten Sie ein Bild von dem, was Sie brauchen.

Nachricht 3 von 7
Kent1Cooper
als Antwort auf: yannik.tuechler

_LENGTHEN and its _Total option.  Give it the length, and pick on the Lines nearer to the ends that you want changed [the other ends will stay where they are -- the bottom ends in your image].

Kent Cooper, AIA
Nachricht 4 von 7
yannik.tuechler
als Antwort auf: Kent1Cooper

Hi, danke dir für deine Antwort!


Deine Antwort geht schon mal in die richtige Richtung, anscheinend habe ich mein Problem zu einfach erklärt.


Da ich in meinem Fall nicht nur Linien, sondern Wände habe, die gekürzt werden müssen, ist eine Linie zwar 50cm lang, aber um die Wanddicke dann zu kurz...

 

 

 

Nachricht 5 von 7
j_weber
als Antwort auf: yannik.tuechler

Hallo @yannik.tuechler 

 

verstehe ich das richtig, das Du im AutoCAD, also reinem AutoCAD, Wände zeichnest in Form von einzelnen Linien. 

Das ist soweit ok, aber dann bei der Bearbeitung, wie Du selber merkst, etwas umständlich. 

 

Schau Dir doch mal den Befehl Doppellinie oder Multilinie an. 

 

https://help.autodesk.com/view/ACD/2024/DEU/?guid=GUID-FA4E9834-041E-4C5A-960D-1A28DDA3864B

 

Damit kannst du einfach eine Doppellinie erstellen, die zum Beispiel aus zwei parallelen Linien besteht und auch am Ende geschlossen werden kann. Die kannst Du dann auch sehr einfach bearbeiten. 

Die Doppellinien oder halt Multilinien verhalten sich dann wie Polylinien. 

 

Vielleicht ist das ja ne alternative für Dich. 

 

 




Jörg Weber
CAD Systemtechniker für AutoCAD, Inventor, Vault





Nachricht 6 von 7
komondormrex
als Antwort auf: yannik.tuechler

da wir brutal unterbrochen wurden... siehe den Code unten.

(defun c:lengthen_shorten_50 (/ base_line other_line_sset base_line_list base_line_start base_line_end
				 				other_line_start other_line_end near_far_list other_line_angle base_point
			     			 )
	(if (and (setq base_line (car (entsel "\nPick base line: ")))
			 (null (prompt "\nSelect lines to lengthen/shorten..."))
			 (setq other_line_sset (ssget '((0 . "line"))))
			 (setq base_line_start (vlax-get (setq base_line (vlax-ename->vla-object base_line)) 'startpoint))
			 (setq base_line_end (vlax-get base_line 'endpoint))
		)
		(foreach other_line (vl-remove-if 'listp (mapcar 'cadr (ssnamex other_line_sset)))
			(setq other_line_start (vlax-get (setq other_line (vlax-ename->vla-object other_line)) 'startpoint)
				  other_line_end (vlax-get other_line 'endpoint)
				  other_line_angle (apply 'angle (setq near_far_list (vl-sort (list other_line_start other_line_end)
								 					     					 '(lambda (point_1 point_2) (< (distance point_1 (vlax-curve-getclosestpointto base_line point_1))
								 						 								   				   (distance point_2 (vlax-curve-getclosestpointto base_line point_2))
								 						 							  )
								 						 					  )
																	 )
							 					 )
					   			   )
			)
			(if (> 1e-1 (distance (car near_far_list) (setq base_point (inters base_line_start base_line_end other_line_start other_line_end nil))))
				(vla-put-startpoint other_line (vlax-3d-point base_point))
			)
			(vla-put-endpoint other_line (vlax-3d-point (polar base_point other_line_angle 0.5)))
		)
	  	(princ "\nIncorrect selection")
	)
  	(princ)
)
Nachricht 7 von 7
yannik.tuechler
als Antwort auf: komondormrex

Perfekt, ich danke dir. Genau das wollte ich! So brutal fand ich es nicht. xD

Sie finden nicht, was Sie suchen? Fragen Sie die Community oder teilen Sie Ihr Wissen mit anderen.

In Foren veröffentlichen  

Autodesk Design & Make Report