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

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

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

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

x

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

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

(defun C:nap (/ ang)
$ k' p' Y5 O2 D0 x( \8 Q' d
(setvar "cmdecho" 0) ;关闭命令响应8 I" g, G2 `; F2 _. m% s
(setvar "blipmode" 0)- i6 u8 b, u1 p4 z i
(setq ang (getreal "\n请输入角度:"))
% F5 {% H+ O7 i! j' T
(if (= 0 ang)
2 p1 q4 i% h3 t) ?
(progn; o! j" b w, [4 I4 ]3 O) {
(setvar "snapang" 0) ;系统变量snapang默认为05 a' C. [; u; q: u# p2 X0 E
(princ "\n输入角度为系统默认十字光标轴线角度")
8 K( C/ ~2 {* E- a
(princ)
3 R: M" I2 v D# h# ^% V4 N
): o- @# _, U/ N
(setvar "snapang" (* ang (/ pi 180)));将计算的值赋给系统变量& ]0 m3 i4 p5 Z8 L
)
: s* ^" h/ V5 j' ~2 W3 R* @9 Y; H
(princ): ]& r: S- u/ y4 s( f
)
) Y/ W; S. A9 L+ E/ q- ~# @
(prompt "\n<命令 nap > 程序设计作者 ") ;END, B% J1 p( ]0 K. M- m0 F# f2 w

复制代码

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

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

浏览过的版块