{"blog_title":"memo","url":"https://theze.hatenadiary.org/entry/20130430/1367298317","published":"2013-04-30 14:05:17","author_name":"theze","title":"AutocadVBA\u3067\u9078\u629e\u72b6\u614b\u53d6\u5f97\u306e\u554f\u984c\u70b9","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ftheze.hatenadiary.org%2Fentry%2F20130430%2F1367298317\" title=\"AutocadVBA\u3067\u9078\u629e\u72b6\u614b\u53d6\u5f97\u306e\u554f\u984c\u70b9 - memo\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","height":"190","categories":["autocad","vba"],"version":"1.0","image_url":null,"provider_name":"Hatena Blog","blog_url":"https://theze.hatenadiary.org/","description":"VBE\u304b\u3089F5\u3067\u5b9f\u884c\u3059\u308b\u3068PickfirstSelectionSet\u306f\u6b63\u3057\u304f\u52d5\u4f5c\u3059\u308b\u3002 \u30e1\u30cb\u30e5\u30fc\u306b\u767b\u9332\u3057\u305f\u72b6\u614b\u3067\u5b9f\u884c\u3059\u308b\u3068\u30de\u30af\u30ed\u3092\u5b9f\u884c\u3057\u305f\u6bb5\u968e\u3067\u9078\u629e\u304c\u89e3\u9664\u3055\u308c\u3066\u3057\u307e\u3046\u3002 ActiveSelectionSet\u306f\u76f4\u524d\u306e\u9078\u629e\u72b6\u614b\u3092\u899a\u3048\u3066\u3044\u308b\u305f\u3081\u6b63\u3057\u304f\u52d5\u4f5c\u3059\u308b\u304c \u9078\u629e\u3092\u89e3\u9664\u3057\u305f\u72b6\u614b\u3067\u30de\u30af\u30ed\u5b9f\u884c\u3059\u308b\u3068\u6b63\u3057\u304f\u52d5\u4f5c\u3057\u306a\u3044\u3002 \u30cd\u30c3\u30c8\u3067\u8abf\u3079\u305f\u7d50\u679c PICKFIRST=1\u306b\u8a2d\u5b9a\u3059\u308b\u6848\u3067\u306f\u89e3\u6c7a\u3067\u304d\u305a\u3002 \u3082\u3068\u304b\u30891\u3060\u3057\u30011>0>1\u3068\u5909\u3048\u3066\u3082\u5909\u5316\u306a\u3057\u3002VBA\u30b3\u30fc\u30c9\u304c\u5b9f\u884c\u3055\u308c\u308b\u524d\u306b\u9078\u629e\u3055\u308c\u3066\u3044\u308b\u3053\u3068\u3092\u78ba\u8a8d\u3057\u3066VBA\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3059\u308b\u5fc5\u8981\u304c\u3042\u308b\u3089\u3057\u3044\u3002 \u30de\u30af\u30ed\u306e\u6b04\u306b\u8a18\u8f09\u3059\u308bLISP\u30b3\u30fc\u30c9 (if (/= cdr((ssget\u2026","author_url":"https://blog.hatena.ne.jp/theze/","provider_url":"https://hatena.blog","width":"100%","type":"rich"}