Angelo2449
Guest
Hallo alle,
mit dem Befehl :
Ich bestimme die Ableitung des Bereichs, auf den ich einen internen Punkt geklickt habe, und ich ziehe den Bereich aus, in dem ich den Wert in pt2 schreibe.
Ich möchte auch die Möglichkeit haben, den Wert des Bereichs an einem außerhalb der Figur berechneten Punkt zu schreiben, der pt1 beispielsweise oben beschreibt.
Wie, wenn möglich, berechnen Sie diesen Punkt?
Danke.
mit dem Befehl :
Code:
(defun c:areapc (/ pt1 pt2 area retino stringaout)
(setq pt1 (getpoint "klicken Sie auf internen Punkt: ")
(runapp "c:\\autocadsupport\\\libertytre\trattcolori.exe "c:\\autocadsupport\\\libertytre\\\trattcolori.tkn" :vlax-true)
(setq stringaout (getcliptext)
(wenn (= Ende stringout)
(Progn)
(Alert "unterbrochene Funktion")
(vl-exit-with-error "aus dem Programm herausfahren")
;
;
(Befehl "_bhatch" "_pr" "_s" pt1 ")
(setq retino)
(Befehl "_area" "_o" "_last")
(falls (/= stringaout "no")
(Befehl "_change" retino "_p" "_color" stringaout ")
;
(princ "\narea ")
(Fläche)
(setcliptext (rtos area 2 2))
(setq pt2 (getpoint "\nclick the insert point of the value of the area")
(Befehl "_text" pt2 0.4 0.0 (Strcat "area m2 = " (rtos area 2 2))
(falls (/= stringaout "no")
(Befehl "_change" "_last" "_p" "_color" stringaout")
;
(setcliptext (rtos area 2 2))
(wenn (= "no" stringout)
(Befehl "_erase" retino)
;
;Ich möchte auch die Möglichkeit haben, den Wert des Bereichs an einem außerhalb der Figur berechneten Punkt zu schreiben, der pt1 beispielsweise oben beschreibt.
Wie, wenn möglich, berechnen Sie diesen Punkt?
Danke.