[Ingpro]

Если через лисп можно установить центр эллипса, по подобию команды РЗМЦЕНТР для круга,
то получим центр прямоугольника также. Возможно ли по такому принципу получить центр прямоугольника, но без вывода эллипса на чертеж? Или другим способом получить центр прямоугольника, например, через диагонали...
Или установить оси прямоугольника (если ещё и ассоциативные...) - это как отдельный лисп.
Ну и отдельно лисп только для эллипса - центр эллипса.

[Сергей812]

берете вычислительную геометрию и пишете себе хоть с построением, хоть без...

[progettista]

http://lee-mac.com/centreline.html

[Ingpro]

progettista, спасибо

[Ingpro]

А можно подправить код Centreline, чтобы просто ставился крестик в эллипсе (по главным осям), как в круге и не запрашивал
Specify Length & Direction of Centreline (укажите длину и направление осевой линии)?
И с прямоугольником нет решения...

[Сергей812]

Сообщение от Ingpro А можно подправить код Centreline, чтобы просто ставился крестик в эллипсе (по главным осям),

у эллипса есть DXF группа 10: Центральная точка (в МСК)

[Ingpro]

Сообщение от Сергей812 у эллипса есть DXF группа 10: Центральная точка (в МСК)

А дальше что, куда это? Поясните, пожалуйста...

[Сергей812]

Сообщение от Ingpro А дальше что, куда это?

без понятия, вы же свой код не выложили, в чем у вас заминка случилась. В общих чертах - выбрали примитив, получили у него группу 10, нарисовали крестик двумя отрезками - отступив по координатам на какую-то величину от полученного центра.

[Ingpro]

У меня кода нет, я не программист, а можно в коде lee-mac "centreline" что-то подправить? Наверное, отступить по координатам на какую-то величину от полученного центра не получится из-за возможных различных размеров эллипсов... Например, центр круга устанавливается текущим размерным стилем, от этого зависит размер крестика.
http://lee-mac.com/centreline.html

[name02]

Сообщение от Ingpro Например, центр круга устанавливается текущим размерным стилем, от этого зависит размер крестика.

Что-то вообще не понятно. Что за центр круга? От чего "от этого" зависит размер крестика?
В указанном лиспе центровые линии нарисованы простыми отрезками, которые, как известно, никакого отношения к размерным стилям не имеют.

На форуме многие готовы помочь с написанием кода, но пожалуйста, формулируйте задачи четко!

[koMon]

Размер крестика может зависеть от значения переменной 'dimcen.

[Ingpro]

Сообщение от name02 Что-то вообще не понятно. Что за центр круга? От чего "от этого" зависит размер крестика?

Как же ещё четче можно сформулировать "установить центр эллипса, по подобию команды РЗМЦЕНТР для круга".
В AutoCad есть команда РЗМЦЕНТР для круга и дуги. Набираешь команду, выбираешь круги (дуги) и проставляются крестики в центре.
Для эллипса эта команда не работает. Можно это сделать с помощью лисп? Т.е. установить центр эллипса...

[SetQ]

Сообщение от Ingpro У меня кода нет, я не программист, а можно в коде lee-mac "centreline" что-то подправить? Наверное, отступить по координатам на какую-то величину от полученного центра не получится из-за возможных различных размеров эллипсов... Например, центр круга устанавливается текущим размерным стилем, от этого зависит размер крестика. http://lee-mac.com/centreline.html

Подправленное:

Код:

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

 
;;--------------------=={ Centerline }==----------------------;;
;;                                                            ;;
;;  Creates a pair of centerlines for Arcs, Circles, Ellipses ;;
;;and Elliptical arcs WITHOUT a user-defined length and angle.;;
;;------------------------------------------------------------;;
;;  Author: Lee Mac, Copyright © 2013 - www.lee-mac.com       ;;
;; Modification: https://forum.dwg.ru/showthread.php?p=2004481;;
;;------------------------------------------------------------;;
;;  Version 1.2    -    13-08-2013                            ;;
;;------------------------------------------------------------;;

(defun c:cline (/ ang dis ent pt1 pt2 pt3 k)
  (if
    (progn
      (while
	(progn (setvar 'errno 0)
	       (setq
		 ent (car (entsel "\nSelect Arc, Circle or Ellipse: "))
	       )
	       (cond
		 ((= 7 (getvar 'errno))
		  (princ "\nMissed, try again.")
		 )
		 ((= 'ename (type ent))
		  (if (not (wcmatch (cdr (assoc 0 (entget ent)))
				    "CIRCLE,ARC,ELLIPSE"
			   )
		      )
		    (princ "\nInvalid Object Selected.")
		  )
		 )
	       )
	)
      )
      (= 'ename (type ent))
    )
     (progn
       (if (= "ELLIPSE" (cdr (assoc 0 (entget ent))))
	 (setq pt1 (trans (cdr (assoc 10 (entget ent))) ent 1)
	       pt3 (trans (cdr (assoc 11 (entget ent))) ent 1)
	       pt2 (mapcar '+ pt1 pt3)
	       k   (cdr (assoc 40 (entget ent)))
	       ang (angle pt1 pt2)
	       dis (distance pt1 pt2)
	 )
	 (setq pt1 (trans (cdr (assoc 10 (entget ent))) ent 1)
	       k   1.0
	       ang 0.0
	       dis (cdr (assoc 40 (entget ent)))
	 )
       )
       (repeat 2
	 (entmake
	   (list
	     '(0 . "LINE")
	     (cons 10 (trans (polar pt1 ang dis) 1 0))
	     (cons 11 (trans (polar pt1 ang (- dis)) 1 0))
	   )
	 )
	 (setq ang (+ ang (/ pi 2.0))
	       dis (* k (- dis))
	 )
       )
     )
  )
  (princ)
)

[Ingpro]

Лисп работает как надо, см. миниатюру. Спасибо, SetQ!!! А с прямоугольниками также может получиться?..

[SetQ]

Сообщение от Ingpro А с прямоугольниками также может получиться?..

Небольшое изменение https://forum.dwg.ru/showpost.php?p=...8&postcount=11

Код:

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

 
;;; построение осей в произвольно выбранных прямоугольниках
;;; 4 августа 2022г.
(defun c:ar (/ i ssp rec coor vert p1 p2 p3 p4 ang1 ang2 ang pt1 pt2 pt3 pt4)
 (vl-load-com)
; (vl-cmdf "_.zoom" "_e")
 (setq i -1)
 (setq ssp (ssget '((0 . "LWPOLYLINE") (70 . 1))))
 (while (< i (1- (sslength ssp)))
  (setq rec  (entget (ssname ssp (setq i (1+ i))))
        coor (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) rec))
        vert (length coor)
  )
  (if (= vert 4)
   (progn (setq p1   (nth 0 coor)
                p2   (nth 1 coor)
                p3   (nth 2 coor)
                p4   (nth 3 coor)
                ang1 (angle p1 p2)
                ang2 (angle p2 p3)
                ang  (abs (- ang2 ang1))
          )
          (if (equal ang (* 1.5 pi) 1e-6)
           (setq ang (* 0.5 pi))
          )
          (if (equal ang (* 0.5 pi) 1e-6)
           (progn (setq pt1 (mapcar '* (mapcar '+ p1 p2) '(0.5 0.5)))
                  (setq pt2 (mapcar '* (mapcar '+ p3 p4) '(0.5 0.5)))
                  (setq pt3 (mapcar '* (mapcar '+ p2 p3) '(0.5 0.5)))
                  (setq pt4 (mapcar '* (mapcar '+ p1 p4) '(0.5 0.5)))
                  (vl-cmdf "_line" pt1 pt2 "")
                  (vl-cmdf "_line" pt3 pt4 "")
           )
          )
   )
  )
 )
)

[Ingpro]

И с прямоугольниками получилось!
SetQ, Вы Мастер! Спасибо, что Вы есть, спасибо за Ваш труд! Успехов во всём!

----- добавлено через ~5 мин. -----
А можно ещё внести небольшую поправку. При вводе команды, меняется вид (показывает всё). Это неудобно, т.к. бывают объемные чертежи. Можно оставить текущий вид чертежа? Спасибо...

[1958]

Сообщение от Ingpro Можно оставить текущий вид чертежа?

в начале строки (vl-cmdf "_.zoom" "_e")
поставьте точку запятой ;(vl-cmdf "_.zoom" "_e") или удалите её.

[SetQ]

Сообщение от 1958 в начале строки (vl-cmdf "_.zoom" "_e") поставьте точку запятой ;(vl-cmdf "_.zoom" "_e") или удалите её.

Добавлено в п. 15.

[Ingpro]

Хорошо, всем спасибо.