[求助]：初学者求助，将一条线分成几何学等份怎么做

zuofen

我是个初学者，我想问问要将一条线分成几等分最快捷的方法

lsjjm

DIVIDE
Places evenly spaced point objects or blocks along the length or perimeter of an object
Objects that you can divide include arcs, circles, ellipses and elliptical arcs, polylines, and splines.
Draw menu: Point  Divide
Command line: divide
Select object to divide: Use an object selection method
Enter number of segments or [Block]: Enter a value from 2 through 32,767, or enter b...

bjxxyy

看不懂呀！英文

lastmem

是真的看不懂的说~~~~

lishj_1982

用div命令，然后输入份数。

linvv

如果经常用也可以：指向工具栏－－右键单击－－自定义－－命令－－绘图－－把“定数等分”的按钮拖到工具栏。

e8975

使用等分命令啊，divide

jsxjsx

先用线条做成一个块再用me命令等份。

xyp1964

;;等分 c:df
;-- XYP@bsedi.com 2004.10.19
(defun c:df(/ pt1 pt2 dx ang1 ang2 ptn n)
  (setvar "osmode" 39)
  (while (not (setq pt1 (getpoint "\n\t第一点："))))
  (while (not (setq pt2 (getpoint pt1 "\n\t第二点："))))
  (If no3
    (setq no3 (fix no3))
  )
  (While (not (setq no3 (uint 1 "" "\n\t份数" no3))))
  (if (and (/= no3 0) (/= no3 ""))
    (setq dx (/ (distance pt1 pt2) no3))
  )
  (setq ang1 (angle pt1 pt2))
  (setq ang2 (- ang1 (/ pi 2)))
  (setvar "osmode"0)
  (command "line" pt1 (polar pt1 ang2 1000) "")
  (setq n 1)
  (while (< n no3)
    (setq ptn (polar pt1 ang1 dx))
    (command "line" ptn (polar ptn ang2 1000) "")
    (setq pt1 ptn
          n   (+ 1 n)
    )
  )
  (command "line" pt2 (polar pt2 ang2 1000) "")
  (princ)
)
(defun ureal (bit kwd msg def / inp)
  (if def
    (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ": "))
  )
  (initget bit kwd)
  (setq inp (getreal msg))
  (if inp inp def)
  )