Đến nội dung


Hình ảnh
* * * - - 17 Bình chọn

Hỏi về Lisp (thuật toán, ý tưởng, coding,...)


  • Please log in to reply
2854 replies to this topic

#2121 ndtnv

ndtnv

    biết lệnh minsert

  • Members
  • PipPipPipPipPipPip
  • 437 Bài viết
Điểm đánh giá: 384 (khá)

Đã gửi 07 November 2014 - 10:09 AM

Kích thước lớn hơn 2 lần border : 8 x 2 = 16

Code bằng MFC thì dễ, bằng lisp thì chưa biết được hay không

19626_frameborder.jpg

http://www.cadviet.c...frameborder.jpg


  • 1

#2122 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5450 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 07 November 2014 - 10:21 AM

Cám ơn Gia_bach, Ket, Ndtnv.

Đúng là nó có thể lớn hơn


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#2123 pphung183

pphung183

    biết dimstyle

  • Members
  • PipPipPipPipPip
  • 384 Bài viết
Điểm đánh giá: 425 (tốt)

Đã gửi 07 November 2014 - 10:41 AM

H thì có vẽ hợp lý. Nhưng W thì sao hơi kỳ kỳ.

Máy của tôi:

- Kích thước Resolution là (1366 768): lấy bằng chuột phải >> Screen Resolution.

- Kích thước lấy theo lisp trên là (1382 744).

Chẳng lẻ màn hình Cad rộng hơn (1382>1366)?

Nếu nói màn hình 15 inch thì theo Kỹ thuật là người ta tính đường chéo màn hình chứ không ai tính theo kích thước HCN

Screen Resolution (1366 768) là theo Widow

Code theo Cad    (1382 744)

Nhưng tính theo đường chéo thì cũng same same :)


  • 0

#2124 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5450 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 07 November 2014 - 10:46 AM

Nếu nói màn hình 15 inch thì theo Kỹ thuật là người ta tính đường chéo màn hình chứ không ai tính theo kích thước HCN

Screen Resolution (1366 768) là theo Widow

Code theo Cad    (1382 744)

Nhưng tính theo đường chéo thì cũng same same :)

Tôi không đồng ý quan điểm "same same" của bạn. Lý do của nó thì đã rõ.


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#2125 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5450 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 07 November 2014 - 11:23 AM

Hỏi tiếp tí nữa: thế có thể lấy height của thanh tác vụ ở phía dưới (taskbar) bằng lisp không?


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#2126 pphung183

pphung183

    biết dimstyle

  • Members
  • PipPipPipPipPip
  • 384 Bài viết
Điểm đánh giá: 425 (tốt)

Đã gửi 07 November 2014 - 02:21 PM

Mỗi khi cài đặt mới Window của bác Bill Gates, bạn phải cài driver thiết lập độ phân giải màn hình cho phù hợp, OK?

Screen Resolution (1366x768) là thiết lập theo Widow, OK?

Tất cả phần mềm chạy trên nền Window dù có phóng to cửa sổ Maximum cũng đều có tầm nhìn Screen Resolution (1366x768)

tính từ mép trong cùa khung viền Window

Code lisp Cad nếu bạn không trừ thanh Taskbar thì chắc chắn cửa sổ Window Cad của bạn là (1382 x 784), nếu trừ bề rộng khung viền là 8 pixels thì Screen Resolution vẫn là (1366x768).

Đó là lí do của từ same same khi người ta muốn tính ành điểm từ đâu.

Trong Window bạn có thể phóng to chà bá khỏi tầm kiểm soát cái Screen Resolution hay thu nhỏ nó lại.

Height của Taskbar có thể thay đổi trong Window. Nếu Code lisp có thể lấy Height của Taskbar thì chắc phải có sự đồng ý của bác Bill :)


  • 0

#2127 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5450 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 07 November 2014 - 03:01 PM

Mỗi khi cài đặt mới Window của bác Bill Gates, bạn phải cài driver thiết lập độ phân giải màn hình cho phù hợp, OK?

Screen Resolution (1366x768) là thiết lập theo Widow, OK?

Tất cả phần mềm chạy trên nền Window dù có phóng to cửa sổ Maximum cũng đều có tầm nhìn Screen Resolution (1366x768)

tính từ mép trong cùa khung viền Window

Code lisp Cad nếu bạn không trừ thanh Taskbar thì chắc chắn cửa sổ Window Cad của bạn là (1382 x 784), nếu trừ bề rộng khung viền là 8 pixels thì Screen Resolution vẫn là (1366x768).

Đó là lí do của từ same same khi người ta muốn tính ành điểm từ đâu.

Trong Window bạn có thể phóng to chà bá khỏi tầm kiểm soát cái Screen Resolution hay thu nhỏ nó lại.

Height của Taskbar có thể thay đổi trong Window. Nếu Code lisp có thể lấy Height của Taskbar thì chắc phải có sự đồng ý của bác Bill :)

Màu xanh: mọi sự đã rõ ràng rồi.

Màu đỏ: Lisp có thể lấy được Screen Resolution thì rất có thể nó cũng lấy được height của Taskbar (dù chúng có thể thay đổi). Hỏi là có lý do chỗ đó.


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#2128 ThuyLinh313

ThuyLinh313

    biết lệnh mtext

  • Members
  • PipPipPipPip
  • 288 Bài viết
Điểm đánh giá: 142 (tàm tạm)

Đã gửi 07 November 2014 - 08:28 PM

Kích thước lớn hơn 2 lần border : 8 x 2 = 16

Code bằng MFC thì dễ, bằng lisp thì chưa biết được hay không

19626_frameborder.jpg

http://www.cadviet.c...frameborder.jpg

 

Bạn dùng phần mềm gì để chụp cái hình này thế. Mình đang tìm 1 chương trình như thế này. nếu đọc được mã màu của từng điểm ảnh thì càng hay  :D

 

@ĐVH: Chú thử tìm trong registry xem. Nếu có cách nào đó thì chắc chắn chỉ có thể lấy ở đó. bạn pphung183 nói đúng đó chú. lisp chỉ lấy được những gì thuộc về cad. Cửa sổ cad cũng là 1 đối tượng của cad. Còn taskbar là của windows, nếu bác bill cho thì mới có.


  • 0

#2129 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5450 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 07 November 2014 - 08:58 PM

Bạn dùng phần mềm gì để chụp cái hình này thế. Mình đang tìm 1 chương trình như thế này. nếu đọc được mã màu của từng điểm ảnh thì càng hay  :D

 

@ĐVH: Chú thử tìm trong registry xem. Nếu có cách nào đó thì chắc chắn chỉ có thể lấy ở đó. bạn pphung183 nói đúng đó chú. lisp chỉ lấy được những gì thuộc về cad. Cửa sổ cad cũng là 1 đối tượng của cad. Còn taskbar là của windows, nếu bác bill cho thì mới có.

 

Bạn dùng phần mềm gì để chụp cái hình này thế. Mình đang tìm 1 chương trình như thế này. nếu đọc được mã màu của từng điểm ảnh thì càng hay  :D

 

@ĐVH: Chú thử tìm trong registry xem. Nếu có cách nào đó thì chắc chắn chỉ có thể lấy ở đó. bạn pphung183 nói đúng đó chú. lisp chỉ lấy được những gì thuộc về cad. Cửa sổ cad cũng là 1 đối tượng của cad. Còn taskbar là của windows, nếu bác bill cho thì mới có.

Cái màu đỏ thì chú không đồng ý. Lisp nó lấy hoặc làm được nhiều thứ không thuộc về cad.

Chẳng hạn nó lấy được screen resolution là của bác Bill chứ chẳng phải của bác Desk, thì taskbar cũng có thể lấy được height lắm chứ.

Nó có thể lấy được là user đang cài đặt dấu thập phân là chấm hay phẩy, cái này cũng thuộc window chứ không phải cad...

Thậm chí nó có thể gởi mail...

Không hiểu sao TL đã nói đến registry mà lại nói chỉ lấy được những thứ thuộc cad?


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#2130 ThuyLinh313

ThuyLinh313

    biết lệnh mtext

  • Members
  • PipPipPipPip
  • 288 Bài viết
Điểm đánh giá: 142 (tàm tạm)

Đã gửi 07 November 2014 - 10:04 PM

screen resolution lấy được bằng các hàm của Gia_bach gợi ý cho chú chính xác là của acadobject chứ không phải của windows chú ạ. Cài đặt của user cũng là đọc từ registry hoặc 1 wap nào đó mà ra, còn gửi mail là chức năng chứ mà chú. Không liên quan gì đến cơ sở dữ liệu của cad hay lisp.

 

Ý cháu muốn nói ở đây là gợi ý của pphung183 cho chú đó. Ý bạn ấy muốn nói là để tìm chiều cao của taskbar thì chỉ có tìm trong registry xem bác Bill có khai báo vào registry hay không, bác ấy mà không cho thì chịu. Tất nhiên là lisp có thể đọc registry và chỉ có cách đó chứ bản thân cad nó không lưu giữ thông tin đó.

 

Có thể chú sẽ lăn tăn về câu bôi đỏ đó. "Lấy" ở đây được hiểu là việc truy cập trực tiếp vào đối tượng và đọc thông tin của nó. giống như hàm lấy screen resolution của Gia_bach :)


  • 0

#2131 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5450 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 07 November 2014 - 10:22 PM

screen resolution lấy được bằng các hàm của Gia_bach gợi ý cho chú chính xác là của acadobject chứ không phải của windows chú ạCài đặt của user cũng là đọc từ registry hoặc 1 wap nào đó mà ra, còn gửi mail là chức năng chứ mà chú. Không liên quan gì đến cơ sở dữ liệu của cad hay lisp.

 

Ý cháu muốn nói ở đây là gợi ý của pphung183 cho chú đó. Ý bạn ấy muốn nói là để tìm chiều cao của taskbar thì chỉ có tìm trong registry xem bác Bill có khai báo vào registry hay không, bác ấy mà không cho thì chịu. Tất nhiên là lisp có thể đọc registry và chỉ có cách đó chứ bản thân cad nó không lưu giữ thông tin đó.

Xanh: nếu lúc đầu TL viết rõ như vậy thì đã không ý kiến gì.

Đỏ: cái của Gia_bach là cad rặc (lấy màn hình cad), còn screen resolution là win rặc (lấy màn hình win: chuột phải vào màn hình win sẽ thấy). Chú đang nói tới cái win rặc là screen resolution vẫn có thể lấy được bằng lisp, thậm chí không dùng Vl-registry-read.

Hy vọng là trong reg sẽ có, nhưng nếu nó không có thì cũng chưa thể khẳng định được gì, ví dụ như screen resolution ở trên.


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#2132 ndtnv

ndtnv

    biết lệnh minsert

  • Members
  • PipPipPipPipPipPip
  • 437 Bài viết
Điểm đánh giá: 384 (khá)

Đã gửi 10 November 2014 - 08:25 AM

Bạn dùng phần mềm gì để chụp cái hình này thế. Mình đang tìm 1 chương trình như thế này. nếu đọc được mã màu của từng điểm ảnh thì càng hay  :D

 

@ĐVH: Chú thử tìm trong registry xem. Nếu có cách nào đó thì chắc chắn chỉ có thể lấy ở đó. bạn pphung183 nói đúng đó chú. lisp chỉ lấy được những gì thuộc về cad. Cửa sổ cad cũng là 1 đối tượng của cad. Còn taskbar là của windows, nếu bác bill cho thì mới có.

Chỉ dùng Alt+PrintScreen, sau đó paste qua paintbrush của win. Đọc mã màu thì save as bitmap 24 là định dạng không compress,  trước đây mình dùng C++ để đọc mã màu, còn chương trình khác thì mình chưa dùng. ThuyLinh thử search color RGB xem.


  • 1

#2133 luhaivinh

luhaivinh

    Edu level: li10

  • Members
  • PipPipPip
  • 117 Bài viết
Điểm đánh giá: 9 (bình thường)

Đã gửi 12 November 2014 - 01:34 PM

Mọi người cho e hỏi muốn chuyển từ trục tọa độ bình thường (Rectanggular snap) sang trục tọa độ (Isometric snap) thì code sao mọi người.thanks mọi người. :)


  • 0

#2134 nhoclangbat

nhoclangbat

    Edu level: li10

  • Members
  • PipPipPipPipPipPipPip
  • 1409 Bài viết
Điểm đánh giá: 379 (khá)

Đã gửi 12 November 2014 - 01:56 PM

- Dùng command đc đó Vinh ^^ (command "snap" "style" "i" "")


  • 1
"...................][)e\/i][_ /\/\@Y CrY....................."

(defun THỔ_DÂN_HỌC_CAD (xxxx) ...) ^_^








#2135 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5450 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 12 November 2014 - 01:58 PM

(setvar 'snapstyl 1) và (setvar 'snapstyl 0)


  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#2136 nhoclangbat

nhoclangbat

    Edu level: li10

  • Members
  • PipPipPipPipPipPipPip
  • 1409 Bài viết
Điểm đánh giá: 379 (khá)

Đã gửi 12 November 2014 - 02:00 PM

:blink:  gọn gê  ^^, biến hệ thống thật bao la :P  


  • 0
"...................][)e\/i][_ /\/\@Y CrY....................."

(defun THỔ_DÂN_HỌC_CAD (xxxx) ...) ^_^








#2137 luhaivinh

luhaivinh

    Edu level: li10

  • Members
  • PipPipPip
  • 117 Bài viết
Điểm đánh giá: 9 (bình thường)

Đã gửi 12 November 2014 - 02:25 PM

Thanks bác Hà và Nhoc đã giúp đỡ :D


  • 0

#2138 luhaivinh

luhaivinh

    Edu level: li10

  • Members
  • PipPipPip
  • 117 Bài viết
Điểm đánh giá: 9 (bình thường)

Đã gửi 12 November 2014 - 02:50 PM

còn muốn chuyển các kiểu  <Isoplane Top>  <Isoplane Left>  <Isoplane Right>  qua lại thì sao mọi người :)


  • 0

#2139 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 12 November 2014 - 02:55 PM

còn muốn chuyển các kiểu  <Isoplane Top>  <Isoplane Left>  <Isoplane Right>  qua lại thì sao mọi người :)

 

(setvar "SNAPISOPAIR" Flag)

+ Flag = 0 -> <Isoplane Left>

+ Flag = 1 -> <Isoplane Top>

+ Flag = 2 -> <Isoplane Right>

 

 


  • 1

#2140 luhaivinh

luhaivinh

    Edu level: li10

  • Members
  • PipPipPip
  • 117 Bài viết
Điểm đánh giá: 9 (bình thường)

Đã gửi 12 November 2014 - 03:24 PM

Nhiều biến hệ thống quá.thanks bác Tuệ nhiều :D


  • 0