请帮忙改下程序

yangist

1.请将附件中的dcl直接写在lisp中
2.只对单行文字有效
3.不用输命令 双击单行文字直接调用

请会的朋友帮忙改一下,万分感谢~~~

yangist

这个是附件 刚才忘记发上来了~

Free-Lancer

高版本的快捷属性可以自定义属性的来自: Android客户端

/db_自贡黄明儒_

1. (defun C:w1 ()
   
2. (setq fname (vl-filename-mktemp nil nil ".dcl"))
   
3. (setq fn (open fname "w"))
   
4. (write-line "edit:dialog" fn)
   
5. (write-line "{" fn)
   
6. (write-line "  label=\"文字编辑\";" fn)
   
7. (write-line "  :edit_box" fn)
   
8. (write-line "  {" fn)
   
9. (write-line "    label=\"文字:\";" fn)
   
10. (write-line "    key=\"edit\";" fn)
    
11. (write-line "    edit_width=40;" fn)
    
12. (write-line "    allow_accept=true;" fn)
    
13. (write-line "  }" fn)
    
14. (write-line "  :row" fn)
    
15. (write-line "  {" fn)
    
16. (write-line "    spacer;" fn)
    
17. (write-line "    :errtile" fn)
    
18. (write-line "    {" fn)
    
19. (write-line "      width=14;" fn)
    
20. (write-line "    }" fn)
    
21. (write-line "    ok_cancel;" fn)
    
22. (write-line "  }" fn)
    
23. (write-line "  spacer;" fn)
    
24. (write-line "}" fn)
    
25. (close fn)
    
26. (setq fn (open fname "r"))
    
27. (setq dclid (load_dialog fname))
    
28. (while (or (eq (substr (setq lin (vl-string-right-trim "\" fn)" (vl-string-left-trim "(write-line \"" (read-line fn)))) 1 2) "//")(eq (substr lin 1 (vl-string-search " " lin)) "")(not (eq (substr lin (+ (vl-string-search " " lin) 1) 9) " : dialog"))))
    
29. 
    
30. ;;以下根据情况处理
    
31. (new_dialog (substr lin 1 (vl-string-search " " lin)) dclid)
    
32. (action_tile "accept" "(done_dialog 1)")
    
33. (setq return# (start_dialog))
    
34. (unload_dialog dclid)
    
35. (close fn)
    
36. (vl-file-delete fname)
    
37. (princ)
    
38. )
    

(defun C:w1 ()<br /> (setq fname (vl-filename-mktemp nil nil ".dcl"))<br /> (setq fn (open fname "w"))<br /> (write-line "edit:dialog" fn)<br /> (write-line "{" fn)<br /> (write-line "  label=\"文字编辑\";" fn)<br /> (write-line "  :edit_box" fn)<br /> (write-line "  {" fn)<br /> (write-line "    label=\"文字:\";" fn)<br /> (write-line "    key=\"edit\";" fn)<br /> (write-line "    edit_width=40;" fn)<br /> (write-line "    allow_accept=true;" fn)<br /> (write-line "  }" fn)<br /> (write-line "  :row" fn)<br /> (write-line "  {" fn)<br /> (write-line "    spacer;" fn)<br /> (write-line "    :errtile" fn)<br /> (write-line "    {" fn)<br /> (write-line "      width=14;" fn)<br /> (write-line "    }" fn)<br /> (write-line "    ok_cancel;" fn)<br /> (write-line "  }" fn)<br /> (write-line "  spacer;" fn)<br /> (write-line "}" fn)<br /> (close fn)<br /> (setq fn (open fname "r"))<br /> (setq dclid (load_dialog fname))<br /> (while (or (eq (substr (setq lin (vl-string-right-trim "\" fn)" (vl-string-left-trim "(write-line \"" (read-line fn)))) 1 2) "//")(eq (substr lin 1 (vl-string-search " " lin)) "")(not (eq (substr lin (+ (vl-string-search " " lin) 1) 9) " : dialog"))))<br /> <br /> ;;以下根据情况处理<br /> (new_dialog (substr lin 1 (vl-string-search " " lin)) dclid)<br /> (action_tile "accept" "(done_dialog 1)")<br /> (setq return# (start_dialog))<br /> (unload_dialog dclid)<br /> (close fn)<br /> (vl-file-delete fname)<br /> (princ)<br /> )<br />

yangist

/db_自贡黄明儒_
你好
命令: W1 ERROR : 参数类型错误: numberp: nil
不知道是怎么回事哦,能帮忙看看么