求下列LISP程序加个DCL对话框的思路和方法

yinchuan99001

" t# I* N3 @7 ]' X9 X; B  b
" O; M2 B" w5 k4 G     ;输入数值调整作图十字光标轴线的不同角度

1. (defun C:nap (/ ang)
   
2.   (setvar "cmdecho" 0)   ;关闭命令响应
   
3.   (setvar "blipmode" 0)
   * N* l' h8 E1 W% \. k, d" C9 e5 h
4.   (setq ang (getreal "\n请输入角度:"))
   
5.   (if (= 0 ang)
   3 g" x* s+ s: D' t. e0 H7 n6 v
6.     (progn
   8 h1 y( X) o; B! q8 Z. q
7.       (setvar "snapang" 0)  ;系统变量snapang默认为0
   
8.       (princ "\n输入角度为系统默认十字光标轴线角度")
   2 A7 Y; L1 `: d
9.       (princ)
   
10.     )
    : k- i& R" i2 s5 l0 e" @' V/ b  v
11.     (setvar "snapang" (* ang (/ pi 180)));将计算的值赋给系统变量
    
12.   )
    
13.   (princ)
    ; M) |7 _; M6 q) s% q/ x
14. )
    
15. (prompt "\n<命令 nap > 程序设计 作者 ") ;END
    + M( E. S! F- H* }3 H

复制代码

yoyoho

感谢 yinchuan99001 分享程序!

yinchuan99001

% k  e+ X* b: K9 c' r+ y% k" M/*对话框*/
3 B: a' @8 |4 P' `6 q* vshizi:dialog{
label="十字光标参数化设置";
" Q' a- P& L, w6 I  P$ @' L:row{
9 W4 p* I3 L) |1 w# x7 L8 _+ A:boxed_radio_column{
label="图像预览";
6 `4 F: g% v6 X% v. J+ ?) R) u  j- n:image_button{
$ y- Q: ~( _: A0 p# h8 gkey="Kimage";
color=-2;
6 B0 O% Y' N+ B9 Uwidth=50;
aspect_ratio=0.66;
}}}
:row{
:edit_box{label="角度";key="ang" ;}

7 j( M' _8 \9 f" ]9 R; [4 E}
8 b( ^  w! W: p# mspacer_1;
2 \% k+ C( Z+ d" q' f) cok_cancel;
}

/*说明此程序仅供学习之用，将附页源程序拷贝到CAD安装目录下的SUPPORT文件内，加载后命令行输入szg。*/
7 M2 E$ ?+ ~$ l1 L3 H* J$ t(defun C:szg ()
0 L( e% l5 C% z- E+ s+ d; y  (setvar "cmdecho" 0)
  (dcl_tuxiang)
  (princ)
) f  ~; a( Q- K)
3 g" ?- s6 C7 T  s& V(prompt "\n<命令szg> 程序设计 作者 yinchuan99001 2015-12-15");END
;调用对话框子程序
(defun dcl_tuxiang ()
  (setq dcl_id (load_dialog "十字光标.DCL"))
  (new_dialog "shizi" dcl_id)
  (show_sld "Kimage" "十字");图像位置在AutoCAD安装目录support
  (set_tile "ang" "0")
* e  b; o5 _" I7 G  (action_tile "Kimage" "(tu_xiang)")
  (action_tile "accept" "(ok_ang)(done_dialog 1)")
  (setq dd (start_dialog))
  (if (= dd 1)
   (nap)        ; 调用子程序(nap)
  )
)
, X: K/ `8 a2 y7 p3 O# b2 ~;图像显示
(defun tu_xiang        ()
  (show_sld "Kimage" "十字");图像位置在AutoCAD安装目录support
8 i) u3 ]! a( d* Y                                       
( F. l4 [( @4 V9 m6 A)
;子程序ok_ang
, }# [4 ?& N7 n& T2 m% ~+ b' u(defun ok_ang ()
  (setq ang (atof (get_tile "ang")))
  Y6 v/ ]: @0 U1 K" @4 H0 p
# o$ b6 Y" o! P: x% K$ @5 j)
1 I$ t' F8 u, D0 U* R
1 W& ]3 q5 l: a) n/ d' e8 B2 ^9 R3 Q;两个自变量图像处理
(defun show_sld        (key sld)
( ?( P1 H1 S" `* E) p& l  (setq x (dimx_tile key))
  (setq y (dimy_tile key))
  (start_image key)
  (fill_image 0 0 x y -2)
  (slide_image 0 0 x y sld)
$ f' a' K' J" \' X) C  (end_image)
)
;子程序nap
2 C$ l" b" o# L, p(defun nap ()
, ^- {9 G* [  l5 }3 J  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
6 g  W1 o6 n  |. q1 m* f' `  (if (= 0 ang)
    (progn
      (setvar "snapang" 0)
* b* u  W) |' ~5 F. P    )
    (setvar "snapang" (* pi (/ ang 180)))
6 E6 L4 k) W+ k0 H$ e  )
)
1 ?% {: y4 I( y4 A0 X' }+ }

3 ~' z& O1 O1 O
解铃还须系铃人，上述lisp仅供学习LISP语言的同仁们参考，有不足或不对的地方请大家指正。 (若有引用,请注明引用地址和作者)
- Y# @9 f0 I5 Z# p5 U9 i

, ~7 E% ^9 I( _: f6 Q
& V, h  _  I- u$ Z0 b  q, E