aanpassing bestaande lisp

silverster · di 29 09 2009, 16:14:03

Hallo,

Ik heb een lisp die ik graag aangepast wil hebben.
Deze lisp trekt oppervlaktes uit aan de hand van omtreklijnen. Je moet dus binnen het vlak klikken en vervolgens geeft hij het oppervlakte weer.

Nu wil ik graag dat deze lisp de text niet neerzat als text maar als mtext. Ik heb al geprobeerd om dit te veranderen maar helaas geeft hij dan niet meer de area.

alvast bedankt voor de hulp

hieronder de lisp

;;;--- GA.lsp - GetArea
JefferyPSanders.com
;;; All rights reserved.

edit Bart
deze lisp is eigendom van jefferySanders.com
heb je toestemming om hem hier te plaatsen

roy_043 · di 29 09 2009, 16:58:41

Het is duidelijk dat Jeffery P. Sanders het commando BOUNDARY niet kent. Maar dat geheel terzijde.
Getest op BC7:

silverster · wo 30 09 2009, 10:36:48

Citaat van: roy_043 op di 29 09 2009, 16:58:41
Het is duidelijk dat Jeffery P. Sanders het commando BOUNDARY niet kent. Maar dat geheel terzijde.
Getest op BC7:

zover was ik dus ook alleen geeft hij nu niet gelijk de oppervlakte weer van de vlakken, je kan nu dus alleen tekst erbij typen daar heb ik dan dus niks aan.

boundary werkt niet altijd. We hebben van een architect een tekening gekregen die bestonden uit splines, die splines waren alleen niet gegenereerd uit polylines dus konden we hier geen hoeveelheden van bepalen.

roy_043 · wo 30 09 2009, 11:22:27

Een vraag voor de zekerheid:
Je hebt dus dit:
(command "_.-mtext"
en niet:
(command "_.mtext"
en toch wordt de mtext dialoog geopend?

roy_043 · wo 30 09 2009, 11:30:40

Citeerboundary werkt niet altijd

Inderdaad BOUNDARY werkt niet met splines. Alweer wat geleerd!

silverster · do 01 10 2009, 11:41:11

Citaat van: roy_043 op wo 30 09 2009, 11:22:27
Een vraag voor de zekerheid:
Je hebt dus dit:
(command "_.-mtext"
en niet:
(command "_.mtext"
en toch wordt de mtext dialoog geopend?

geen idee,

het enigste wat ik graag zou willen is dat hij de oppervlakte (welke hij nu dus automatisch uitrekent) neerzet in Mtext in plaats van text

roy_043 · do 01 10 2009, 13:17:47

Citaat van: silverster op do 01 10 2009, 11:41:11geen idee

Vreemd antwoord op mijn concrete vraag: staat er wel of geen minteken voor "mtext"?

roy_043 · do 01 10 2009, 13:45:43

Door de edit van bart is e.e.a. niet meer goed te volgen. Voor de geïnteresseerden: het originele bestand vind je hier: http://www.jefferypsanders.com/autolisp_GetArea.html

silverster · do 01 10 2009, 14:15:26

Citaat van: roy_043 op do 01 10 2009, 13:17:47
Vreemd antwoord op mijn concrete vraag: staat er wel of geen minteken voor "mtext"?

sorry,

nu begrijp ik wat je bedoelt:
Command: _mtext Current text style: "Standard" Text height: 2.5

roy_043 · do 01 10 2009, 16:08:41

In de lisp moet je dit doen

Code Selecteer

...
(command "_.-mtext" ...

en niet

Code Selecteer

...
(command "_.mtext" ...

Hierdoor wordt namelijk de dialoog geopend en dat wil je bij een lisp niet.

Een voorbeeld van een lisp waarmee een aantal regels in een mtext worden geplaatst:

Code Selecteer

(defun c:testMT ( / pt1 totalStr)
	(setq
		pt1 (getpoint "\nGeef een punt: ")
		totalStr
			(strcat
				"Inhoud regel 1"
				"\\\P"
				"Inhoud regel 2"
				"\\\P"
				"Inhoud regel 3"
			)
	)
	(command "_.-mtext" pt1 "_justification" "_br" "_height" 2.5 "_rotation" 0.0 "_width" 0.0 totalStr "")
	(princ)
)

Nogmaals voor de duidelijkheid: het minteken is cruciaal!

silverster · di 06 10 2009, 16:04:48

oke thanks ik ga er even mee stoeien