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

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

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

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

x

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

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

(defun C:nap (/ ang)( U1 Q8 s d( f$ p0 g; A5 J
(setvar "cmdecho" 0) ;关闭命令响应
) T, r: Q2 n% t4 G3 C _5 T
(setvar "blipmode" 0)
! k+ J8 s5 B7 J0 ?
(setq ang (getreal "\n请输入角度:"))! V$ `7 a+ R: u# I8 ]" ]# v
(if (= 0 ang)
! W) A z1 w& k! T
(progn' T, @: K8 N' `" U+ j
(setvar "snapang" 0) ;系统变量snapang默认为0/ O9 U# h& a1 F/ u- _7 w/ y
(princ "\n输入角度为系统默认十字光标轴线角度")& e' [- F0 t1 r. ~
(princ)) Z& F8 q: M6 J$ ^! _0 D; t
)' R& _; k' G, u5 o5 }! ^
(setvar "snapang" (* ang (/ pi 180)));将计算的值赋给系统变量% g: }, N7 G; ~( T C8 }5 S: A9 x
)
4 v: v/ ^$ E9 j* G' n( a
(princ)
. i$ m" w. h7 s$ x1 r
)6 v; P+ g* j& I8 I' V' O) x
(prompt "\n<命令 nap > 程序设计作者 ") ;END& m3 F" k& a, o9 t2 O# e

复制代码

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

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

浏览过的版块