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

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

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

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

x

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

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

(defun C:nap (/ ang)
9 b4 N5 d) P* L: b
(setvar "cmdecho" 0) ;关闭命令响应$ ] b3 e& F/ V: Q& H9 p* Z
(setvar "blipmode" 0)2 I- S/ z1 c7 R f0 Q6 F! p+ A
(setq ang (getreal "\n请输入角度:"))9 {% L3 ~7 l- |" u
(if (= 0 ang)
% v/ o+ A7 G/ H+ c
(progn
! R! }& h5 S' P- f8 r0 h; k
(setvar "snapang" 0) ;系统变量snapang默认为0
) L: G! G, b7 K, w- v$ v, P5 ?
(princ "\n输入角度为系统默认十字光标轴线角度")
8 h; |& U' M9 i4 V/ G- [9 H
(princ)9 A8 m6 m( D$ M
)$ {+ e' \3 d4 ~5 |/ |! R
(setvar "snapang" (* ang (/ pi 180)));将计算的值赋给系统变量
( @% s6 E2 u* m6 g
)
* P0 z T. ^* `9 f' N
(princ)' i* z; o5 B; F
)- A- i/ Z8 U4 C1 y/ H! {6 o
(prompt "\n<命令 nap > 程序设计作者 ") ;END$ Z6 U/ n' A: d8 Z1 V% p

复制代码

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对话框的思路和方法

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

浏览过的版块