社区 › CAD › 我希望 lisp 在折线起始边和结束边处获得高程标签

sanju2323 发表于 2014-12-10 04:46:05

我希望 lisp 在折线起始边和结束边处获得高程标签

我希望lisp在海拔标签的每个折线的开头和结尾。

**** Hidden Message *****

Master_Shake 发表于 2014-12-10 07:45:01

克里斯，
这里有相当多的人在凌晨做这些事来付账。

Kerry 发表于 2014-12-10 08:00:56

我只知道这两个，也许应该创建一个主列表。

Master_Shake 发表于 2014-12-10 11:16:06

说得好，也许这里有人会以象征性的费用在凌晨进行编程，他会做出回应。
这篇文章看起来很熟悉

tedg 发表于 2014-12-10 13:00:03

...和这里：
http://www.cadtutor.net/forum/showthread.php?90006-I-want-lisp-to-get-label-at-the-polyline-starting-edge-and-ending-edge

Rob... 发表于 2014-12-10 13:02:58

还有这里

ronjonp 发表于 2014-12-10 14:35:23

检测到错误圆形基准

mjfarrell 发表于 2014-12-10 14:40:22

如果没有别的，他是始终如一和坚持不懈的....

snownut2 发表于 2014-12-11 18:14:26

sanju2323，
如果我要求您对程序的期望进行更精细的描述，您能提供吗？
补充说：
这会一致吗？
文本似乎使其插入点与折线结束/开始顶点重合。
这会一致吗？
您希望以任何特定顺序评估数据吗？
您希望如何呈现结果日期。？

Kerry 发表于 2014-12-11 18:59:04

就这样
(defun C:qq ()
(setq ss (ssget '((0 . "LWPOLYLINE"))))
(setq sslngth (sslength ss))
(setq idx 0)
(repeat sslngth
    (setq ename (ssname ss (setq sslngth (1- sslngth))))
    (setq edata (entget ename))
    (setq xy (cdr (assoc 38 edata)))
    (setq xy1 (cdr (assoc 10 edata)))
    (setq xx (rtos xy 2 3))
    (command "text" xy1 2 30 xx "")
)
)

编辑： kdub->代码格式化和代码标签添加代码=cadlisp-7

查看完整版本: 我希望 lisp 在折线起始边和结束边处获得高程标签