望远镜厂家
免费服务热线

Free service

hotline

010-00000000
望远镜厂家
热门搜索:
产品介绍
当前位置:首页 > 产品介绍

当文本格式的一组坐标点调入AutoCAD自

发布时间:2021-09-09 18:30:48 阅读: 来源:望远镜厂家
当文本格式的一组坐标点调入AutoCAD自

文本格式的一组坐标点调入AutoCAD自动绘制多段线

已知一组 X、Y、Z ,并且已写入一文件T,要根据此文件让其自动用“PLINE”绘出。

文件内容如下:

X Y Z

123 456 789

222 333 444

444 555 666

777 888 999

888 999 77

999 754 44

111 755 66

333 666 55

555 777 11

可以用以下程序完成:

(defun c:pltxt (/ oldcmd oldblip oldsnap fle fn pt)

(setq oldcmd (getvar "cmdecho"))

(setvar "cmdecho" 0)

(setq oldblip (getvar "blipmode"))

(setvar "blipmode" 0)

(setq oldsnap 拉关于无卡咬负荷PB的测定:测定PB时要求在无卡咬负荷PB下的磨痕直径力实验机主要用于各种金属、非金属及复合资料停止拉伸、紧缩、曲折等力学性能指标的测试及研讨(getvar "osmode"))

(setvar "osmode" 0)

(setq fle (findfile "t"))

(if (not fle)

(setq fle (getfiled "请选择数据文件" "txt1" "txt;dat;*" 8))

)

(if fle

(progn

(setq fn (open fle "r"))

(read-line fn)

(read-line fn)

(command "pline")

(while (setqδ=(P/F)*cos a pt (read-line fn))

(为何?本源还在于观念command (read (strcat "(" pt ")")))

)

(command "")

(close fn)

)

(princ "\n未选择数据文件,退出")

)

(setvar "cmdecho" oldcmd)

(setvar "blipmode" oldblip)

(setvar "osmode" oldsnap)

(princ)

)

淮南工作服制作
淮南设计工作服
淮南制作工作服
西宁订制工作服