[olga87]

Здравствуйте Уважаемые специалисты Nanocad!

Помогите пожалуйста исправить код ниже, чтобы линии, которые строятся в центре окружностей и дуг ориентировались параллельно осям текущей системы координат. Сейчас код работает только в МСК.
Заранее спасибо!

Код:

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

(defun c:CIRCEN ()
  (if (= (getvar 'dimcen) 0)
    (alert "Системная переменная DIMCEN не должна быть нуль.")
    (c:CIRCEN1)
  )
)

(defun c:CIRCEN1 (/ #osmode #rad #p1 #cen #diam qy+ qy- qx+ qx- #ss #sel loop qtde ent #e1)
(command "_undo" "_begin")
(setvar "cmdecho" 0)
(setq #osmode (getvar "osmode"))
(setvar "osmode" 0)
(princ "\n Insert Centerline into Circles and Arcs... ")
(setq loop 0)
(prompt "\n Select the Arc(s) or Circle(s):")
(setq #sel (ssget (list (cons 0 "ARC,CIRCLE"))))
(if #sel
(progn
(setq qtde (sslength #sel))
(repeat qtde
(setq ent (ssname #sel loop))
(setq #e1 (entget ent))
(setq tipo (strcase (cdr (assoc 0 #e1))))
(if (or (= tipo "CIRCLE")(= tipo "ARC"))
(progn
(setq #rad (getvar "dimcen"))
(setq #cen (cdr (assoc 10 #e1)))
(setq qy+ (polar #cen 1.5708 #rad))
(setq qy- (polar #cen 4.71239 #rad))
(setq qx+ (polar #cen 0 #rad))
(setq qx- (polar #cen 3.14159 #rad))
(setq #ss (ssadd))
(command "_line" qy+ qy- "")
(setq #ss (ssadd (entlast) #ss))
(command "_line" qx+ qx- "")
(setq #ss (ssadd (entlast) #ss))
(setq loop (+ loop 1))
)
)
)
)
)
(setvar "osmode" #osmode)
(command "_undo" "_end")
(princ))

[koMon]

эммм, нанокад???

Код:

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

 (defun c:center_crossline (/ ename_index ignore_empty_sset arc_circle_sset arc_circle_object)
	(if (zerop (getvar 'dimcen)) (setvar 'dimcen 2.5))
	(repeat (sslength (setq ename_index -1
							ignore_empty_sset (while (null (setq arc_circle_sset (vl-catch-all-apply 'ssget (list '((0 . "circle,arc")))))))
							arc_circle_sset (cond
													(
														(vl-catch-all-error-p arc_circle_sset)
															(princ "\nОтмена команды")
															(ssadd)
													)
													(
														t
															arc_circle_sset
													)
									  		)
					   )
			)
			(setq arc_circle_object (vlax-ename->vla-object (ssname arc_circle_sset (setq ename_index (1+ ename_index)))))
    		(vla-addline (vla-get-block (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object))))
						 (vlax-3d-point (polar (vlax-get arc_circle_object 'center) (angle (getvar 'ucsxdir)' (0 0 0)) (getvar 'dimcen)))
						 (vlax-3d-point (polar (vlax-get arc_circle_object 'center) (angle '(0 0 0) (getvar 'ucsxdir)) (getvar 'dimcen)))
			)
    		(vla-addline (vla-get-block (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object))))
						 (vlax-3d-point (polar (vlax-get arc_circle_object 'center) (angle (getvar 'ucsydir)' (0 0 0)) (getvar 'dimcen)))
						 (vlax-3d-point (polar (vlax-get arc_circle_object 'center) (angle '(0 0 0) (getvar 'ucsydir)) (getvar 'dimcen)))
			)
	)
	(princ)
)

[olga87]

Спасибо!