CADsite

Het werkt inderdaad.......  helaas nog niet meteen wat ik zoek
Het uiteindelijke resultaat is hoe ik het graag zou hebben, maar ik zou willen dat, wanneer je een rechthoek tekent, dat de tekst dan automatisch in het midden komt te staan.

Nu moet je eerst de rechthoek tekenen, vervolgens de lisp activeren, hoogt tekst ingeven en vervolgens de rechthoek selecteren. Dit alles had ik graag in één beweging gedaan...
Iemand een voorstel?

Bedankt alvast!!!

ja, volledige versie

Hallo,

Voor mijn zaagplannen had ik graag in mijn rechthoeken automatisch de afmetingen gekregen (lengtexbreedte) in het midden van de rechthoek als ik deze teken.

Bestaat hier een command of lisp routine voor?

Ik heb internet even gezocht maar vrees dat ik niet de juiste benamingen gebruik in de zoekfuncties.

Ik kwam volgende tegen maar dit werkt niet bij me:

(defun c:LabelRec (/ ActDoc CurSpace Ht ss cnt Ent EntData VerPoints tmpEnt Wid Len Pt Str tmpText tmpDist1 tmpDist2)
; Label rectangles with length and width in middle of them.
(vl-load-com)
(setq ActDoc (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(if (= (getvar "cvport") 1)
(setq CurSpace (vla-get-PaperSpace ActDoc))
(setq CurSpace (vla-get-ModelSpace ActDoc))
)
(if (and (setq Ht (getreal "\n Enter height of text: ")) (setq ss (ssget '((0 . "*POLYLINE")))))
(progn
(setq cnt 0)
(while (setq Ent (ssname ss cnt))
(setq EntData (entget Ent))
(if (= (cdr (assoc 0 EntData)) "LWPOLYLINE")
(setq VerPoints (vlax-get (vlax-ename->vla-object Ent) 'Coordinates))
(progn
(setq VerPoints nil)
(setq tmpEnt (entnext Ent))
(while (not (equal (cdr (assoc 0 (entget tmpEnt))) "SEQEND"))
(setq tmpPt (cdr (assoc 10 (entget tmpEnt))))
(setq VerPoints (append VerPoints (list (car tmpPt))))
(setq VerPoints (append VerPoints (list (cadr tmpPt))))
(setq tmpEnt (entnext tmpEnt))
)
)
)
(if (= (length VerPoints)
(progn
(setq tmpDist1 (distance (list (nth 0 VerPOints) (nth 1 VerPoints)) (list (nth 2 VerPoints) (nth 3 VerPoints))))
(setq tmpDist2 (distance (list (nth 2 VerPOints) (nth 3 VerPoints)) (list (nth 4 VerPoints) (nth 5 VerPoints))))
(if (< tmpDist1 tmpDist2)
(setq Len tmpDist2 Wid tmpDist1)
(setq Len tmpDist1 Wid tmpDist2)
)
(setq Pt (list (/ (+ (nth 0 VerPoints) (nth 4 VerPoints)) 2.0) (/ (+ (nth 1 VerPoints) (nth 5 VerPoints)) 2.0) 0.0))
(setq Str (strcat (rtos Len 2 2) "x" (rtos Wid 2 2)))
(setq tmpText (vla-AddText CurSpace Str (vlax-3d-point Pt) Ht))
(vla-put-Alignment tmpText 4)
(vla-put-TextAlignmentPoint tmpText (vlax-3d-point Pt))
)
)
(setq cnt (1+ cnt))
)



Bedankt
Cad_User86

Dag Roy,

De opbouw komt van een post van bart, werkt bij mij prima zo...
Het opnieuw opstarten geeft geen oplossing.
Als ik mijn layer selecteer om de leiding te tekenen, neemt hij steeds een continuous lijn.
Wanneer ik echter eerst een lijntype inlaad van de acadiso-file en dan pas de layer selecteer doet hij dit wel correct met het juiste lijntype...

iemand hier een verklaring voor?
Voorlopig heb ik een template aangemaakt waarin deze lijn al ingeladen zijn...

Het is me gelukt op volgende manier:

*VUILWATER,Vuilwater __ VLW __ _>_ __ VLW __ _>_ __ VLW _
A,6.35,-3.175,["VLW",STANDARD,S=2.54,y=-1.27],-10.805,6.35,-3.175,3.175,[">",STANDARD,S=2.54,y=-1.27],4.825,-3.175


hoera

Dag Reimer,

De menu staat nu in het midden van m'n scherm, dus meer dan plaats genoeg lijkt me

De lijnen test ik even uit. EDIT: de lijnen zijn inderdaad gelukt met [--]
Is er ook een mogelijkheid om teksten in het Vet, cursief of onderlijn te laten zetten?

grts

He Bart,

De macro's aanmaken is voor mij geen probleem, ik heb al layers in knopjes gestoken en deze dan aan m'n toolbar gemaakt, maar het werken in een txt bestand en zo een structuur aanamken is totaal nieuw voor me.

Ik probeer het uit te pluizen en je hoort me wel terug als het niet lukt

Hallo,

Bedankt voor de reacties...
Ik was eerder aan het denken aan een pulldown menu te maken en daar m'n layers in te plaatsen.
Dit kwam ik tegen op volgende site:
http://landarchs.com/wp-content/uploads/2015/05/Layer_pulldown-menu.jpg

iemand enig idee hoe hieraan te beginnen?

Bedankt!