学习使用DCL-im

CafeJr · 发表于 2022-7-5 19:38:50

大家好，

我需要一个基本的指示，试图学习与DCL文件！。。。

1-如何在一个切换按钮中显示所选项目中的图像预览，我有3个要选择的切换，当选择其中一个时，它将显示图像预览（图像是dwg文件中的一个块）；

2-选择如何在选中一个项目的情况下启动对话框（变量[value=“1”），仅将图像填充为选中的项目，但不选择它。

提前感谢您的帮助。

harleyfr3ak · 发表于 2022-7-5 19:44:52

我想写一个lisp，将允许我的回车键工作的接受按钮。

CafeJr · 发表于 2022-7-5 19:45:25

请看你帖子里的一个问题！。。。

http://www.cadtutor.net/forum/showthread.php?92892-Lisp&p=635677&viewfull=1#POST63577

Tharwat · 发表于 2022-7-5 19:49:09

像这样的？

CafeJr · 发表于 2022-7-5 19:53:08

是的，塔瓦，谢谢！。。。这很有帮助！！！。。。

我试着把它应用到我的lisp代码中，问题是我只有一个img字段和18个项目可以在切换按钮中选择。。。你知道吗！。。。这对初学者来说是一个很大的挑战！！！。。。哈哈哈。。。

关于第2项？。。。如何在代码启动时验证第一项？你知道吗？

Tharwat · 发表于 2022-7-5 19:56:07

你的问题似乎是一个挑战，尽管不是。

了解函数set\u tile函数。

CafeJr · 发表于 2022-7-5 19:57:57

对任何知道自己需要做什么的人来说都不是挑战！。。。呵呵呵呵。。。（我不知道！……呵呵……）

我在action_tile之后试过了，但什么都没有！。。。

copy

(action_tile
   "rb1"
   "(setq tipo "C")(mode_tile "tog1" 1)(mode_tile "tog2" 1)(set_tile "img" "C:\\Lisp\\Desenvolvimento\\Slides\\slide-C.sld")"
 )

Lee Mac · 发表于 2022-7-5 20:03:20

这个例子可以帮助你实现目标（需要沼泽会员才能查看）。

Tharwat · 发表于 2022-7-5 20:07:21

将此函数添加到程序顶部的任何位置，就在使用此函数的行之前。

copy


(defun ShowImage (key sldName )
   (start_image key)
   (fill_image 0 0 (dimx_tile key) (dimy_tile key) 0)
   (slide_image 0 0 (dimx_tile key) (dimy_tile key) sldName)
   (end_image)
 )

那就这样叫吧。

copy


(ShowImage "img" "C:\\Lisp\\Desenvolvimento\\Slides\\slide-C.sld")

CafeJr · 发表于 2022-7-5 20:08:57

Tharwat，再次感谢，部分有效。。。代码显示的初始图像在执行action_互动程序时被删除。。。只有这样。。。
DCL

copy

:image {width=20;aspect_ratio=0.8;color=0;fixed_height=true;key = img;}

Lisp程序

copy

[color="blue"](start_image "img") 
 (slide_image 1 1 100 60  "C:\\Lisp\\Desenvolvimento\\Slides\\slide-C.sld")
 (end_image)[/color]

这正好表明我需要。。。组合代码不需要将“key”更改为“img”？我试过了，但还是不起作用！。。。

[编程交流] 学习使用DCL-im

发表回复

精选推荐