[saprochka]

напр. есть окружность,надо стереть половину или какую-то определенную часть ,а НЕ всю!как это сделать?

[Profan]

Команда "_Trim" ("Обрезать").

[SergeyVM]

Провести в нужном месте секущую линию, или линии, а далее командой "trim", нужную к удалению часть, до секущей линии.... Линию потом удалить... И все дела.

[naftul]

"Разорвать" в 2х точках.

[gomer]

примерно так:

Код:

[Выделить все]

 (defun c:test (/ *error* cir lst sang eang)
  (defun *error* (msg) (princ))
  (if (and (setq cir (car (entsel "\Select Circle: ")))
	   (setq lst (entget cir))
	   (= "CIRCLE" (cdr (assoc 10 lst)))
      )
    (if	(and
	  (setq
	    cen	(cdr (assoc 10 lst))
	    rad	(cdr (assoc 40 lst))
	  )
	  (setq sang (getangle cen "\nSelect Start Angle: "))
	  (setq eang (getangle cen "\nSelect End Angle: "))
	)
      (progn
	(setvar 'cmdecho 0)
	(command
	  "_break"
	  cir
	  (polar cen sang rad)
	  (polar cen eang rad)
	)
	(setvar 'cmdecho 1)
      )
    )
    (princ "\nYou Must Select Circle!")
  )
  (princ)
)