求指导，求驱动

zxq0220

L12196 发表于 2014-11-20 21:05
是我搞混了，是的就像你截图那样的，但是现在的日期是与名字对齐，如果要把日期放在名字下方正中间（居中） ...

[pcode=lisp,true]
;签名 晓东 zxq0220 2014.11.15 2014.11.22
(defun c:de ()
(setq txtlst '("张三" "李四" "陈胜" "吴广"))
(if (> (setq dcl_id (load_dialog "mypopup_list")) 0) (progn
  (if (new_dialog "mypopup_list" dcl_id) (progn
   (set_tile "dat" (rtos (fix(getvar "CDATE")) 2))
   (action_tile "cancel" "(done_dialog 0)")
   (action_tile "accept" "(readata) (done_dialog 1)")
   (setq re (start_dialog))
  ) (princ "\n无法显示对话框！"))
  (unload_dialog dcl_id)
) (princ "\n无法加载对话框！"))
(if (= re 1) (progn
(if (not(tblsearch "STYLE" "qm"))
  (command "_.STYLE" "qm" "STFANGSO.TTF" 0 1 "" "" "")
)
(initget 1)
(setq pt (getpoint "\n文字插入点: "))
(command "_.TEXT" "s" "qm" pt 30 0 ch1)
(command "_.TEXT" (polar pt 0 130) 30 0 ch2)
(command "_.TEXT" (polar pt 0 260) 30 0 ch3)
; (command "_.TEXT" "" dat)
(command "_.TEXT" "c" (mapcar '- pt '(-260 50)) 30 0 dat)
))
(princ)
)
(defun readata ()
(setq ch1 (nth (atoi(get_tile "ch1")) txtlst))
(setq ch2 (nth (atoi(get_tile "ch2")) txtlst))
(setq ch3 (nth (atoi(get_tile "ch3")) txtlst))
(setq dat (get_tile "dat"))
)
[/pcode]

L12196

为使用方便现在想把那个插入点改动下，就是在按确定后，以两条红线交点为插入点，这样的话驱动需要怎么修改？？求指导。

zxq0220

2. ...
   
3. (command "_.TEXT" "s" "qm" "M" (mapcar '+ pt '(550 517.5)) 300 0 ch1)
   
4. (command "_.TEXT" "s" "qm" "M" (mapcar '+ pt '(1617 517.5)) 300 0 ch2)
   
5. (command "_.TEXT" "s" "qm" "M" (mapcar '+ pt '(3234 517.5)) 300 0 ch3)
   
6. ...

...<br /> (command "_.TEXT" "s" "qm" "M" (mapcar '+ pt '(550 517.5)) 300 0 ch1)<br /> (command "_.TEXT" "s" "qm" "M" (mapcar '+ pt '(1617 517.5)) 300 0 ch2)<br /> (command "_.TEXT" "s" "qm" "M" (mapcar '+ pt '(3234 517.5)) 300 0 ch3)<br /> ...

L12196

zxq0220 发表于 2014-12-16 08:53

我在原先的DCL文件中加了几句，去实现对三个控件的选择，就是打上勾的就不能进行选择并且在按确定后也不会驱动文字出来！！
这样的话驱动该如何去设计？
[pcode=lisp,true]
:boxed_row
  {label="选择";
:toggle
{key="key_toggle1";
label="检查1";
value=1;}
:toggle
{key="key_toggle2";
label="检查2";
value=0;}
:toggle
{key="key_toggle3";
label="检查3";
value=0;}}
[/pcode]
PS:我想让下拉菜单的控件同时具有编辑框的功能，这个在LISP程序上能实现吗？
(就是在有的基础上同时能在框内进行编辑内容),这样的话DCL和驱动该如何去修改！请指导！！！

L12196

zxq0220 发表于 2014-12-16 08:53

{:soso_e100:}在不？？

zxq0220

2. ;签名 晓东 zxq0220 2015.1.1
   
3. (defun c:de ()
   
4. (setq txtlst '("张三" "李四" "陈胜" "吴广"))
   
5. (setq dat (rtos(fix(getvar "CDATE")) 2 0))
   
6. (setq dat (strcat (substr dat 1 4) "," (substr dat 5 2) "," (substr dat 7)))
   
7. (if (> (setq dcl_id (load_dialog "mypopup_list")) 0) (progn
   
8.   (if (new_dialog "mypopup_list" dcl_id) (progn
   
9.    (set_tile "dat" dat)
   
10.    (mode_tile "ch1" (if(= (get_tile "key_toggle1") "1") 0 1))
    
11.    (mode_tile "ch2" (if(= (get_tile "key_toggle2") "1") 0 1))
    
12.    (mode_tile "ch3" (if(= (get_tile "key_toggle3") "1") 0 1))
    
13.    (action_tile "key_toggle1" "(mode_tile "ch1" (if (= $$value "1") 0 1))")
    
14.    (action_tile "key_toggle2" "(mode_tile "ch2" (if (= $$value "1") 0 1))")
    
15.    (action_tile "key_toggle3" "(mode_tile "ch3" (if (= $$value "1") 0 1))")
    
16.    (action_tile "cancel" "(done_dialog 0)")
    
17.    (action_tile "accept" "(readata) (done_dialog 1)")
    
18.    (setq re (start_dialog))
    
19.   ) (princ "\n无法显示对话框！"))
    
20.   (unload_dialog dcl_id)
    
21. ) (princ "\n无法加载对话框！"))
    
22. (if (= re 1) (progn
    
23. (if (not(tblsearch "STYLE" "qm"))
    
24.   (command "_.STYLE" "qm" "STFANGSO.TTF" 0 1 "" "" "")
    
25. )
    
26. (initget 1)
    
27. (setq pt (getpoint "\n文字插入点: "))
    
28. (if ch1 (command "_.TEXT" "s" "qm" "M" (mapcar '+ pt '(550 517.5)) 300 0 ch1))
    
29. (if ch2 (command "_.TEXT" "s" "qm" "M" (mapcar '+ pt '(2167 517.5)) 300 0 ch2))
    
30. (if ch3 (command "_.TEXT" "s" "qm" "M" (mapcar '+ pt '(3784 517.5)) 300 0 ch3))
    
31. (if (or ch1 ch2 ch3) (command "_.TEXT" "" dat))
    
32. ))
    
33. (princ)
    
34. )
    
35. (defun readata ()
    
36. (setq ch1 (if(=(get_tile "key_toggle1") "1") (nth(atoi(get_tile "ch1")) txtlst) nil))
    
37. (setq ch2 (if(=(get_tile "key_toggle2") "1") (nth(atoi(get_tile "ch2")) txtlst) nil))
    
38. (setq ch3 (if(=(get_tile "key_toggle3") "1") (nth(atoi(get_tile "ch3")) txtlst) nil))
    
39. (setq dat (get_tile "dat"))
    
40. )
    

;签名 晓东 zxq0220 2015.1.1<br /> (defun c:de ()<br /> (setq txtlst '("张三" "李四" "陈胜" "吴广"))<br /> (setq dat (rtos(fix(getvar "CDATE")) 2 0))<br /> (setq dat (strcat (substr dat 1 4) "," (substr dat 5 2) "," (substr dat 7)))<br /> (if (> (setq dcl_id (load_dialog "mypopup_list")) 0) (progn<br />   (if (new_dialog "mypopup_list" dcl_id) (progn<br />    (set_tile "dat" dat)<br />    (mode_tile "ch1" (if(= (get_tile "key_toggle1") "1") 0 1))<br />    (mode_tile "ch2" (if(= (get_tile "key_toggle2") "1") 0 1))<br />    (mode_tile "ch3" (if(= (get_tile "key_toggle3") "1") 0 1))<br />    (action_tile "key_toggle1" "(mode_tile "ch1" (if (= $$value "1") 0 1))")<br />    (action_tile "key_toggle2" "(mode_tile "ch2" (if (= $$value "1") 0 1))")<br />    (action_tile "key_toggle3" "(mode_tile "ch3" (if (= $$value "1") 0 1))")<br />    (action_tile "cancel" "(done_dialog 0)")<br />    (action_tile "accept" "(readata) (done_dialog 1)")<br />    (setq re (start_dialog))<br />   ) (princ "\n无法显示对话框！"))<br />   (unload_dialog dcl_id)<br /> ) (princ "\n无法加载对话框！"))<br /> (if (= re 1) (progn<br /> (if (not(tblsearch "STYLE" "qm"))<br />   (command "_.STYLE" "qm" "STFANGSO.TTF" 0 1 "" "" "")<br /> )<br /> (initget 1)<br /> (setq pt (getpoint "\n文字插入点: "))<br /> (if ch1 (command "_.TEXT" "s" "qm" "M" (mapcar '+ pt '(550 517.5)) 300 0 ch1))<br /> (if ch2 (command "_.TEXT" "s" "qm" "M" (mapcar '+ pt '(2167 517.5)) 300 0 ch2))<br /> (if ch3 (command "_.TEXT" "s" "qm" "M" (mapcar '+ pt '(3784 517.5)) 300 0 ch3))<br /> (if (or ch1 ch2 ch3) (command "_.TEXT" "" dat))<br /> ))<br /> (princ)<br /> )<br /> (defun readata ()<br /> (setq ch1 (if(=(get_tile "key_toggle1") "1") (nth(atoi(get_tile "ch1")) txtlst) nil))<br /> (setq ch2 (if(=(get_tile "key_toggle2") "1") (nth(atoi(get_tile "ch2")) txtlst) nil))<br /> (setq ch3 (if(=(get_tile "key_toggle3") "1") (nth(atoi(get_tile "ch3")) txtlst) nil))<br /> (setq dat (get_tile "dat"))<br /> )<br />

2. mypopup_list:dialog{
   
3. label="签名助手";
   
4. spacer;
   
5. :row{
   
6.   :boxed_column{
   
7.    label="图纸检查";
   
8.    :popup_list{
   
9.     key="ch1";
   
10.     label="检查1:";
    
11.     list="\n张三\n李四\n陈胜\n吴广\n";
    
12.     value="0";
    
13.     width=25;
    
14.     fixed_width=true;
    
15.    }
    
16.    :popup_list{
    
17.     key="ch2";
    
18.     label="检查2:";
    
19.     list="\n张三\n李四\n陈胜\n吴广\n";
    
20.     value="1";
    
21.     width=25;
    
22.     fixed_width=true;
    
23.    }
    
24.    :popup_list{
    
25.     key="ch3";
    
26.     label="检查3:";
    
27.     list="\n张三\n李四\n陈胜\n吴广\n";
    
28.     value="2";
    
29.     width=25;
    
30.     fixed_width=true;
    
31.    }
    
32.   }
    
33.   :boxed_column{
    
34.    label="选择";
    
35.    :toggle{key="key_toggle1";label="检查1";value=1;}
    
36.    :toggle{key="key_toggle2";label="检查2";value=0;}
    
37.    :toggle{key="key_toggle3";label="检查3";value=0;}
    
38.   }
    
39. }
    
40. :edit_box{key="dat";label="审核日期:";width=25;fixed_width=true;}
    
41. ok_cancel;
    
42. }
    

mypopup_list:dialog{<br /> label="签名助手";<br /> spacer;<br /> :row{<br />   :boxed_column{<br />    label="图纸检查";<br />    :popup_list{<br />     key="ch1";<br />     label="检查1:";<br />     list="\n张三\n李四\n陈胜\n吴广\n";<br />     value="0";<br />     width=25;<br />     fixed_width=true;<br />    }<br />    :popup_list{<br />     key="ch2";<br />     label="检查2:";<br />     list="\n张三\n李四\n陈胜\n吴广\n";<br />     value="1";<br />     width=25;<br />     fixed_width=true;<br />    }<br />    :popup_list{<br />     key="ch3";<br />     label="检查3:";<br />     list="\n张三\n李四\n陈胜\n吴广\n";<br />     value="2";<br />     width=25;<br />     fixed_width=true;<br />    }<br />   }<br />   :boxed_column{<br />    label="选择";<br />    :toggle{key="key_toggle1";label="检查1";value=1;}<br />    :toggle{key="key_toggle2";label="检查2";value=0;}<br />    :toggle{key="key_toggle3";label="检查3";value=0;}<br />   }<br /> }<br /> :edit_box{key="dat";label="审核日期:";width=25;fixed_width=true;}<br /> ok_cancel;<br /> }<br />

L12196

zxq0220 发表于 2015-1-1 08:20

{:soso_e100:}很谢谢Z版一直耐心指导！我再请教个问题是我再最原始的DCL文件中加了一个A按钮，想实现的功能是一按A就批量的签名，请Z版指导指导！



PS：就在最原始的加了这句
:button{
key="button";
label = "A";}

L12196

L12196 发表于 2015-1-6 20:37
很谢谢Z版一直耐心指导！我再请教个问题是我再最原始的DCL文件中加了一个A按钮，想实现的功 ...

2. 
   
3. mypopup_list:dialog{
   
4. label="签名助手";
   
5. spacer;
   
6. :row{
   
7.   :boxed_column{
   
8.    label="图纸检查";
   
9.    :popup_list{
   
10.     key="ch1";
    
11.     label="检查1:";
    
12.     list="\n张三\n李四\n陈胜\n吴广\n";
    
13.     value="0";
    
14.     width=25;
    
15.     fixed_width=true;
    
16.    }
    
17.    :popup_list{
    
18.     key="ch2";
    
19.     label="检查2:";
    
20.     list="\n张三\n李四\n陈胜\n吴广\n";
    
21.     value="1";
    
22.     width=25;
    
23.     fixed_width=true;
    
24.    }
    
25.    :popup_list{
    
26.     key="ch3";
    
27.     label="检查3:";
    
28.     list="\n张三\n李四\n陈胜\n吴广\n";
    
29.     value="2";
    
30.     width=25;
    
31.     fixed_width=true;}
    
32.   }
    
33. 
    
34. }
    
35. :edit_box{key="dat";label="审核日期:";width=25;fixed_width=true;}
    
36. :button{
    
37. key="button";
    
38. label = "A";}
    
39. ok_cancel;
    
40. }
    

<br /> mypopup_list:dialog{<br /> label="签名助手";<br /> spacer;<br /> :row{<br />   :boxed_column{<br />    label="图纸检查";<br />    :popup_list{<br />     key="ch1";<br />     label="检查1:";<br />     list="\n张三\n李四\n陈胜\n吴广\n";<br />     value="0";<br />     width=25;<br />     fixed_width=true;<br />    }<br />    :popup_list{<br />     key="ch2";<br />     label="检查2:";<br />     list="\n张三\n李四\n陈胜\n吴广\n";<br />     value="1";<br />     width=25;<br />     fixed_width=true;<br />    }<br />    :popup_list{<br />     key="ch3";<br />     label="检查3:";<br />     list="\n张三\n李四\n陈胜\n吴广\n";<br />     value="2";<br />     width=25;<br />     fixed_width=true;}<br />   }<br /> <br /> }<br /> :edit_box{key="dat";label="审核日期:";width=25;fixed_width=true;}<br /> :button{<br /> key="button";<br /> label = "A";}<br /> ok_cancel;<br /> }<br />

L12196

文字的插入点为一个固定的坐标（例如100,200），在选好检查人后点A按钮，CAD自动对所打开的图纸都插入所选的内容！！请大虾指导！

zxq0220

2. 
   
3. ;签名 晓东 zxq0220 2015.1.1 2015.1.10 2015.1.31 2015.2.3 2015.2.5
   
4. (defun c:de ()
   
5. (setq txtlst '("张三" "李四" "陈胜" "吴广"))
   
6. (setq dat (rtos(fix(getvar "CDATE")) 2 0))
   
7. (setq dat (strcat (substr dat 1 4) "," (substr dat 5 2) "," (substr dat 7)))
   
8. (if (> (setq dcl_id (load_dialog "mypopup_list")) 0) (progn
   
9.   (if (new_dialog "mypopup_list" dcl_id) (progn
   
10.    (set_tile "dat" dat)
    
11.    (mode_tile "ch1" (if(= (get_tile "key_toggle1") "1") 0 1))
    
12.    (mode_tile "ch2" (if(= (get_tile "key_toggle2") "1") 0 1))
    
13.    (mode_tile "ch3" (if(= (get_tile "key_toggle3") "1") 0 1))
    
14.    (action_tile "key_toggle1" "(mode_tile "ch1" (if (= $$$$value "1") 0 1))")
    
15.    (action_tile "key_toggle2" "(mode_tile "ch2" (if (= $$$$value "1") 0 1))")
    
16.    (action_tile "key_toggle3" "(mode_tile "ch3" (if (= $$$$value "1") 0 1))")
    
17.    (action_tile "cancel" "(done_dialog 0)")
    
18.    (action_tile "accept" "(readata) (done_dialog 1)")
    
19.    (action_tile "button" "(readata) (done_dialog 1)")
    
20.    (setq re (start_dialog))
    
21.   ) (princ "\n无法显示对话框！"))
    
22.   (unload_dialog dcl_id)
    
23. ) (princ "\n无法加载对话框！"))
    
24. (if (= re 1) (progn
    
25. (if (not(tblsearch "STYLE" "qm"))
    
26.   (command "_.STYLE" "qm" "STFANGSO.TTF" 0 1 "" "" "")
    
27. )
    
28. (initget 1)
    
29. ; (setq pt (getpoint "\n文字插入点: "))
    
30. ; (setq pt (list 100 200))
    
31. (if (setq ss (ssget "X" '((0 . "*TEXT") (1 . "*设计*"))))
    
32.   (repeat (setq i (sslength ss))
    
33.    (setq pt (cdr(assoc 10 (entget(ssname ss (setq i (1- i)))))))
    
34.    (if ch1 (command "_.TEXT" "s" "qm" "M" (mapcar '+ pt '(550 517.5)) 300 0 ch1))
    
35.    (if ch2 (command "_.TEXT" "s" "qm" "M" (mapcar '+ pt '(2167 517.5)) 300 0 ch2))
    
36.    (if ch3 (command "_.TEXT" "s" "qm" "M" (mapcar '+ pt '(3784 517.5)) 300 0 ch3))
    
37.    (if (or ch1 ch2 ch3) (command "_.TEXT" "" dat))
    
38.   )
    
39.   (alert "未找到字串“设计”。")
    
40. )
    
41. ))
    
42. (princ)
    
43. )
    
44. (defun readata ()
    
45. (setq ch1 (if(=(get_tile "key_toggle1") "1") (nth(atoi(get_tile "ch1")) txtlst) nil))
    
46. (setq ch2 (if(=(get_tile "key_toggle2") "1") (nth(atoi(get_tile "ch2")) txtlst) nil))
    
47. (setq ch3 (if(=(get_tile "key_toggle3") "1") (nth(atoi(get_tile "ch3")) txtlst) nil))
    
48. (setq dat (get_tile "dat"))
    
49. )
    

<br /> ;签名 晓东 zxq0220 2015.1.1 2015.1.10 2015.1.31 2015.2.3 2015.2.5<br /> (defun c:de ()<br /> (setq txtlst '("张三" "李四" "陈胜" "吴广"))<br /> (setq dat (rtos(fix(getvar "CDATE")) 2 0))<br /> (setq dat (strcat (substr dat 1 4) "," (substr dat 5 2) "," (substr dat 7)))<br /> (if (> (setq dcl_id (load_dialog "mypopup_list")) 0) (progn<br />   (if (new_dialog "mypopup_list" dcl_id) (progn<br />    (set_tile "dat" dat)<br />    (mode_tile "ch1" (if(= (get_tile "key_toggle1") "1") 0 1))<br />    (mode_tile "ch2" (if(= (get_tile "key_toggle2") "1") 0 1))<br />    (mode_tile "ch3" (if(= (get_tile "key_toggle3") "1") 0 1))<br />    (action_tile "key_toggle1" "(mode_tile "ch1" (if (= $$$$value "1") 0 1))")<br />    (action_tile "key_toggle2" "(mode_tile "ch2" (if (= $$$$value "1") 0 1))")<br />    (action_tile "key_toggle3" "(mode_tile "ch3" (if (= $$$$value "1") 0 1))")<br />    (action_tile "cancel" "(done_dialog 0)")<br />    (action_tile "accept" "(readata) (done_dialog 1)")<br />    (action_tile "button" "(readata) (done_dialog 1)")<br />    (setq re (start_dialog))<br />   ) (princ "\n无法显示对话框！"))<br />   (unload_dialog dcl_id)<br /> ) (princ "\n无法加载对话框！"))<br /> (if (= re 1) (progn<br /> (if (not(tblsearch "STYLE" "qm"))<br />   (command "_.STYLE" "qm" "STFANGSO.TTF" 0 1 "" "" "")<br /> )<br /> (initget 1)<br /> ; (setq pt (getpoint "\n文字插入点: "))<br /> ; (setq pt (list 100 200))<br /> (if (setq ss (ssget "X" '((0 . "*TEXT") (1 . "*设计*"))))<br />   (repeat (setq i (sslength ss))<br />    (setq pt (cdr(assoc 10 (entget(ssname ss (setq i (1- i)))))))<br />    (if ch1 (command "_.TEXT" "s" "qm" "M" (mapcar '+ pt '(550 517.5)) 300 0 ch1))<br />    (if ch2 (command "_.TEXT" "s" "qm" "M" (mapcar '+ pt '(2167 517.5)) 300 0 ch2))<br />    (if ch3 (command "_.TEXT" "s" "qm" "M" (mapcar '+ pt '(3784 517.5)) 300 0 ch3))<br />    (if (or ch1 ch2 ch3) (command "_.TEXT" "" dat))<br />   )<br />   (alert "未找到字串“设计”。")<br /> )<br /> ))<br /> (princ)<br /> )<br /> (defun readata ()<br /> (setq ch1 (if(=(get_tile "key_toggle1") "1") (nth(atoi(get_tile "ch1")) txtlst) nil))<br /> (setq ch2 (if(=(get_tile "key_toggle2") "1") (nth(atoi(get_tile "ch2")) txtlst) nil))<br /> (setq ch3 (if(=(get_tile "key_toggle3") "1") (nth(atoi(get_tile "ch3")) txtlst) nil))<br /> (setq dat (get_tile "dat"))<br /> )<br />

L12196

zxq0220 发表于 2015-1-10 08:33

Z版晚上好！我看你的回复实现不了批量的功能哦，想实现的功能是，在CAD打开多张图纸后，用这个插件按A按钮后就对多张图纸在同一坐标点插入所选的内容，这样就不用一张张去签名！并且签好名名后自动保存并关闭图纸！{:soso_e100:}

lichunlin

必须支持一下。

L12196

在CAD打开多张图纸后，对多张图纸的实行相同的命令，这样就不用一张张去处理！并且处理后自动保存并关闭图纸！如何编写该段LISP驱动，求指导！！

L12196

zxq0220 发表于 2015-1-10 08:33

Z版，请教你一下，要让程序自动寻找DWG图纸内的某个文字（例如设计）并读该文字的坐标作为PT(插入点），这样的话该怎样去修改程序，求指导！

L12196

L12196 发表于 2015-1-30 21:28
Z版，请教你一下，要让程序自动寻找DWG图纸内的某个文字（例如设计）并读该文字的坐标作为PT(插入点）， ...

Z版，我用了你修改的驱动，结果不行，由于是要让程序自动找"设计"这个字词并读取其坐标作为插入点的，但是我看到你修改的有; (setq pt (list 100 200))这句程序，这样是否矛盾了？输入DE命令后连对话框都没有弹出来，我删了这句，程序还是运行不了，
还有那个之前你写的切换开关运行后调出来的对话框中的控件都被锁定了！不能选择名字，还有不能进行有效的切换，麻烦Z版帮忙看看这两个问题！