[바람] [바람] 선택한 라인의 가중치 변경하기.

[바람~딸~]

선택된 라인의 가중치를 변경하는 리습입니다.

명령어 입력 후 라인을 선택한 뒤에 가중치를 선택하여 실행 하면 가중치가 변경됩니다.

Blkinline.lsp

LineWeight.DCL

(defun c:vv(/ cod dnn lwlst1 lwlst2 weno)
        (vl-load-com)
        (setq cod t)
        (setq lwlst1 '("ByLayer" "ByBlock" "기본값" "0.00" "0.05" "0.09" "0.13" "0.15" "0.18" "0.20" "0.25" "0.30" "0.35"
                                                                "0.40" "0.50" "0.53" "0.60" "0.70" "0.80" "0.90" "1.00" "1.06" "1.20" "1.40" "1.58" "2.00" "2.11"))
        (setq lwlst2 '(-1 -2 -3 0 5 9 13 15 18 20 25 30 35 40 50 53 60 70 80 90 100 106 120 140 158 200 211))

        (while cod
                (setq dnn (lwsub1))
                (cond
                        ((= dnn 0) (setq cod nil))
                        ((= dnn 1) (setq cod nil))
                        ((= dnn 2) (select:line))
                        ((= dnn 3) (mkln)(setq cod nil))
                )
        )
        (princ)
)        


(defun lwsub1(/ dia)
        (setq dia (load_dialog "LineWeight.DCL"))
        (new_dialog "weight" dia)

        (start_list "pp" 3) (mapcar 'add_list lwlst1) (end_list)
        
        (action_tile "bt1" "(done_dialog 2)")
        (action_tile "bt2" "(rmln)") 
         
        (start_dialog)
        
)

(defun select:line(/ ss1)
        (setq lndb '())
        (while (setq ss1 (car (nentsel)))
                (redraw ss1 3)
                (setq lndb (append lndb (list (vlax-ename->vla-object ss1))))
        )
)

(defun rmln()
        (setq weno (get_tile "pp"))
        (done_dialog 3)
)

(defun mkln(/ tmp)
        (foreach tmp lndb
                (vla-put-lineweight tmp (nth (atoi weno) lwlst2))
        )
        (command "regen")
)

[3:16]

바람님 말머리를..^^; ㅎㅎ

[바람~딸~]

말머리 감사합니다.~

[『형진`s』]

감사합니다.^^

[날자!♡신신애♡]

바람님 성공하셨네요...

캄사합니다...꾸벅^^ 배꼽인사..;.

[날자!♡신신애♡]

헉...블럭 안되용...

울고 싶어라~~울고 싶어라..

[바람~딸~]

어떤 블럭이길래 안되죵?
제가 만든 블럭 되는데....이상하넹......ㅠㅠ

[날자!♡신신애♡]

일반 블럭인것 같은데용?

속성블럭은 안되네요..

[하수오]

감사합니다

[달콤살벌인생]

감사합니다

[건축젱이]

수고하셨습니다