要有问题想请教一下

mcxiangxin · 发表于 2008-2-22 23:54:00

谢谢各位,小弟要学到了很多东西呀

露水2 · 发表于 2008-2-23 12:59:00

本帖最后由作者于 2008-2-23 13:00:29 编辑

结合ssget ":s"来个循环就可以了 while

caoyin · 发表于 2008-2-23 13:29:00

楼上的高手能不能帮忙写出来，谢谢！！

露水2 · 发表于 2008-2-23 19:08:00

(defun c:test()
(while (setq ss (ssget ":s" '((0 . "circle"))))
       (setq i -1)
       (while (setq en (ssname ss (setq i (1+ i))))
            (command "scale" en "" (cdr (assoc 10 (entget en))) 2)
)
)
)

楼上看看

没有仔细看楼主是不是这要求

mcxiangxin · 发表于 2008-2-24 08:38:00

还有个问题呢?在程序中,可不可以用lisp程序来改dcl对象的属性呢?比方说,一个按钮在dcl中预定的label="应用",而当点击此按钮后,能不能将此按钮的labe属性改为"退出".我知道VBA中很容易就可以做到的.

露水2 · 发表于 2008-2-24 08:43:00

label不要前面加个button

mcxiangxin · 发表于 2008-2-24 14:49:00

上楼大哥说详细点呀不明白????????

lazybones · 发表于 2008-2-25 07:52:00

至于DCL，劝你还是不要以VB、VC、Delphi等面向对象的高级语言来要求他了，对比起来像一个玩具，凑合用用而已

账号		自动登录	找回密码
密码			注册

要有问题想请教一下

浏览过的版块