求助xdrx_prompt 和xdrx_ssget的相关问题

winner108

问题1：
(defun c:t11()
  (xdrx_begin)
  (if (not #wid)
      (setq #wid 10)
  )
  (xdrx_initssget (xdrx_prompt "选择要偏移的曲线[设置(T)]<退出>: <默认" #wid " mm>:" t)
                ;"选择要偏移的曲线[设置(T)]<退出>:"  ;;主提示词
                  "T" ;;关键字
                  ""   ;;移除对象提示字符串
                  "_callback1"  ;;关键字回调函数
                  "_callback2" ;;非关键字回调函数
  )
(if (setq ss (xdrx_ssget '((0 . "LWPOLYLINE"))))
     (progn
        (xdrx_curve_getoffsetcurves ss #wid)
     )
  )
  (xdrx_end)
  (princ)
)T11


(defun _callback1(kw)
     (princ (strcat "\n已选择关键字: " kw))
     (if (= kw "T")
        (if (setq wid (getreal (xdrx_prompt "\n请输入偏移距离 <上次：" #wid " mm>:" t)))
          (progn
            (setq #wid wid)
            (princ (strcat "\n参数已经调整为:" (rtos #wid)))
            (xdrx_initssget
                   (xdrx_prompt "选择要偏移的曲线[设置(T)]<退出>: <默认" #wid " mm>:" t)
                   "T" "" "_callback1" "_callback2")
          )
        )
     )
     (princ)     
)
(defun _callback2(kw)
    (princ)
)

                               
登录/注册后可看大图

#wid已经调整了，为什么(xdrx_prompt "选择要偏移的曲线[设置(T)]<退出>: <默认" #wid " mm>:" t)的#wid 还是老的，如何解决？

问题2：

                               
登录/注册后可看大图

xdrx_ssget的总计在不断增加呀，当使用（repeat （sslength xdrx_ssget)) 容易出现问题，如何解决？

XDSoft

你要显示设置的值，得需要让XDRX-SSGET在执行一次才能显示，要用下面这样的结构

1. (defun c:tt ()
   
2.   (xdrx_begin)
   
3.   (if (not #wid)
   
4.     (setq #wid 10)
   
5.   )
   
6.   (setq tf t)
   
7.   (while (and
   
8.            tf
   
9.            (xdrx_initssget
   
10.              (xdrx-prompt
    
11.                "选取要偏移的曲线(偏移距离:"
    
12.                #wid
    
13.                ")[设置(XL)]<退出>:"
    
14.                t
    
15.              )
    
16.              "XL"
    
17.              ""
    
18.              ""
    
19.              ""
    
20.            )
    
21.            (setq ss (xdrx_ssget))
    
22.          )
    
23.     (setq tf1 (type ss))
    
24.     (cond
    
25.       ((= tf1 'STR)
    
26.        (if (= ss "XL")
    
27.          (if (setq wid (getreal        (xdrx_prompt
    
28.                                   "\n请输入偏移距离<"
    
29.                                   #wid
    
30.                                   ">:"
    
31.                                   t
    
32.                                 )
    
33.                        )
    
34.              )
    
35.            (setq #wid wid)
    
36.          )
    
37.        )
    
38.       )
    
39.       ((= tf1 'PICKSET)
    
40.        (xdrx_curve_getoffsetcurves ss #wid)
    
41.        (setq tf nil)
    
42.       )
    
43.     )
    
44.   )
    
45.   (xdrx_end)
    
46.   (princ)
    
47. )
    

(defun c:tt ()<br />   (xdrx_begin)<br />   (if (not #wid)<br />     (setq #wid 10)<br />   )<br />   (setq tf t)<br />   (while (and<br />            tf<br />            (xdrx_initssget<br />              (xdrx-prompt<br />                "选取要偏移的曲线(偏移距离:"<br />                #wid<br />                ")[设置(XL)]<退出>:"<br />                t<br />              )<br />              "XL"<br />              ""<br />              ""<br />              ""<br />            )<br />            (setq ss (xdrx_ssget))<br />          )<br />     (setq tf1 (type ss))<br />     (cond<br />       ((= tf1 'STR)<br />        (if (= ss "XL")<br />          (if (setq wid (getreal        (xdrx_prompt<br />                                   "\n请输入偏移距离<"<br />                                   #wid<br />                                   ">:"<br />                                   t<br />                                 )<br />                        )<br />              )<br />            (setq #wid wid)<br />          )<br />        )<br />       )<br />       ((= tf1 'PICKSET)<br />        (xdrx_curve_getoffsetcurves ss #wid)<br />        (setq tf nil)<br />       )<br />     )<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )<br />

你贴的代码，用的是回调函数，输入关键字，执行后还是返回正在执行的xdrx-ssget 所以你更新不了提示