CAD怎样把一条直线打断成多条直线.
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/04 13:19:02
CAD怎样把一条直线打断成多条直线.
CAD怎样把一条直线打断成多条直线,因为直线比较长,打断后的线段也很多(直线7000米,打断成10米一条的线段,共700段.)用什么方法能方便的把这条长直线切开,并且我需要打断点的坐标.
CAD怎样把一条直线打断成多条直线,因为直线比较长,打断后的线段也很多(直线7000米,打断成10米一条的线段,共700段.)用什么方法能方便的把这条长直线切开,并且我需要打断点的坐标.
我帮你写的以下代码可以解决你的问题,你将代码拷到记事本然后存为brl.lsp加载运行即可,无论线有多长(不能是多段线哦),分多少段都可以.且坐标会方在D盘的UCS.TXT文件里面
(defun c:brl()
(setq oce (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(print "请选择直线:")
(setq lin (ssget ":s" '((0 ."LINE"))))
(setq msg "请输入等分数:")
(setq f (open "d:\\ucs.txt" "w"))
(setq df (getint msg))
(setq LINDAT (ssname lin 0))
(setq LINdate (entget LINDAT))
(setq FIP (cdr (assoc '10 LINdate)))
(setq SEP (cdr (assoc '11 LINdate)))
(setq ang (angle fip sep))
(setq len (distance fip sep))
(setq dc (/ len df))
(setq i 1)
(setq fs fip)
(setq us (strcat (rtos (car fs)) "," (rtos (cadr fs)) "," (rtos (caddr fs))))
(write-line us f)
(while (
(defun c:brl()
(setq oce (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(print "请选择直线:")
(setq lin (ssget ":s" '((0 ."LINE"))))
(setq msg "请输入等分数:")
(setq f (open "d:\\ucs.txt" "w"))
(setq df (getint msg))
(setq LINDAT (ssname lin 0))
(setq LINdate (entget LINDAT))
(setq FIP (cdr (assoc '10 LINdate)))
(setq SEP (cdr (assoc '11 LINdate)))
(setq ang (angle fip sep))
(setq len (distance fip sep))
(setq dc (/ len df))
(setq i 1)
(setq fs fip)
(setq us (strcat (rtos (car fs)) "," (rtos (cadr fs)) "," (rtos (caddr fs))))
(write-line us f)
(while (
CAD怎样把一条直线打断成多条直线.
cad怎样把直线和圆的交点打断
cad怎样把一条直线变短而长度不变
在CAD 中怎样延长一条直线
cad怎么连续打断于点,比如一条直线,有的区间是实线,有的是虚线,有的是点划线等
在AUTOCAD中,怎样把两条任意相交的的直线,任意一条打断在交点,用最简单的方法.
cad怎样把一条直线变短而标注时长度不变
CAD怎样把在同一条直线上的两条线段合并成一条多段线
怎样在cad中画一条经过一点的直线?
在CAD中怎样使一条直线变成圆弧形
CAD里,把随便一条直线修改成指定长度
CAD图形界限我要画一条长30000左右的线 可是CAD界面不够大 不能看到一整条长30000的直线 谁能教我怎样把界限