---

Er der en som kan hjælpe, evt med adresse til en lisprutine, der kan
indføjes som Osnap kommando, til at finde midtpunktet mellem to definerede
punkter (som Points Between kommando)?

Mvh Philip

---

Hi.

philip skrev i meddelelsen <9aeui2$hmk$1@tnews.inet.tele.dk>...
>Er der en som kan hjælpe, evt med adresse til en lisprutine, der kan
>indføjes som Osnap kommando, til at finde midtpunktet mellem to definerede
>punkter (som Points Between kommando)?
>
>Mvh Philip

Det du beder om kan f.eks udføres ved at angive de to punkter som to punkt
lister som dem du får med "getpoint".
Du kan så nemt udregne længden af vectoren mellem de to punkter med alm vector
beregning og når du derved har retningen i 3D kan du ud af vectoren afsætte den
halve længde.
------- Du kunne også dele i 4 hvis du vil det ?
De funktioner du har brug for er "mapcar" og "apply" som bla. bruges til at
vector og matrix beregninger.
P.C.

---

Se i Acad hjælpen efter:

1) Calculating a Vector from Two Points (CAL)
2) AutoCAD Snap Modes (CAL)
3) Obtaining a Point by Cursor (CAL)



"philip" <phpe@worldonline.dk> wrote in message
news:9aeui2$hmk$1@tnews.inet.tele.dk...
> Er der en som kan hjælpe, evt med adresse til en lisprutine, der kan
> indføjes som Osnap kommando, til at finde midtpunktet mellem to definerede
> punkter (som Points Between kommando)?
>
> Mvh Philip
>
>

---

Hi.

philip skrev i meddelelsen <9aeui2$hmk$1@tnews.inet.tele.dk>...
(som Points Between kommando)?

Her er en lille rutine som gør mere end det ; den spørger efter hvor mange dele
linien ---- vectoren --- skal deles i ,så kan du svare to for midt punktet :))

(defun im (/ div dell a b)
(setq div(getint " Hvormange dele mellem punkter ? "))
(terpri)
(setq dell(getint " på hvilket delnummer skal det nye pt. være ?"))
(terpri)
(setq a (getpoint "Punkt FRA : "))
(terpri)
(setq b (getpoint "Punkt til : "))
(mapcar '- a
(mapcar '* (mapcar '/ (mapcar '- a b) (cons div(list div div)))
(cons dell(list dell dell)))
))

Have a nice day.
P.C.

---

P.s.
Load rutinen som så hedder (im) ------ så kan man midt i en anden kommando
aktivere den ,ved at taste (im) , hvilket kan være praktisk hvis man vil tegne
en 3dpoly tre ottende dele mellem to punkter .

prøv at tegne en polylinie ,tast så circle og når der spørges fra Acad om
centrum for circlen ,så skriv (im) og tryk Enter.
Nu bryder (im) funktionen ind og spørger først ,hvor mange dele du vil dele den
fortsatte linie i og på hvilket delnummer ,centrum af circlen skal ligge. Når du
har svaret ,afsættes centrum og "circle" kommandoen fortsætter :))

P.C.

---

Tak til alle for hjælp

Philip

"P.C." <per.corell@gentofte.mail.telia.com> skrev i en meddelelse
news:9ajv46$f74$1@news.inet.tele.dk...
> P.s.
> Load rutinen som så hedder (im) ------ så kan man midt i en anden kommando
> aktivere den ,ved at taste (im) , hvilket kan være praktisk hvis man vil
tegne
> en 3dpoly tre ottende dele mellem to punkter .
>
> prøv at tegne en polylinie ,tast så circle og når der spørges fra Acad om
> centrum for circlen ,så skriv (im) og tryk Enter.
> Nu bryder (im) funktionen ind og spørger først ,hvor mange dele du vil
dele den
> fortsatte linie i og på hvilket delnummer ,centrum af circlen skal ligge.
Når du
> har svaret ,afsættes centrum og "circle" kommandoen fortsætter :))
>
> P.C.
>
>
>

---

Hej

Du kan på denne hjemmeside finde en Lisp rutine der kaldes BT.lsp:

http://www.autolisp.com/freelisp.htm

En hurtig måde at komme igang med lisp´en på er, at du placerer BT.lsp i AutoCAD´s Support mappe.

Herefter opretter du i Notesblok en fil indeholdende denne linie kode:

(load "BT.lsp")

Du gemmer nu filen i AutoCAD´s Support mappe med navnet Acad.lsp. (Husk selv at angive filtypen til lsp)- Herefter start din AutoCAD.
Du kan nu, når du aktivere en hvilken som helst kommando der kræver koordinat input skrive:

'bt

f.eks:
Specify insertion point or [Scale/X/Y/Z/Rotate/PScale/PX/PY/PZ/PRotate]: 'bt
eller
Specify first point: 'bt
og
Specify center point for circle or [3P/2P/Ttr (tan tan radius)]: 'bt

Herefter bliver du bedt om at udpege to punkter, som du også kan anvende ObjectSnap til. Herefter har du nu fat i disse to punkters midtpunkt.

Hvis du vil lave en knap i AutoCAD der kaldet 'bt transparant til koordinat input, skal knappens macro funktion være:

'bt;^z

Håber du kan anvende ovenstående.

mvh
Niels