안녕하세요!

리습없이 못사는 템빨 설계팀 막내입니다…!

예시 이미지인데요,

우측 블럭 처럼 드래그로도 선택이 가능하고, 다중 선택도 가능하게 해주실 수 있나요?

리습을 사용할때, 객체 한개를 정확하게 딱 누르지 않으면 바로 리습이 꺼져서요 ㅠ

그리고 제가 선택을 도통 한건지 아닌지 티가 안나서,

선택 후에 선택한 객체는 이미지처럼 파랗게 표시가 나도록도 가능한가요?

;;——————-=={ Match Attribs }==——————–;;
;; ;;
;; Prompts for selection of source attribute, then proceeds ;;
;; to match the listed properties for subsequently picked ;;
;; attributes. ;;
;;————————————————————;;
;; Author: Lee Mac, Copyright ?2010 – http://www.lee-mac.com ;;
;;————————————————————;;

(defun c:MAA ( / properties source )
(vl-load-com)
;; ?Lee Mac 2010

;; List of Properties to Match, may be edited to suit
;;————————————————————;;

(setq properties
‘(
Backward
Height
Layer
Linetype
LinetypeScale
Lineweight
ObliqueAngle
Rotation
ScaleFactor
StyleName
Thickness
UpsideDown
)
)

;;————————————————————;;

(if (setq source
(LM:Selectif
(lambda ( x )
(eq “ATTRIB” (cdr (assoc 0 (entget x))))
)
nentsel “nSelect Source Attribute: ”
)
)
(
(lambda ( properties values / dest )
(while
(setq dest
(LM:Selectif
(lambda ( x )
(eq “ATTRIB” (cdr (assoc 0 (entget x))))
)
nentsel “nSelect Destination Attributes: ”
)
)
(setq dest (vlax-ename->vla-object dest))

(mapcar
(function
(lambda ( property value )
(vlax-put-property dest property value)
)
)
properties values
)
)
)
properties
(progn (setq source (vlax-ename->vla-object source))
(mapcar
(function
(lambda ( property ) (vlax-get-property source property))
)
properties
)
)
)
)

(princ)
)

;;———————=={ Select if }==———————-;;
;; ;;
;; Continuous selection prompts until the predicate function ;;
;; foo is validated ;;
;;————————————————————;;
;; Author: Lee Mac, Copyright ?2010 – http://www.lee-mac.com ;;
;;————————————————————;;
;; Arguments: ;;
;; foo – optional predicate function taking ename argument ;;
;; fun – selection function to invoke ;;
;; str – prompt string ;;
;;————————————————————;;
;; Returns: selected entity ename if successful, else nil ;;
;;————————————————————;;

(defun LM:Selectif ( foo fun str / e )
;; ?Lee Mac 2010
(while
(progn (setq e (car (fun str)))
(cond
( (eq ‘ENAME (type e))

(if (and foo (not (foo e)))
(princ “n** Invalid Object Selected **”)
)
)
)
)
)
e
)