[日积月累]：选择集Measure

eachy

2. 
   
3. (defun c:myme (/ ss dis b ssl i e key)
   
4.   (if (setq ss (ssget '((0 . "line,*polyline,arc,spline"))))
   
5.     (progn
   
6.       (if (progn (initget 128)
   
7.                  (setq dis (getdist "指定线段长度或 [块(B)]: "))
   
8.           )
   
9.         (progn
   
10.           (if (= (type dis) 'STR)
    
11.             (progn
    
12.               (setq b (getstring "\n输入块名: "))
    
13.               (initget 128 "Y N")
    
14.               (setq key
    
15.                      (getkword "\n是否对齐块和对象？[是(Y)/否(N)] <Y>:")
    
16.               )
    
17.               (if (or (not key) (= key ""))
    
18.                 (setq key "Y")
    
19.                 (setq key "N")               
    
20.               )
    
21.               (if (tblsearch "block" b)
    
22.                 (setq dis (getdist "\n指定线段长度: "))
    
23.                 (progn
    
24.                   (princ "\nNo Block!")
    
25.                   (exit)
    
26.                 )
    
27.               )
    
28.             )
    
29.           )
    
30.           (if dis
    
31.             (progn
    
32.               (setq ssl        (sslength ss)
    
33.                     i        -1
    
34.               )
    
35.               (if b
    
36.                 (repeat        ssl
    
37.                   (setq e (ssname ss (setq i (1+ i))))
    
38.                   (command ".measure" e "b" b key dis)
    
39.                 )
    
40.                 (repeat        ssl
    
41.                   (setq e (ssname ss (setq i (1+ i))))
    
42.                   (command ".measure" e dis)
    
43.                 )
    
44.               )
    
45.             )
    
46.           )
    
47.         )
    
48.       )
    
49.     )
    
50.   )
    
51.   (princ)
    
52. )

<br /> (defun c:myme (/ ss dis b ssl i e key)<br />   (if (setq ss (ssget '((0 . "line,*polyline,arc,spline"))))<br />     (progn<br />       (if (progn (initget 128)<br />                  (setq dis (getdist "指定线段长度或 [块(B)]: "))<br />           )<br />         (progn<br />           (if (= (type dis) 'STR)<br />             (progn<br />               (setq b (getstring "\n输入块名: "))<br />               (initget 128 "Y N")<br />               (setq key<br />                      (getkword "\n是否对齐块和对象？[是(Y)/否(N)] <Y>:")<br />               )<br />               (if (or (not key) (= key ""))<br />                 (setq key "Y")<br />                 (setq key "N")                <br />               )<br />               (if (tblsearch "block" b)<br />                 (setq dis (getdist "\n指定线段长度: "))<br />                 (progn<br />                   (princ "\nNo Block!")<br />                   (exit)<br />                 )<br />               )<br />             )<br />           )<br />           (if dis<br />             (progn<br />               (setq ssl        (sslength ss)<br />                     i        -1<br />               )<br />               (if b<br />                 (repeat        ssl<br />                   (setq e (ssname ss (setq i (1+ i))))<br />                   (command ".measure" e "b" b key dis)<br />                 )<br />                 (repeat        ssl<br />                   (setq e (ssname ss (setq i (1+ i))))<br />                   (command ".measure" e dis)<br />                 )<br />               )<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

qjcpj

请斑竹给个说明，做何用？

eachy

最初由 qjcpj 发布
[B]请斑竹给个说明，做何用？ [/B]

应一位网友的要求写的，一次Measure多个线，下面是再次更改的，对图块提示作了简化，块默认对齐。简化了Measure 的选项输入而且支持批量。

2. 
   
3. (defun c:myme (/ ss dis b ssl i e key)
   
4.   (if (setq ss (ssget '((0 . "line,*polyline,arc,spline"))))
   
5.     (progn
   
6.       (if (progn (initget 128)
   
7.                  (setq dis (getdist "指定线段长度或块名[注意纯数字图块名前加任意字母!]: "))
   
8.           )
   
9.         (progn
   
10.           (if (= (type dis) 'STR)
    
11.             (progn
    
12.               (if (tblsearch "block" dis)
    
13.                 (setq b dis)
    
14.                 (if (tblsearch "block" (substr dis 2))
    
15.                   (setq b (substr dis 2))
    
16.                   (exit)
    
17.                 )
    
18.               )
    
19.               (if (tblsearch "block" b)
    
20.                 (setq dis (getdist "\n指定线段长度: "))
    
21.                 (progn
    
22.                   (princ "\nNo Block!")
    
23.                   (exit)
    
24.                 )
    
25.               )
    
26.             )
    
27.           )
    
28.           (if dis
    
29.             (progn
    
30.               (setq ssl        (sslength ss)
    
31.                     i        -1
    
32.               )
    
33.               (if b
    
34.                 (repeat        ssl
    
35.                   (setq e (ssname ss (setq i (1+ i))))
    
36.                   (command ".measure" e "b" b "y" dis)
    
37.                 )
    
38.                 (repeat        ssl
    
39.                   (setq e (ssname ss (setq i (1+ i))))
    
40.                   (command ".measure" e dis)
    
41.                 )
    
42.               )
    
43.             )
    
44.           )
    
45.         )
    
46.       )
    
47.     )
    
48.   )
    
49.   (princ)
    
50. )

<br /> (defun c:myme (/ ss dis b ssl i e key)<br />   (if (setq ss (ssget '((0 . "line,*polyline,arc,spline"))))<br />     (progn<br />       (if (progn (initget 128)<br />                  (setq dis (getdist "指定线段长度或块名[注意纯数字图块名前加任意字母!]: "))<br />           )<br />         (progn<br />           (if (= (type dis) 'STR)<br />             (progn<br />               (if (tblsearch "block" dis)<br />                 (setq b dis)<br />                 (if (tblsearch "block" (substr dis 2))<br />                   (setq b (substr dis 2))<br />                   (exit)<br />                 )<br />               )<br />               (if (tblsearch "block" b)<br />                 (setq dis (getdist "\n指定线段长度: "))<br />                 (progn<br />                   (princ "\nNo Block!")<br />                   (exit)<br />                 )<br />               )<br />             )<br />           )<br />           (if dis<br />             (progn<br />               (setq ssl        (sslength ss)<br />                     i        -1<br />               )<br />               (if b<br />                 (repeat        ssl<br />                   (setq e (ssname ss (setq i (1+ i))))<br />                   (command ".measure" e "b" b "y" dis)<br />                 )<br />                 (repeat        ssl<br />                   (setq e (ssname ss (setq i (1+ i))))<br />                   (command ".measure" e dis)<br />                 )<br />               )<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

雨箭风刀

好像有点鸡肋的感觉，受measure命令的限制，不能divide，又不能对选集操作（要么就做块炸开），还不如直接用 vlax-curve系列函数来处理。舍弃measure或divide命令。