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

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

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

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

x

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

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

(defun C:nap (/ ang)6 q) U" J" c# [* Z2 n$ u
(setvar "cmdecho" 0) ;关闭命令响应* x" I) u- @2 L7 E; e8 Y
(setvar "blipmode" 0)7 w1 f* B. g, a4 l% O
(setq ang (getreal "\n请输入角度:"))
7 L3 p C0 z% f( h3 g
(if (= 0 ang): P$ r* {3 I/ q+ Z. d; {/ e
(progn0 @3 O8 }1 Q( _1 u, I) H
(setvar "snapang" 0) ;系统变量snapang默认为0# ^3 I! k% t! N$ K: w
(princ "\n输入角度为系统默认十字光标轴线角度")
9 f$ W" r* E R( e$ T
(princ)5 E. F! f7 d* D2 U
)& m6 E- F P6 m. ~9 w: Q% z( K ]. d
(setvar "snapang" (* ang (/ pi 180)));将计算的值赋给系统变量/ z1 j1 ]9 J% ^ q; }% N* f
)
; m. t! Y: r& U
(princ)
8 s+ H8 W- n2 R) I
)
4 }0 I* \4 ^& J1 W
(prompt "\n<命令 nap > 程序设计作者 ") ;END4 {" ]: F& r- k4 M

复制代码

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

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

浏览过的版块