Linien mit wenigen Klicks kürzen/stützen

[yannik.tuechler]

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.

[komondormrex]

hey,

Posten Sie ein Bild von dem, was Sie brauchen.

[Kent1Cooper]

_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].

[yannik.tuechler]

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...

[j_weber]

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. 

[komondormrex · Accepted solution]

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)
)

[yannik.tuechler]

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