[СЫН]

Здравствуйте!
Помогите разобраться с функцией, взятой с системы RuCAD:

Код:

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

(defun ru-geom-difscale	(s-set point x-scale y-scale z-scale / temp-ent iter block-name)
    (setq iter -1.0)
    (entmake (list (cons 0 "BLOCK")
		   (cons 100 "AcDbEntity")
		   (cons 100 "AcDbBlockBegin")
		   (cons 2 "*U0")
		   (cons 8 "0")
		   (cons 70 1)
		   (cons 62 256)
		   (cons 10 point)
	     ) ;_ end of list
    ) ;_ end of entmake
    (while (setq temp-ent (ssname s-set (setq iter (1+ iter))))
	(entmake (entget temp-ent))
	(entdel temp-ent)
    ) ;_ end of while
    (setq block-name
	     (entmake (list (cons 0 "ENDBLK")
			    (cons 100 "AcDbEntity")
			    (cons 100 "AcDbBlockEnd")
			    (cons 8 "0")
		      ) ;_ end of list
	     ) ;_ end of entmake
    ) ;_ end of setq
    (if	block-name
	(entmake (list (cons 0 "INSERT")
		       (cons 100 "AcDbBlockReference")
		       (cons 2 block-name)
		       (cons 8 "0")
		       (cons 62 256)
		       (cons 10 point)
		       (cons 41 x-scale)
		       (cons 42 y-scale)
		       (cons 43 z-scale)
		       (cons 50 0)
		 ) ;_ end of list
	) ;_ end of entmake
    ) ;_ end of if
    (vla-explode (vlax-ename->vla-object (setq temp-ent (entlast))))
    (entdel temp-ent)
    (princ)
) ;_ end of defun

Почему когда я передаю в качестве параметра разные коэффициенты по оси X,Y,Z при выполнении vla-explode AutoCAD выдает ошибку:
; error: Automation Error. Invalid input

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

vla-explode не обрабатывает блоки с разными масштабами по осям, насколько я помню.

[СЫН]

Сообщение от Кулик Алексей aka kpblc vla-explode не обрабатывает блоки с разными масштабами по осям, насколько я помню.

А не подскажите, как можно "разорвать" блок по другому?

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

Как я понял из кода, создается анонимный блок, внутрь которого переносится набор примитивов. Похоже, что без отслеживания explmode вкупе с командными методами для разных масштабов ничего и не сделаешь...
А что может входить в набор?

[СЫН]

В набор могут входить:LINE,POLYLINE и TEXT.

[СЫН]

Спасибо за помощь, я нашел решение.

[VVA]

Ну так озвучь его здесь, чтобы пригодилось другим

[СЫН]

Вообщем, просто использовал командный метод вместо vla-explode, правда это значительно уменьшило скорость работы функции.

Код:

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

(defun ru-geom-difscale	(s-set point x-scale y-scale z-scale / temp-ent iter block-name)
    (setq iter -1.0)
    (entmake (list (cons 0 "BLOCK")
		   (cons 100 "AcDbEntity")
		   (cons 100 "AcDbBlockBegin")
		   (cons 2 "*U0")
		   (cons 8 "0")
		   (cons 70 1)
		   (cons 62 256)
		   (cons 10 point)
	     ) ;_ end of list
    ) ;_ end of entmake
    (while (setq temp-ent (ssname s-set (setq iter (1+ iter))))
	(entmake (entget temp-ent))
	(entdel temp-ent)
    ) ;_ end of while
    (setq block-name
	     (entmake (list (cons 0 "ENDBLK")
			    (cons 100 "AcDbEntity")
			    (cons 100 "AcDbBlockEnd")
			    (cons 8 "0")
		      ) ;_ end of list
	     ) ;_ end of entmake
    ) ;_ end of setq
    (if	block-name
	(entmake (list (cons 0 "INSERT")
		       (cons 100 "AcDbBlockReference")
		       (cons 2 block-name)
		       (cons 8 "0")
		       (cons 62 256)
		       (cons 10 point)
		       (cons 41 x-scale)
		       (cons 42 y-scale)
		       (cons 43 z-scale)
		       (cons 50 0)
		 ) ;_ end of list
	) ;_ end of entmake
    ) ;_ end of if

  (setq temp-ent (entlast))
    (Command "_Explode" temp-ent "")
    (Command "_Erase" temp-ent "")
    (princ)
)