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

yinchuan99001 · 发表于 2013-3-14 11:43:18

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

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

x

本帖最后由 woaishuijia 于 2013-3-14 13:24 编辑

;输入数值调整作图十字光标轴线的不同角度

(defun C:nap (/ ang)
9 x' D' g8 v' N# Q
(setvar "cmdecho" 0) ;关闭命令响应
* i9 i: w ?5 ^$ ^1 ]
(setvar "blipmode" 0)
3 X2 P: a& A$ Y& {
(setq ang (getreal "\n请输入角度:"))6 X" j: o# `7 P/ U
(if (= 0 ang)
# ?) M: u) l* j3 \, n O% e
(progn
9 k/ j# y- j2 g/ @" o
(setvar "snapang" 0) ;系统变量snapang默认为0
7 y% s( N* Y8 y3 j
(princ "\n输入角度为系统默认十字光标轴线角度")
: g( X4 c6 \# [ o$ k
(princ). d6 A. G$ ~ E2 _$ O7 V. N
)/ d% L8 m S R. y( Q! }
(setvar "snapang" (* ang (/ pi 180)));将计算的值赋给系统变量
- w' i1 G: b# f
)/ c b6 {5 B% t) [
(princ)2 M3 m V, u% O' X( s7 |
)7 ?& t! V3 }# c6 i- y
(prompt "\n<命令 nap > 程序设计作者 ") ;END
0 @2 w' {5 {5 Q' G3 R: [

复制代码

yoyoho · 发表于 2014-5-9 15:45:03

感谢 yinchuan99001 分享程序!

yinchuan99001 · 发表于 2015-12-17 09:18:52

本帖最后由 yinchuan99001 于 2015-12-17 09:51 编辑

/*对话框*/
shizi:dialog{
label="十字光标参数化设置";
:row{
:boxed_radio_column{
label="图像预览";
:image_button{
key="Kimage";
color=-2;
width=50;
aspect_ratio=0.66;
}}}
:row{
:edit_box{label="角度";key="ang" ;}

}
spacer_1;
ok_cancel;
}

/*说明此程序仅供学习之用，将附页源程序拷贝到CAD安装目录下的SUPPORT文件内，加载后命令行输入szg。*/
(defun C:szg ()
  (setvar "cmdecho" 0)
  (dcl_tuxiang)
  (princ)
)
(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")
  (action_tile "Kimage" "(tu_xiang)")
  (action_tile "accept" "(ok_ang)(done_dialog 1)")
  (setq dd (start_dialog))
  (if (= dd 1)
(nap)       ; 调用子程序(nap)
  )
)
;图像显示
(defun tu_xiang       ()
  (show_sld "Kimage" "十字");图像位置在AutoCAD安装目录support

)
;子程序ok_ang
(defun ok_ang ()
  (setq ang (atof (get_tile "ang")))

)

;两个自变量图像处理
(defun show_sld       (key sld)
  (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)
  (end_image)
)
;子程序nap
(defun nap ()
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (if (= 0 ang)
(progn
   (setvar "snapang" 0)
)
(setvar "snapang" (* pi (/ ang 180)))
  )
)

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

		自动登录	找回密码
密码			注册

通知

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

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块