[求助]：如何获得前次应用该命令时输入的数据啊

lzc0 · 发表于 2006-10-15 21:57:23

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请问如何像"offset"命令一样，在第一次输入偏移距离后，第二次再用该命令时就出现一个默认值啊。
查了一些资料也没看到，请指教，谢谢！！！！

qjcpj · 发表于 2006-10-16 00:35:05

使用注册表函数。
以下是我编写过的求实体重量的一个模块，其中使用了DOSLIB的注册表函数，当然你也可使用VLISP中的注册表函数...
供参考：

;;;给出厚度，对平面图形实体求重量(钢，γ=7.85)，有对角和如
;;;取剖面线一样的内部点选两种求法
(defun c:zll (/ blstr deta_r_value deta_value
deta multi pt1 pt2 txt
ent weight
)
(defun calwt (/ str deta_str)
(setq weight
(rtos
(/ (* (* multi (getvar "area")) deta 7.85)
1000000
)
2
(getvar "dimdec")
)
)
(entdel ent)
(setq deta_str (rtos deta 2 (getvar "dimdec")))
(setq str (strcat "[当前标注比例" blstr
"]，厚度=" deta_str "，重量="
weight " kg"
)
)
(princ str)
)
(setq blstr (blstrsz (getvar 'dimlfac)))
;;blstr函数在基础库文件base_lib.vlx中定义
;;doslib16.arx文件加载在ccad2005.vlx文件中定义
(setq deta_r_value
(dos_regget
"HKEY_CURRENT_USER\\Software\\CCAD\\CFG\\LSP\\calwt_lsp"
"MyItem1"
)
)
(if deta_r_value
(progn
(setq deta_value (atof deta_r_value))
(setq deta (dos_getreal
"实体厚度"
"输入所求实体厚度"
7
deta_value
)
)
)
(setq deta (dos_getreal
"实体厚度"
"输入所求实体厚度"
7
)
)
)
(if deta
(progn
(dos_regset
"HKEY_CURRENT_USER\\Software\\CCAD\\CFG\\LSP\\calwt_lsp"
"MyItem1"
(rtos deta 2 (fix (getvar 'dimlfac)))
)
(setq multi (expt (getvar 'dimlfac) 2))
(setq pt1 "T")
(setq txt
(getstring
"\n[对角点(Y)/实体内取一点(N)]<实体内取一点>:"
)
)
(while pt1
(if (= (strcase txt) "Y")
(progn
(setq pt1 (getpoint "\n第一点："))
(if pt1
(progn
(setq pt2 (getcorner pt1 "\n对角点："))
(if pt2
(progn
(command "rectang" pt1 pt2)
(setq ent (entlast))
(command "area" "e" ent)
(calwt)
)
)
)
)
)
(progn
(setq pt1 (getpoint "\n在封闭实体内取一点："))
(if pt1
(progn
(setq ent (bpoly pt1))
(if ent
(progn
(command "area" "e" "l")
(calwt)
)
)
)
)
)
)
)
)
)
(princ)
)

;;;给出厚度，对平面图形实体求重量(钢，γ=7.85)，有对角和如 
;;;取剖面线一样的内部点选两种求法 
(defun c:zll (/                                        blstr                        deta_r_value                                deta_value 
                                                        deta                        multi                        pt1                                pt2                                txt 
                                                        ent                                weight 
                                                 ) 
 
        (defun calwt (/ str deta_str) 
                (setq        weight 
                                         (rtos 
                                                 (/        (* (* multi (getvar "area")) deta 7.85) 
                                                                1000000 
                                                 ) 
                                                 2 
                                                 (getvar "dimdec") 
                                         ) 
                ) 
                (entdel ent) 
                (setq deta_str (rtos deta 2 (getvar "dimdec"))) 
                (setq        str        (strcat        "[当前标注比例"                                                        blstr 
                                                                                        "]，厚度="                deta_str                        "，重量=" 
                                                                                        weight                                " kg" 
                                                                                 ) 
                ) 
                (princ str) 
        ) 
 
        (setq blstr (blstrsz (getvar 'dimlfac))) 
        ;;blstr函数在基础库文件base_lib.vlx中定义 
        ;;doslib16.arx文件加载在ccad2005.vlx文件中定义 
        (setq        deta_r_value 
                                 (dos_regget 
                                         "HKEY_CURRENT_USER\\Software\\CCAD\\CFG\\LSP\\calwt_lsp" 
                                         "MyItem1" 
                                 ) 
        ) 
        (if        deta_r_value 
                (progn 
                        (setq deta_value (atof deta_r_value)) 
                        (setq        deta (dos_getreal 
                                                                         "实体厚度" 
                                                                         "输入所求实体厚度" 
                                                                         7 
                                                                         deta_value 
                                                                 ) 
                        ) 
                ) 
                (setq        deta (dos_getreal 
                                                                 "实体厚度" 
                                                                 "输入所求实体厚度" 
                                                                 7 
                                                         ) 
                ) 
        ) 
        (if        deta 
                (progn 
                        (dos_regset 
                                "HKEY_CURRENT_USER\\Software\\CCAD\\CFG\\LSP\\calwt_lsp" 
                                "MyItem1" 
                                (rtos deta 2 (fix (getvar 'dimlfac))) 
                        ) 
                        (setq multi (expt (getvar 'dimlfac) 2)) 
                        (setq pt1 "T") 
                        (setq        txt 
                                                 (getstring 
                                                         "\n[对角点(Y)/实体内取一点(N)]<实体内取一点>:" 
                                                 ) 
                        ) 
                        (while pt1 
                                (if        (= (strcase txt) "Y") 
                                        (progn 
                                                (setq pt1 (getpoint "\n第一点：")) 
                                                (if        pt1 
                                                        (progn 
                                                                (setq pt2 (getcorner pt1 "\n对角点：")) 
                                                                (if        pt2 
                                                                        (progn 
                                                                                (command "rectang" pt1 pt2) 
                                                                                (setq ent (entlast)) 
                                                                                (command "area" "e" ent) 
                                                                                (calwt) 
                                                                        ) 
                                                                ) 
                                                        ) 
                                                ) 
                                        ) 
                                        (progn 
                                                (setq pt1 (getpoint "\n在封闭实体内取一点：")) 
                                                (if        pt1 
                                                        (progn 
                                                                (setq ent (bpoly pt1)) 
                                                                (if        ent 
                                                                        (progn 
                                                                                (command "area" "e" "l") 
                                                                                (calwt) 
                                                                        ) 
                                                                ) 
                                                        ) 
                                                ) 
                                        ) 
                                ) 
                        ) 
                ) 
        ) 
        (princ) 
)

dezhang · 发表于 2006-10-18 23:13:57

(defun C:fr (/ R1 E)
 (if (null r22) (setq r22 1))
 (setq r1 (getreal (strcat "\nPls enter r<"(rtos r22 2 2)">:")))
 (if (null r1) (setq r1 r22) (setq r22 r1))
 (WHILE r1
 (command "fillet" "r" r1)
 (command "fillet")
 (while (eq 1 (logand 1 (getvar "cmdactive"))) (command PAUSE))
))

lzc0 · 发表于 2006-10-22 13:14:02

感谢大虾们！

oyxx_1023 · 发表于 2006-10-22 13:53:03

3楼用一个全局变量确实有创意．

雨箭风刀 · 发表于 2006-10-22 18:35:53

哈,不算创意啦,那是最基本的写法

sujia · 发表于 2006-10-22 20:56:19

全局变量
词典
注册表

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：如何获得前次应用该命令时输入的数据啊

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子