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

yinchuan99001

- n# i7 ?% P" R+ ^% N     ;输入数值调整作图十字光标轴线的不同角度

1. (defun C:nap (/ ang)
   
2.   (setvar "cmdecho" 0)   ;关闭命令响应
   
3.   (setvar "blipmode" 0)
   
4.   (setq ang (getreal "\n请输入角度:"))
   ; D9 t/ y; R0 V) F1 A; E
5.   (if (= 0 ang)
   7 _. ^! r; F$ v5 p2 G4 y( `
6.     (progn
   ( e5 l# i+ ]1 `  L% p! @& z+ Y
7.       (setvar "snapang" 0)  ;系统变量snapang默认为0
   9 G' \2 i  Y% [* O- }
8.       (princ "\n输入角度为系统默认十字光标轴线角度")
   
9.       (princ)
   
10.     )
    $ Q5 |$ S3 s4 t% j& ]' C. M, a
11.     (setvar "snapang" (* ang (/ pi 180)));将计算的值赋给系统变量
    . E+ f: A) d1 h# F8 O4 G, e
12.   )
    
13.   (princ)
    - Z3 R: e! i, d! n+ G6 n( K, r% F
14. )
    
15. (prompt "\n<命令 nap > 程序设计 作者 ") ;END
    

复制代码

yoyoho

感谢 yinchuan99001 分享程序!

yinchuan99001

9 P% R# L2 |1 l$ {; J" r
/ E" y* k* I4 m) A+ }% }% `/*对话框*/
8 B  P# l# L* D9 Y3 v, vshizi:dialog{
- z% I1 P# N4 A1 S4 V: \label="十字光标参数化设置";
:row{
:boxed_radio_column{
3 f3 v3 H" u" }+ {$ \9 R. zlabel="图像预览";
( f& a  h. Z( F" q) j* ^+ [:image_button{
key="Kimage";
2 \; G/ y3 q. r+ \7 s8 mcolor=-2;
width=50;
) m1 X7 G1 Y5 ~2 p0 ~! Naspect_ratio=0.66;
' G. |9 P0 ^! q% u}}}
) h, s; k$ a5 [( {( [. Z" f$ h1 {:row{
, p1 M4 o; m- B! h4 O+ V+ D:edit_box{label="角度";key="ang" ;}
: o% c8 L/ p8 P$ I6 x" Z6 @3 h
8 v' k) p$ ]! i0 g, L  T}
" }) h1 O' J3 r5 t1 {spacer_1;
4 F7 v# [. O1 H1 Y- L* x$ u1 K' Fok_cancel;
0 c& [+ a1 I4 l9 s& }$ q}

5 H  F9 b% S, J0 {$ N  t; n! ]/*说明此程序仅供学习之用，将附页源程序拷贝到CAD安装目录下的SUPPORT文件内，加载后命令行输入szg。*/
8 }) }8 y! N4 u6 `2 b* Z. K4 S1 ]# b(defun C:szg ()
  (setvar "cmdecho" 0)
  (dcl_tuxiang)
  c" |/ ^: I! T0 _% O  (princ)
% W$ ~% v7 D0 b) S. E)
  S7 X& _* ^4 `; a  G" Y(prompt "\n<命令szg> 程序设计 作者 yinchuan99001 2015-12-15");END
; ?3 n( G* k6 N! e0 M;调用对话框子程序
: I7 u& t0 Z9 L) g! d$ t/ W(defun dcl_tuxiang ()
$ j. v1 N! Q% _  (setq dcl_id (load_dialog "十字光标.DCL"))
; n( g' L! X% ^  (new_dialog "shizi" dcl_id)
  (show_sld "Kimage" "十字");图像位置在AutoCAD安装目录support
+ G) i! y9 f4 T, @, L  (set_tile "ang" "0")
" N) H7 r! g; O8 C  (action_tile "Kimage" "(tu_xiang)")
; \$ F8 p; Y! V2 t  C: C1 O  (action_tile "accept" "(ok_ang)(done_dialog 1)")
% }* x1 q# }6 h) N  d: n, c  (setq dd (start_dialog))
, H4 h2 U1 @* c/ Q8 J2 G5 ?. e  (if (= dd 1)
   (nap)        ; 调用子程序(nap)
  )
" Q# t* J, e' V)
3 ]$ G& C( a7 c. |;图像显示
(defun tu_xiang        ()
  a* ~+ m  A3 f6 \- V  (show_sld "Kimage" "十字");图像位置在AutoCAD安装目录support
                                       
/ J" t3 N3 @/ i$ s* E)
" d5 W0 |) {, ?* I8 g1 K;子程序ok_ang
1 O" C8 \7 \* n2 D. t$ k(defun ok_ang ()
3 y" k9 T  o" K$ u: F& j  (setq ang (atof (get_tile "ang")))
5 U/ o: I* L  B; E
3 S) i0 ~5 E6 @$ Z" Z)

;两个自变量图像处理
(defun show_sld        (key sld)
& S/ f3 a. x8 U& m6 n- A7 P9 J  (setq x (dimx_tile key))
6 W! e; q- F4 x% }9 w  W  (setq y (dimy_tile key))
  (start_image key)
7 W6 a' v' Y, G5 g3 M  (fill_image 0 0 x y -2)
& C/ _- ]6 M' y5 C7 A7 @  (slide_image 0 0 x y sld)
  (end_image)
# N# Z. Q/ r1 K/ l4 S2 L)
;子程序nap
(defun nap ()
  (setvar "cmdecho" 0)
5 a6 Y( I+ s. Y& i7 Q  (setvar "blipmode" 0)
  (if (= 0 ang)
2 o, A0 q/ e: z& R! L1 c0 w4 P* Y    (progn
      (setvar "snapang" 0)
2 ]* i2 l$ z. D* P- I- N    )
    (setvar "snapang" (* pi (/ ang 180)))
  )
)
/ y9 }  ?1 G' v8 g! R! w


解铃还须系铃人，上述lisp仅供学习LISP语言的同仁们参考，有不足或不对的地方请大家指正。 (若有引用,请注明引用地址和作者)

4 a* ?* A/ n: Z& [. m, \. ]- o

' }5 _; s! D3 d
: W5 V- Y4 D( Y5 |3 q: [- [/ K