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

[NgọcH 0]

Vào lúc 16/7/2012 tại 13:19, lp_hai đã nói:

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)
 )

 

 

a cho e hỏi lisp này có chọn được các đối tượng giống nhau theo vị trí và số lượng ko ạ. 1 mặt bằng có rất nhiều tấm như này và e muốn tìm những tấm giống với tấm e khoanh đỏ kia

[amateurday 16]

Việc lựa chọn đối tượng để thao tác rất cần thiết, do đó em định test cái này, có điều BV bị hết đát nên không tải được, nên không hiểu mong muốn của tác giả ra sao.