CAD怎样把一条直线打断成多条直线。

2025-02-20 03:36:15

推荐回答（4个）

回答（1）：

我帮你写的以下代码可以解决你的问题,你将代码拷到记事本然后存为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 (<= i df)
(setq fe (polar fs ang dc))
(command "line" fs fe "")
(setq fs fe)
(setq us (strcat (rtos (car fs)) "," (rtos (cadr fs)) "," (rtos (caddr fs))))
(write-line us f)
(setq i (+ i 1))
)
(close f)
(command "erase" lindat "")
(setvar "osmode" os)
(setvar "cmdecho" oce)
(princ)
)

回答（2）：

我赞同他的说法，用定数等分的命令，快捷键是div 等分数目700（点样式改成能看到的那种，就可以了）

回答（3）：

用定数等分的命令，快捷键是div 等分数目700（点样式改成能看到的那种，就可以了）

回答（4）：

好像有个什么等比分线段的。我记不太清楚了，你试下。

最新问答

沙发垫脱落令人烦恼，搞得沙发乱糟糟，有哪些小妙招可以解决这个问题？

玉树叶子发黄脱落怎么办

祝情侣早分手的诗

蟒蛇有何特征和习性？

要求李明骑自行车行驶1千米需要多少分钟还需要知道什么

钣金折弯角度的公差有没有标准啊？一般折弯的话公差在多少范围内？标注±0.2°能达到吗？多谢！