quansla
-
Số lượng nội dung
672 -
Đã tham gia
-
Lần ghé thăm cuối
-
Ngày trúng
18
Bài đăng được đăng bởi quansla
-
-
Được bạn ạ. Nhưng cần làm thê này
cái này là nếu bạn dùng Ctrl+P như bình thường
Còn đây là dùng Page Setup Manager (trình cài đặt khổ giấy của Layout trong Cad) (lệnh tắt "PAGESETUP" hoặc chuột phải lên "Tên Layout" và chọn PageSetup Manager)
Như trong hình này mục được khoanh đỏ là phần bổ sung mà CTRL+P không có được, bạn check vào đó đồng thời chọn Plot Style ... (ngay phía trên nó) về Monochorom.ctb / Nhấn OK .... là được.
Nếu đầy đủ các bước thì làm thế này:
B1. Mở File Cad
B2. Chuyển sang Không gian Layout
B3. Chuột phải nên tên của Layout/ Page Setup manager (hoặc dùng lệnh tắt "PAGESETUP") vào Page Setup Manager tạo thêm một cài đặt khổ giấy trong đó có thiết lập Monochorme.ctb + check DistPlay Plot Style chọn OK đến hết.
B4 Setcurrent Khổ giáy vừa lập cho Layout hiện hành
B5 Kiểm tra thành quả
-
Là do ấn nhầm phải tổ hợp phím CTRL + SHIFT + I, tắt mở nó, lặp lại tổ hợp trên (giống với CTRL + L)cảm ơn bác nhé. hiện ra tự nhiên nó hiện ra :v
-
1
-
-
Tư vấn mẫu nhà biệt thự đương đại đẹp tuyệt vờiMẫu nhà biệt thự đẹp mà bạn sẽ phải ước mơ được sống trong một không gian tiện nghi như vậy, thiết kế biệt thự hiện đại với nhiều không gian kiến trúc hợp lý, màu sắc tươi mới làm nên vẻ đẹp cho cuộc sống tươi mới. Ngôi nhà này với thiết kế mở rộng cho một gia đình ở New Delhi, hợp tác cùng nhớm kiến trúc sư DADA, kết hợp chặt chẽ mối quan hệ của chủ nhà đối với thiết kế nội thất biet thu hiện đại và một bố trí không gian rộng rãi, các yếu tố ngoài trời đẹp tuyệt. Ngôi nhà sáu phòng ngủ thực sự là một không gian mà gia đình có thể thưởng thức cuộc sống của riêng mình, và nơi họ có thể dễ dàng tìm thấy sự thoải mái khi được sống và giải trí cùng bạn bè và các đồng nghiệpMẫu nhà biệt thự đẹp được thể hiện một lối sống hiện đại, văn minh bởi vẻ đẹp cuốn hút cấu trúc độc đáo của nó. Bản vẻ của ngôi biệt thự tạo được một cái nhìn không gian sâu rộng từ bên ngoài lẫn bên trong. Các bề mặt kính giúp ánh sáng tăng thêm nét sang trọng bên trong ngôi biệt thự. Tất cả các phòng được liên thông với nhau, tạo cảm giác cho cái nhìn sâu rộng và được dàn trãi bởi hạn chế các bức tường ngăn cách. Đây sẽ là một nơi sống thật lý tưởng cho việc thư giãn.
Ngôi nhà sở hữu một không gian diện tích lớn với hệ thống sân vườn rộng rãi, các lối đi được sắp xếp gọn gàng đẹp mắt. Không gian sân vườn phía trước biệt thự được đặt một chú ngựa trắng với đôi cánh tuyệt đẹp.
Biệt thự hiện đại này sở hữu một bể bơi hình chữ nhật lớn nằm ngang mặt tiền ngôi nhà. Sâu vào trong là một mặt sàn rộng cho việc tắm nắng, nằm thư giãn hay trò chuyện bên không gian dịu nhè và tuyệt vời bên bể bơi của gia đình.
Các không gian nội thất trong ngôi biet thu dep dường như đều được tối ưu với các góc nhìn ra không gian thoáng rộng ở bên ngoài, với thiết kế sân vườn biệt thự đẹp cùng bể bơi lớn tạo nên không gian sống gần như hoàn thiện cho một căn biệt thự hiện đại.
Mẫu nhà biệt thự 2 tầng đẹp, hiện đại là một xu hướng mới đẹp và được nhiều người yêu chuộng. Từ màu sắc đến các đồ nội thất đều mang tư tưởng mới và rất hướng ngoại, thể hiện sự sang trọng và trẻ trung. Biệt thự theo phong cách hiện đại khác với biệt thự phong cách cổ điển, những căn biệt thự hiện đại thường không làm theo lối cân đối, đối xứng mà được trang trí theo dáng dấp cách tân, đường nét khỏe khoắn, tự do. Biet thu dep hiện đại dùng nhiều mảng, khối, đường nét rõ ràng mang tính hình học.
Không gian của ngôi nhà dường như lung linh hơn nữa khi được thắp sáng bởi hệ thống đèn của ngôi nhà vào ban đêm. Hệ thống ánh sáng phản chiếu qua bể bơi cũng làm cho ngôi nhà có được hiệu ứng lung linh hơn nhiều.
Ngoài ra thì có các phong cách thiet ke biet thu khác nữa đáp ứng xây dựng của những gia đình có điệu kiện về kinh tế muốn xây dựng ngôi nhà nổi bật và tôn vinh giá trị đẳng cấp của gia chủ. Phong cách thiết kế biệt thự pháp, biệt thự kiểu lâu đài cổ, biệt thự lâu đài kèm sân vườn kiểu Thái Lan là một trong những lựa chọn được yêu thích trong thời gian gần đây. Nếu bạn cần một nét khác biệt, sự đẳng cấp vượt trội thì hay chú ý đến phong cách này và liên hệ với chúng tôi để bạn có được một ngôi nhà trong mơ xứng đáng với tầm vóc và vị thế gia đình mình.Chia sẻ tới các bạn mẫu nhà biệt thự 2 tầng đẹp, ấn tượng nhất, mang các giá trị về kiến trúc, nội thất. Nơi đây là kho thư viện về hình ảnh và thiết kế của các biệt thự đẹp nhất trên toàn thế giới, nơi thể hiện được tinh hoa trong lĩnh vực kiến trúc, tôn vinh những thiết kế đẹp của các kiến trúc sư hàng đầu. Cho bạn những ý tưởng thiet ke biet thu độc đáo, hợp lý và hoàn hảo nhất cho ngôi nha dep sắp tới của gia đình mình.Có lẽ bài viết bị lỗi, up lại thay thớt
-
xem thử bài này xem bạn
Trong đó thay vì làm khó khăn thay code như yêu cầu bên đó, bác hãy dán lệnh 3DORBITCTR vào dòng command trong khung to bên dưới, phải nhấn OK
-
ý bạn là trung nhau khít khìn khịt á: hãy thử lệnh "AL" đi (không nhớ lệnh đầy đủ align gì đó) chọn lựa chọn Yes trong tùy chọn Scale
còn nếu chọn No thì nó sẽ song song
(nhớ bắt điểm hợp lý)
-
-
1. Không phải đối tượng nào trong Cad cũng có thể có tham số diện tích: ví dụ: LINE, Text,DIM,...(defun tinhdientichdoituong( ename)
(vla-get-area (vlax-ename->vla-object ename))
)
Code trên mình trích trên Cadviet, mình chỉ có thể kiểm tra ename có phải là POLYLINE, HATCH ... thôi, nhưng mình nghĩ chỉ biết như vậy chưa đủ. Thật tình đến giờ này mình chưa nắm đc mấu chốt của vl nên hầu như mình bí,
2. Không phải tham số diện tích nào của đối tượng Cad cũng có thể dùng hàm vla-get-are ... Ví dụ tham số iện tích của Circle
3. Hình như câu hỏi của bạn là câu hỏi tu từ. Hì hì.
để dễ dang trong cách tiếp cận, bạn hãy vào Visual lisp (qua lệnh VLIDE) sau đó gọi lệnh
(if (setq dt (entsel "\nChoi doi tuong can xem thong tin"))
(setq obj (vlax-ename->vla-object (car dt))))
sau đó bôi den obj và nhấn tổ hợp phím CTRL +W để (show Watch - xem đối tượng) đối tượng nhấp đôi vào chữ dt trong cửa sổ hiện lên và tìm hiểu, chúc thành công
-
1
-
-
Có bác nào hiện thực hoá yêu cầu 2 của chủ pic theo ngôn ngữ LISP được không (về việc tìm khiếm line,pline trùng nhau), cảm phiền các bấc với, em cũng đang hóng code này
P/s bài toán có thể đa dạng như: Line trùng LINE, line trùng PolyLINE, line trùng phân đoạn của PolyLINE, line lớn bao line nhỏ, PileLINE lớn bao LINE,PlolyLINE nhỏ
-
rất khó hiểu ,không rõ bác có thể chụp ảnh, gửi file yêu cầu, mong muốn và cách làm thủ công hiện giờ trong cad không cảm ơn bác
-
Bậu gõ lệnh "MLSTYLE"Bác nào có lisp về đường Mline với số đường là 3, trong đó 2 đường bên ngoài có linetype = continuous và color = by layer. Còn đường ở giữa có color = 8 và linetype = by layer. Bác nào giúp mình với, mình cần gấp. thank các bác rất nhiều.
rồi làm như sau:
-
1
-
-
Làm thế này nhé.
^P'_.osmode $M=$(if,$(eq,$(getvar,osmode),183),695,183)
Xem video up load nhe
-
1
-
-
Đây không phải truy bắt điểm đâu: để tắt nó bạn có thể dùng cách ấn CTRL + SHIFT + I
để tắt/ bật việc này.
Còn với bản vẽ đã có mà bị chức năng này muốn khôi phục bình thường ,bạn gửi nên đây mình làm cho
-
1
-
-
Cảm ơn bác, cảm ơn bác ket để mình tham khảo thêm
-
(defun c:c (/ ss p1 p2 flag Num delta ang *error* )
(defun *error* (msg)
(if msg (progn (setq flag nil) (princ msg)))
(princ))
(princ "\nSelect objects:")
(if (setq ss (ssget))
(progn
(setq p1 (getpoint "\nSpecify base point:"))
(setq flag T)
(while flag
(initget "Array")
(setq p2 (getpoint p1 "\nSpecify second point or [Array] <use first point as displacement>:"))
(cond
((= p2 "Array")
(setq Num (getint "\nEnter number of items to array:"))
(initget "Fit")
(setq p2 (getpoint p1 "\nSpecify second point or [Fit]:"))
(cond
((= (type p2) 'LIST)
(setq delta (distance p1 p2)
ang (angle p1 p2))
)
((= p2 "Fit")
(setq p2 (getpoint p1 "\nSpecify second point or [Exit]:"))
(cond
((= (type p2) 'LIST)
(setq delta (/ (distance p1 p2) (- Num 1))
ang (angle p1 p2)))
(T (exit)))
)
(T (setq flag nil)))
(setq k 0)
(repeat (- Num 1) (command ".copy" ss "" p1 (polar p1 ang (* (setq k (1+ k)) delta))))
)
((= (type p2) 'LIST)
(command ".copy" ss "" p1 p2))
(T (setq flag nil))
)
);end while
))
(princ)
)
Đáp ứng được 70% yêu cầu đề bài.
Bác nào giúp em hoàn thiện nốt lisp hộ cái.
Ví như làm cho nó có chức năng hiển thị trước đối tượng trước khi copy (đối tượng hiển thị này thay đổi theo vị trí chuột khi di chuyển đó, kiểu như vẽ trước đối tượng khi dùng lệnh Scale, nhấp chuột chọn điểm ban đầu rồi khi di chuột (đồng nghĩa thay đổi tỷ lệ Sacale) thì hình thay đổi thay đổi ý
Kiểu như thế này
-
1
-
-
Mình dùng biến HPlayer là do câu hỏi bạn hỏi chưa rõ, mình những tưởng bạn cần mặc định layer dùng để Hatch sau này luôn là (HTS)-3-THAY chứ không nghĩ bạn cần layer dùng để thực hiện mọi lệnhh sau đó là layer (HTS)-3-THAY luôn.Bác Quansla ơi. Em test thử với các lệnh khác như : Line, dim....thì không được. mà em thấy bác dùng biến Hplayer ở đây là không chuẩn. e đã thay đổi code như sau thì được ạ.
Giải thích: lệnh L là để vẽ pline, nếu tìm thấy layer thì gán (setvar "clayer" "(HTS)-3-THAY"), nếu không tìm thấy thì mặc định là lấy layer hiện hành, sau đó thực hiện lệnh (command "Pline")
Thử thế này coi.
(defun c:L (/ oldlay )
; Luu lai bien layer hien hanh
(setq oldlay (getvar "clayer"))
;cach 1 dung code IF (tblsearch ....) KQ tra ve "DIM"
(if (tblsearch "layer" "DIM" ) (setvar "clayer" "DIM"))
;cach 2 dung code AND (tblsearch ...) KQ tra ve True (logic)
(and (tblsearch "layer" "DIM" ) (setvar "clayer" "DIM"))
;layer hien hanh thi di nhien khong can doi
;thuc hien lenh
(command ".pline" (while (> (getvar "cmdactive") 0)(command pause)))
(setvar "clayer" oldlay)
(princ))
-
6 năm trôi qua rồi bậu.Sau hồi mày mò mình cũng tìm ra câu trả lời cho bạn đây. Để hiện thanh text formating trong các bản cad đời cao, bạn thực hiện các bước sau:
Thực hiện lệnh T hoặc MT -> rồi chọn vị trí viết chữ như bình thường. Sau khi chọn xong bạn sẽ thấy trên ribbon hiện lên tab TEXT EDITOR.MoẻTìm đến thẻ OPTION: tại đó có các các nút lệnh: More, rule. Bạn click vào nút MORE -> editor setting - > Show toolbar.
Thế là okie roài. Xem thêm ở ảnh đính kèm nhé
Chúc thành công!
Theo mình:
TH1: Trường hợp đối tượng là Text ; Làm như sau: CTRL +1 chọn đối tượng Text đó , Trong các thẻ Genera, 3D visil..., Text,... chọn thẻ Text tìm trong đó mục Style để có tên Style đối tượng đó(xem phần khoanh đỏ trong hình dưới). sau đó dùng lệnh "ST" để vào style Text và xem chi tiết trong đó của Style tìm được.
TH2: đối tượng là MTEXT chuột phải vào vùng trống dùng để viết Mtext/ Tìm đến Editor..../ sau đó chọn Check vào ô khoanh đỏ bên dưới
Mà cái này trên diễn đàn đã trả lời rồi
-
nhâp vào 1/2000 (nhập trực tiếp "1/2000" có dấu "/" vào ô đó - Cad nhận tất) nếu không bạn có thể bấm máy tính tay kết quả 1/2000 = 0.0005 rồi nhập vào Cad cũng tương tự) chú ý nếu kết quả 0.0005 sau khi nhập vào Cad, mà Cad chuyển thành 0.0 hoặc 0 thì cứ kệ nó. nguyên nhân là do bản dwg cad của bạn đang để hiển thị quá ít chữ số thập phân thôi, không ảnh hưởng đến mục đích của bạnMấy bác cho mình hỏi bản vẽ mình in ra khổ giấy A0, tỷ lệ 1:2000, thì chỉnh phần Scale to fit ở viewport là bao nhiêu, mình mới tiếp xúc với cad, nên chưa biết
nhiều, mong mấy bác chỉ giáo
-
Nếu bạn biết về lisp thì hàm sau sẽ cho phép cho bạn kiểm tra layer (HTS)-Hatch có trong bản vẽ khôngChào các bác. Em tìm trên diễn đàn mà không thấy có chủ đề nào em thắc mắc. Em nhờ các bác viết cho e cái lisp tên là HH để hatch vật liệu với yêu cầu như sau:
Ví dụ bản vẽ của e có layer là: (HTS)-Hatch. Em muốn khi thực hiện lệnh HH, lisp sẽ kiểm tra xem bản vẽ có layer (HTS)-Hatch không, nếu tìm thấy thì Hatch vật liệu bằng layer (HTS)-Hatch. Nếu không tìm thấy thì Hatch vật liệu bằng layer đang hiện hành
em xin cảm ơn các bác. Chúc các bác ngày mới vui vẻ :) :) :) :) :)
(tblsearch "layer" "(HTS)-Hatch")
Để kiểm tra bạn cũng có thể dùng code trên nhưng thay "0" vào "(HTS)-Hatch")" để thành(tblsearch "layer" "0")
hàm sẽ trả về nil nếu không có layer tương ứng, và trả về Lisp nếu có Layer này trong bản vẽVề yêu cầu của bạn, bạn yêu cầu rõ hơn thì sẽ dễ hơn. chẳng hạn : sau khi dùng xong lệnh HH thì cad hiện hộp thoại Hatch lên hay là chỉ cần đổi mặc định layer Hatch là layer "(HTS)-Hatch"
thì có thể dùng
(defun c:HH()
(if (tblsearch "layer" "(HTS)-Hatch")
(setvar "HPLAYER" "(HTS)-Hatch")
(setvar "HPLAYER" (getvar "clayer"))
))
-
1
-
-
Chào anh em ! :) :)
Mình đang gặp khó khăn trong việc sử dụng các hàm có sẵn của Cad để viết Lisp. :wacko: :wacko: :wacko:
Ví dụ như:
- Tạo layer
(command " layer " "m" "ten_layer" "c" "1" "w" "0.4" "" "")
- thay đổi thông số đơn vị bản vẽ
(command "units" "2" "3" "2" "3" "" "")
Đoạn code như trên mình muốn hiểu thì phải thử, tuy nhiên nếu mình muốn thiết lập nhiều thông số như trong cad thì phải code Lisp viết như thế nào?
ví dụ như tạo dimstyle
mình sưu tập code thì thấy có đoạn như sau:
(command "dimtxt" 2) ; chiều cao text
(command "dimscale" 100) ; tỷ lệ
......
Vậy cho mình hỏi làm sao để mình biết các từ khoá "dimtxt" "dimscale"....để còn biết và viết code ạ
Trân thành cảm ơn anh em nhé :) :) :) :)
Không ngưng học hỏi bạn ạ,tích luỹ dần dần rồi sẽ có thôi
C1/ Dành cho việc tự nghiên cứu, không dùng tài liệu, Chịu khó khi mở Cad, tìm hiểu các biến liên quan của Cad, ví dụ bạn có thể (với cad đời cao - ví dụ 2012 như máy mình) : mở hộp thoại Dimmentision Mânger di chuột lại gần một thiết lập nào đó, dừng chuột lại đó chờ cho trợ giúp của Cad hiện nên (rất nhanh, khoảng 1-1.5 s thôi) trong đó có thể sẽ có biến liên quan đến thông số đó mà bạn cần. ví dụ DimGap khi di chuột lại gần thông số khoảng cách TextDim và đường ghi kích thước.
C2/ Bạn hãy sử dụng lệnh "SYSVDLG" (hoặc menu Express Tool / System variable Editor...) để có thông số về toàn bộ biến của Cad, cùng các trợ giúp liên quan. Bạn có thể sửa giá trị của chúng lẻ lẻ ra ví dụ 1,321342342 sau đó suất ra tập tin svf(sau này cần đổi lại thành txt để đọc) để dễ tìm giá trị của chúng khi thay đổi, hoặc tinh ý tìm ra thay đổi của chúng trên bản vẽ.
C3/ Đọc Help của Cad, dò thông tin trên mạng. Hỏi trực tiếp khi gặp vướng mắc.
trên là cách mà mình tìm hiểu biến hệ thống của Cad ngày trước, khá hữu ích. Bạn muón sửa thông số Cad có thể sử dụng cách này.
Đương nhiên sẽ có nhiều thông số mà bạn không tìm được (không có, không dễ thấy) . bạn có thể tìm cách thiết lập chúng bằng nhiều cách khác. Chẳng hạn dùng lệnh (Scrip/ Líp/ VBA) thực hiện lệnh để làm thiết lập lần lượt như khi thực hiện thủ công
Tham khảo nha: Tạo dim style
(defun c:taodim()
(setvar "cmdecho" 0)
(command
"DIMBLK" "archtick" "DIMASZ" 1.2 "DIMCEN" 2
"DIMTIH" "off" "DIMTDEC" 2 "DIMZIN" 8
"DIMAZIN" 2 "DIMTOH" "off" "DIMTIH" "off"
"DIMDEC" 2 "DIMCLRT" 6 "DIMTIX" "on"
"DIMTXT" 2.5 "DIMTAD" 1 "DIMGAP" 0.5
"DIMCLRD" 8 "DIMLTYPE" "bylayer" "DIMLWD" -1
"DIMDLE" 1
;"DIMSCALE" 100
"DIMCLRE" 8 "DIMLTEX1" "bylayer"
"DIMLTEX2" "bylayer" "DIMEXE" 1 "DIMEXO" 0
"DIMLWE" -1 "DIMATFIT" 3 "DIMTMOVE" 0
"DIMTOFL" "on" "DIMDEC" 2 "DIMDSEP" "."
"DIMLUNIT" 2 "DIMLWD" -1 "DIMLWE" -1
"DIMJUST" 0 "DIMTAD" 1 "DIMTFILL" 0
)
(IF (NOT (TBLSEARCH "STYLE" "DIM"))
(command "-style"
"DIM"
"tahoma.TTF"
""
""
""
""
""
(while (> (getvar "cmdactive") 0) (command ""))
)
)
(COMMAND "DIMTXSTY" "DIM")
(if (not (tblsearch "DIMSTYLE" "xxxxx100"))
(Command ".dimstyle" "s" "xxxxx100")
)
(prompt "da tao xong dim xxxxx100 " )
(setvar "cmdecho" 1)
(princ)
)
hoặc ví dụ về tạo Text Style
(defun taotxt(name font txh )
(IF (NOT (TBLSEARCH "STYLE" name ))
(command "-style"
name
font
txh
"" "" "" ""
(while (> (getvar "cmdactive") 0)(command ""))
)
)
)
(defun c:taotxt()
(tblsearch "style" "t3")
(setvar "cmdecho" 0)
(taotxt "Dim" "vnromadi.shx" 0 )
(taotxt "Dim2" "tvsimli.shx" 0 )
(taotxt "T1" "vnromadi.shx" 0 )
(taotxt "T2" "VHHELS.TTF" 0 )
(taotxt "T3" "VHAVAN.TTF" 0 )
(princ "\nda tao xong cac text Style ")
(setvar "cmdecho" 1)
(princ)
)
-
Một câu hỏi rất hay mình cũng rất muốn tìm hiểu về vấn đề này, hiện tại mình có thể làm được việc cho trước(hoặc tạo) 2 danh sách ls1,ls2 khi đó nếu ấn vào đâu đó thì ls1, ls2 tự động cập nhật. Nhưng với cách này, "ấn vào đâu đó" được hiểu là ấn vào một nút xác định "thuộc hộp thoại" chứ không phải "bất kỳ trên Cad" hay nói cách khác khi hộp thoại hiện nên mình không làm gì được với nền Model của Cad, nếu muốn làm bắt buộc phải un_dialog hộp thoại, thực hiện lênh, cho hiện lại hộp thoại.
Hi vọng các bác cho ý kiên
P/s link mà mình học được cách tự động Update hộp thoại (của LEE-Mac )
http://www.lee-mac.com/listboxsync.html -
Lỗi in ấn
trong Sử dụng AutoCAD
Bác thử quay lại quá trình bác chèn Excel và Cad, hoặc nói rõ quá trình, hay chí ít nói xem bác đang dùng cad nào + gửi 2 file : Ẽxcel, file cad sau khi chèn nên đây mọi người xem thử coi.chào cả nhà cadviet. Các bác cho em hỏi: khi copy bảng khối lượng từ file excel vào CAD, sau đó in file CAD ra thì bảng khối lượng Excel rất mờ. Em xin cám ơn.
-
Cảm ơn bác nhé, có điều câu lệnh về tham số đường cong nhiều như vậy mà không dùng được thì có vẻ hơi phíMình biết thì như này:
1.Các hàm vlax-curve thì áp dụng cho các đối tượng dạng tuyến : line, arc, circle, pline .v.v.
2.Các hàm này không mang tính tuyệt đối (có sai số).
3.Khi đã dùng tới tụi nó tính ưng ý và ổn định của chương trình rất không cao.
-
Mọi người làm ơn cho mình hỏi ý nghĩa của lệnh này không
(vlax-curve-getEndParam curve-obj)....Thông số cuối của đường cong
và còn khoảng 10 câu lệnh có liên quan đến Param của Curve nữa nhưng ,sẽ mình sẽ tự tìm hiểu sau:
Mình muốn hỏi.
1. Thế nào là đường cong, đối tượng nào được chấp nhận là đường cong?
2. Ý nghĩa của Param( trong Google dịch là tham số) của đường cong Curve là gì?
Mình thấy.
Với PolyLine nó có Max là số đỉnh của Pl nhưng lại nhận được các số thực < Max
Với Circle,ELLIP có Max là 2*pi, chấp nhận số thực nhở, lớn hơn 2*pi
Với Line nó là chiều dài Line, không có Max
Với Arc, mình chưa tìm hiểu được.
Với Spline mình cũng chưa tìm hiểu được.
<min=0>
cảm ơn mọi người
P/s Mình thắc mắc tại sao các thành viên Mod của Cadviet thì member thường không gửi tin nhắn riêng được nhỉ,
-
bạn gửi file lên trước đi, xem trước mới biết được giúp nổi không, upload file dwg nhéEm đang làm đồ án, vẽ cái mặt bằng của kho, mà lúc ra quán đi in người ta bảo không in được, kích thước ngoại cỡ, bác nào pro thì teamview+ Skype sửa hộ em 1 chút với ! Em search đủ mọi cách mà đọc khó hiểu quá, mong các bác giúp em sớm với ạ.
Skype của em là: goddragon193
Nhờ Viêt Lisp Di Chuyển Đối Tượng Với Khoảng Cách Đều
trong AutoLisp
Đã đăng · Chỉnh sửa theo quansla · Trả lời báo cáo
bạn có thể dùng thử
(defun c:cadviet(/ A ANG B DELTA DI DT
DT_CUOI DT_DAU K LST N P1 P2 R SS)
(vl-load-com)
(setvar "cmdecho" 0)
(defun trongtam_Donut(dt)
(setq ent (entget dt))
(setq ls10 (vl-remove-if '(lambda(x)(/= (car x)10)) ent))
(mapcar '(lambda(x y)
(* 0.5 (+ x y)))
(cdr (car ls10))(cdr (last ls10))))
(setq ss (ssget '((0 . "LWPOLYLINE")(70 . 1)(90 . 2))))
(setq lst (vl-sort (acet-ss-to-list ss)
'(lambda (x y)
(if (not (equal
(car (setq Gx (trongtam_Donut x)))
(car (setq Gy (trongtam_Donut y)))
1E-3))
(< (cadr Gx) (cadr Gy))
(< (car Gx) (car Gy))
)
)
))
(setq dt_dau (car lst)
dt_cuoi (last lst)
N (- (length lst) 1)
di (distance (trongtam_Donut dt_dau)(trongtam_Donut dt_cuoi))
ang (angle (trongtam_Donut dt_dau)(trongtam_Donut dt_cuoi))
delta (/ di N 1.000)
r '()
k -1)
(foreach dt lst
(setq r (append r (list
(list
dt
(trongtam_Donut dt)
(polar (trongtam_Donut dt_dau) ang (* (setq k (1+ k)) delta))
)))))
(setq dt (car r))
(command "undo" "begin")
(foreach dt r
(command "move" (car dt) "" "_non" (cadr dt) "_non" (last dt)))
(command "undo" "end")
(setvar "cmdecho" 1)
(princ)
)