[vovkam]

Уважаемые программеры. Помогите советом начинающему ламеру.
Ну

Код:

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

(setq K 105)
(setq tx 15)
(setq ty 15)

(setq A1 (quote (tx, ( + K ty ))))
		
 (command "_point" "_none" "A1")

вот такой не большой пример.

[E-degtyarev]

Не понятно, что вы желаете сделать.

[vovkam]

Я хочу построить точку А1 с координатами Ах=tx Ay= K+ty.
Возможно, тут функция quote не уместна.


Даже так не работает (

(setq A1x tx)
(setq A1y (+ K ty))
(setq A1z 0)
(setq A1 (list A1x A1y A1z)

[Елпанов Евгений]

Код:

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

(setq K 105)
(setq tx 15)
(setq ty 15)
(entmakex (list '(0 . "point") (list 10 tx (+ K ty))))

[vovkam]

а как быть с таким вариантом?

Код:

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

(command "_line" "_none" "A1" "_none" "B1" "")
(command "_line" "_none" "A2" "_none" "B2" "")
(command "_arc" "_none" "A1" "_C" "AR" "_none" "_L" "LA")

при

Код:

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

 (setq E 8872)
(setq F 8652)
(setq G 2425)
(setq J 2322)
(setq H 93720)
(setq I 91398)
(setq K 105)
(setq L 102)
(setq M 9064)
(setq tx 15)
(setq ty 15)

(setq A1x tx)
(setq A1y (+ K ty))
(setq A1z 0)
(setq A1 (list A1x A1y A1z)

(setq A2x (+ E tx))
(setq A2y (+ K ty))
(setq A2z 0)
(setq A2 (list A2x A2y A2z))

(setq B1x (+ tx (/ ( - E F) 2)))
(setq B1y ( + G ty ))
(setq B1z 0)
(setq B1 (list B1x B1y B1z)

(setq B2x (+ tx ( /( + E F) 2)))
(setq B2y ( + G ty ))
(setq B2z 0)
(setq B2 (list B2x B2y B2z))

(setq ARx (+ tx ( / E 2)))
(setq ARy (+ H ty))
(setq ARz 0)
(setq AR (list ARx ARy ARz))

(setq BRx (+ tx ( / E 2)))
(setq BRy (- (+ I G ty) L ))
(setq BRz 0)
(setq BR (list BRx BRy BRz))

(setq LA E)
(setq LB F)

[Елпанов Евгений]

Код:

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

(setq c  (list (+ tx (/ E 2)) (+ H ty))
      p  (list tx (+ K ty) 0.)
      r  (distance c p)
      a1 (angle c p)
      a2 (+ a1 (/ e r))
) ;_  setq
(entmakex (list '(0 . "ARC")
                (cons 10 c)
                (cons 40 r)
                (cons 50 a1)
                (cons 51 a2)
          ) ;_  list
) ;_  entmakex

add:
Пока отвечал, ты успел добавить еще вопросов...
В следующий раз, либо не спеши отвечать, либо сам подожди ответа на уже опубликованный вопрос.

[vovkam]

Подскажите, пожалуйста, как заменить вот этот код:

Код:

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

(command "_line" "_none" "A1" "_none" "B1" "")

?

[Елпанов Евгений]

Сообщение от vovkam Подскажите, пожалуйста, как заменить вот этот код: Код: [Выделить все] (command "_line" "_none" "A1" "_none" "B1" "") ?

Код:

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

(entmakex (list '(0 . "line") (cons 10 a1)(cons 11 b1)))

[vovkam]

Спасибо. Все пока работает.
Следующий вопросик.
Как осушествить такую операцию:

L/200= 20.545 -
принимаем n=21

[Елпанов Евгений]

Сообщение от vovkam L/200= 20.545 - принимаем n=21

Ты действительно думаешь, что я телепат или просто ленив и тебе не хочется написать несколько лишних слов, для пояснения вопроса?

[vovkam]

Код:

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

(setq 
 	E 8872
 	F 8652
 	G 2425
 	J 2322
 	H 93720
 	I 91398
 	K 105
 	L 102
 	M 9064
 	Name 086798
 	tx 15
 	ty 15
)
(setq 
	 A1x tx
	 A1y (+ K ty)
	 A2x (+ E tx)
	 A2y (+ K ty)
	 B1x (+ tx (/ ( - E F) 2))
	 B1y ( + G ty )
	 B2x (+ tx ( /( + E F) 2))
	 B2y ( + G ty )
	 ARx (+ tx ( / E 2))
	 ARy (+ H ty)
 	 LA E
	 LB F
)

(entmakex (list '(0 . "point") (list 10 A1x A1y)))

(setq c  (list ARx ARy)
      p  (list A1x A1y 0.)
      r  (distance c p)
      a1 (angle c p)
      a2 (+ a1 (/ e r))
) ;_  setq
(entmakex (list '(0 . "ARC")
                (cons 10 c)
                (cons 40 r)
                (cons 50 a1)
                (cons 51 a2)
          ) ;_  list
) ;_  entmakex 
(command "_divide" (entlast) 62)          ; вместо 62 n раз.

(entmakex (list '(0 . "point") (list 10 A2x A2y)))

(setq le1 (entget (setq name1 (entnext))))
(setq name2 name1)
(while (/= (cdr (assoc 0 le1)) "POINT")
  (setq name1 name2)
  (setq le1 (entget (setq name2 (entnext name1))))
)   ; конец while

(command "_pline" (cdr (assoc 10 le1)))

(setq i 1)

(setq name1 name2)
(setq le2 (entget (setq name2 (entnext name1))))
(entdel name1)

(while (< i 63)                               ; n+1
  (if (= (cdr (assoc 0 le2)) "POINT")
    (progn
      (command (cdr (assoc 10 le2)))
      (entdel name1)
      (setq i (1+ i))
    )   ; конец progn
  ) ; конец if
  (setq name1 name2)
  (setq le2 (entget (setq name2 (entnext name1))))
)   ; конец while

(setq le1 (entget name1))
(entdel name1)
(command)

Необходимо поделить дугу на отрезки примерно по 200-250мм и найти их количество.

[VVA]

Необходимо поделить дугу на отрезки примерно по 200-250мм и найти их количество

Т.е. 200-250 мм - это длина хорды или все-таки длина дуги?

[vovkam]

Желательно поделить дугу на отрезки 250мм, но, в крайнем случае, так как длина хорды=> к длине дуги, можно и хорду.