Chuyển đến nội dung
Diễn đàn CADViet

xaydung

Thành viên
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    188

  • Đã tham gia

  • Lần ghé thăm cuối

Bài đăng được đăng bởi xaydung

  1. Đã đăng · Trả lời báo cáo

    Mình đang sở hữu 10g dữ liệu về bản vẽ phối cảnh do người việt nam thực hiện.

    Đồng chí nào có nhu cầu thì cứ liên lạc với mình vào bất cứ lúc nào nhé.

    Đây là là bộ tài liệu rất hữu ích cho sinh viên tham khảo để làm đồ án tốt nghiệp.

    Còn kiến trúc sư cũng có thể dựa vào đây để tìm kiếm những ý tưởng mới.

    Việt Thủy Quân

    email: dr.java_son@yahoo.com.vn

    mobile: 0169.885.9559

    Đính kèm một vài hình ảnh cho anh em coi nhé

    http://www.cadviet.com/upfiles/PC_THUONG_MAI_copy.jpg

    http://www.cadviet.com/upfiles/phoi_canh_ho_boi_copy.jpg

    Toàn ngoại thất hở bác?????

  6. Đã đăng · Trả lời báo cáo

    Đoạn lisp trên không có gì sai cả.

    Lỗi trên do bạn copy thiếu dấu ngoặc, hãy copy lại.

    Hãy làm thật thận trọng trong việc copy, nếu xảy ra lỗi hãy kiểm tra thật kỹ lưỡng.

    Bởi vì lisp chạy được thì tôi mới post lên.

    À, được rồi. Rất cám ơn anh Hoành đã giúp, em đang cần 1 lisp nữa nội dung cũng gần tương tự với lisp trên

    chỉ khác đối tượng chọn không phải là line nữa mà là 1 arc (hoặc nhiều arc)

    Bình thường em phải vẽ 1 circle rồi extrude theo đường path là arc rất mất thời gian,

    Mong bác giúp em cái này nữa nha, thanks!!

  7. Đã đăng · Trả lời báo cáo

    Lệnh là L2C (line to cylinder)

    (defun c:l2c ()
 (defun cyl (ent / tt)
   (setq
     tt (entget ent)
     p1 (trans (cdr (assoc 10 tt)) 0 1)
     p2 (trans (cdr (assoc 11 tt)) 0 1)
   )
   (command ".CYLINDER" p1 r "a" p2)
 )

 (setq	ss    (ssget '((0 . "LINE")))
r     (getdist "\nBan kinh Cylinder: ")
oldos (getvar "osmode")
 )
 (setvar "osmode" 0)
 (sudung cyl ss)
 (setvar "osmode" oldos)
 (princ)
)

(defun sudung (ham ss / sodt index entdt soapp)
 (setq	sodt  (cond
	(ss (sslength ss))
	(t 0)
      )
soapp 0
index 0
 )
 (repeat sodt
   (setq entdt	(ssname ss index)
  index	(1+ index)
   )
   (if	(ham entdt)
     (setq soapp (1+ soapp))
   )
 )
 soapp
)

    Bị lỗi 1 chút anh à, anh xem lại giúp em:

    Nếu em nhập số thì báo lỗi :

    Ban kinh Cylinder: 5

    ; error: no function definition: SUDUNG

    Nếu em nhập 2 điểm trên màn hình thì báo lỗi :

     

    Select objects: 1 found

    Select objects:

    Ban kinh Cylinder: Specify second point: ; error: no function definition:

    SUDUNG

    Và khi appload lệnh thì chưa gõ l2c nó đã vào lệnh luôn rồi!! Mong bác giúp em

  9. Đã đăng · Trả lời báo cáo

    Xin lisp vẽ hình trụ tròn (khối solid) từ 1 (hoặc nhiều) đối tượng line được chọn có nội dung như sau:

    trên màn hình là 1 line, chạy lisp hỏi chọn line, kết quả là chương trình sẽ vẽ ra được 1 đối tượng hình trụ tròn có chiều dài bằng line, và đường thẳng đó

    thì đi qua tâm của hình trụ. mong bác Hoành giúp đỡ, em cám ơn nhiều!

  14. Đã đăng · Trả lời báo cáo

    Đây có thể gọi là chương trình mã hoá đơn giản, mỗi chữ cái sẽ được dịch ra thành một số

    Nhưng có tới 26 chữ cái đơn giản (không dấu) và 10 con số kèm theo, nên việc mã hoá cần tương ứng mỗi chữ cái (ký tự) với ít nhất 2 con số chứ không thể là 1, ví dụ a thành 01, b thành 02 và z thành 26. Là vì sao? Là vì chỉ khi mã hoá như thế thì mới dịch ngược lại được

    Ví dụ khi chữ là ab thì mã sẽ là 0102, và ngược lại khi số là 0126 thì sẽ dịch là az. Nếu không? Nếu không thì không có quy tắc để dịch số 0126 thành chữ

    Thường thì dùng mã ASCII để chuyển mỗi ký tự tương ứng với 3 con số (001 đến 255)

     

    Cuối cùng, dù sao việc mã hoá cũng cần phải phù hợp với mục đích mã hoá của bạn, chúng tôi vẫn chưa hiểu bạn định viết ứng dụng gì?

     

    À , mục đích thì nó cũng là 1 cách để hạn chế phần nào việc chỉnh sửa bản vẽ khi giao file cho chủ đầu tư

    , lẽ ra thì cái này mình phải post vào phần "mã hoá các text trong bản vẽ" thì hợp lý hơn !

    Nhưng có tới 26 chữ cái đơn giản (không dấu) và 10 con số kèm theo, nên việc mã hoá cần tương ứng mỗi chữ cái (ký tự) với ít nhất 2 con số chứ không thể là 1, ví dụ a thành 01, b thành 02 và z thành 26. Là vì sao? Là vì chỉ khi mã hoá như thế thì mới dịch ngược lại được

    Ví dụ khi chữ là ab thì mã sẽ là 0102, và ngược lại khi số là 0126 thì sẽ dịch là az. Nếu không? Nếu không thì không có quy tắc để dịch số 0126 thành chữ

    Mình hiểu, rất cám ơn Jịn Jung, nhưng sự phân biêt ở đây là mầu , ví dụ chữ cái thứ 10,11…trở đi thì sẽ là mầu xanh chẳng hạn j,k…cách này sẽ không cần dung đến 2 con số nữa (dòng text sẽ không bị dài gấp lên 2 )

     

    Cụ thể hơn là thế này

    a,b,c,d,e,f,g,h,i tương ứng với 1,2,3,4,5,6,7,8,9 lấy màu đen

    j,k,l,m,n,o,p,q,r tương ứng với 1,2,3,4,5,6,7,8,9 lấy màu xanh

    s,t,u,v,w,x,y,z tương ứng với 1,2,3,4,5,6,7,8 lấy màu v àng

    VD

    VD : “concreate” k ết qu ả l à “365395125”

    rất mong bạn giúp đỡ, mình cám ơn nhiều!

  15. Đã đăng · Trả lời báo cáo

    mục đích là để làm gì bạn?

     

    khi chọn xyz thì lisp chuyển thành cái gì?

    à, khi chọn 1 text (ví dụ text đó chỉ chứa chữ) thì lisp sẽ tự động nhận ra đâu là chữ cái

    nếu có chữ cái là "a" thì sẽ chuyển thành "1"

    nếu có chữ cái là "b" thì sẽ chuyển thành "2"

    nếu có chữ cái là "c" thì sẽ chuyển thành "3"

     

    dòng kết quả là đương nhiên sẽ là 123

    còn về mục đích thì lisp này nói nôn na là 1 lisp dùng để mã hoá các ký tự chữ thành các ký tự số

    trong bản vẽ autocad!

    ở đây em chỉ ví dụ 3 chữ cái là a,b,c bởi có rất nhiều chữ cái (từ a đến z mà)

    riêng lisp này em chỉ muốn xem cách viết về cơ bản, còn lại các ký tự khác (d,e...z) em sẽ tự viết tiếp cũng

    được anh à, mong anh giúp đỡ !

  16. Đã đăng · Trả lời báo cáo

    Các bác giúp em viết cái lisp này với nội dung nó là : khi mình load lisp này nó sẽ hỏi chọn đối tượng text

    VD : abc sau đó kết quả trên màn sẽ là 123

    có nghĩa là a tương ứng với 1

    b tương ứng với 2

    c tương ứng với 3

    và ngược lại nếu chọn text 123 sẽ chuyển thành abc

    các bác giúp em với!

  20. Đã đăng · Trả lời báo cáo

    Các bạn ơi, mình rất hay sử dụng Orbit trong cad để xem hình ảnh 3D xoay quang 1 đối tượng hoặc nhóm đối tượng

    Tuy nhiên, vì cad không có chức năng chọn đối tượng rồi mới view 3D (giống như 3D max) nên đôi khi hình thường hay bị bay đi chỗ khác không thấy đâu nữa rất khó chịu, các bạn nào biết cách khắc phục thì giup mình nha, mình cảm ơn nhiều!!

  21. Đã đăng · Trả lời báo cáo

    Tôi dùng vẫn thấy bình thường mà, nhưng mà nhìn hình trên tôi đoán đó là 2 đối tượng Polyline chứ ko phải 1 đối tượng , thế cho nên sẽ có lỗi như bạn vẽ

    Cách khắc phục :khi vẽ hết đường thẳng PL kia bạn không thoát ra khỏi lệnh mà thấy dòng thông báo:bạn đánh a

    Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]: a

    Sau đó tick vào nét đứt bạn vẽ là OK thôi!

    Mình đã dùng cách này nhưng không được bạn ạ, không biết bạn dùng cad bao nhiêu, mình dùng 2007!!

  22. Đã đăng · Trả lời báo cáo

    Anh ơi , em muốn xin 1 lisp layer current có nội dung như sau:

    giả sử lớp trên màn hình hiện thời là lớp "tường" ,

    chạy lisp hỏi chọn đối tượng

    pick vào 1 đối tượng bất kỳ giả sử nó thuộc lớp khác là cửa, thì kết qủa là lớp cửa trở thành lớp hiện hành với 1 chú ý là màu của lớp này lấy theo màu của đối tượng chọn!

×