您好，我也是autolisp的新手。。我有一个关于Lisp程序的问题。。
正如我之前所说，我是Lisp程序的新手。。
以下是：
- (defun C:dd()
- ;parametreler ayarlaniyor.
- (setq dostmode (getvar "osmode"))
- (setvar "osmode" 1)
- ;parametreler ayarlandi.
- ;layer girisleri yapiliyor.
- (command "-layer" "new" "SK_SET" "color" "40" "SK_SET" "")
- (command "-layer" "new" "SK_SET_YAZI" "color" "3" "SK_SET_YAZI" "")
- ;layer girisleri yapildi.
- ;veriler aliniyor.
- (setq point (getpoint "\n Tıkla sıhhat bul..."))
- ;veriler alindi.
- ;line objesi hazirlaniyor.
- (setq linex (car point))
- (setq linex (+ linex 0))
- (setq liney (cadr point))
- (setq liney (+ liney 23))
- (setq linepoint (list linex liney))
- ;line objesi hazirlandi.
- ;km hesaplaniyor.
- (setq kmx (car point))
- (setq kmx (- kmx 1))
- (setq kmy (cadr point))
- (setq kmy (+ kmy 7))
- (setq kmpoint (list kmx kmy))
- ;;;;;;;;;;;;;;;;;;;;
- (setq km (car point))
- (setq km (rtos km 2 2))
- (setq km (strcat "KM=" km))
- (princ km)
- ;km hesaplandi.
- ;kot hesaplaniyor.
- (setq kotx (car point))
- (setq kotx (+ kotx 3))
- (setq koty (cadr point))
- (setq koty (+ koty 7))
- (setq kotpoint (list kotx koty))
- ;;;;;;;;;;;;;;;;;;;;
- (setq kot (cadr point))
- (setq kot (/ kot 10))
- (setq kot (rtos kot 2 3))
- (setq kot (strcat "KOT=" kot))
- (princ kot)
- ;mesafe hesaplandi.
- ;ve sonuc
- (command "-textstyle" "F1")
- (command "-style" "F1" "ISOCPEUR.TTF" "2" "" "" "" "" "")
- (command "-layer" "make" "SK_SET_YAZI" "")
- (command "_text" kmpoint 90 km)
- (command "_text" kotpoint 90 kot)
- (command "-layer" "make" "SK_SET" "")
- (command "donut" "0" "2" point "")
- (command "_line" point linepoint "")
- ;ve sonuc
- ;parametreler ayarlaniyor.
- (setvar "osmode" dostmode)
- ;parametreler ayarlandi.
- )
这对我来说很好，但还有一些不完整的地方。。
例如：
此图像是上述lisp的结果。。
---------------------------
但我想要这样：
---------------------------
所以
旧：KM=349
通缉：KM=0+349.00
旧：KM=1452.43
通缉：KM=1+452.43
旧：KM=25.4
通缉：KM=0+025.40
这样地
谁能帮我一下吗？
我很抱歉英语不好 | 
置顶卡
