[hawkeye]

Добрый день! такой вопрос:

есть код

Код:

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

..............................
(vl-cmdf "_-LAYER" "_m" "Размеры" "")
(command "color" "White")
(command "_.dimlinear" '(0 0) (list 0 klen) (list (- 1000) 0) '(300 300) "")  
...............................

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

Код:

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

 
(setq РАЗМЕР (ssget))
(command "_dim" "_n" "<>*"  РАЗМЕР  "" "_exit")

Но размеров таких много и не всегда в легкодоступных местах)))

[Makswell]

Может проще создать отдельный размерный стиль и в его свойствах выставить суффикс "*" (на вкладке "основные единицы" окна изменения размерного стиля)?

[hawkeye]

Сообщение от Makswell Может проще создать отдельный размерный стиль и в его свойствах выставить суффикс "*" (на вкладке "основные единицы" окна изменения размерного стиля)?

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

[ытя]

..............................
(vl-cmdf "_-LAYER" "_m" "Размеры" "")
(command "color" "White")
(command "_.dimlinear" '(0 0) (list 0 klen) (list (- 1000) 0) '(300 300) "")
(command "_dim" "_n" "<>*" (entlast) "" "_exit")
...............................

[hawkeye]

ытя
Спасибо, как то не подумал сразу!

[19Pavel76]

открываешь свойства (пропертя по аглицки) ищешь размерный суфикс ситваишь звездочку, потом:
матсвойствами разбрасываешь по всем нужным размерам;
или изначально выбираешь все размеры и в пропертях ставишь звездочку
можно и стиль и т.д. и т.п. я всегда так денлаю и сдопусками и т.д. и т.п.

[hawkeye]

Сообщение от 19Pavel76 открываешь свойства (пропертя по аглицки) ищешь размерный суфикс ситваишь звездочку, потом: матсвойствами разбрасываешь по всем нужным размерам; или изначально выбираешь все размеры и в пропертях ставишь звездочку можно и стиль и т.д. и т.п. я всегда так денлаю и сдопусками и т.д. и т.п.

Под эту тему у меня кнопочка заточена

Код:

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

(defun c:Dim_star ( / s1)
(setvar "cmdecho" 0)
(setq s1 (ssget))
(command "_dim" "_n" "<>*" s1 "" "_exit")
(princ));c:Dim_star

А тут я хотел програмную простановку определенных размеров со звездочками!

и так тоже не получается, простановка идет в цикле и первый размер почему то без звездочки!

Код:

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

 
(setq i 1)
    (while (< i 4)    ;;;положение приточных форточек(для первых 4 форточек, типа остальные по аналогии)
        (if (< i 2) 
        (command "_.dimlinear" (list (/ (/ kwidth forcol) 2) 0) '(0 0) (list 0 (- 0 2000)) '(300 300) "" )
        (command "_dim" "_n" "<>*" (entlast) "" "_exit")
        );if         
        (if (> i 0)
        (command "_.dimlinear" (list (+ (* (/ kwidth forcol) (- i 1)) (/ (/ kwidth forcol) 2)) 0 ) (list (+ (* (/ kwidth forcol) i) (/ (/ kwidth forcol) 2)) 0 ) (list 0 (- 0 2000)) '(300 300) "" )      
        (command "_dim" "_n" "<>*" (entlast) "" "_exit")
        );if
       (setq i (+ i 1))
     );while

да и последний тоже!
______________________

progn забыл....)))

[ытя]

Код:

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

(setq i 1)
    (while (< i 4)    ;;;положение приточных форточек(для первых 4 форточек, типа остальные по аналогии)
        (if (< i 2) (progn
          (command "_.dimlinear" (list (/ (/ kwidth forcol) 2) 0) '(0 0) (list 0 (- 0 2000)) '(300 300) "" )
          (command "_dim" "_n" "<>*" (entlast) "" "_exit")
          );progn
        );if         
        (if (> i 0)(progn
          (command "_.dimlinear" (list (+ (* (/ kwidth forcol) (- i 1)) (/ (/ kwidth forcol) 2)) 0 ) (list (+ (* (/ kwidth forcol) i) (/ (/ kwidth forcol) 2)) 0 ) (list 0 (- 0 2000)) '(300 300) "" )      
          (command "_dim" "_n" "<>*" (entlast) "" "_exit")
          );progn
        );if
       (setq i (+ i 1))
     );while

[hawkeye]

ытя, спасибо, но ужо вспомнил!
"progn забыл....)))
Последний раз редактировалось hawkeye, Сегодня в 17:28. Причина: Запарил!!!"