第二个建议选择对象,然后为其7个以上的子字符串选择“要匹配的字符数”,然后使用Tharwats建议。
- ; bit rough but for testing
- (setq obj (vlax-ename->vla-object (car (entsel))))
- (setq lay (vla-get-layer obj) )
- (alert (strcat "You have picked layer " lay "Enter number of characters next step"))
- (setq num ("Enter number of characters"))
- (setq str (strcat (substr lay 1 num) "*" ))
- (setq sel (ssget "_:L" (list (cons 8 str))))
|