prodromosm 发表于 2022-7-5 15:51:19

横截面lisp

嗨，我需要帮助完成横截面lisp。此lisp使用*。地面txt文件
（示例ground1和ground 2）并绘制eatch ground的横截面。我需要帮助用地面标高和距离绘制桌子。
 
我想问我
 
1） 选择地面1/或地面，然后绘制表格（我需要有更改基准高程的选项）
 
lisp代码为
 

(Defun c:test ()
(progn
   (initget "1 2")
   (setq
   l
      (cond
        ((getkword
           "\nFor Ground1 (1)/ For Ground (2) < 1 > :"
       )
        )
        ("1")
      )
   )

(if (eq l "1")
(COMMAND "_layer" "_m" "Ground1" "_c" "94" "" "")
      )
      (if (eq l "2")
(COMMAND "_layer" "_m" "Ground2" "_c" "10" "" "")
   )
)
(setq FH (getfiled "Select FileL,H (*.txt)" "" "txt" 16))
(setq fil (open FH "r"))
(command "_.pline"); start Polyline
(while (setq lin (read-line fil)) (command lin)); feed in coordinates
(command ""); end Polyline
(command "zoom" "e")
(close fil)
);End Defun


 
谢谢
地面1.txt
地面2.txt

prodromosm 发表于 2022-7-5 16:12:12

有什么想法吗？
 
谢谢

sanju2323 发表于 2022-7-5 16:24:27

这是lisp，用于使用二维剖面线绘制手动剖面详图（例如高程、距离、垂直高度）
2D剖面线2手动剖面图。LSP

prodromosm 发表于 2022-7-5 16:31:32

你好，sanju2323。我有这样的Lisp程序，但我需要更快的东西。
 
谢谢

srinu 发表于 2022-7-5 16:46:17

我需要autocad横截面lisp

SLW210 发表于 2022-7-5 16:53:09

别再挖掘旧帖子了，我在这里为你创建了一个新的帖子。
页: [1]
查看完整版本: 横截面lisp