【标注】原值检查

marting · 发表于 2020-6-30 21:39:31

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

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

×

(defun c:xdtb_dimvchk (/ box i key ss x)
(defun _keyword (key)
(cond ((= key "D")
(xdrx-entity-delete
(ssget "x" '((0 . "solid") (62 . 1) (-3 ("NAME"))))
)
)
)
)
(if (and (xdrx-initget "D")
(xdrx_initssget "" "D" "" "_keyword" "")
(setq ss (xdrx-ssget
"\n选取要缩放的图块[删除检查框(D)]<退出>:"
'((0 . "dimension*"))
)
)
)
(progn
(xdrx-begin)
(setq i 0)
(mapcar '(lambda (x)
(if (and (/= "" (xdrx-getpropertyvalue x "textstring"))
(setq box (xdrx-getpropertyvalue x "textbox"))
)
(progn (setq i (1+ i))
(xdrx-solid-make
(car box)
(last box)
(nth 2 box)
(nth 1 box)
)
(xdrx-setpropertyvalue
(entlast)
"color"
1
"Transparency"
30
)
(xdrx-xdata-set (entlast) "name" "jck")
(xdrx-draworder->back (entlast))
)
)
)
(xdrx-pickset->ents ss)
)
(xdrx-prompt
"\n共发现了"
i
"个标注对象原值被改变."
(if (> i 0)
"已经标记,请核查."
""
)
)
(xdrx-end)
)
)
(princ)
)

(defun c:xdtb_dimvchk (/ box i key ss x) 
  (defun _keyword (key) 
    (cond ((= key "D") 
           (xdrx-entity-delete 
             (ssget "x" '((0 . "solid") (62 . 1) (-3 ("NAME")))) 
           ) 
          ) 
    ) 
  ) 
  (if (and (xdrx-initget "D") 
           (xdrx_initssget "" "D" "" "_keyword" "") 
           (setq ss (xdrx-ssget 
                      "\n选取要缩放的图块[删除检查框(D)]<退出>:" 
                      '((0 . "dimension*")) 
                    ) 
           ) 
      ) 
    (progn 
      (xdrx-begin) 
      (setq i 0) 
      (mapcar '(lambda (x) 
                 (if (and (/= "" (xdrx-getpropertyvalue x "textstring")) 
                          (setq box (xdrx-getpropertyvalue x "textbox")) 
                     ) 
                   (progn (setq i (1+ i)) 
                          (xdrx-solid-make 
                            (car box) 
                            (last box) 
                            (nth 2 box) 
                            (nth 1 box) 
                          ) 
                          (xdrx-setpropertyvalue 
                            (entlast) 
                            "color" 
                            1 
                            "Transparency" 
                            30 
                          ) 
                          (xdrx-xdata-set (entlast) "name" "jck") 
                          (xdrx-draworder->back (entlast)) 
                   ) 
                 ) 
               ) 
              (xdrx-pickset->ents ss) 
      ) 
      (xdrx-prompt 
        "\n共发现了" 
        i 
        "个标注对象原值被改变." 
        (if (> i 0) 
          "已经标记,请核查." 
          "" 
        ) 
      ) 
      (xdrx-end) 
    ) 
  ) 
  (princ) 
)

yuren008 · 发表于 2020-7-1 10:09:04

做个对论坛有益的人。

1917732332 · 发表于 2020-7-2 08:34:31

谢谢分享

松树石头哥 · 发表于 2020-7-2 09:58:03

感谢楼主分享！！

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

[标注] 【标注】原值检查

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