nieuwe procedure maken.

[julien]

Ik heb een vraagje voor een lisp kenner.
Ik heb een aantal opdrachten die ik zeer vaak gebruik, en waarvoor ik dus een lisp zou kunnen gebruiken.

Hetgeen ik nu doe:
-me
-lijn aanduiden
-b (block)
-xx (naam block)
-y (alingn)
-xx (lengte segment)


Hetgeen ik wil bereiken is
-het commando aanspreken
-geef de naam van van de block:
-geef de segment lengte:
-klik op de in te delen lijnstukken.

Is dit mogelijk???
En zoja, kan iemand mij wat op weg zetten?

Alvast bedankt.

Dit is heteen ik tot nu toe heb, maar dit werkt niet...

Code Selecteer Uitklappen

(defun C:bb ()
(setq blocknaam (getstring ["blocnaam: "]))
(setq segmentlengte (getint "geef de segmentlengte: "))
(command "measure" "getpoint" "b" "blocknaam" "y" "segmentlengte")
)

[julien]

Na veel proberen en autocad te laten vastlopen ben ik tot het volgende gekomen:

Code Selecteer Uitklappen

(defun C:bm ()
  (setq blocknaam (getstring ["\nVoer de blocknaam in: "]))
(setq segmentlengte (getint "\nGeef de segmentlengte: "))
  (setq lijn (getpoint "\nDuid de lijn aan of druk op ENTER om af te sluiten: "))
  (command "measure" lijn "b" blocknaam "y" segmentlengte)
(while (/= lijn nill)
(setq lijn (getpoint "\nDuid de lijn aan of druk op ENTER om af te sluiten: "))
(if (/= lijn nill)(command "measure" lijn "b" blocknaam "y" segmentlengte)())
  )(princ)
)(princ)

Dit was hetgeen ik wilde bereiken.