求助，能不能先选择属性块，然后按图号自动排序，然后在定位缩放

a189233 · 发表于 2024-1-11 13:07

飞雪神光 · 发表于 2024-1-12 09:44

a189233 发表于 2024-1-12 09:33
只能框选，，要是点选的话，可做到其它相同属性块都自动排最好

那点选还分 entsel点选和 ssget 的点选 ssget 的点选又分有空格确认和无空格需求一次说清最开始就说个 "先选择属性块" 花钱了吗一次次加需求

飞雪神光 · 发表于 2024-1-11 16:44

a189233 发表于 2024-1-11 14:47
谢谢了。谢谢了，可以按顺序了。能不能先选择属性块。

想手动选 ssget 后面的"X"删掉就行了

飞雪神光 · 发表于 2024-1-11 14:43

本帖最后由飞雪神光于 2024-1-11 20:41 编辑

(defun c:KK (/ cz dcl_id dcllst dd elsts fn fname jpg_insertxx show_list ss ss-enlst tmnames)
(defun cz (/ e)
(setq e (cadr (nth nn tmnames3)))
(command "zoom" "o" e "")
)
(defun show_list (key newlist)
(start_list key)
(mapcar 'add_list newlist)
(end_list)
)
(defun ss-enlst (ss / enlst)
(cond
((= (type ss) 'PICKSET)
(vl-remove-if-not
'(lambda (x) (= (type x) 'ENAME))
(mapcar 'cadr (ssnamex SS))
)
)
((= (type ss) 'LIST)
(setq enlst (ssadd))
(last (mapcar '(lambda (x) (ssadd x enlst)) ss))
)
)
)
(defun jpg_insertxx (e0 item / obj att jgb aobj)
(vlax-get (setq obj (vlax-ename->vla-object e0))
"HasAttributes"
)
(progn (setq att (vlax-invoke obj "GetAttributes"))
(setq jgb (mapcar '(lambda (aobj)
(list (vlax-get aobj "TagString")
(vlax-get aobj "TextString")
)
)
att
)
)
)
(cadr (assoc item jgb))
)
(defun lm-Str2num (String / positioni YPOutString)
(setq positioni -1 aiilst'() jci 0)
(repeat (strlen string)
(setq ascm(vl-string-elt string (setq positioni (+ positioni 1))))
(if(< 47 ascm 58)
(setq aiilst(append aiilst (list ascm)))
(setq jci (1+ jci))
)
)
(atoi(car(mapcar'VL-LIST->STRING(reverse (list aiilst)))))
)
(setq
ss (ssget (list '(0 . "insert") '(66 . 1) (cons 2 "14315445")))
elsts (ss-enlst ss)
tmnames1 (mapcar '(lambda (x) (list (lm-Str2num (jpg_insertxx x "图号")) (strcat (jpg_insertxx x "图号") (jpg_insertxx x "图名")) x)) elsts)
tmnames2 (vl-sort tmnames1 '(lambda (x y) (< (car x) (car y))))
tmnames3 (mapcar 'cdr tmnames2)
tmnames (mapcar 'car tmnames3)
)
(setq fname (vl-filename-mktemp nil nil ".dcl"))
(setq fn (open fname "w")
dcllst '("xx:dialog {"
" label = \"图框定位by--个人使用）\" ;"
" :list_box {"
" height = 30 ;"
" key = \"dcl-tks\" ;"
" }"
" :button {"
" height = 2 ;"
" is_cancel = true ;"
" key = \"dcl-cancel\" ;"
" label = \"取消\" ;"
" width = 38 ;"
" }}"
)
)
(foreach x dcllst (write-line x fn))
(close fn)
(setq dcl_id (load_dialog fname))
(new_dialog "xx" dcl_id)
(vl-file-delete fname)
(show_list "dcl-tks" tmnames)
(action_tile "dcl-tks" "(setq nn(atoi(get_tile \"dcl-tks\")))(done_dialog 1)")
(setq dd (start_dialog))
(if (= dd 1)
(cz)
)
(unload_dialog dcl_id)
)

(defun c:KK (/ cz dcl_id dcllst dd elsts fn fname jpg_insertxx show_list ss ss-enlst tmnames) 
  (defun cz (/ e) 
    (setq e (cadr (nth nn tmnames3))) 
    (command "zoom" "o" e "") 
  ) 
  (defun show_list (key newlist) 
    (start_list key) 
    (mapcar 'add_list newlist) 
    (end_list) 
  ) 
  (defun ss-enlst (ss / enlst) 
    (cond 
      ((= (type ss) 'PICKSET) 
        (vl-remove-if-not 
          '(lambda (x) (= (type x) 'ENAME)) 
          (mapcar 'cadr (ssnamex SS)) 
        ) 
      ) 
      ((= (type ss) 'LIST) 
        (setq enlst (ssadd)) 
        (last (mapcar '(lambda (x) (ssadd x enlst)) ss)) 
      ) 
    ) 
  ) 
  (defun jpg_insertxx (e0 item / obj att jgb aobj) 
    (vlax-get (setq obj (vlax-ename->vla-object e0)) 
      "HasAttributes" 
    ) 
    (progn (setq att (vlax-invoke obj "GetAttributes")) 
      (setq jgb (mapcar '(lambda (aobj) 
                           (list (vlax-get aobj "TagString") 
                             (vlax-get aobj "TextString") 
                           ) 
                         ) 
                  att 
                ) 
      ) 
    ) 
    (cadr (assoc item jgb)) 
  ) 
  (defun lm-Str2num (String / positioni YPOutString) 
    (setq positioni -1 aiilst'() jci 0) 
    (repeat (strlen string) 
      (setq ascm(vl-string-elt string (setq positioni (+ positioni 1)))) 
      (if(< 47 ascm 58) 
        (setq aiilst(append aiilst (list ascm))) 
        (setq jci (1+ jci)) 
      ) 
    ) 
    (atoi(car(mapcar'VL-LIST->STRING(reverse (list aiilst))))) 
  ) 
  (setq 
    ss  (ssget (list '(0 . "insert") '(66 . 1) (cons 2 "14315445"))) 
    elsts  (ss-enlst ss) 
    tmnames1 (mapcar '(lambda (x) (list (lm-Str2num (jpg_insertxx x "图号")) (strcat (jpg_insertxx x "图号") (jpg_insertxx x "图名")) x)) elsts) 
    tmnames2 (vl-sort tmnames1 '(lambda (x y) (< (car x) (car y)))) 
    tmnames3 (mapcar 'cdr tmnames2) 
    tmnames (mapcar 'car tmnames3) 
  ) 
  (setq fname (vl-filename-mktemp nil nil ".dcl")) 
  (setq  fn   (open fname "w") 
    dcllst '("xx:dialog {" 
              "    label = \"图框定位by--个人使用）\" ;" 
              " :list_box {" 
              "                height = 30 ;" 
              "                             key = \"dcl-tks\" ;" 
              "                                   }" 
              "            :button {" 
              "                height = 2 ;" 
              "                is_cancel = true ;" 
              "                key = \"dcl-cancel\" ;" 
              "                label = \"取消\" ;" 
              "                width = 38 ;" 
              "            }}" 
            ) 
  ) 
   
  (foreach x dcllst (write-line x fn)) 
  (close fn) 
  (setq dcl_id (load_dialog fname)) 
  (new_dialog "xx" dcl_id) 
  (vl-file-delete fname) 
  (show_list "dcl-tks" tmnames) 
  (action_tile "dcl-tks" "(setq nn(atoi(get_tile  \"dcl-tks\")))(done_dialog 1)") 
  (setq dd (start_dialog)) 
  (if (= dd 1) 
    (cz) 
  ) 
  (unload_dialog dcl_id) 
)

a189233 · 发表于 2024-1-11 14:47

飞雪神光发表于 2024-1-11 14:43

谢谢了。谢谢了，可以按顺序了。能不能先选择属性块。

xyp1964 · 发表于 2024-1-11 21:00

;先排序

bai2000 · 发表于 2024-1-11 21:47

院长，能不能加个“下一张”“上一张”的翻页？

a189233 · 发表于 2024-1-12 09:26

飞雪神光发表于 2024-1-11 16:44
想手动选 ssget 后面的"X"删掉就行了

谢谢版主了。谢谢了，太厉害了。

a189233 · 发表于 2024-1-12 09:31

xyp1964 发表于 2024-1-11 21:00
;先排序

只能框选，，要是点选的话，可做到其它相同属性块都自动排最好，不过也谢谢院长了，谢谢院长了

a189233 · 发表于 2024-1-12 09:33

飞雪神光发表于 2024-1-11 16:44
想手动选 ssget 后面的"X"删掉就行了

只能框选，，要是点选的话，可做到其它相同属性块都自动排最好

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

[提问] 求助，能不能先选择属性块，然后按图号自动排序，然后在定位缩放

本帖子中包含更多资源

评分

本帖子中包含更多资源

点评