[A.Gonchy]

Столкнулся с проблемой: необходимо заменить в выбранной области координаты точек (менять местами будем значения оси Y и оси Z в мировой системе координат.
Т.е. необходимо добиться того, чтобы лисп сам определял точки в выбранной области и сам у них менял координаты Y и Z местами, дабы не делать это каждый раз вручную. Не смог пока понять, каким кодом это можно осуществить.

[trir]

http://help.autodesk.com/view/ACD/20...8-6F3DE5F506BA

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

trir, скорее уж http://help.autodesk.com/view/ACD/20...8C58F4C832.htm
A.Gonchy, что сделано самостоятельно, где код, где споткнулся?
Если кода нет, то алгоритм:
- запрос у пользователя - выбор точек (см. ssget, ее параметры и фильтры)
- пройтись по набору, для каждой точки меняя ее координаты как надо (тот же самый entmod, к примеру). Преобразование набора примитивов в список на форуме несколько раз мелькало.

[A.Gonchy]

Код:

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

 (defun c:wall (/)
  (initget 1 "Северную Южную Западную Восточную")
  (setq	x (getkword
	    "Развернуть стенку [Северную/Южную/Западную/Восточную]: "
	  )
  )
  (if (= x "Северную")
    (c:--WALL)
  )
  (if (= x "Южную")
    (c:YUG)
  )
  (if (= x "Восточную")
    (c:ZAP)
  )
  (if (= x "Западную")
    (c:VOS)
  )
  (defun c:--WALL (/)
    (setvar "cmdecho" 0)
    (setq NaborPoint (ssget '((0 . "POINT"))))
    (if	(= NaborPoint nil)
      (progn (alert "Точки не найдены!\rПОворот стенок") (exit))
    )
    (command "_.undo" "_begin")
    (setq osmodeOLD (getvar "osmode"))
    (setvar "osmode" 0)
    (setq I 0)
    (repeat (sslength NaborPoint)
      (setq PrimitivPointOld (ssname NaborPoint I))
      (setq XYZpointOld (cdr (assoc 10 (entget PrimitivPointOld))))
      (setq XYZpointNew
	     (list (car XYZpointOld)
		   (caddr XYZpointOld)
		   (cadr XYZpointOld)
	     )
      )
      (command "_.point" XYZpointNew)
      (setq I (1+ I))
      (print I)
    )
    (setq I 0)
    (repeat (sslength NaborPoint)
      (setq PrimitivPointOld (ssname NaborPoint I))
      (command "_.erase" PrimitivPointOld "")
      (setq I (1+ I))
      (print I)
    )
    (setvar "osmode" osmodeOLD)
    (command "_.regen")
    (command "_.undo" "_end")
    (princ)
  )
  (prompt "\nПоворот стенок")
(princ)

  (defun c:YUG ()
  (setq bazovaya '(1000 1000 0))
  (setq ugol 180)
  (command "_.ROTATE" "_ALL" "" bazovaya ugol)
  (command "_.ZOOM" "Г" "")
  (c:--WALL)
)


(defun c:ZAP ()
  (setq bazovaya '(1000 1000 0))
  (setq ugol 270)
  (command "_.ROTATE" "_ALL" "" bazovaya ugol)
  (command "_.ZOOM" "Г" "")
  (c:--WALL)
)


(defun c:VOS ()
  (setq bazovaya '(1000 1000 0))
  (setq ugol 90)
  (command "_.ROTATE" "_ALL" "" bazovaya ugol)
  (command "_.ZOOM" "Г" "")
  (c:--WALL)
)
)

Вот код, он должен предлагать сначала вариант, потом выполнять действие, в зависимости от выбранного варианта, но он не работает, не могу понять, почему

[Krieger]

Y на Z

Код:

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

 (defun c:SubstPointYZ (/ ss pr x y z)
	(if (setq ss (ssget '((0 . "POINT"))))
	  (foreach entity (ssnamex ss)
	    (if (eq (type (cadr entity)) 'ENAME)
	      (progn
		(setq pr (entget (cadr entity))
		      x (nth 1 (assoc 10 Pr))
		      y (nth 2 (assoc 10 Pr))
		      z (nth 3 (assoc 10 Pr))
		      pr (subst (cons 10 (list x z y)) (assoc 10 Pr) Pr)
		 );setq
	      (entmod pr)
		);progn
	      );if
	    );foreach
	  );if
  );defun

[koMon]

если менять в мск, то правильнее применять ActiveX.
без учёта elevation.

Код:

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

 
;****************************************************************************************************************************************

(defun swap_point_coordinates (direction / points_sset_object dxf_group_code dxf_filter_data)
    (setq points_sset_object (vla-Add
							(vla-get-SelectionSets (vla-get-ActiveDocument (vlax-get-acad-object)))
							(vl-filename-base (vl-filename-mktemp))
					  )
	)
    (vla-SelectOnScreen
		points_sset_object
		(progn
			(vlax-safearray-put-element (setq dxf_group_code (vlax-make-safearray vlax-vbinteger '(0 . 0))) 0 0)
			dxf_group_code
		)
		(progn
			(vlax-safearray-put-element (setq dxf_filter_data (vlax-make-safearray vlax-vbvariant '(0 . 0))) 0 "Point")
			dxf_filter_data
		)
	)
	(if (not (zerop (vla-get-count points_sset_object)))
		(vlax-map-collection
			points_sset_object
			'(lambda (selected_point)
				(cond
					(
						(or (= "XY" (strcase direction))
							(= "YX" (strcase direction))
						)
							(vla-put-coordinates selected_point (vlax-3d-point (list (cadr (vlax-get selected_point 'coordinates))
																					  (car (vlax-get selected_point 'coordinates))
																					  (caddr (vlax-get selected_point 'coordinates))
																				)
																 )
							)
					)
					(
						(or
							(= "XZ" (strcase direction))
							(= "ZX" (strcase direction))
						)
							(vla-put-coordinates selected_point (vlax-3d-point (list (caddr (vlax-get selected_point 'coordinates))
																					  (cadr (vlax-get selected_point 'coordinates))
																					  (car (vlax-get selected_point 'coordinates))
																				)
																 )
							)
					)
					(
						(or
							(= "YZ" (strcase direction))
							(= "ZY" (strcase direction))
						)
							(vla-put-coordinates selected_point (vlax-3d-point (list (car (vlax-get selected_point 'coordinates))
																					  (caddr (vlax-get selected_point 'coordinates))
																					  (cadr (vlax-get selected_point 'coordinates))
																				)
																 )
							)
					)
				)
			 )
		)
		(princ "\nТочки не выбраны")
	)
    (vla-Delete points_sset_object)
	(vlax-release-object points_sset_object)
	(princ)
)

;****************************************************************************************************************************************

(swap_point_coordinates "xy")
(swap_point_coordinates "xz")
(swap_point_coordinates "yz")

;****************************************************************************************************************************************