立面标高的程序

szx025

这是一个标立面标高的程序，每次执行都要输入一次基点标高值，我的想法是，第一次执行程序，输入了基点标高值，在没有移动图形的情况下，再执行这个程序时，就不需要在输入基点标高值了，直接选标注点标标高值，这个怎么改

2. (defun c:bg1 (/ pt1 pt2 old_cmd cl ortho ww hh1 ang pt3 hh hh2 str bg)
   
3. (setvar "clayer" "标高")   
   
4. (setq pt1 (getpoint "\n标高基准点:"))
   
5. (if (not (setq hh1 (getreal "\n请输入基准点标高±0.000:")))  
   
6.              (setq hh1 0.000)
   
7.            )
   
8.            (setq hh1 (if (/= hh1 0)   
   
9.             (rtos hh1 2 3)           
   
10.              "%%P0.000"         
    
11.                       )
    
12.            )
    
13. (while(setq pt2 (getpoint "\n定位点:")); 此点相对基准往左、右对应相应的标高符号
    
14. (setq ang (angle pt1 pt2))
    
15. (setq pt3 (polar pt2 0 100))
    
16. (setq hh (szx_h pt1 pt2)
    
17.       hh2 (/ hh 1000)
    
18.     )
    
19. (if (/= (type hh1) 'str)(setq hh1(vl-princ-to-string hh1)));判断是否是字符串并转换
    
20. (setq hh1 (atof hh1))           ;字符串转换成实型数
    
21. (if (and (> ang 0)(< ang 3.141))
    
22. (setq str (+ hh1 hh2))
    
23. (setq str (- hh1 hh2))
    
24. )
    
25.   (setq str (if (/= str 0)   
    
26.             (rtos str 2 3)           
    
27.              "%%P0.000"         
    
28.                       )
    
29.   )
    
30. (if (and (> ang 1.570)(< ang 4.712))  
    
31. (command "._insert" "bgz.dwg" "non" pt2 "" "" str)
    
32. (command "._insert" "bgy.dwg" "non" pt2 "" "" str)
    
33. )
    
34. (setq bg (entlast))
    
35. (initget "Yes No")
    
36.         (if (= "Yes"
    
37.                (getkword "\n是否镜像？[是(Y)/否(N)] <N>:")
    
38.             )
    
39.             (command "mirror" bg "" "non" pt2 "non" pt3 "y")
    
40.         )
    
41. (setvar "orthomode" 1);_开  
    
42. (prompt "\n左右移动定位: ")   
    
43. (command "_move" bg "" pt2  pause )
    
44. (setvar "orthomode" 0);_关
    
45. )
    
46.     (princ)
    
47. )

(defun c:bg1 (/ pt1 pt2 old_cmd cl ortho ww hh1 ang pt3 hh hh2 str bg)<br /> (setvar "clayer" "标高")   <br /> (setq pt1 (getpoint "\n标高基准点:"))<br /> (if (not (setq hh1 (getreal "\n请输入基准点标高±0.000:")))  <br />              (setq hh1 0.000)<br />            )<br />            (setq hh1 (if (/= hh1 0)   <br />             (rtos hh1 2 3)           <br />              "%%P0.000"          <br />                       )<br />            )<br /> (while(setq pt2 (getpoint "\n定位点:")); 此点相对基准往左、右对应相应的标高符号<br /> (setq ang (angle pt1 pt2))<br /> (setq pt3 (polar pt2 0 100)) <br /> (setq hh (szx_h pt1 pt2)<br />       hh2 (/ hh 1000)<br />     )<br /> (if (/= (type hh1) 'str)(setq hh1(vl-princ-to-string hh1)));判断是否是字符串并转换<br /> (setq hh1 (atof hh1))           ;字符串转换成实型数<br /> (if (and (> ang 0)(< ang 3.141))<br /> (setq str (+ hh1 hh2))<br /> (setq str (- hh1 hh2))<br /> )<br />   (setq str (if (/= str 0)   <br />             (rtos str 2 3)           <br />              "%%P0.000"          <br />                       )<br />   )<br /> (if (and (> ang 1.570)(< ang 4.712))  <br /> (command "._insert" "bgz.dwg" "non" pt2 "" "" str)<br /> (command "._insert" "bgy.dwg" "non" pt2 "" "" str)<br /> )<br /> (setq bg (entlast))<br /> (initget "Yes No") <br />         (if (= "Yes" <br />                (getkword "\n是否镜像？[是(Y)/否(N)] <N>:") <br />             ) <br />             (command "mirror" bg "" "non" pt2 "non" pt3 "y") <br />         )<br /> (setvar "orthomode" 1);_开  <br /> (prompt "\n左右移动定位: ")    <br /> (command "_move" bg "" pt2  pause )<br /> (setvar "orthomode" 0);_关<br /> )<br />     (princ)<br /> )

Andyhon

您可参考调用了 Ureal 函式的老帖

szx025

Andyhon 发表于 2018-6-10 12:00
您可参考调用了 Ureal 函式的老帖

找了一下，没有查到Ureal 函式  能给个链接吗

Andyhon

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=108502
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=95673
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92870

szx025

Andyhon 发表于 2018-6-10 13:54
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=108502
http://bbs.mjtd.com/forum.php?mod=viewthrea ...

谢谢，我看了一下，没有明白ureal函数的作用，可以简单说说吗

Andyhon

(defun ureal (bit kwd msg def / inp)

(ureal 1 "" "\n增减值(正为增,负为减)" NBTV_TXT_CopyADD)

NBTV_TXT_CopyADD 即为默认值

vladimirputin

非常不错的代码，谢谢楼主分享啊。