[Composter]

у меня чертеж был выполнен в какой надстроке для автокада потом был частично разбит ,частично не разбит.в итоге часть объектов в плоскости z=0 другая часть раскидана как попало.пр привязке линии привязываются к обектам, что потом ни фаску ни trim не получается сделать.пробывал flatten прождал больше часа , отменил.пришла идея вычертить с помощью лиспа линии чтобы они лежали в плоскости z=0.

Код:

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

(vl-cmdf "line" (mapcar '+ '(0 0)(getpoint))(mapcar '+ '(0 0)(getpoint))"")

но почему то при привязке к двум объектам у одного z 50 у другого 700 ,все равно проводиться линия начало которой лежит в z=50 а конец z=700.по идее то z должно быть =0.

[Александр Ривилис]

Или (setvar "osmode" 0), или:

Код:

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

(vl-cmdf "_line" "_none" (mapcar '+ '(0 0)(getpoint)) "_none" (mapcar '+ '(0 0)(getpoint))"")

[Composter]

нет привязку я не хочу отключать.за совет спасибо.успел сам подумать.странно вот так все работает, хотя принцип тот же.

Код:

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

(vla-addline (vla-get-modelspace(vla-get-activedocument(vlax-get-acad-object)))(vlax-3d-point(mapcar '+ '(0 0)(getpoint)))(vlax-3d-point(mapcar '+ '(0 0)(getpoint))))

а еще можно ли с помощью лиспа как нить получить временную линию,что бы как при комманде line из первой точки к мышке тянулась эта временная линия ???

[Александр Ривилис]

Ничего странного в этом нет. На методы addXXXX привязка не влияет.

[ытя]

можно ли с помощью лиспа как нить получить временную линию...

Код:

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

(vla-addline (vla-get-modelspace(vla-get-activedocument(vlax-get-acad-object)))(vlax-3d-point(mapcar '+ '(0 0)(getpoint)))(vlax-3d-point(mapcar '+ '(0 0)(getpoint (getvar "LASTPOINT")))))

[Composter]

спасибо за оперативность.тока небольшая поправочка

Код:

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

(vla-addline
   (vla-get-modelspace(vla-get-activedocument(vlax-get-acad-object)))
   (vlax-3d-point(setvar "LASTPOINT"(mapcar '+ '(0 0)(getpoint))))
   (vlax-3d-point(mapcar '+ '(0 0)(getpoint(getvar "lastpoint"))))
)

[Composter]

если кому понадобиться аналог функции line , тока координаты вершин по оси Z всегда будут равны 0.

Код:

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

(defun c:l (/ pt1 pt2)
(princ "\nРисует линию с координатами Z=0")
(setq pt1(vlax-3d-point(setvar "LASTPOINT"(mapcar '+ '(0 0)(getpoint)))))
(setvar "errno" 0)
(while (equal (getvar "errno") 0)
	(if	(setq pt2(getpoint(getvar "lastpoint")))
		(progn	(setq pt2(vlax-3d-point(mapcar '+ '(0 0)pt2)))
			(vla-addline 
				(vla-get-modelspace(vla-get-activedocument(vlax-get-acad-object)))
				pt1
				pt2
			)
			(setq pt1(vlax-3d-point(setvar "LASTPOINT" (vlax-safearray->list(vlax-variant-value pt2)))))
		)
		(setvar "errno" 1)
	)
)
(princ)
)