创建自定义线条表

Lee Mac · 发表于 2022-7-5 17:07:14

这就是我在进一步行动之前想要澄清的。

Squirltech · 发表于 2022-7-5 17:12:39

谢谢你们的帮助。

我要找的顺序是：A1，（A1），[A1]，B2，（B2），[B2]等等

原始帖子中显示的表格图像显示了我使用Civil3d中的线条表格处理的内容。在处理地块时，用户拥有标的线的方位和距离（B/D），标的地块的记录B/D（），然后是相邻地块的记录B/D[]。因此，排序时，我希望第一个行号不带括号，下一个带括号，下一个带括号，然后对下一个行号重复相同的顺序。

T

Lee Mac · 发表于 2022-7-5 17:15:03

谢谢-这是我之前函数的改进，以生成所需的排序顺序：
或者，使用wcmatch：
示例：

copy

_$ (setq lst '("L3" "[A1]" "[b1]" "(L1)" "B2" "[A2]" "(A1)" "L1" "(B1)" "A1"))
("L3" "[A1]" "[b1]" "(L1)" "B2" "[A2]" "(A1)" "L1" "(B1)" "A1")
_$ (mapcar '(lambda ( n ) (nth n lst)) (surveysort-i lst))
("A1" "(A1)" "[A1]" "[A2]" "(B1)" "[b1]" "B2" "L1" "(L1)" "L3")

“线表”是Civil 3D固有的对象类型吗？或者它是否显示为标准AutoCAD表格，并且“Line table”在此上下文中描述了表格内容？

您是否能够上载包含此类表格典型示例的样例图形？

Grrr · 发表于 2022-7-5 17:19:27

李，做得很好！
我这么说是因为我不懂这些代码中的任何东西——需要一些空闲时间进行分析。

Roy_043 · 发表于 2022-7-5 17:22:10

或：

copy

(defun surveysort-i (lst)
 (vl-sort-i (mapcar 'strcase lst)
   (function
     (lambda (a b)
       (< (vl-string-left-trim "([" a) (vl-string-left-trim "([" b))
     )
   )
 )
)