如何表达一段空间多段线的长度和折角 并且 打断 标注 展开 画在平面上j就像pepa kura

君是我的泪

• (defun c:tcc()
  
•     (if (setq ssa (ssget ":S" '((0 . "lwpolyline"))))
  
•         (if (setq wjm (getfiled "存盘文件" "e:\" "csv" 1))
  
•              (progn
  
•                   (setq ent (ssname ssa 0)
  
•                         dxf (entget ent)
  
•                         pts (mapcar 'cdr (vl-remove-if '(lambda(x)(/= (car x) 10)) dxf))
  
•                   )
  
•                   (setq i 0  n (length pts))
  
•                   (setq jgb nil)
  
•                   (setq fff (open wjm "w"))
  
•                   (write-line "节点号,X值,Y值,长度(m),角度(°)" fff)
  
•                   (repeat n
  
•                       (if (= i 0)
  
•                           (setq p1 (last pts))
  
•                           (setq p1 (nth (1- i) pts))
  
•                       )
  
•                       (setq p2 (nth i pts))
  
•                       (if (= i (1- n))
  
•                           (setq p3 (car pts))
  
•                           (setq p3 (nth (1+ i) pts))
  
•                       )
  
•                       (setq jlz (distance p1 p2))
  
•                       (setq ang (- (angle p2 p3) (angle p2 p1)))
  
•                       (if (< ang 0) (setq ang (+ ang (* 2 pi))))
  
•                       (if (> ang pi) (setq ang (- (* 2 pi) ang)))
  
•                       (setq ang (vl-string-subst "" "d" (angtos ang 1 0)))
  
•                       (setq i (1+ i))
  
•                       (write-line (strcat (itoa i) ","
  
•                                           (rtos (car  p2) 2 3) ","
  
•                                           (rtos (cadr p2) 2 3) ","
  
•                                           (rtos jlz 2 1) ","
  
•                                           ang
  
•                                   )
  
•                                   fff
  
•                       )
  
•                   )
  
•                   (close fff)
  
•              )
  
•          )
  
•     )
  
•     (princ)
  
• )
  
• 
  
  

Lisphk

什么是 pepa kura ？

君是我的泪

Lisphk 发表于 2019-3-11 17:55
什么是 pepa kura ？

可以先拍平空间多段线，再标注折角和长度，然后标注或导出高程差和起终点绝对坐标，即可表达空间多段线，问题是如何修改lisp