默认值的方式?

Smile cop

   在使用vla-getreal时，vla中有什么提供默认值的输入或关键字的函数吗？谁能举几个例子？

csharp

这些干嘛用vla，initget + getreal 更方便

csharp

这些干嘛用vla，initget + getreal 更方便

精神可嘉，不过先搞清楚getreal的默认值方法，再用lisp经验去研究ActiveX方法，Autolisp 也好 vla 也好，都是在Autocad下，哥俩自然有相通之处，不可能不搭ga

Smile cop

csharp 发表于 2014-8-24 19:58
这些干嘛用vla，initget + getreal 更方便

只是想扩展学习下，不知道有什么等价的方法或函数？

csharp

Smile cop 发表于 2014-8-24 20:01
只是想扩展学习下，不知道有什么等价的方法或函数？

你写个alisp 的getreal 默认值代码我看看你理解到啥程度

Smile cop

csharp 发表于 2014-8-24 20:09
你写个alisp 的getreal 默认值代码我看看你理解到啥程度

我现在一般很少用al,大都是用vl来写的

csharp

错，不要区分这些，找一个平衡点，发挥各自优势，看看 snsj 和 free-lancer帖子
或者看看 lispboy newer st788796 的xdrxapi应用

Free-Lancer

Smile cop 发表于 2014-8-24 20:01
只是想扩展学习下，不知道有什么等价的方法或函数？

老老实实用 Initget + getreal 吧，Vla 这方面不完善, vla-getreal 没戏，可能除了 getkword 其它都不能获取关键字，不过 VBA 可以，参考
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=13039
Vla 验证

1. (defun c:tt (/ real)
   
2.   (if (not $MyGlobleReal)
   
3.     (setq $MyGlobleReal 10.0)
   
4.   )
   
5.   (vlax-invoke-method
   
6.     (fy:acutil)
   
7.     'InitializeUserInput
   
8.     128
   
9.     "Int Real Double"
   
10.   )
    
11.   (if (not
    
12.         (vl-catch-all-error-p
    
13.           (setq
    
14.             real (vl-catch-all-apply
    
15.                    'vla-GetReal
    
16.                    (list (fy:acutil)
    
17.                          (strcat
    
18.                            "\nInput Number[Int(I)/Real(R)/Double(D)]<"
    
19.                            (vl-princ-to-string $MyGlobleReal)
    
20.                            ">: "
    
21.                          )
    
22.                    )
    
23.                  )
    
24.           )
    
25.         )
    
26.       )
    
27.     (progn
    
28.       (princ "\nYour Input  = ")
    
29.       (princ real)
    
30.       (setq $MyGlobleReal real)
    
31.     )
    
32.     (progn
    
33.       (princ "\nYou Input is  ")
    
34.       (princ real)
    
35.       (setq real $MyGlobleReal)
    
36.     )
    
37.   )
    
38.   (princ)
    
39. )

(defun c:tt (/ real)<br />   (if (not $MyGlobleReal)<br />     (setq $MyGlobleReal 10.0)<br />   )<br />   (vlax-invoke-method<br />     (fy:acutil)<br />     'InitializeUserInput<br />     128<br />     "Int Real Double"<br />   )<br />   (if (not<br />         (vl-catch-all-error-p<br />           (setq<br />             real (vl-catch-all-apply<br />                    'vla-GetReal<br />                    (list (fy:acutil)<br />                          (strcat<br />                            "\nInput Number[Int(I)/Real(R)/Double(D)]<"<br />                            (vl-princ-to-string $MyGlobleReal)<br />                            ">: "<br />                          )<br />                    )<br />                  )<br />           )<br />         )<br />       )<br />     (progn<br />       (princ "\nYour Input  = ")<br />       (princ real)<br />       (setq $MyGlobleReal real)<br />     )<br />     (progn<br />       (princ "\nYou Input is  ")<br />       (princ real)<br />       (setq real $MyGlobleReal)<br />     )<br />   )<br />   (princ)<br /> )