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

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

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

qmgxrfxvhco.jpg

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

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

就这样

copy

(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 在折线起始边和结束边处获得高程标签

发表回复

精选推荐