能将可以把CAD中很多圆(不规则分布)的半径及圆心坐标导出到TXT文件的插件发给我吗?十分感谢啦!!!
答案:2 悬赏:50
解决时间 2021-11-28 02:12
- 提问者网友:乱人心
- 2021-11-27 03:24
能将可以把CAD中很多圆(不规则分布)的半径及圆心坐标导出到TXT文件的插件发给我吗?十分感谢啦!!!
最佳答案
- 二级知识专家网友:一池湖水
- 2021-11-27 03:30
邮箱呢?
全部回答
- 1楼网友:不服输就别哭
- 2021-11-27 03:37
<p>我用了文本来保存数据,文件有些大,</p> <p>(defun c:zb3 ( / ff chklay @p1 @p2 data_list k l ang h @p3 #k en1 en2 en3 en4)</p> <p> (setvar "cmdecho" 0)</p> <p> (setvar "blipmode" 0)</p> <p> (setq ff (open "d://新文件mjl.txt" "r"))</p> <p> (if (/= ff nil)</p> <p> (progn</p> <p> (setq data_list (mjla9))</p> <p> (setq data_list (length data_list))</p> <p> (if (< data_list 17) (alert "\n数据库有错误已经重新刷新") )</p> <p> (close ff)</p> <p> )</p> <p> )</p> <p> (if (= ff nil) (alert "\n已经在d盘建立《新文件mjl》数据库") )</p> <p> (if (or (= ff nil) (< data_list 17))</p> <p> (progn</p> <p> (setq ff (open "d://新文件mjl.txt" "w"))</p> <p> (princ (getvar "textsize") ff);;1文字高度</p> <p> (princ "\n" ff)</p> <p> (write-line "x=" ff) ;;2大地坐标x标志</p> <p> (write-line "y=" ff) ;;3大地坐标y标志</p> <p> (write-line "0.001" ff) ;;4缩放比例为0.001单位为米</p> <p> (write-line "0.000" ff) ;;5原点坐标x</p> <p> (write-line "0.000" ff) ;;6原点坐标y</p> <p> (write-line "0.000" ff) ;;7第一点坐标x</p> <p> (write-line "0.000" ff) ;;8第一点坐标y</p> <p> (write-line "300" ff) ;;9直线长度</p> <p> (write-line "0.0" ff) ;;10直线角度</p> <p> (write-line "a001" ff) ;;11当前图层保存</p> <p> (write-line "0.000" ff) ;;12第二点坐标x</p> <p> (write-line "0.000" ff) ;;13第二点坐标y</p> <p> (write-line "x=12" ff) ;;14文字x坐标</p> <p> (write-line "y=12" ff) ;;15文字y坐标</p> <p> (write-line "0.000" ff) ;;16输入大地坐标点x</p> <p> (write-line "0.000" ff) ;;17输入大地坐标点y</p> <p> (close ff)</p> <p> )</p> <p> )</p> <p> (if (null vlax-dump-object) (vl-load-com) )</p> <p> (setq chklay (tblsearch "layer" "a001"))</p> <p> (if (= chklay nil) (command "layer" "n" "a001" "c" "7" "a001" "lw" "0" "a001" "") )</p> <p> (setq chksty (tblsearch "style" "text")) (if (= chksty nil);;建立新文字样式text</p> <p> (command "style" "text" "romant" "0" "0.6" "3" "n" "n" "n") );;字体为romant如果没有这个字体删除这两行就可以保证程序运行</p> <p> (setq data_list (mjla9))</p> <p> (setq ff (open "d://新文件mjl.txt" "w"))</p> <p> (mjla33 data_list ff 10)</p> <p> (write-line (getvar "clayer") ff)</p> <p> (mjla32 data_list ff 11)</p> <p> (close ff) </p> <p> (setq @p1 (mjla8))</p> <p> (setq #os (getvar "osmode"))</p> <p> (if (/= @p1 nil)</p> <p> (progn</p> <p> (setq #k @p1)</p> <p> (while #k</p> <p> (setvar "osmode" 0)</p> <p> (setvar "clayer" "a001")</p> <p> (setq @p2 (mjla11))</p> <p> (command "pline" @p1 "w" 0 0 @p2 "")</p> <p> (setq en1 (entlast)) ;;记录对象1</p> <p> (mjla12)</p> <p> (mjla2)</p> <p> (mjla1)</p> <p> (setq data_list (mjla9));;pickstyle编组1</p> <p> (setq k (nth 10 data_list))</p> <p> (setq l (atof (nth 8 data_list)))</p> <p> (setq ang (atof (nth 9 data_list)))</p> <p> (setq h (atof (nth 0 data_list)))</p> <p> (setq @p3 (polar @p2 ang l))</p> <p> (command "pline" @p2 "w" 0 0 @p3 "")</p> <p> (setq en2 (entlast)) ;;记录对象2</p> <p> (setq @p2 (polar @p2 ang (* l 0.5)))</p> <p> (setq @p3 (polar @p2 (* pi 0.5) (* h 0.75)))</p> <p> (setq @p2 (polar @p2 (* pi 1.5) (* h 0.75)))</p> <p> (setq l (nth 13 data_list))</p> <p> (setq ang (nth 14 data_list))</p> <p> (command "text" "m" @p3 h 0 l)</p> <p> (setq en3 (entlast)) ;;记录对象3</p> <p> (command "text" "m" @p2 h 0 ang)</p> <p> (setq en4 (entlast)) ;;记录对象4</p> <p> (command "group" "c" "*" "*" en1 en2 en3 en4 "");;编组</p> <p> (setvar "osmode" #os)</p> <p> (setq @p1 (mjla8))</p> <p> (if (= @p1 nil)</p> <p> (progn</p> <p> (setvar "clayer" k)</p> <p> (setq #k nil)</p> <p> )</p> <p> )</p> <p> )</p> <p> )</p> <p> ) </p> <p> (prin1)</p> <p>)</p> <p>以上是主程序</p>
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯