[ВоваН]

Есть:
Дуга

Надо:
Взять длину дуги (arclenght), и нарисовать прямую этой длиной.
(желательно от позиции курсора вправо).

Спасибо

[Alan]

Необходимо поиском найти "длина дуги" Например, здесь http://www.autocad.ru/cgi-bin/f1/board.cgi?t=22109QX
Далее уже, построить "прямую этой длиной" дело вкуса.

[Кулик Алексей aka kpblc]

Втупую:

Код:

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

(defun c:drlinearc (/ ent pt adoc)
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark adoc)
  (if (and (setq ent (entsel))
	   (= (cdr (assoc 0 (entget (car ent)))) "ARC")
	   ) ;_ end of and
    (if	(setq pt (getpoint "\nУкажите точку <Выход> : "))
      (command
	"_.line"
	pt
	(list (+ (car pt) (vla-get-arclength (vlax-ename->vla-object (car ent))))
	      (cadr pt)
	      (caddr pt)
	      ) ;_ end of list
	""
	) ;_ end of command
      ) ;_ end of if
    ) ;_ end of if
  (vla-endundomark adoc)
  ) ;_ end of defun

[Лентяй]

Дорогой kpblc.

Как я уже имел счастие вам неоднократно докладывать, бы есть кощунец и похабник, беспрестанно смушаюший неокрешие юные души :twisted: . Втупую надлежит делать так:

Код:

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

(defun c:drlinearc (/ adoc ass util pt sa) 
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (mapcar '(lambda (x y) (set x (vlax-get-property adoc y))) '(ass util)
	    '(ActiveSelectionset Utility))
  (if (> (vla-get-count ass) 0) (vla-clear ass))
  (vla-selectOnScreen ass (vlax-safearray-fill (vlax-make-safearray vlax-vbinteger '(0 . 0)) '(0)) 
    (vlax-safearray-fill (vlax-make-safearray vlax-vbvariant '(0 . 0)) (list "*Arc")))
  (setq arc (vla-item ass 0))  
  (if (vl-catch-all-error-p (vl-catch-all-apply '(lambda ()
		(setq pt (vla-getPoint util nil "\nУкажите точку <Выход> : "))))) (exit) pt);if
  (setq sa (vlax-variant-value pt))
  (vlax-safearray-put-element sa 0 (+ (vla-get-arcLength arc) (vlax-safearray-get-element sa 0)))
  (vla-addline (vla-ObjectIDtoObject adoc (vla-get-OwnerID arc)) pt (vlax-make-variant sa))
);end