[ygarnui]

Код:

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

 (defun   c:ct (  /   i ent_name ent_list 
                     ent_type 
                     ptc pt  x_max x_min y_max y_min
                     all_pt list_x list_y xc yc
	             list_pt
	             nb nb1
               ) 

     (setq nb       (ssget)
           i        0
           all_pt   0
	   shag     10
     )

     (REPEAT (sslength nb)
        (setq  ent_name   (ssname nb i)
               ent_list   (entget ent_name)
               ent_type   (cdr (assoc 0 ent_list))
               i          (+ i 1)
        )

        (if (= ent_type "LINE")
           (setq  pt1 (cdr (assoc 10 ent_list))
                  pt2 (cdr (assoc 11 ent_list))
		  list_pt (cons pt1 list_pt)
		  list_pt (cons pt2 list_pt)

           ) 
        ) ;=== end if ====
     ) ;=== end REPEAT =====

   

(setq nb1   (ssget "_WP" list_pt)
        i      0
     )

  (REPEAT (sslength nb1)
    (sssetfirst  nb1 nb1)
        (setq  ent_name   (ssname nb1 i)
               ent_list   (entget ent_name)
               ent_type   (cdr (assoc 0 ent_list))
               i          (+ i 1)
        )

        (if (= ent_type "POINT")
	  (progn
           (setq  pt  (cdr (assoc 10 ent_list))
                  xx  (car  pt)
                  yy  (cadr pt)
		  
                  x1 (+ xx shag)
		  y1 (+ yy shag)
		  x2 (+ xx shag)
		  y2 (- yy shag)
	  	  x3 (- xx shag)
		  y3 (- yy shag)
		  x4 (- xx shag)
		  y4 (+ yy shag)
		
		  pt1 (list x1 y1 0)
		  pt2 (list x2 y2 0)
		  pt3 (list x3 y3 0)
		  pt4 (list x4 y4 0))
	  
	  (command "_3DFACE" pt1 pt2 pt3 pt4 ())
	   
	   ) ; progn
        ) ; if
     ) ; REPEAT
)

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

1. Тэги [code][/code] существуют не просто так.
2. Что значит "не работает"?
3. http://forum.dwg.ru/showpost.php?p=271151&postcount=167

[ygarnui]

нужно нарисовать на месте точек входящих в замкнутый контур из линий квадрат объектом 3GFACE, контур необходимо выбирать рамкой, и как я понял то не работает именно функция ssget, а именно не правильный список list_pt.

первый раз тему создаю, потому и с названием сплоховал случайно, так что не серчайте