一个仿燕秀工具箱中的对象快速过滤工具。想请高手帮我优化下代码。感激不尽！

xiaoyuzj503 · 发表于 2013-7-11 19:56:32

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;;對象過濾工具
(defun c:ZJ-EE (/ i n ns1 ns2 ns3 ns4 ns5 ns6 ns7 ns8 ns9 ns10 ns11 ns12 ns13 ns14 ns15 ss s1 sn nss)
(setvar "cmdecho" 0)
(initget 6)
(princ "\n->> 對象過濾工具")
(princ "\n->>-> 請選取要過濾的對象 [確定選取全部] 或 <Esc 退出>")
(if (= (setq ss (ssget)) nil) (setq ss (ssget "x")))
(setq n (sslength ss)
i 0
ns1 (ssadd)
ns2 (ssadd)
ns3 (ssadd)
ns4 (ssadd)
ns5 (ssadd)
ns6 (ssadd)
ns7 (ssadd)
ns8 (ssadd)
ns9 (ssadd)
ns10 (ssadd)
ns11 (ssadd)
ns12 (ssadd)
ns13 (ssadd)
ns14 (ssadd)
ns15 (ssadd)
nss (ssadd)
)
(repeat n
(setq s1 (ssname ss i)
sn (cdr (assoc 0 (entget s1)))
)
(cond
((= sn "LINE")
(setq ns1 (ssadd s1 ns1))
)
((= sn "INSERT")
(setq ns2 (ssadd s1 ns2))
)
((= sn "ELLIPSE")
(setq ns3 (ssadd s1 ns3))
)
((or (= sn "LWPOLYLINE") (= sn "POLYLINE"))
(setq ns4 (ssadd s1 ns4))
)
((= sn "ARC")
(setq ns5 (ssadd s1 ns5))
)
((= sn "CIRCLE")
(setq ns6 (ssadd s1 ns6))
)
((= sn "MTEXT")
(setq ns7 (ssadd s1 ns7))
)
((= sn "TEXT")
(setq ns8 (ssadd s1 ns8))
)
((= sn "DIMENSION")
(setq ns9 (ssadd s1 ns9))
)
((= sn "RAY")
(setq ns10 (ssadd s1 ns10))
)
((= sn "XLINE")
(setq ns11 (ssadd s1 ns11))
)
((= sn "POINT")
(setq ns12 (ssadd s1 ns12))
)
((= sn "SPLINE")
(setq ns13 (ssadd s1 ns13))
)
((= sn "HATCH")
(setq ns14 (ssadd s1 ns14))
)
((= sn "SOLID")
(setq ns15 (ssadd s1 ns15))
)
) ;cond
(setq i (1+ i))
)
(guolvqi)
(if nss
(progn
(sssetfirst nil nss)
(princ (strcat "\n ->>-> 對象過濾工具 --> 總共選取了 " (rtos (sslength nss) 2) " 個圖元!!"))
)
(princ "\n ->> 沒有選中的物體!!")
)
(prin1)
)
----------------------------------------------------------
(defun ify (x` `bbx)
(if (/= (sslength x`) 0)
(mode_tile `bbx 0)
(mode_tile `bbx 1)
)
)
----------------------------------------------------------
(defun guolvqi (/ dcl-id dd)
(setq dcl-id (load_dialog "過濾器"));加載DCL文件
; (if (< dcl-id 0)
; (progn(alert "f.dcl 文件不存在!!!"))
; (exit)
; )
(new_dialog "g1" dcl-id);開始壹個新的對話框並顯示該對話框，而且能指定壹個缺省操作
(ify ns1 "bb1")
(ify ns2 "bb2")
(ify ns3 "bb3")
(ify ns4 "bb4")
(ify ns5 "bb5")
(ify ns6 "bb6")
(ify ns7 "bb7")
(ify ns8 "bb8")
(ify ns9 "bb9")
(ify ns10 "bb10")
(ify ns11 "bb11")
(ify ns12 "bb12")
(ify ns13 "bb13")
(ify ns14 "bb14")
(ify ns15 "bb15")
(action_tile "bb1" "(guolv-line)(guolv-shuliang)")
(action_tile "bb2" "(guolv-insert)(guolv-shuliang)")
(action_tile "bb3" "(guolv-ellipse)(guolv-shuliang)")
(action_tile "bb4" "(guolv-lwpolyline)(guolv-shuliang)")
(action_tile "bb5" "(guolv-arc)(guolv-shuliang)")
(action_tile "bb6" "(guolv-circle)(guolv-shuliang)")
(action_tile "bb7" "(guolv-mtext)(guolv-shuliang)")
(action_tile "bb8" "(guolv-text)(guolv-shuliang)")
(action_tile "bb9" "(guolv-dimension)(guolv-shuliang)")
(action_tile "bb10" "(guolv-ray)(guolv-shuliang)")
(action_tile "bb11" "(guolv-xline)(guolv-shuliang)")
(action_tile "bb12" "(guolv-point)(guolv-shuliang)")
(action_tile "bb13" "(guolv-spline)(guolv-shuliang)")
(action_tile "bb14" "(guolv-hatch)(guolv-shuliang)")
(action_tile "bb15" "(guolv-solid)(guolv-shuliang)")
(action_tile "bb16" "(guolv-color)(guolv-shuliang)")
(if (= (setq dd (start_dialog)) 0) (princ) )
(prin1)
)
----------------------------------------------------------
　(defun guolv-shuliang ()
(set_tile "t-obj" (itoa (sslength nss)))
(mode_tile $key 1)
(prin1)
)
----------------------------------------------------------
　(defun guolv-line (/ n i ls1)
(setq n (sslength ns1) i 0 )
(repeat n
(setq ls1 (ssname ns1 i)
nss (ssadd ls1 nss)
i (1+ i)
)
)
(prin1)
)
----------------------------------------------------------
　(defun guolv-insert (/ n i ls2)
(setq n (sslength ns2) i 0 )
(repeat n
(setq ls2 (ssname ns2 i)
nss (ssadd ls2 nss)
i (1+ i)
)
)
(prin1)
)
----------------------------------------------------------
　(defun guolv-ellipse (/ n i ls3)
(setq n (sslength ns3) i 0 )
(repeat n
(setq ls3 (ssname ns3 i)
nss (ssadd ls3 nss)
i (1+ i)
)
)
(prin1)
)
----------------------------------------------------------
　(defun guolv-lwpolyline (/ n i ls4)
(setq n (sslength ns4) i 0 )
(repeat n
(setq ls4 (ssname ns4 i)
nss (ssadd ls4 nss)
i (1+ i)
)
)
(prin1)
)
----------------------------------------------------------
　(defun guolv-arc (/ n i ls5)
(setq n (sslength ns5) i 0 )
(repeat n
(setq ls5 (ssname ns5 i)
nss (ssadd ls5 nss)
i (1+ i)
)
)
(prin1)
)
----------------------------------------------------------
　(defun guolv-circle (/ n i ls6)
(setq n (sslength ns6) i 0 )
(repeat n
(setq ls6 (ssname ns6 i)
nss (ssadd ls6 nss)
i (1+ i)
)
)
(prin1)
)
----------------------------------------------------------
　(defun guolv-mtext (/ n i ls7)
(setq n (sslength ns7) i 0 )
(repeat n
(setq ls7 (ssname ns7 i)
nss (ssadd ls7 nss)
i (1+ i)
)
)
(prin1)
)
----------------------------------------------------------
　(defun guolv-text (/ n i ls8)
(setq n (sslength ns8) i 0 )
(repeat n
(setq ls8 (ssname ns8 i)
nss (ssadd ls8 nss)
i (1+ i)
)
)
(prin1)
)
----------------------------------------------------------
　(defun guolv-dimension (/ n i ls9)
(setq n (sslength ns9) i 0 )
(repeat n
(setq ls9 (ssname ns9 i)
nss (ssadd ls9 nss)
i (1+ i)
)
)
(prin1)
)
----------------------------------------------------------
　(defun guolv-ray (/ n i ls10)
(setq n (sslength ns10) i 0 )
(repeat n
(setq ls10 (ssname ns10 i)
nss (ssadd ls10 nss)
i (1+ i)
)
)
(prin1)
)
----------------------------------------------------------
　(defun guolv-xline (/ n i ls11)
(setq n (sslength ns11) i 0 )
(repeat n
(setq ls11 (ssname ns11 i)
nss (ssadd ls11 nss)
i (1+ i)
)
)
(prin1)
)
----------------------------------------------------------
　(defun guolv-point (/ n i ls12)
(setq n (sslength ns12) i 0 )
(repeat n
(setq ls12 (ssname ns12 i)
nss (ssadd ls12 nss)
i (1+ i)
)
)
(prin1)
)
----------------------------------------------------------
　(defun guolv-spline (/ n i ls13)
(setq n (sslength ns13) i 0 )
(repeat n
(setq ls13 (ssname ns13 i)
nss (ssadd ls13 nss)
i (1+ i)
)
)
(prin1)
)
----------------------------------------------------------
　(defun guolv-hatch (/ n i ls14)
(setq n (sslength ns14) i 0 )
(repeat n
(setq ls14 (ssname ns14 i)
nss (ssadd ls14 nss)
i (1+ i)
)
)
(prin1)
)
----------------------------------------------------------
　(defun guolv-solid (/ n i ls15)
(setq n (sslength ns15) i 0 )
(repeat n
(setq ls15 (ssname ns15 i)
nss (ssadd ls15 nss)
i (1+ i)
)
)
(prin1)
)
----------------------------------------------------------[code=dcl]g1:dialog{
label=" 對象過濾工具 ";
:boxed_column{
label=" ---> 對象 <--- "; //alignment=centered;
:concatenation{
:text_part{label="-->> 總共選取了:";}
:text{width=6; key="t-obj";}
:text_part{label="個圖元!!";}
//alignment=centered;
}
:row{
:button{label="直線 (LINE) ";key="bb1"; height = 3.5; width = 1;}
:spacer{height=0.1;}
:button{label="塊 (INSERT) ";key="bb2"; height = 3.5; width = 0.1;}
:spacer{height=0.1;}
:button{label="橢圓/橢圓弧 (ELLIPSE)";key="bb3"; height = 3.5; width = 0.1;}
:spacer{height=0.1;}
:button{label="多段線 (LWPOLYLINE)";key="bb4"; height = 3.5; width = 0.1;}
}
:spacer{height=0.1;}
:row{
:button{label="圓弧 (ARC) ";key="bb5"; height = 3.5; width = 0.1;}
:spacer{height=0.1;}
:button{label="圓 (CIRCLE) ";key="bb6"; height = 3.5; width = 0.1;}
:spacer{height=0.1;}
:button{label="多行文字 (MTEXT)";key="bb7"; height = 3.5; width = 0.1;}
:spacer{height=0.1;}
:button{label="單行文字 (TEXT)";key="bb8"; height = 3.5; width = 0.1;}
}
:spacer{height=0.1;}
:row{
:button{label="標注 (DIMENSION)";key="bb9"; height = 3.5; width = 0.1;}
:spacer{height=0.1;}
:button{label="射線 (RAY) ";key="bb10"; height = 3.5; width = 0.1;}
:spacer{height=0.1;}
:button{label="構造線 (XLINE)";key="bb11"; height = 3.5; width = 0.1;}
:spacer{height=0.1;}
:button{label="點 (POINT)";key="bb12"; height = 3.5; width = 0.1;}
}
:spacer{height=0.1;}
:row{
:button{label="樣條曲線 (SPLINE)";key="bb13"; height = 3.5; width = 0.1;}
:spacer{height=0.1;}
:button{label="圖案填充 (HATCH)";key="bb14"; height = 3.5; width = 0.1;}
:spacer{height=0.1;}
:button{label="2D實面 (SOLID)";key="bb15"; height = 3.5; width = 0.1;}
:spacer{height=0.1;}
:button{label="顏色 (COLOR)";key="bb16"; height = 3.5; width = 0.1;}
}
:spacer{height=0.1;}
}
spacer_1;
ok_cancel;
}

;;;對象過濾工具 
 (defun c:ZJ-EE (/ i n ns1 ns2 ns3 ns4 ns5 ns6 ns7 ns8 ns9 ns10 ns11 ns12 ns13 ns14 ns15 ss s1 sn nss) 
  (setvar "cmdecho" 0) 
   (initget 6) 
  (princ "\n->> 對象過濾工具") 
  (princ "\n->>-> 請選取要過濾的對象 [確定選取全部] 或 <Esc 退出>") 
  (if (= (setq ss (ssget)) nil) (setq ss (ssget "x"))) 
  (setq n  (sslength ss) 
  i  0 
  ns1 (ssadd) 
  ns2 (ssadd) 
  ns3 (ssadd) 
  ns4 (ssadd) 
  ns5 (ssadd) 
  ns6 (ssadd) 
  ns7 (ssadd) 
  ns8 (ssadd) 
  ns9 (ssadd) 
  ns10 (ssadd) 
  ns11 (ssadd) 
  ns12 (ssadd) 
  ns13 (ssadd) 
  ns14 (ssadd) 
  ns15 (ssadd) 
  nss (ssadd) 
  ) 
  (repeat n 
    (setq s1 (ssname ss i) 
    sn (cdr (assoc 0 (entget s1))) 
    ) 
     (cond 
       ((= sn "LINE") 
    (setq ns1 (ssadd s1 ns1)) 
       ) 
 
       ((= sn "INSERT") 
    (setq ns2 (ssadd s1 ns2)) 
       ) 
 
       ((= sn "ELLIPSE") 
    (setq ns3 (ssadd s1 ns3)) 
       ) 
 
       ((or (= sn "LWPOLYLINE") (= sn "POLYLINE")) 
    (setq ns4 (ssadd s1 ns4)) 
       ) 
 
       ((= sn "ARC") 
    (setq ns5 (ssadd s1 ns5)) 
       ) 
 
       ((= sn "CIRCLE") 
    (setq ns6 (ssadd s1 ns6)) 
       ) 
 
       ((= sn "MTEXT") 
    (setq ns7 (ssadd s1 ns7)) 
       ) 
 
       ((= sn "TEXT") 
    (setq ns8 (ssadd s1 ns8)) 
       ) 
 
       ((= sn "DIMENSION") 
    (setq ns9 (ssadd s1 ns9)) 
       ) 
 
       ((= sn "RAY") 
    (setq ns10 (ssadd s1 ns10)) 
       ) 
 
       ((= sn "XLINE") 
    (setq ns11 (ssadd s1 ns11)) 
       ) 
 
       ((= sn "POINT") 
    (setq ns12 (ssadd s1 ns12)) 
       ) 
 
       ((= sn "SPLINE") 
    (setq ns13 (ssadd s1 ns13)) 
       ) 
 
       ((= sn "HATCH") 
    (setq ns14 (ssadd s1 ns14)) 
       ) 
 
       ((= sn "SOLID") 
    (setq ns15 (ssadd s1 ns15)) 
       ) 
     )          ;cond 
    (setq i (1+ i)) 
  ) 
  (guolvqi) 
  (if nss 
   (progn 
     (sssetfirst nil nss) 
     (princ (strcat "\n ->>-> 對象過濾工具 --> 總共選取了 " (rtos (sslength nss) 2) " 個圖元!!")) 
   ) 
     (princ "\n ->> 沒有選中的物體!!") 
  ) 
  (prin1) 
 ) 
 
---------------------------------------------------------- 
 (defun ify (x` `bbx) 
   (if (/= (sslength x`) 0) 
  (mode_tile `bbx 0) 
  (mode_tile `bbx 1) 
   ) 
 ) 
 
---------------------------------------------------------- 
 
 (defun guolvqi (/ dcl-id dd) 
   (setq dcl-id (load_dialog "過濾器"));加載DCL文件 
;   (if (< dcl-id 0) 
;     (progn(alert "f.dcl 文件不存在!!!")) 
;  (exit) 
;   ) 
   (new_dialog "g1" dcl-id);開始壹個新的對話框並顯示該對話框，而且能指定壹個缺省操作 
   (ify ns1 "bb1") 
   (ify ns2 "bb2") 
   (ify ns3 "bb3") 
   (ify ns4 "bb4") 
   (ify ns5 "bb5") 
   (ify ns6 "bb6") 
   (ify ns7 "bb7") 
   (ify ns8 "bb8") 
   (ify ns9 "bb9") 
   (ify ns10 "bb10") 
   (ify ns11 "bb11") 
   (ify ns12 "bb12") 
   (ify ns13 "bb13") 
   (ify ns14 "bb14") 
   (ify ns15 "bb15") 
   (action_tile "bb1" "(guolv-line)(guolv-shuliang)") 
   (action_tile "bb2" "(guolv-insert)(guolv-shuliang)") 
   (action_tile "bb3" "(guolv-ellipse)(guolv-shuliang)") 
   (action_tile "bb4" "(guolv-lwpolyline)(guolv-shuliang)") 
   (action_tile "bb5" "(guolv-arc)(guolv-shuliang)") 
   (action_tile "bb6" "(guolv-circle)(guolv-shuliang)") 
   (action_tile "bb7" "(guolv-mtext)(guolv-shuliang)") 
   (action_tile "bb8" "(guolv-text)(guolv-shuliang)") 
   (action_tile "bb9" "(guolv-dimension)(guolv-shuliang)") 
   (action_tile "bb10" "(guolv-ray)(guolv-shuliang)") 
   (action_tile "bb11" "(guolv-xline)(guolv-shuliang)") 
   (action_tile "bb12" "(guolv-point)(guolv-shuliang)") 
   (action_tile "bb13" "(guolv-spline)(guolv-shuliang)") 
   (action_tile "bb14" "(guolv-hatch)(guolv-shuliang)") 
   (action_tile "bb15" "(guolv-solid)(guolv-shuliang)") 
   (action_tile "bb16" "(guolv-color)(guolv-shuliang)") 
 
  (if (= (setq dd (start_dialog)) 0) (princ) ) 
 
  (prin1) 
 ) 
 
---------------------------------------------------------- 
 
　(defun guolv-shuliang () 
  (set_tile "t-obj" (itoa (sslength nss))) 
  (mode_tile $key 1) 
   (prin1) 
  ) 
 
---------------------------------------------------------- 
　(defun guolv-line (/ n i ls1) 
  (setq n (sslength ns1) i 0 ) 
  (repeat n 
    (setq ls1 (ssname ns1 i) 
    nss (ssadd ls1 nss) 
    i (1+ i) 
    ) 
  ) 
   (prin1) 
  ) 
 
---------------------------------------------------------- 
　(defun guolv-insert (/ n i ls2) 
  (setq n (sslength ns2) i 0 ) 
  (repeat n 
    (setq ls2 (ssname ns2 i) 
    nss (ssadd ls2 nss) 
    i (1+ i) 
    ) 
  ) 
   (prin1) 
  ) 
 
---------------------------------------------------------- 
　(defun guolv-ellipse (/ n i ls3) 
  (setq n (sslength ns3) i 0 ) 
  (repeat n 
    (setq ls3 (ssname ns3 i) 
    nss (ssadd ls3 nss) 
    i (1+ i) 
    ) 
  ) 
   (prin1) 
  ) 
 
---------------------------------------------------------- 
　(defun guolv-lwpolyline (/ n i ls4) 
  (setq n (sslength ns4) i 0 ) 
  (repeat n 
    (setq ls4 (ssname ns4 i) 
    nss (ssadd ls4 nss) 
    i (1+ i) 
    ) 
  ) 
   (prin1) 
  ) 
 
---------------------------------------------------------- 
　(defun guolv-arc (/ n i ls5) 
  (setq n (sslength ns5) i 0 ) 
  (repeat n 
    (setq ls5 (ssname ns5 i) 
    nss (ssadd ls5 nss) 
    i (1+ i) 
    ) 
  ) 
   (prin1) 
  ) 
 
---------------------------------------------------------- 
　(defun guolv-circle (/ n i ls6) 
  (setq n (sslength ns6) i 0 ) 
  (repeat n 
    (setq ls6 (ssname ns6 i) 
    nss (ssadd ls6 nss) 
    i (1+ i) 
    ) 
  ) 
   (prin1) 
  ) 
 
---------------------------------------------------------- 
　(defun guolv-mtext (/ n i ls7) 
  (setq n (sslength ns7) i 0 ) 
  (repeat n 
    (setq ls7 (ssname ns7 i) 
    nss (ssadd ls7 nss) 
    i (1+ i) 
    ) 
  ) 
   (prin1) 
  ) 
 
---------------------------------------------------------- 
　(defun guolv-text (/ n i ls8) 
  (setq n (sslength ns8) i 0 ) 
  (repeat n 
    (setq ls8 (ssname ns8 i) 
    nss (ssadd ls8 nss) 
    i (1+ i) 
    ) 
  ) 
   (prin1) 
  ) 
 
---------------------------------------------------------- 
　(defun guolv-dimension (/ n i ls9) 
  (setq n (sslength ns9) i 0 ) 
  (repeat n 
    (setq ls9 (ssname ns9 i) 
    nss (ssadd ls9 nss) 
    i (1+ i) 
    ) 
  ) 
   (prin1) 
  ) 
 
---------------------------------------------------------- 
　(defun guolv-ray (/ n i ls10) 
  (setq n (sslength ns10) i 0 ) 
  (repeat n 
    (setq ls10 (ssname ns10 i) 
    nss (ssadd ls10 nss) 
    i (1+ i) 
    ) 
  ) 
   (prin1) 
  ) 
 
---------------------------------------------------------- 
　(defun guolv-xline (/ n i ls11) 
  (setq n (sslength ns11) i 0 ) 
  (repeat n 
    (setq ls11 (ssname ns11 i) 
    nss (ssadd ls11 nss) 
    i (1+ i) 
    ) 
  ) 
   (prin1) 
  ) 
 
---------------------------------------------------------- 
　(defun guolv-point (/ n i ls12) 
  (setq n (sslength ns12) i 0 ) 
  (repeat n 
    (setq ls12 (ssname ns12 i) 
    nss (ssadd ls12 nss) 
    i (1+ i) 
    ) 
  ) 
   (prin1) 
  ) 
 
---------------------------------------------------------- 
　(defun guolv-spline (/ n i ls13) 
  (setq n (sslength ns13) i 0 ) 
  (repeat n 
    (setq ls13 (ssname ns13 i) 
    nss (ssadd ls13 nss) 
    i (1+ i) 
    ) 
  ) 
   (prin1) 
  ) 
 
---------------------------------------------------------- 
　(defun guolv-hatch (/ n i ls14) 
  (setq n (sslength ns14) i 0 ) 
  (repeat n 
    (setq ls14 (ssname ns14 i) 
    nss (ssadd ls14 nss) 
    i (1+ i) 
    ) 
  ) 
   (prin1) 
  ) 
 
 
---------------------------------------------------------- 
　(defun guolv-solid (/ n i ls15) 
  (setq n (sslength ns15) i 0 ) 
  (repeat n 
    (setq ls15 (ssname ns15 i) 
    nss (ssadd ls15 nss) 
    i (1+ i) 
    ) 
  ) 
   (prin1) 
  ) 
 
----------------------------------------------------------[code=dcl]g1:dialog{ 
  label="  對象過濾工具 "; 
  :boxed_column{ 
    label=" --->  對象  <--- ";  //alignment=centered; 
       :concatenation{ 
         :text_part{label="-->>  總共選取了:";} 
         :text{width=6; key="t-obj";} 
         :text_part{label="個圖元!!";} 
      //alignment=centered; 
     }   
 
    :row{ 
      :button{label="直線  (LINE) ";key="bb1"; height = 3.5; width = 1;} 
      :spacer{height=0.1;} 
      :button{label="塊    (INSERT) ";key="bb2"; height = 3.5; width = 0.1;} 
      :spacer{height=0.1;} 
      :button{label="橢圓/橢圓弧 (ELLIPSE)";key="bb3"; height = 3.5; width = 0.1;} 
      :spacer{height=0.1;} 
      :button{label="多段線  (LWPOLYLINE)";key="bb4"; height = 3.5; width = 0.1;} 
      } 
    :spacer{height=0.1;} 
    :row{ 
      :button{label="圓弧  (ARC)  ";key="bb5"; height = 3.5; width = 0.1;} 
      :spacer{height=0.1;} 
      :button{label="圓  (CIRCLE) ";key="bb6"; height = 3.5; width = 0.1;} 
      :spacer{height=0.1;} 
      :button{label="多行文字  (MTEXT)";key="bb7"; height = 3.5; width = 0.1;} 
      :spacer{height=0.1;} 
      :button{label="單行文字  (TEXT)";key="bb8"; height = 3.5; width = 0.1;} 
      } 
    :spacer{height=0.1;} 
    :row{ 
      :button{label="標注  (DIMENSION)";key="bb9"; height = 3.5; width = 0.1;} 
      :spacer{height=0.1;} 
      :button{label="射線  (RAY)  ";key="bb10"; height = 3.5; width = 0.1;} 
      :spacer{height=0.1;} 
      :button{label="構造線  (XLINE)";key="bb11"; height = 3.5; width = 0.1;} 
      :spacer{height=0.1;} 
      :button{label="點  (POINT)";key="bb12"; height = 3.5; width = 0.1;} 
      } 
    :spacer{height=0.1;} 
    :row{ 
      :button{label="樣條曲線  (SPLINE)";key="bb13"; height = 3.5; width = 0.1;} 
      :spacer{height=0.1;} 
      :button{label="圖案填充  (HATCH)";key="bb14"; height = 3.5; width = 0.1;} 
      :spacer{height=0.1;} 
      :button{label="2D實面  (SOLID)";key="bb15"; height = 3.5; width = 0.1;} 
      :spacer{height=0.1;} 
      :button{label="顏色    (COLOR)";key="bb16"; height = 3.5; width = 0.1;} 
      } 
    :spacer{height=0.1;} 
       } 
  spacer_1; 
  ok_cancel; 
     }

　(defun guolv-color (/ co)
   (if (setq co (acad_colordlg 7))
(setq nss (ssget "p" (list (cons 62 co))))
   )
(prin1)
  )[/code]

newer · 发表于 2013-7-11 20:46:56

你贴的是工具箱里面的代码？看到那么多的SSADD，眼晕了。

另外，你需要帮你修改什么啊，说详细些啊，必要时候贴图，附上DWG图。

xiaoyuzj503 · 发表于 2013-7-11 20:50:25

就是因为里面太多的SSADD之类的代码。看得人脑袋都是晕的。我想请你们帮我优化下代码。谢谢。:)

newer · 发表于 2013-7-11 21:15:50

xiaoyuzj503 发表于 2013-7-11 20:50
就是因为里面太多的SSADD之类的代码。看得人脑袋都是晕的。我想请你们帮我优化下代码。谢谢。

你想要修改什么啊？

xiaoyuzj503 · 发表于 2013-7-11 21:18:40

本帖最后由 xiaoyuzj503 于 2013-7-11 21:21 编辑

newer 发表于 2013-7-11 21:15
你想要修改什么啊？

简化代码。用更简单的方法写出同样的用法。{:soso_e100:}

newer · 发表于 2013-7-11 21:22:46

xiaoyuzj503 发表于 2013-7-11 21:18
简化代码。用更简单的方法写出同样的用法。

说心里话，简化别人的代码，还不如自己重新写一个。

你有什么技术上的难点吗，说出来讨论。

用下晓东工具箱2013的快速选择工具吧。

http://bbs.xdcad.net/thread-668256-1-1.html

xiaoyuzj503 · 发表于 2013-7-11 21:32:42

怎么样可以从一个选择集内依条件分出多个不同的选择集？

newer · 发表于 2013-7-11 21:41:35

xiaoyuzj503 发表于 2013-7-11 21:32
怎么样可以从一个选择集内依条件分出多个不同的选择集？

为什么要依据条件从一个选择集里面在分出啊，当初就根据条件去建立啊？

xiaoyuzj503 · 发表于 2013-7-11 22:36:34

可以用mapcar

xiaoyuzj503 · 发表于 2013-7-11 22:38:53

可以用mapcar之类的函数去归类选择集吗？我觉得那样看起来应该比较简洁

Free-Lancer · 发表于 2013-7-12 00:18:38

你自己看懂了多少？另外这个程序能用吗？来自: Android客户端

xiaoyuzj503 · 发表于 2013-7-12 08:40:41

本帖最后由 xiaoyuzj503 于 2013-7-12 08:42 编辑

不好意思。现在附上文件。这个程序是可以用的。之前贴代码的时候不小心弄错了。只是觉得自己用了16个空选择集显得太繁琐。所以想请问下有没有更简洁的方法。感谢Free-Lancer以及newer版主。

eachy · 发表于 2013-7-12 08:58:29

xiaoyuzj503 发表于 2013-7-12 08:40
不好意思。现在附上文件。这个程序是可以用的。之前贴代码的时候不小心弄错了。只是觉得自己用了16个空选择 ...

你可以学学 Set 的用法，使用图元类型作变量，这样代码会大大缩短，可参考的例子，自由定制的刷子、还有几个测量长度程序

(defun getobjectss (ss / sl i e el typ ll)
(setq sl (sslength ss)
i -1
)
(repeat sl
(setq e (ssname ss (setq i (1+ i)))
el (entget e)
typ (strcat "ea" (cdr (assoc 0 el)))
)
(set (read typ) (cons e (eval (read typ))))
(if (not (vl-position typ ll))
(setq ll (cons typ ll))
)
)
ll
)
;;(mapcar '(lambda(x) (eval (read x))) ll)

这样就按类型构造出实体列表了，如果构造选择集只要把实体ssadd加入即可

rjtiantian · 发表于 2013-7-12 11:54:22

我也写过一个类似的，也是用的SSADD,但是效率不高，图元多的时候很慢的

xiaoyuzj503 · 发表于 2013-7-12 13:53:57

eachy 发表于 2013-7-12 08:58
你可以学学 Set 的用法，使用图元类型作变量，这样代码会大大缩短，可参考的例子，自由定制的刷子、还有 ...

感谢eachy的指导。你说的那些例子可否贴个路径参考？感激不尽！

账号		自动登录	找回密码
密码			立即注册

[求助] 一个仿燕秀工具箱中的对象快速过滤工具。想请高手帮我优化下代码。感激不尽！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

点评

点评