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

学习使用DCL-im

大家好,
 
我需要一个基本的指示,试图学习与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之后试过了,但什么都没有!。。。
 
(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

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

(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)
)

 
那就这样叫吧。
 

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

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

 
Tharwat,再次感谢,部分有效。。。代码显示的初始图像在执行action_互动程序时被删除。。。只有这样。。。
DCL
:image {width=20;aspect_ratio=0.8;color=0;fixed_height=true;key = img;}
 
 
Lisp程序
(start_image "img")
(slide_image 1 1 100 60"C:\\Lisp\\Desenvolvimento\\Slides\\slide-C.sld")
(end_image)
 
这正好表明我需要。。。组合代码不需要将“key”更改为“img”?我试过了,但还是不起作用!。。。
页: [1] 2
查看完整版本: 学习使用DCL-im