[Yêu cầu ] Lisp Tự Động Phát Sinh Vùng Chọn Theo " UCS ảo "

[NTD 11]

Em ko nói dài nữa ai hiểu đc thì giúp em với , ai ko hiểu em cần thế để làm gì thì xin đừng khuyên em nên thay đổi ý tưởng , em tránh phải giải thích làm loãng topic . Mọi vấn đề đều có nguyên nhân của nó , Em xin cảm ơn

 

Em cần 1 Lips như tiêu đề , mục đích

1. Command : ko có lệnh nào hay đc gọi SELECT, đang view tầng 1, bôi chuột "hình chữ nhật" 1 cái chọn đối tượng để hiện Grip box thì mặt bằng tầng 2-3-4-....-n thâm chí là cả các Mặt Cắt Măt Đứng cũng đã tự động xác lập đc các "hình chữ nhật ảo" trong hệ thống "UCS ảo" ( có gốc O là các Block của hệ thống tim cột , hướng XY ) ==> các đối tượng được chọn ==> hiện Grip box ==> Nhàn & Nhanh + Chính xác hơn

2. Command : SELECTSIMILAR (Cad2012) làm tương tự như trên nhưng vì bản chất của lệnh này nên Lisp sẽ phải tự động loại ra các đối tượng nằm bên ngoài các "hình chữ nhật"

 

* Đăc biệt "hình chữ nhật" có thể thay = các lựa chọn sau

Window/Last/Crossing/BOX/ALL/Fence/WPolygon/CPolygon/Group/Add/Remove/Multiple/P

revious/Undo/AUto/SIngle

* Đặc biệt Lips vần chạy chuẩn khi UCS hiện thời đã bị xoay đi và các hệ thống "UCS ảo" ( các bản vẽ ) cũng bi xoay , Tức là các "hình chữ nhật ảo" đc phát sinh kia cũng có khả năng xoay theo toàn bộ hệ thống

* Em có gửi kèm 1 File CAD để minh họa ý tưởng

http://www.cadviet.com/upfiles/3/13141_tu_dong_phat_sinh_vung_chon_theo_ucs_ao__2000.dwg

Em xin cảm ơn mọi người !

[NTD 11]

có bác cao thủ Lisp nào hứng thú với chủ đề này ko giúp em với ! Hay do em đặt ra ý tưởng khó quá hay phi thực tế quá hay do em trình bày khó hiểu quá

[LoveLisp 21]

Mình cũng có hứng thú, có đọc comment và có xem bản vẽ của bạn, nhưng rất tiếc là ... không hiểu bạn muốn gì! hic..hic...

Bạn có thể diễn đạt lại điều bạn muốn một cách đơn giản và dễ hiểu hơn không? Tốt nhất là gạch đầu dòng bạn ạ! Bạn vui lòng viết đầy đủ, đừng viết tắt!

[NTD 11]

Xin rút ngắn post 1 để các bác dễ làm , làm đc bước này sẽ tính bước sau , đầu xuôi thì đuôi sẽ lọt

Em cần 1 Lips mục đích

1. Command : gọi lệnh SELECT, đang view tầng 1, bôi chuột chọn đối tượng để hiện Grip box thì tại mặt bằng tầng 2-3-4-....-n các đối tượng nằm tại các vị trí tương ứng với các đối tượng vừa đc chọn ở tầng 1 sẽ cũng được chọn và hiện Grip box Sau đó ta muốn làm gì thì làm ví dụ gọi lệnh move hay mirror để sửa các đối tượng đó .

* Em có gửi kèm 1 File CAD để minh họa ý tưởng

http://www.cadviet.c...theo_ucs_ao.dwg

Lisp này làm ta giảm đi nhiều thời gian phải pan zoom nhiều vô các vùng bản vẽ chi chít trong 1 dự án lớn để chọn đối tượng cho 1 lệnh nào đó mà có khi chọn nhầm mà lâu hơn Lisp này là cái chắc . Nhất là nếu việc đó lặp đi lặp lại . Lisp cũng giúp thể hiện các bản vẽ của các tầng trong 1 tào nhà cao tầng được đồng bộ & nhanh hơn

[mathan 60]

@NTD: Nếu mình phát triển tiếp ý tưởng copy đối tượng theo block gốc tọa độ và thêm tính năng xoay phần copy theo hướng của block gốc tọa độ đó thì bạn tính sao??Liệu có đáp ứng được nhu cầu của bạn không??

Bạn giải thích vẫn rối lắm. Tạo UCS ảo để làm ?? Bạn chỉ cần đi thẳng vào mục đích.

Con đường đi tới mục đích có thể là khác nhau, nhưng như thế sẽ nhiều ý tưởng sáng tạo hay hơn thì sao??

Hãy cố gắng đến được đích bằng con đường ngắn nhất bạn ah.

P/s: Bạn hãy up file lưu ở dạng CAD đời thấp để nhiều người có thể sử dụng ngay

[NTD 11]

Em vốn ko muốn viết dài làm 1 số bác đọc nhiều đâm bực nhưng vẫn phải viết ra để mọi ng hiểu đc ý đồ của em

@NTD: Nếu mình phát triển tiếp ý tưởng copy đối tượng theo block gốc tọa độ và thêm tính năng xoay phần copy theo hướng của block gốc tọa độ đó thì bạn tính sao??Liệu có đáp ứng được nhu cầu của bạn không??

- Ko phải vì topic bên kia chưa tính đc trường hợp xoay mà em lập topic này để tìm cách chọn những đối tượng chưa đc xoay đó cho lệnh Rotate

Bạn giải thích vẫn rối lắm. Tạo UCS ảo để làm ?? Bạn chỉ cần đi thẳng vào mục đích.

Con đường đi tới mục đích có thể là khác nhau, nhưng như thế sẽ nhiều ý tưởng sáng tạo hay hơn thì sao??

- Với em là bác đã rất giỏi khi đã giải đc bài toán "Tự Động Phát Sinh Đối Tượng Theo UCS ảo" mà em đưa ra , thậm chí rất thông minh khi ko nghĩ đến việc dùng các Block sẵn có để làm UCS ảo , cái này em ko nghĩ ra .Lổi là thuộc về em trong việc trình bày dẫn đến bác chưa giải quyết đc bài toán tổng thể về copy khi UCS bị xoay & các bản vẽ bị xoay .

- Em xin đưa ra 1VD: Trong 1 File vẽ MB thì Block hệ thống tim cột có ở tất cả các MB , em muốn dựa vào đó để vẽ và chỉnh sửa tự động vô số thứ mà giống nhau về hinh thức thể hiện nhưng khác nhau về nội dung đó là những thứ ko nên Block lại ( VD hang loạt text công năng trong các phòng , hê thống đồ nội thất , khác nhau về hình dáng 1 chút thôi nhưng nằm tai các vị trí tương đối như nhau trên MB ....nhiều lắm bác ạ kể ra lại bảo em nói dài )

Hãy cố gắng đến được đích bằng con đường ngắn nhất bạn ah.

[NTD 11]

em đã up lại File CAD minh họa yêu cầu save về phiên bản CAD2000 ở post 1, hoặc la` các bác down tại đây luôn

http://www.cadviet.c..._ao__2000_1.dwg

[LoveLisp 21]

"gọi lệnh SELECT"

-> Thực hiện lệnh Seclect ở dòng Command.

", đang view tầng 1"

-> Màn hình đang zoom và khu vực Mặt bằng tầng 1.

", bôi chuột chọn đối tượng để hiện Grip box"

-> lúc này "bôi chuột" sẽ không làm hiện Grip được bạn ạ, vì bạn đang ở trong lệnh Select mà, muốn hiện Grip thì bạn phải thoát khỏi tất cả các lệnh và chọn đối tượng.

"thì tại mặt bằng tầng 2-3-4-....-n các đối tượng nằm tại các vị trí tương ứng với các đối tượng vừa đc chọn ở tầng 1 sẽ cũng được chọn"

-> Câu này thì bó tay toàn tập!!

"và hiện Grip box Sau đó ta muốn làm gì thì làm ví dụ gọi lệnh move hay mirror để sửa các đối tượng đó"

-> khó hiểu không kém gì câu trên.

 

Nếu muốn 1 đối tượng nào đó liên kết thành nhóm với 1 hay nhiều đối tượng khác, AutoCAD đã có sẵn lệnh Group giúp bạn làm điều này (Nhớ gán biến PICKSTYLE về 1).

Sau khi gán nhóm, bạn có thể dùng lệnh Zoom, lựa chọn Object để xem các đối tượng mà bạn đã chọn.

 

Hy vọng giúp được bạn!

[NTD 11]

"gọi lệnh SELECT"

-> Thực hiện lệnh Seclect ở dòng Command.

", đang view tầng 1"

-> Màn hình đang zoom và khu vực Mặt bằng tầng 1.

", bôi chuột chọn đối tượng để hiện Grip box"

-> lúc này "bôi chuột" sẽ không làm hiện Grip được bạn ạ, vì bạn đang ở trong lệnh Select mà, muốn hiện Grip thì bạn phải thoát khỏi tất cả các lệnh và chọn đối tượng. Bác ko hiểu rõ về lệnh SELECT và nhiều lệnh khác dùng để chọn đối tượng như Filter là cơ bản nhất, hay QSELECT cũng cơ bản nốt , rồi SELECTSIMILAR , nâng cao hơn về Lisp thì có ssget ( vô đây mà vọc đi nè http://www.cadviet.c...showtopic=17934 ) Bác ko đẩy cái biến hệ thống tổng thể GRIPOBJLIMIT cao hơn mạc định 100 thì làm sao GRIP Box nó hiện lên khi có nhiều hơn 100 GRIP Box đáng nhẽ phải hiện lên , đẩy nó lên mức cao nhất 32767 xem co hiện GRIP Box ko mà ngồi đó phán

"thì tại mặt bằng tầng 2-3-4-....-n các đối tượng nằm tại các vị trí tương ứng với các đối tượng vừa đc chọn ở tầng 1 sẽ cũng được chọn"

-> Câu này thì bó tay toàn tập!! Bó tay là đúng :D

"và hiện Grip box Sau đó ta muốn làm gì thì làm ví dụ gọi lệnh move hay mirror để sửa các đối tượng đó"

-> khó hiểu không kém gì câu trên. Chuẩn luôn :D

 

Nếu muốn 1 đối tượng nào đó liên kết thành nhóm với 1 hay nhiều đối tượng khác, AutoCAD đã có sẵn lệnh Group giúp bạn làm điều này (Nhớ gán biến PICKSTYLE về 1).

Sau khi gán nhóm, bạn có thể dùng lệnh Zoom, lựa chọn Object để xem các đối tượng mà bạn đã chọn.

Em biết cái trò này rồi , em ko hỏi về cái trò này !

Ứng dụng của Lisp của topic này nếu đc ai đó viết ra sẽ ảnh hưởng và khác rất nhiều cách bác nói về Group & PICKSTYLE , những thứ quá đơn giản . Mà sao bác biết về PICKSTYLE mà lại ko biết về GRIPOBJLIMIT nhỉ , chúng nằm cùng 1 bảng Selection trong Options cơ mà , haiz !

 

 

Hy vọng giúp được bạn! Chưa giúp đc em thật mà

[NTD 11]

Ketxu đâu rồi , đi OffLine chém anh là làm thì làm đc nhưng mà anh đưa ra nhiều yêu cầu tùy chọn quá nên ngại viết . Bây h anh rút ngắn lại đây , yêu cầu 1 phát thôi , bao h chú biên soan xong giáo trình về Lisp rồi mở lớp về AutoLisp thì anh sẽ tính sau , hoc xong lớp của chú anh mới nhờ ng ko bằng cậy mình :D

 

1 Lips về lệnh SELECTSIMILAR

Command : gọi lệnh của Lips , đang view tầng 1, bôi chuột chọn đối tượng để hiện Grip box thì tại mặt bằng tầng 2-3-4-....-n các đối tượng nằm tại các vị trí tương ứng với các đối tượng vừa đc chọn ở tầng 1 sẽ cũng được chọn và hiện Grip box . vì bản chất của lệnh SELECTSIMILAR nên Lisp sẽ phải tự động loại ra các đối tượng nằm bên ngoài các "hình chữ nhật"

Nhớ chú ý khi UCS bị quay xiên đi hay các bản vẽ bị quay xiên nhé

[ketxu 2.983]

Thôi e nghĩ lại rồi. Tốt nhất chỉ nên chém thôi, còn có khách mà dạy

Nếu a muốn tự làm lisp này thì e hướng dẫn :D

[thanhduan2407 272]

hê hê. Ketxu đang bận sao ấy bác ợ. Hii. Bác học cũng chịu khó nhé. :)

[NTD 11]

@ ketxu : chú có đảm bảo trong lớp Lisp của chú có bài giảng giải quyết đc vấn đề của topic này ko ? có thì anh mới học ko thì nói trước cho anh để anh còn hỏi bác Hoành & bác Hướng . Bác Hoành ban chiều ngồi uống bia kêu anh đừng học lớp Lisp của thằng ketxu khó học lắm :D học .... lớp VBA của bác ý , nhanh rẻ , ý tưởng nào cũng có thể làm đc như bác ý đang chém đây :D . Bác Hướng còn bảo ko nên học lớp nào hết , nên mua sách của anh , có 200k thôi , đọc xong đảm bảo sẽ ... muốn học 1 trong 2 lớp kia :D . Ôi , thế tóm lại là thế nào ? ,bây giờ ông nào giải được bài toán trên thì tui đóng tiền học ông ý . Chốt rồi đấy ! :D

[duy782006 1.517]

-Tất cả các yêu cầu của bác theo tôi bác chỉ cần lập 1 hàm xác định điểm tương ứng trong các block cho trước xét theo cả tỉ lệ, góc, mirror sau đó tuỳ yêu cầu mà ứng dụng hàm này.

-Báo thật với bác là tôi mò lisp cũng hơn 5 năm rồi nhưng những lisp của két viết tôi cứ nhìn vào là đau đầu ko hiểu gì. Ko biết bác nạp nổi trong thời gian ngắn như két không trong khi còn đang đua giành ghế nửa.

-Cái việc làm hàm như tôi nói trên thì tôi làm được nhưng ứng dụng cái hàm đó theo yêu cầu của bác thì tôi thua, tốt nhất bác gặp rực tiếp két làm việc (tôi tin là thời gian ngắn bác sẽ có công cụ như ý trong tay).

-Bác mới đi ọp phát về là giọng văn bắt đầu cợt nhã rồi, tôi vẩn muốn là trên diển đàn mình dủng giọng nghiêm túc tì vì nhiều người nhòm. Đó là ý riêng của tôi.

-À báccó nói lúc nào đỏ chả nhớ là dđ này dị ứng với từ KTS thì ko phải vì theo tôi biết phần lớn những người tham gia tán với bác là KTS cả chỉ là mọi người chán nản với cách mà các KTS bây giờ phải sống và làm việc thôi.

[NTD 11]

- Đi Off anh em uống bia , ket tâm sự bây h ko muốn viết Lisp free nữa rồi , chỉ viết free cho nhưng yêu cầu nào cậu ý hứng thú thôi . Nguyên nhân là do đa số anh em ở đây cả , mọi ng` đọc dòng này của tôi thi` tự ngẫm về bản thân mình trước đi . Tại sao lại làm 1 ng`giỏi nhiêt tình và đam mê như ketxu ko còn nhiệt tình như trước ? Khi nao` ngẫm ra thì hãy lên giọng

- Bác hiểu thế nào là cợt nhả mà lên giọng dạy đời tôi . Về tuổi tôi bằng vai bác Hoành , bác thì bao tuổi rồi ? , về trình thì so kiểu gì đây . Lisp hay lập trình nọ kia tôi đáng hoc trò của nhiều ng ở đây . Nhưng chắc luôn 1 điều sau buổi Off line là tôi ăn đứt vác Hoành khoản sủ dụng AutoCAd hiêu quả hơn cho công việc thiêt kế .

- Anh em đã đi OFF tức là đã tham gia vào 1 tập thể chơi & sống với nhau , hiểu nhau hơn khi chỉ OnLine , Tính cách của tôi ko phải loại ng` lúc nào cũng phải dè trừng nói trước ngó sau , Dù là sếp tổng ở cty khi đã thân thiết tôi coi như anh em ban bè hết , éo có cái khoảng cách dè trừng nhau sợ ng khác soi vào làm gì cho mệt cái đầu

- Tôi luôn tự hào mình là Kiến Trúc Sư ngay từ khi chỉ là 1 thằng thợ vẽ làm theo mọi yêu cầu của sếp . Anh nói câu này chú nào còn đang là thợ vẽ nên ghi nhớ : Nếu bản thân mình thấy xấu hổ khi nhận mình là KTS hay thiếu tự tin để nhận mình là KTS thì con đường trở thành 1 KTS chủ trì trong 1 tập thể cty sẽ dài hơn xa hơn và vất vả hơn . Vấn đề nằm chính ở sự tự tin & dám bảo vệ nhưng gì mình đưa ra khi mình chỉ là 1 thằng thợ vẽ . Nói cụ thể là dám bật lại ngay cả sếp hay chủ đâu tư vì mấy ông đó đơn giản éo phải KTS như mình

[lp_hai 225]

1 Lips về lệnh SELECTSIMILAR

Command : gọi lệnh của Lips , đang view tầng 1, bôi chuột chọn đối tượng để hiện Grip box thì tại mặt bằng tầng 2-3-4-....-n các đối tượng nằm tại các vị trí tương ứng với các đối tượng vừa đc chọn ở tầng 1 sẽ cũng được chọn và hiện Grip box . vì bản chất của lệnh SELECTSIMILAR nên Lisp sẽ phải tự động loại ra các đối tượng nằm bên ngoài các "hình chữ nhật"

Nhớ chú ý khi UCS bị quay xiên đi hay các bản vẽ bị quay xiên nhé

Mình nhớ trước đây có bạn yêu cầu lisp chọn những dt có vị trí trương đồng ở nhiều Mặt bằng khác nhau, có viết cho riêng trường hợp bạn ấy yêu cầu, kiểu chọn đối tượng là (ssget "W"), bạn test thử có giống như vậy không?

(defun c:ss(/ dt lstp p01 p02 n id dtc p1 p2 stdc spt)
 (setq dt (ssadd)
osm (getvar "osmode")
)
 (setq p01(getpoint "\nchon diem goc 1:"))
 (command "ucs" "n" p01)
 (setvar "osmode" 0)
 (while (setq p1(getpoint"\nchon doi tuong:"))
(setq p2(getcorner p1)
  lstp (append (list p1 p2) lstp))
)
 (setq spt (/(length lstp)2)
n 0)
 (repeat spt
(setq dtc (ssget "W" (nth n lstp) (nth (+ n 1) lstp))
  n (+ n 2)
  )
(setq sdtc (sslength dtc)
  id 0)
(repeat sdtc
 	(setq dt (ssadd (ssname dtc id) dt)
	id (1+ id))
 	)
)
 (setvar "osmode" osm)
 ;;;;
 (while (setq p02 (getpoint "\nchon diem goc tiep theo:"))
(command "ucs" "n" p02)
(setvar "osmode" 0)
(setq n 0)
(repeat spt
 	(setq dtc (ssget "W" (nth n lstp) (nth (+ n 1) lstp))
  n (+ n 2)
  )
 	(setq sdtc (sslength dtc)
  id 0)
 	(repeat sdtc
(setq dt (ssadd (ssname dtc id) dt)
  	id (1+ id))
)
 	)
(setvar "osmode" osm)
)
 (command "ucs" "w")
 (sssetfirst dt dt) 
 (princ)
 )

[Tue_NV 3.912]

- Đi Off anh em uống bia , ket tâm sự bây h ko muốn viết Lisp free nữa rồi , chỉ viết free cho nhưng yêu cầu nào cậu ý hứng thú thôi . Nguyên nhân là do đa số anh em ở đây cả , mọi ng` đọc dòng này của tôi thi` tự ngẫm về bản thân mình trước đi . Tại sao lại làm 1 ng`giỏi nhiêt tình và đam mê như ketxu ko còn nhiệt tình như trước ? Khi nao` ngẫm ra thì hãy lên giọng

.......

Không phải ai nhiệt tình và đam mê như Ketxu không còn nhiệt tình như trước.

Xin đừng vơ đũa cả nắm.

......

-......Lisp hay lập trình nọ kia tôi đáng hoc trò của nhiều ng ở đây . Nhưng chắc luôn 1 điều sau buổi Off line là tôi ăn đứt vác Hoành khoản sủ dụng AutoCAd hiêu quả hơn cho công việc thiêt kế .

.......

Trời ạ! Có mấy cái sử dụng AutoCAd bạn còn chưa biết nói chi là .....?

Không nên nói vậy tí nào?

Chài Premetric rơi đúng vùng chưa biết của em , em sẽ voc nó nhiều hơn vì thấy cái này có nhiều ứng dụng quá,

Nhưng vấn đề là mới vọc 5p đã khóa và mở khóa ngon lành ==> khóa này chưa chắc , ai biêt về Premetric sẽ mở ngon lành

..........

[lp_hai 225]

E đồng ý với bác Tue!

Phải công nhận đọc lại những CM của NTD em thấy hơi bị sốc ^^

Ở trên cadviet phần đông là KST, và cũng một phần không nhỏ không phải là KTS, Nếu em là KTS em cũng sẽ tự hào mình là KTS, nhưng em không cần phải giới thiệu em là KTS mọi lúc mọi nơi, vì sao ư? vì đơn giản em đang suy nghĩ theo cách nghĩ của "một thằng thợ vẽ". Nói để biết là trên cadviet chac cung co nhiều bác lam nghề như em. có bác có tuổi đời có lẽ cũng có cháu gọi bằng ông rồi.

 

Nếu bạn NTD gọi "mấy chú" và xưng "anh" thì em hơi ái ngại!

[NTD 11]

Không phải ai nhiệt tình và đam mê như Ketxu không còn nhiệt tình như trước.

Xin đừng vơ đũa cả nắm.

- Ồ cái này thì đúng là mình sai rồi , tiền ko mua đc sự nhiêt tình chia sẻ của anh em cadviet , điêu đó còn nhiêu ng` như minh mong chờ để học hỏi để chia se kiên thức cho ng đên sau ....

Trời ạ! Có mấy cái sử dụng AutoCAd bạn còn chưa biết nói chi là .....?

Không nên nói vậy tí nàCarmm

- Cảm nhận của riêng mình là vậy ! moi ng ko tán thành thì thôi coi như mình chưa nói ! Đâu phải cứ biết rất nhiều lệnh nhiều Lisp hơn thì làm thiết kế sẽ cho sản lượng và chất lượng cao hơn đâu . Nhàn hơn thì chuẩn rồi !

[NTD 11]

Mình nhớ trước đây có bạn yêu cầu lisp chọn những dt có vị trí trương đồng ở nhiều Mặt bằng khác nhau, có viết cho riêng trường hợp bạn ấy yêu cầu, kiểu chọn đối tượng là (ssget "W"), bạn test thử có giống như vậy không?

 

Cảm ơn bạn Lisp này gần đúng với cái mình yêu cầu rồi , chỉ cần chế 1 chút thôi là đúng như yêu cầu topic . Việc này mình sẽ làm có gì se hỏi anh em sau

[NTD 11]

E đồng ý với bác Tue!

Phải công nhận đọc lại những CM của NTD em thấy hơi bị sốc ^^

- Tất cả đồng nghiệp & bạn bè anh em trong cty tôi đều kêu nghe tôi phát biểu là sốc nhất là khi họp :D

Ở trên cadviet phần đông là KST, và cũng một phần không nhỏ không phải là KTS, Nếu em là KTS em cũng sẽ tự hào mình là KTS, nhưng em không cần phải giới thiệu em là KTS mọi lúc mọi nơi, vì sao ư? vì đơn giản em đang suy nghĩ theo cách nghĩ của "một thằng thợ vẽ". Nói để biết là trên cadviet chac cung co nhiều bác lam nghề như em. có bác có tuổi đời có lẽ cũng có cháu gọi bằng ông rồi.

- Chăc chú sinh năm 8x đúng ko , nên mới nghĩ mình là thợ vẽ đúng ko , ko nên nghĩ vậy chút nào . Bỏi nghĩ thế lâu lâu là mất hết tự tin dẫn đến ko chịu khó thậm chí là dũng cảm đứng ra gách vác công việc trong 1 tập thể 1 cty . Cứ đặt địa vị mình là sếp xem có muốn chọn 1 KTS tốt nghiêp bằng giỏi mà lúc nào cũng nghĩ mình là thằng thợ vẽ thôi làm KTS chủ trì 1 dự án ko ? , Họp nội bộ cty ko dám đứng lên bảo vệ quan điêm hay PA của mình , ko dám bật lại cả đòng nghiệp hay cả sếp thậm chí là ko dám phát biểu nữa thì ....hèn vãi . Thế thì di họp với CĐT với các ban nghành trên sở thì ngọng lưỡi lại à . Để cả cty đi hầu CĐT & cấp quản lý ư ? Tai sao ko suy nghĩ manh mẽ lên . Tư duy của chú đâu phải xoàng ,còn trẻ mà ít ra hơn hẳn anh về Lisp rồi sao thiếu tự tin thế hả trời

Nếu bạn NTD gọi "mấy chú" và xưng "anh" thì em hơi ái ngại!

- Anh sinh năm 78 . Anh chỉ nói với mấy chú 8x đang coi mình là thợ vẽ , rụt rè ko dám nhận mình là KTS vì anh hơn tuổi đời tuổi nghề xưng hô vậy có sao ko ?

[ketxu 2.983]

- Còn theo em thì mọi người không nên tán những chuyện ngoài chuyên môn ở box này ^^

 

@NTD : 1 ví dụ để thấy yêu cầu k có gì là khó khăn - hoàn toàn có thể thêm các option vào cho nó :

 

(defun c:ssc(/ get-points)
(defun get-points (/ p pt)
(setq p (getpoint "\nChon diem goc :"))
(while (setq pt (getpoint p "\nCac diem tham chieu :"))
(setq *ss-list* (cons pt *ss-list*))
)
(setq *ss-list* (mapcar '(lambda(x)(mapcar '- x p)) *ss-list*))
)
(or *ss-list* (get-points))
(princ "\nChon doi tuong bang phuong thuc cross :")
(setq ss (ssget "c" (setq p1 (getpoint "\np1"))(setq p2(getcorner p1 "\np2"))))
(command "zoom" "e")
(setq lst (mapcar '(lambda(x)(ssget "c" (mapcar '+ p1 x)(mapcar '+ p2 x))) *ss-list*))
(command "zoom" "p")
(sssetfirst nil (acet-ss-union  (cons ss lst)))
(princ)
)

[NTD 11]

- Còn theo em thì mọi người không nên tán những chuyện ngoài chuyên môn ở box này ^^

 

@NTD : 1 ví dụ để thấy yêu cầu k có gì là khó khăn - hoàn toàn có thể thêm các option vào cho nó :

 

 

Anh đang ngồi chế cái Lisp kia của lp_hai thì chú đã viết xong cái Lisp này , code của chú khác hẳn thâm chí là còn thông minh hơn nhiều khi cho phép CAD lưu lại các UCS ảo các điểm tham chiếu để lần sau tiêp tuc sủ dụng ko cần chon lại , quá đỉnh , Nhưng đỉnh quá nên chú quên luôn chế độ cho reset lại hay chỉnh sửa thêm bớt các UCS ảo các điểm tham chiếu , phải tăt File đi nó mới tự reset.

Thôi anh chốt rồi ! anh cắp sách theo học chú 1 lớp Lisp sắp tới , mắc kệ VBA của bác Hoành bác Hướng , VBA tính sau . Anh có bao nhiêu ý tưởng về Lisp thế này mà cứ đi yêu càu mãi trên này vừa mất thòi gian vừa ko đặt hêt đc sự mãn nguyện 100%, ko tự sướng đc là khổ thế đấy :D .

Sọan giáo trình nhanh lên em ơi , mong lớp của em mở vào buổi tối

[ketxu 2.983]

Biến *ss-list* là nơi chứa các list này - nó là biến toàn cục nên có thể dùng cho lần sau. Bác có thể tự thêm lựa chọn xóa nó trong thân hàm - hoặc viết thêm lệnh bên ngoài với nội dung là (setq *ss-list* nil). Cái này e chỉ làm ví dụ thôi - và tưởng không cần phải thuyết trình ^^

[NTD 11]

Biến *ss-list* là nơi chứa các list này - nó là biến toàn cục nên có thể dùng cho lần sau. Bác có thể tự thêm lựa chọn xóa nó trong thân hàm - hoặc viết thêm lệnh bên ngoài với nội dung là (setq *ss-list* nil). Cái này e chỉ làm ví dụ thôi - và tưởng không cần phải thuyết trình ^^

Anh mà biết đc thế thì ng khác như anh cũng biết đc thôi ==> chú mở lớp ra ngồi 1 mình nha :D . Để tối về nhà anh thử xem