CAD怎样把一条直线打断成多条直线.CAD怎样把一条直线打断成多条直线,因为直线比较长,打断后的线段也很多(直线7000米,打断成10米一条的线段,共700段.)用什么方法能方便的把这条长直线切
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/25 15:24:30
CAD怎样把一条直线打断成多条直线.CAD怎样把一条直线打断成多条直线,因为直线比较长,打断后的线段也很多(直线7000米,打断成10米一条的线段,共700段.)用什么方法能方便的把这条长直线切
CAD怎样把一条直线打断成多条直线.
CAD怎样把一条直线打断成多条直线,因为直线比较长,打断后的线段也很多(直线7000米,打断成10米一条的线段,共700段.)用什么方法能方便的把这条长直线切开,并且我需要打断点的坐标.
CAD怎样把一条直线打断成多条直线.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 (