Hallo,
Is het ook mogelijk dat ik een polyline teken waar automatisch de oppervlakte in komt te staan met tekst? Als ik de polyline groter maak dat hij ook automatisch de tekst aanpast.
Alvast bedankt
Mvg
Elloy
Dat kan middels het aanmaken van een 'field' .. en die natuurlijk regelmatig te 'updaten'...
Citaat van: elloy op wo 30 01 2008, 16:51:02
Hallo,
Is het ook mogelijk dat ik een polyline teken waar automatisch de oppervlakte in komt te staan met tekst? Als ik de polyline groter maak dat hij ook automatisch de tekst aanpast.
Alvast bedankt
Mvg
Elloy
Beste Elloy,
Het volgende onderwerp Oppervlakte Hatch kan je aan ook aan ideeen helpen.
http://www.cadsite.be/smf/index.php/topic,951.0.html, want je komt daardoor
o.a. op de onderwerpen:
Vierkanten meters
http://www.cadsite.be/smf/index.php/topic,1222.0.html
Field gegevens via lisp plaatsen
http://www.cadsite.be/smf/index.php/topic,1208.0.html
Bekijk ook het onderwerp 'Lastig vraagje' op
http://www.cadsite.be/smf/index.php/topic,742.0.html
Met vriendelijke groet, HofCAD CSI
Dank jullie wel voor de antwoorden.
Ik heb een lisp gevonden op 1 van de linken. En hij is bijna precies wat ik zoek. Maar weten jullie ook of het mogelijk is dat ik hem in m2 kan zetten en dat ik m2 er achter kan zetten. En zou het ook mogelijk zijn dat als ik boundery kies en ik teken de polyline dat ik die niet meer hoef te selecteren maar dat hij dat automatisch doet? Verder is het echt een prima lisp.
Groeten Dennis
;;;arb
(defun plar(/ pt pt1 pt2)
(setq pt (getpoint"\nStarting Point: "))
(setq pt1 (getpoint pt "\nNext Point: "))
(command "Pline" pt pt1 "")
(while
(setq pt2 (getpoint pt1"\nNext Point: "))
(command "pline" "" pt2 "")
(command "pedit" pt "j" pt pt2 "" "")
(setq pt1 pt2)
)
(command "pedit" pt "c" "")
(princ)
)
(defun ar5 (/ cm fd ar1 ar2 ar3 tab oba lu tpt lin wh)
(vl-load-com)
(setq cm (getvar "cmdecho"))
(setvar"cmdecho" 0)
(setq fd (getvar "fielddisplay"))
(if (/= fd 0)(setvar"fielddisplay" 0))
(setq ar1 (entsel "\nSelect Area Boundary: "))
(setq ar2 (car ar1))
(setq tab (vlax-ename->vla-object ar2))
(setq oba (vla-get-objectid tab))
(setq lu (getvar "lunits"))
(setq tpt (getpoint"\nSelect Area Text Point: "))
(cond
((= lu 2) (setq lin (strcat "%<\\AcObjProp Object(%<\\_ObjId " (rtos oba 2 0) ">%).Area \\f \"%lu6%qf1\">%")))
((= lu 4) (setq lin (strcat "%<\\AcObjProp Object(%<\\_ObjId " (rtos oba 2 0) ">%).Area \\f \"%lu2%ct4%qf1 SQ. FT.\">%")))
((= lu 5) (setq lin (strcat "%<\\AcObjProp Object(%<\\_ObjId " (rtos oba 2 0) ">%).Area \\f \"%lu5\">%")))
((= lu 3) (setq lin (strcat "%<\\AcObjProp Object(%<\\_ObjId " (rtos oba 2 0) ">%).Area \\f \"%lu2%ct4%qf1 SQ. FT.\">%")))
((= lu 1) (setq lin (strcat "%<\\AcObjProp Object(%<\\_ObjId " (rtos oba 2 0) ">%).Area \\f \"%lu1\">%")))
)
(command "mtext" tpt "w" "0" lin "")
(princ)
)
(defun c:arb (/ key)
(initget 1 "Boundary/label-area Label-area")
(setq key (getkword "\nWould you like Boundary/label-area<B> or Label-area<L>: "))
(cond
((= key "Boundary/label-area")(plar)(ar5))
((= key "Label-area")(ar5))
)
(princ)
)