BlackBox 发表于 2022-7-5 20:16:49

 
别担心。
 
请不要误解我的意思，我对LISP有一定的熟练程度，但我对DCL完全是新手（我从未尝试过！）。你在这方面做得很好。
 
祝你好运

Guest kruuger 发表于 2022-7-5 20:20:19

哈哈Dzieki
谢谢
 
当然不是这样，我从你的LISP代码中学到了很多。有任何关于DCL的帮助，请咨询。
 
进步

BlackBox 发表于 2022-7-5 20:23:50

 
 
谢谢，你真是太好了。

alanjt 发表于 2022-7-5 20:25:56

克鲁格，
我希望你不要介意，我没有冒犯你（如果我有，我道歉，并将立即删除我的片段），但我在周末消磨时间，并认为我会抓取这作为一个非常简单的演示。。。
 
(defun c:DimSearch (/ flt lst n gr)
;; Alan J. Thompson, 09.27.10
(vl-load-com)
(if (and (/= "" (setq flt (strcase (getstring T "\nSpecify search filter: "))))
          (princ "\nSelect dimensions to search <All>: ")
          ((lambda (ss / dims ss)
             (if (setq dims (cond ((ssget '((0 . "DIMENSION"))))
                                  ((ssget "_X" '((0 . "DIMENSION"))))
                            )
               )
               (progn
               (vlax-for x (setq dims (vla-get-activeselectionset
                                          (cond (*AcadDoc*)
                                                ((setq *AcadDoc* (vla-get-activedocument
                                                                   (vlax-get-acad-object)
                                                               )
                                                 )
                                                )
                                          )
                                        )
                           )
                   (if (vl-member-if
                         (function (lambda (s) (wcmatch s flt)))
                         (mapcar (function (lambda (p) (strcase (vlax-get-property x p))))
                                 '(TextOverride TextPrefix TextSuffix)
                         )
                     )
                     (setq lst (cons (trans (vlax-get x 'TextPosition) 0 1) lst)
                           ss(ssadd (vlax-vla-object->ename x) ss)
                     )
                   )
               )
               (vla-delete dims)
               (sssetfirst nil ss)
               (ssget "_I")
               )
             )
         )
            (ssadd)
          )
          (setq n -1)
   )
   (while (and (eq 5 (car (setq gr (grread T 15 0)))) (vl-consp (cadr gr)))
   (redraw)
   (foreach p lst (grdraw (cadr gr) p 1))
   )
)
(redraw)
(princ)
)

Guest kruuger 发表于 2022-7-5 20:31:31

你们在这里制造疯狂的东西。我总是想看到另一个解决方案。从您的代码中可以学到很多东西。也许我可以从你的代码中“窃取”一行：wink:kruuger

alanjt 发表于 2022-7-5 20:35:12

去争取吧这就是我发布的原因。

BlackBox 发表于 2022-7-5 20:36:22

 
这不是很棒吗。。。？
 
树叶在变。。。你还没意识到冬天就来了。。。艾伦（这段时间）正在与其他人分享他的圣诞精神（和密码）。

Guest kruuger 发表于 2022-7-5 20:39:46

更新了第一个post v1.03中的代码
克鲁格

catoscuro 发表于 2022-7-5 20:44:37

请更新至autocad2015，谢谢

Guest kruuger 发表于 2022-7-5 20:44:42

有错误吗？
首先尝试（vl load com），然后再尝试spider。
克鲁格
页: 1 [2]
查看完整版本: Spiderdim lisp