rk25134，我也和你一样是新手。
在我看来，塔尔瓦特委员对你很有帮助。我必须强调，塔瓦特是这里最活跃的论坛成员之一，他一直鼓励我。
这样，他就不会感到被鼓励再次帮助他了。
我确实很努力，并遵循你之前的帖子，取得了非常丰硕的成果，但你确实忽略了我的最后两个回复，此外，你一直在另一棵遥远的树上唱歌，这对你和那些愿意理解你的目标想法以帮助你的用户都没有帮助。
如果你确实发现我没有鼓励你，那是因为你没有很好地遵循你的思路，也没有明确的任何代码目标。
非常感谢路易斯的精彩描述和好话，非常感谢。
这就是你想要的吗？
(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)
像这个页面上的帖子和帖子让人非常不安。
来到论坛，寻求帮助，拒绝回答问题，完全无视已完成的例程发布，并在其他论坛中创建重复帖子，OP也会这样做，忽略任何不完整的例程。
真是一个忘恩负义的非编码者，讨厌看到古鲁浪费时间。
Tharwat，不要说你的是，但当像你这样的人试图帮助像OP这样的人时，这是相当令人沮丧的。
我赞同路易斯对你的能力的看法，只是希望人们不要伸出手来，希望自己的日常工作能落到实处，而不阅读别人的帖子或他们需要回答的问题。
真是太自私了 是的，你是对的，这就是为什么我有时删除我张贴到OPs上的代码，这些代码不关注收到的信息，甚至没有简单的回复。
我最喜欢任何操作之间的活动线程，这里有很多lisp大师，通常这样的线程会迫使所有用户尽全力，最终会非常有成效。
非常感谢。 很好，谢谢 很高兴听到，欢迎随时光临。 对不起，OP，但我不喜欢你发帖的方式，就像一个老板。。 看了这个lisp，想也许可以修改例程，使其也适用于多段线？我有许多独立的实体，它们都是简单的多段线（起始和结束），其中一些是对齐的，我必须对每一个进行尺寸标注。
谢谢 另一种方法是使用柱网顶点而不是最接近的顶点，这样无论柱网中有多少个截面。使用intersectwith将允许基线倾斜，例如比较两条基准线或直线/基准线，其中一条是测量基本链测长度和偏移例程的直线。下面从帖子的语气上没有代码。
Danielk big hint链测长度和偏移量
页:
1
[2]