máy bơm nước hỏa tiễn công ty in ấn https://duan-knparadise.com/ Bơm nước hỏa tiễn bóp da nam Túi nilon PP cong ty in bieu mau
scale đối tượng theo 1 chiều(X or Y) - Diễn đàn của các kỹ sư kết cấu Việt Nam










































































Features
Go Back   Diễn đàn của các kỹ sư kết cấu Việt Nam > ỨNG DỤNG TIN HỌC TRONG THIẾT KẾ XÂY DỰNG > Kỹ thuật, thủ thuật CNTT trong thiết kế
Tên thành viên
Mật mã
Tin HOT Thông tin BQT diễn đàn

Result  Reload Thống Kê - Diễn đàn của các kỹ sư kết cấu Việt Nam
All Forums | Thông báo | Văn Bản Pháp Luật | Văn Hóa Văn Nghệ Giao Lưu
Please wait...
Please wait...
Trả lời
Ðiều Chỉnh Xếp Bài
Unread 26-10-2006   #1
casper
Thành viên mới
 
Tham gia ngày: May 2006
Bài gởi: 20
Thanks: 0
Thanked 4 Times in 1 Post
Default scale đối tượng theo 1 chiều(X or Y)

ai có lips hay có cách nào để scale đối tượng theo 1 chiều thì send cho mình với nhé.Đang rất cần.Thanksss nhiều
casper vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 27-10-2006   #2
loisude
Thành viên tích cực
 
loisude's Avatar
 
Tham gia ngày: Aug 2004
Bài gởi: 134
Thanks: 9
Thanked 49 Times in 17 Posts
Default Ðề: scale đối tượng theo 1 chiều(X or Y)

cách dể dàng nhất là tạo thành block sao đó insert lại. Bạn xem trong phần insert block co tỉ lệ theo 2 phương đó. Rất dễ. Thân chào
__________________
KS. Nguyễn Tấn Lợi
0908156551
loisude vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
The Following 2 Users Say Thank You to loisude For This Useful Post:
hieutrung_xd (18-04-2012), thanhcb3 (09-01-2015)
Unread 28-10-2006   #3
casper
Thành viên mới
 
Tham gia ngày: May 2006
Bài gởi: 20
Thanks: 0
Thanked 4 Times in 1 Post
Default Ðề: scale đối tượng theo 1 chiều(X or Y)

Trích:
Nguyên văn bởi loisude
cách dể dàng nhất là tạo thành block sao đó insert lại. Bạn xem trong phần insert block co tỉ lệ theo 2 phương đó. Rất dễ. Thân chào
mình cũng nghĩ tới cách này và đã làm thử nhưng nghe nói có lips scale 1 chiều nên muốn nhờ mọi người giúp.Tiếc quá nhỉ...!!!không ai có
casper vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 29-10-2006   #4
kết cấu sư
Thành viên tích cực
 
Tham gia ngày: Jul 2006
Bài gởi: 157
Thanks: 0
Thanked 88 Times in 26 Posts
Default Ðề: scale đối tượng theo 1 chiều(X or Y)

Scale đối tượng theo 1 chiều là thế nào nhỉ? Chưa hiểu ý "đằng ấy"!!!
kết cấu sư vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 29-10-2006   #5
casper
Thành viên mới
 
Tham gia ngày: May 2006
Bài gởi: 20
Thanks: 0
Thanked 4 Times in 1 Post
Red face Ðề: scale đối tượng theo 1 chiều(X or Y)

Trích:
Nguyên văn bởi kết cấu sư
Scale đối tượng theo 1 chiều là thế nào nhỉ? Chưa hiểu ý "đằng ấy"!!!
ví dụ đợn giản như hcn (a.b) thì thành (2a.b) đó mà
casper vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 07-11-2006   #6
danthanh
Thành viên mới
 
Tham gia ngày: Nov 2006
Bài gởi: 8
Thanks: 0
Thanked 4 Times in 2 Posts
Default Ðề: scale đối tượng theo 1 chiều(X or Y)

Trích:
Nguyên văn bởi casper
ví dụ đợn giản như hcn (a.b) thì thành (2a.b) đó mà
;Nếu bạn chỉ cần Scale_xy một PLINE hay một đối tượng đơn giản thì ;dễ thôi.
;- Tâm sclale p0 (x0 y0 z0)
;- mx; my là tỉ lệ theo x; y
;- p1 là một điểm có (x1 y1 z1)
;- sau khi scale p1 sẽ có tọa độ là X1=x0+(x1-x0)*mx
; Y1=y0+(y1-y0)*my
; Z= z1
;đối với PLINE thì Z được bỏ qua,còn các đối tượng khác thì cần
;Ví dụ sau sẽ scale thep x=3.0, y=2.0

(setq mx 3.0
my 2.0)
(setq ent (car (entsel "\nChon PLINE:"))) ;chọn một đường PLINE
(setq ent1 (entget ent)) ;Lấy dữ liệu DXF của nó
(setq n (length ent1)) ;lấy chiều lài list
(setq p0 (getpoint "\nTam scale:")) ;Tâm scale
(setq px0 (car p0) ;Lấy tọa độ x0
py0 (cadr p0)) ;lấy tọa độ y0
(setq dlist (list)) ; tạo list rỗng
(setq i 0) ;thành phần thứ nhất của list

(while (< i n) ;nếu chưa hết các thành phần
(if (/= (car (nth i ent1)) 10) ;duyệt danh sách nếu
;thành phần không phải là tọa độ thì dừng lại (tọa độ điểm trong pline là (10 x y)) và gắn vào danh sách
(setq dlist (append (list (nth i ent1)) dlist))
(setq dlist (append (list (list 10
(+ px0 (*(- (cadr (nth i ent1)) px0) mx))
(+ py0 (*(- (caddr (nth i ent1)) py0) my))
)
) dlist)) ;nếu là tọa độ thì đổi luôn x;y
) ; end if
(setq i (1+ i)) ; duyệt thành phần tiếp
) ; end while
(setq dlist (reverse dlist)) ; đảo ngược danh sách
(entmod dlist) ;cập nhật lại DXF
(entupd ent) ; cập nhật lại PLINE

;các bạn có thể gom các câu lệnh này thành 1 hàm, đặt tham số, biến cục bộ, xử lý thêm phần nhập PLINE để thành 1 hàm hoàn chỉnh,
; VD (defun scale_pline (ent mx my p0 / ent1 i n dlist px0 py0)
..........)
danthanh vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 12-11-2006   #7
3dnow
Thành viên
 
Tham gia ngày: Sep 2006
Bài gởi: 82
Thanks: 18
Thanked 50 Times in 20 Posts
Default Ðề: scale đối tượng theo 1 chiều(X or Y)

muốn scale theo một chiều dễ thui ah, không cần phải lập lis cho mệt chỉ cần block lại nhưng phải chọn điểm làm mốc khi Block sau đó vào phần Properties(ctrl+1) kéo danh sách xuống chọn phần scalex,y,z chọn chiều nào thì đánh tỉ lệ vào chiều đó là ok
3dnow vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 14-11-2006   #8
danthanh
Thành viên mới
 
Tham gia ngày: Nov 2006
Bài gởi: 8
Thanks: 0
Thanked 4 Times in 2 Posts
Default Ðề: scale đối tượng theo 1 chiều(X or Y)

Trích:
Nguyên văn bởi 3dnow
muốn scale theo một chiều dễ thui ah, không cần phải lập lis cho mệt chỉ cần block lại nhưng phải chọn điểm làm mốc khi Block sau đó vào phần Properties(ctrl+1) kéo danh sách xuống chọn phần scalex,y,z chọn chiều nào thì đánh tỉ lệ vào chiều đó là ok
Bạn theo cách đó cũng được nhưng phá khối rồi thì đối tượng cũng bị explode thêm một lần nữa
danthanh vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 22-08-2010   #9
ketxu
Thành viên
 
ketxu's Avatar
 
Tham gia ngày: May 2010
Bài gởi: 39
Thanks: 9
Thanked 7 Times in 7 Posts
Default Ðề: scale đối tượng theo 1 chiều(X or Y)

Bên cv có mà bạn.
Trích:
;Scale the mot chieu
(DEFUN EXCUTE()
(setq oldvalue (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(princ "Chon doi tuong can scale: ")
(setq ss (ssget))
(setq P0 (getpoint "\nChon diem goc: "))
(initget 1 "X Y X S")
(setq C (getkword "\nScale theo [X,Y,Z,Scale]? :"))
(setq hs (getreal "Cho biet he so scale: "))
(DELBLOCK "vkc_temp")
(CREATEBLOCK ss P0)
(Command "-Insert" "vkc_temp" C hs P0 "")
(setq dt (entlast))
(Command "Explode" dt)
(setvar "CMDECHO" oldvalue)
(princ)
)
(DEFUN CREATEBLOCK(ss P)
(command "-Block" "vkc_temp" P ss "")
)

(DEFUN DELBLOCK (bname)
(if (IsExistBlock bname)
(Command "-Purge" "B" bname "Y" "Y")
)
)
(DEFUN IsExistBlock(bname / kq)
(setq kq Nil)
(setq n (length LiBlk))
(setq i 0)
(while (< i n)
(if (= bname (nth i LiBlk))
(progn
(setq i n)
(setq kq T)
)
)
(setq i (1+ i))
)
kq
)
(DEFUN CREALIBLK (/ NL)
(setq LiBlk (List))
(setq NL (tblnext "BLOCK" T))
(while NL
(setq LiBlk (append LiBlk (list (cdr (assoc 2 NL)))))
(setq NL (tblnext "BLOCK"))
)
(setq LiBlk (Acad_strlsort LiBlk))
)
(DEFUN C:XSCALE()
(CREALIBLK)
(EXCUTE)
)
(DEFUN C:XSC()
(CREALIBLK)
(EXCUTE)
)
(princ "\nfree lisp from www.cadviet.com")
(princ)
ketxu vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 22-08-2010   #10
ngoctan_q
Thành viên nhiệt huyết
 
ngoctan_q's Avatar
 
Tham gia ngày: Sep 2007
Nơi Cư Ngụ: Hà Nội
Bài gởi: 976
Thanks: 163
Thanked 620 Times in 310 Posts
Default Ðề: scale đối tượng theo 1 chiều(X or Y)

Lisp bên cadviet.com đó bác.
File Kèm Theo
File Type: txt XSC.lisp.txt (1.3 KB, 1765 lần tải)
__________________
Đừng tự hào mình nghèo mà học giỏi. Hãy tự hỏi sao giỏi mà vẫn nghèo ?!

Nguyễn Ngọc Tân - yahoo: nnt_ksxd
ngoctan_q vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
The Following 4 Users Say Thank You to ngoctan_q For This Useful Post:
casiofx911 (19-12-2014), ksdong (30-08-2010), thanhcb3 (31-01-2015), thietdiachu (25-05-2014)
Unread 19-02-2011   #11
language712
Thành viên mới
 
Tham gia ngày: Apr 2010
Bài gởi: 2
Thanks: 0
Thanked 0 Times in 0 Posts
Default Ðề: scale đối tượng theo 1 chiều(X or Y)

Sao mình làm như thế,sau đó block biến mất nhỉ
language712 vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 19-02-2011   #12
haichikc3
Thành viên mới
 
Tham gia ngày: Feb 2011
Bài gởi: 6
Thanks: 0
Thanked 5 Times in 3 Posts
Default Ðề: scale đối tượng theo 1 chiều(X or Y)

3dnow nói đúng đấy .
block lại sau đó chỉnh MO theo phương x,y,z thôi
xong lại x ra
còn việc x ra mà bị như danthanh nói thì do bạn x 2 lần rồi
haichikc3 vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 19-02-2011   #13
wasabi
Super Moderator
 
wasabi's Avatar
 
Tham gia ngày: Aug 2006
Nơi Cư Ngụ: lang thang
Bài gởi: 1,554
Thanks: 1,528
Thanked 1,929 Times in 917 Posts
Default Ðề: scale đối tượng theo 1 chiều(X or Y)

block biến mất là do bạn đặt xóa đối tượng sau khi tạo block.
Bạn insert block theo bạn 3Dnow là ra.

chơi kiểu này, sau khi explode các polyline sẽ bị phá vỡ, đôi lúc rất khó chịu.
__________________
Glückauf
wasabi vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 19-02-2011   #14
haichikc3
Thành viên mới
 
Tham gia ngày: Feb 2011
Bài gởi: 6
Thanks: 0
Thanked 5 Times in 3 Posts
Talking Ðề: scale đối tượng theo 1 chiều(X or Y)

Trích:
Nguyên văn bởi wasabi View Post
block biến mất là do bạn đặt xóa đối tượng sau khi tạo block.
Bạn insert block theo bạn 3Dnow là ra.

chơi kiểu này, sau khi explode các polyline sẽ bị phá vỡ, đôi lúc rất khó chịu.
ừ nhỉ .
vậy làm 2 phát block đi cho yên tâm
haichikc3 vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 19-02-2011   #15
wasabi
Super Moderator
 
wasabi's Avatar
 
Tham gia ngày: Aug 2006
Nơi Cư Ngụ: lang thang
Bài gởi: 1,554
Thanks: 1,528
Thanked 1,929 Times in 917 Posts
Default Ðề: scale đối tượng theo 1 chiều(X or Y)

Trích:
Nguyên văn bởi haichikc3 View Post
ừ nhỉ .
vậy làm 2 phát block đi cho yên tâm
2 hay n phát block cũng ko giải quyết được cái khó chịu của tôi bác ạ, không biết các bác kết cấu có hay dùng polyline không, chứ đôi lúc edit cái kiểu kéo nút thì mà chơi block rồi x thì đúng là xxx
__________________
Glückauf
wasabi vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 09-01-2015   #16
dinhluyen
Thành viên mới
 
Tham gia ngày: Aug 2011
Bài gởi: 5
Thanks: 4
Thanked 0 Times in 0 Posts
Default Ðề: scale đối tượng theo 1 chiều(X or Y)

Dùng lệnh al thay cho scan một chiều đc mà
dinhluyen vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 08-12-2015   #17
hiepsitemple
Thành viên mới
 
Tham gia ngày: May 2013
Bài gởi: 4
Thanks: 4
Thanked 1 Time in 1 Post
Default Ðề: scale đối tượng theo 1 chiều(X or Y)

Có dùng lisp nào mà không bị phá vỡ hình ra nhỉ? Cái lisp bên cadviet thì scale nó xploxe ra mất, ví dụ hình chữ nhật mà scale là ra 4 đoạn thẳng.
hiepsitemple vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Trả lời

Ðiều Chỉnh
Xếp Bài

Quyền sử dụng ở Diễn Ðàn
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Mở
Smilies đang Mở
[IMG] đang Mở
HTML đang Mở

Chuyển đến



Múi giờ GMT. Hiện tại là 05:06 AM.


DIỄN ĐÀN http://ketcau.com/forum NƠI HỘI TỤ CỦA CÁC KỸ SƯ KẾT CÂU VIỆT NAM
WWW.KETCAU.COM - CẦU NỐI CỦA CÁC KỸ SƯ KẾT CẤU CÔNG TRÌNH, ĐỊA KỸ THUẬT VIỆT NAM. DIỄN ĐÀN ĐƯỢC MUA BẢN QUYỀN CỦA JELSOFT ENTERPRISES Ltd.