Papao
Guest
Eski bir tarih lisp var, herhangi bir varlığın iki noktası arasındaki mesafeyi ölçmeye izin verir (arşizler, daireler, düz);
Her zaman otocad'nın eski versiyonlarında düzgün çalıştı, ancak artık son versiyonlarla çalışmıyordu.
Komuta özel bir düğmeye atanmıştır, ancak baskısına rağmen, lisp'in doğru bir şekilde başlamasına rağmen, daha sonra çalışmasını doğru bir şekilde yapmak için daha fazla baskı bekliyor.
Kod lisp birisi bana yardımcı olabilir mi?
Her zaman otocad'nın eski versiyonlarında düzgün çalıştı, ancak artık son versiyonlarla çalışmıyordu.
Komuta özel bir düğmeye atanmıştır, ancak baskısına rağmen, lisp'in doğru bir şekilde başlamasına rağmen, daha sonra çalışmasını doğru bir şekilde yapmak için daha fazla baskı bekliyor.
Kod lisp birisi bana yardımcı olabilir mi?
Kod:
“İki nokta arasındaki mesafeyi hesaplar
(defun clerr (s)
(Eğer bir hata (örneğin ctrl-c)
(princ (strcat "terör: "s); bu komut aktifken. .
)
(If (= (getvar "username") "xx xxxxx, xxxxx srl") (setvar "osmode" 37) (setvar "osmode" 1)
(setq * Terör* yaşlı) ; Eski * Terör* eller geri yükleme
(princ)
)
(defun c:pdist(/ saveosnapmode dist1 miodist)
(setq olderr* Terror*)
* Terör * clerr)
(setq saveosnapmode)
(command "_osnap" "_nea")
(setq dist1 (getpoint "İlk noktaya ") dokunur.
(command "_osnap"
(setq miodist (getdist dist1 "İkinci noktaya dokun")
(setvar "osmode" saveosnapmode)
(princ " mesafe ")
(princ miodist)
(setq * Terör* yaşlı) ; Eski * Terör* eller geri yükleme
(princ)
)