[求助]：我写了个把曲线等分成5段的程序,最后一步不知道该什么调用了

20020672

我写了个把曲线等分成5段的程序,最后一步不知道该什么调用了

(defun c:quxian()
  (setq qx0 (getpoint "请输入起点坐标："))
  (setq qxn (getpoint "请输入终点坐标："))                                                                       (setq r (getreal "请输入半径："))

(command "arc" qx0 "e" qxn "r" r)
  (setq s (ssget "L" ))
  (setq ename (ssname s 0))

(command "divide" 5 ename))

最后一句有错.但不知道怎么修改,请大家帮忙

王咣生

最后一句改为:(command "divide" ename 5 )

Underway

(defun c:quxian()
(setq qx0 (getpoint "请输入起点坐标："))
(setq qxn (getpoint "请输入终点坐标："))
(setq r (getreal "请输入半径："))

(command "arc" qx0 "e" qxn "r" r)
(command "divide" (entlast) 5)
)

eachy

看看 vlax-curve 部分的函数

fsxm

我写了一个可以打断曲线的！看看是不是想要的：
只是用lisp因为偶还不会用vl*-的!支持*LINE,ARC.EL等等,可批量打断
[php]
;;QQ252545152飞诗
(princ "\n 平分命令：pf \n ")
(defun pfojb (s x del / ls s x n en pt ptss plst)
  (setq ls (entlast))
  (command "divide" s x)
  (setq ptss (ssadd))
  (while (setq ls (entnext ls))
    (setq ptss (ssadd ls ptss))
  )
  (setq n -1)
  (while (setq en (ssname ptss (setq n (1+ n))))
    (setq plst (cons (cdr (assoc 10 (entget en))) plst))
  )
  (foreach pt plst
    (command "break" s "f" pt pt)
  )
  (if (= del "")
    (command "erase" ptss "")
  )
)
;;;
(defun c:pf (/ os_o zss k s del)
  (setq os_o (getvar "osmode"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  (setq x (getint "\n输入等分段数:"))
  (setq del (getstring "\n是否作出平分点[否]："))
  (setq zss (ssget))
  (setq k -1)
  (repeat (sslength zss)
    (setq s (ssname zss (setq k (1+ k))))
    (pfojb (list s '(0 0 0)) x del)
  )
  (setvar "osmode" os_o)
  (princ)
)
[/php]