[求助]谁能帮我看看这个程序有什么不对呢

linshiyin2

(defun C:bzbgpd ()

  (initget 1)
  (setq pt1 (getpoint "\n起点:"))
  (initget 1)
  (setq pt2 (getpoint "\n终点:"))

  (setq pt3 (polar pt2 (/ pi 2) 15)  ;;;获取pt3
 pt6 (polar pt2 (/ pi 2)  9)  ;;;获取pt3
        pt4 (polar pt3 (/ pi 1) 13)  ;;;获取pt3
 pt5 (polar pt3 0 13)   ;;;获取pt3
 pt7 (polar pt6 (/ pi 1) 13)  ;;;获取pt3
 pt8 (polar pt6 0 13)   ;;;获取pt3

  )
  (command "line" pt1 pt2 ""
           "line" pt1 pt2 ""
    "line" pt2 pt3 ""
    "line" pt4 pt5 ""
    "line" pt6 pt7 ""
    "line" pt6 pt8 ""
    )
  (setq bg -230.123;设置数值
 zpd -3.1
 zjl 1000.123
 ypd 3.2
 yjl 2000.123
 )
  (setq bg (rtos bg 2 3);保留小数位数
 zpd (rtos zpd 2 1);保留小数位数
 zjl (rtos zjl 2 3);保留小数位数
 ypd (rtos ypd 2 1);保留小数位数
 yjl (rtos yjl 2 3);保留小数位数
 )
  (command "text" "J" "BC" pt3 3 0 bg ;标高
           "text" "J" "BL" pt7 3 0 zpd;左坡度
    "text" "J" "TL" pt7 3 0 zjl;左距离
    "text" "J" "BR" pt8 3 0 ypd;右坡度
    "text" "J" "TR" pt8 3 0 yjl;右距离
    )
);End bzdhd

 

 

 

程序有时候行，距离一大什么的就偏了

 

xyp1964

增加: (setvar "osmode" 0)

2. (defun C:tt ()
3.   (if (and (setq pt1 (getpoint "\n起点:"))
4.     (setq pt2 (getpoint pt1 "\n终点:"))
5.       )
6.     (progn
7.       (setvar "osmode" 0)
8.       (setq pt3 (polar pt2 (/ pi 2) 15)
9.      pt6 (polar pt2 (/ pi 2) 9)
10.      pt4 (polar pt3 pi 13)
11.      pt5 (polar pt3 0 13)
12.      pt7 (polar pt6 pi 13)
13.      pt8 (polar pt6 0 13)
14.      bg -230.123
15.      zpd -3.1
16.      zjl 1000.123
17.      ypd 3.2
18.      yjl 2000.123
19.      bg (rtos bg 2 3)
20.      zpd (rtos zpd 2 1)
21.      zjl (rtos zjl 2 3)
22.      ypd (rtos ypd 2 1)
23.      yjl (rtos yjl 2 3)
24.       )
25.       (command "line" pt1 pt2 pt3 "" "line" pt4 pt5 "" "line" pt6 pt7 "" "line" pt6 pt8 "")
26.       (command "text" "J" "BC" pt3 3 0 bg "text" "J" "BL" pt7 3 0 zpd "text" "J" "TL" pt7 3 0 zjl "text" "J" "BR" pt8 3 0
27.         ypd "text" "J" "TR" pt8 3 0 yjl)
28.     )
29.   )
30.   (princ)
31. )

(defun C:tt ()   (if (and (setq pt1 (getpoint "\n起点:"))     (setq pt2 (getpoint pt1 "\n终点:"))       )     (progn       (setvar "osmode" 0)       (setq pt3 (polar pt2 (/ pi 2) 15)      pt6 (polar pt2 (/ pi 2) 9)      pt4 (polar pt3 pi 13)      pt5 (polar pt3 0 13)      pt7 (polar pt6 pi 13)      pt8 (polar pt6 0 13)      bg -230.123      zpd -3.1      zjl 1000.123      ypd 3.2      yjl 2000.123      bg (rtos bg 2 3)      zpd (rtos zpd 2 1)      zjl (rtos zjl 2 3)      ypd (rtos ypd 2 1)      yjl (rtos yjl 2 3)       )       (command "line" pt1 pt2 pt3 "" "line" pt4 pt5 "" "line" pt6 pt7 "" "line" pt6 pt8 "")       (command "text" "J" "BC" pt3 3 0 bg "text" "J" "BL" pt7 3 0 zpd "text" "J" "TL" pt7 3 0 zjl "text" "J" "BR" pt8 3 0         ypd "text" "J" "TR" pt8 3 0 yjl)     )   )   (princ) )

linshiyin2

太感谢了，楼上的，