l剖面lISP
我正在使用所附的lisp运行纵断面。在这个Lisp程序的我想改变银行和削减的颜色。我想修剪轮廓线之外多余的水平线。
你能请任何人帮我吗。
我正在整理lisp文件和数据文件以运行l部分，并附上所需格式的jpg文件请帮助我。
lisp程序
加载lisp，lisp的命令为“LSC”
选择“.prn”文件（我将该文件附加为txt，您可以删除附件中的.txt）
u可以输入数据m值为-360
水平比例为-0.2，垂直比例为2
杰克
新L-sec_0.622。lsp
第3页，共699页。prn。txt文件
真是太神奇了，有人能建议吗 如果你有excel文件的切割和填充比上传它。然后可以根据需要创建lisp。我可以帮助您从文件中读取excel数据，并满足您的要求。 嗨，杰克·巴沙，这个Lisp程序干得好。我正在尝试从文件中查找lisp图形x部分。查看代码中的附加照片和注释。我附上地1和地2的2个数据文件
;xsection form file data
(defun c:xsection( / fn fp lst l p1 p2 oldOSM )
(COMMAND "_layer" "_m" "ground1" "_c" "8" "" "")
(COMMAND "_layer" "_m" "ground2" "_c" "3" "" "")
; if we have a 2d ground line
(COMMAND "_layer" "_m" "text_ground1" "_c" "8" "" "")
(COMMAND "_layer" "_m" "text_ground2" "_c" "3" "" "")
(COMMAND "_layer" "_m" "name of section" "_c" "1" "" "")
(COMMAND "_layer" "_m" "datum" "_c" "1" "" "")
(COMMAND "_layer" "_m" "scale" "_c" "1" "" "")
(COMMAND "_layer" "_m" "Vertical lines" "_c" "140" "" "")
(COMMAND "_layer" "_m" "Vertical yellow line" "_c" "2" "" "")
(setq ns (getreal"\n give name of the section : "))
(setq dtm (getreal"\n give datum elevetion : "))
(setq scl(/ (getreal"\n give scale(100,200,500,etc) : ") 100))
(setq ht(* 0.175 scl))
(setq fn (getfiled "Select ASCII file for ground 1" "" "txt" 4))
;
; I want to add a command when i whant in second time to add ground 2
;ask me.Do you have another ground line (Y/N)
;When i answerYes then load ASCII file for ground 2
;(setq fe (getfiled "Select ASCII file for ground 2" "" "txt" 4))
;And ask me to pick the inset point for the ground 2 like the photo
;Look the photo to see the insert point of ground 2
(setq fp (open fn "r") lst '())
(while (setq l (read-line fp))
(setq lst (cons l lst))
)
(close fp)
(setq lst (reverse lst))
(setq oldOSM (getvar "osmode"))
(setvar "osmode" 0)
(command "._pline" "")
(foreach item lst
(if (/= item "")
(command item)
(command "" "._pline")
)
)
(command "")
(setvar "osmode" oldOSM)
(princ)
)
;
;write data to the table .(I need help for this)
;
你能帮我更新你的代码吗？
谢谢
地面1.txt
地面2.txt
有什么想法吗？ 考虑到你的帖子数量，听起来是时候开始尝试编写代码了，而不是索要免费赠品。
实际问题的答案很简单，将线条绘制部分变成defun。然后，您可以对任意多个曲面运行它，只需向下偏移文本行，基准保持在原来的位置。 这很好。但仅适用于ur文件。请指导我如何从包含链测长度、地面标高和地层标高的数据表中制作pnr文件。
页:
[1]