自动标注多段线/直线

Luís Augusto · 发表于 2022-7-5 15:46:17

rk25134，我也和你一样是新手。
在我看来，塔尔瓦特委员对你很有帮助。我必须强调，塔瓦特是这里最活跃的论坛成员之一，他一直鼓励我。
这样，他就不会感到被鼓励再次帮助他了。

Tharwat · 发表于 2022-7-5 15:50:15

我确实很努力，并遵循你之前的帖子，取得了非常丰硕的成果，但你确实忽略了我的最后两个回复，此外，你一直在另一棵遥远的树上唱歌，这对你和那些愿意理解你的目标想法以帮助你的用户都没有帮助。

如果你确实发现我没有鼓励你，那是因为你没有很好地遵循你的思路，也没有明确的任何代码目标。

非常感谢路易斯的精彩描述和好话，非常感谢。

Tharwat · 发表于 2022-7-5 15:51:29

这就是你想要的吗？

copy


(defun c:DoDim (/ *error* c s ss)
 ;;     Tharwat 17. Jan. 2014        ;;
 (defun *error* (u)
   (if c
     (setvar 'CMDECHO)
   )
   (princ "\n*Cancel*")
 )
 (if (and (progn
            (princ "\n Select a single LINE only ...")
            (setq c (getvar 'CMDECHO)
                  s (ssget "_+.:S:E:L" '((0 . "LINE")))
            )
          )
          (progn
            (princ "\n Select a single LWPOLYLINE only ...")
            (setq ss (ssget "_+.:S:E:L" '((0 . "LWPOLYLINE"))))
          )
     )
   (progn
     (setvar 'CMDECHO 0)
     (foreach x (mapcar 'cdr
                        (vl-remove-if-not
                          (function (lambda (p) (eq (car p) 10)))
                          (entget (ssname ss 0))
                        )
                )
       (command "_._dimaligned"
                "_none"
                x
                "_none"
                (vlax-curve-getclosestpointto (ssname s 0) x)
                "_none"
                x
       )
     )
     (setvar 'CMDECHO c)
   )
 )
 (princ)
)
(vl-load-com)

Bhull1985 · 发表于 2022-7-5 15:57:06

像这个页面上的帖子和帖子让人非常不安。
来到论坛，寻求帮助，拒绝回答问题，完全无视已完成的例程发布，并在其他论坛中创建重复帖子，OP也会这样做，忽略任何不完整的例程。
真是一个忘恩负义的非编码者，讨厌看到古鲁浪费时间。
Tharwat，不要说你的是，但当像你这样的人试图帮助像OP这样的人时，这是相当令人沮丧的。
我赞同路易斯对你的能力的看法，只是希望人们不要伸出手来，希望自己的日常工作能落到实处，而不阅读别人的帖子或他们需要回答的问题。
真是太自私了