选择所有inDCL列表框p

Steven P · 发表于 2022-7-5 17:11:52

嗨，塔瓦特，我刚刚讲了几件事，我意识到我没有说我是否能把它做好。我没有完全理解你的方法，我想我在某个地方混淆了变量名。我最后只是添加了一行：


(setq tagreturn (strcat (strcat tagreturn (itoa acount)) " "))

我的最后一个函数SEL_ALL现在是：

copy


(defun c:SEL_ALL(len) ;;len = length of tags list
 (setq tagreturn "") ;;tagreturn = positions in drop list of selected items
 (setq acount 0) ;;acount = a counter
 (repeat len
   (set_tile "tags" (itoa acount))
   (setq tagreturn (strcat (strcat tagreturn (itoa acount)) " "))
   (setq acount (1+ acount))
 )
)

再次感谢

Steven P · 发表于 2022-7-5 17:16:32

抱歉-我复制了此评论，试图删除它，但不确定如何删除

Steven P · 发表于 2022-7-5 17:20:32

我复制了这条评论，但不知道如何删除它

Tharwat · 发表于 2022-7-5 17:26:28

欢迎史蒂文P。

既然Sel_all是一个子函数，那么应该删除c：它代表一个独立的命令，如果你感兴趣的话，我对你的子函数做了一些修改。

copy


(defun sel_all (len / tagreturn acount)
 ;; len = length of tags list                                        ;;
 ;; tagreturn = positions in drop list of selected items        ;;
 ;; acount = a counter                                                ;;
 (setq tagreturn ""
       acount 0
 )
 (repeat len
   (set_tile "tags" (itoa acount))
   (setq tagreturn (strcat tagreturn (itoa acount) " ")
         acount    (1+ acount)
   )
 )
)