【求助】点取填充面积的代码，想要改成框选自动标注到中心
本帖最后由 yjpyjp 于 2019-5-1 17:27 编辑（如图：是我一个个点出来的）
改成【框选图案】，自动在填充图案的【中心】标注出它的【名称及面积】，，那些【填充异常】，没有面积的就【不要标注】了，
求助！！！！！！
;; tt(填充面积)
(defun c:tt ()
(setq i -1)
(if (setq ss (ssget '((0 . "hatch"))))
(while (setq s1 (ssname ss (setq i (1+ i))))
(if (not (vl-catch-all-error-p
(setq a (vl-catch-all-apply
'vla-get-area
(list (vlax-ename->vla-object s1))
)
)
)
)
(princ a)
)
)
)
(princ)
) 本帖最后由 1291500406 于 2019-5-1 00:12 编辑
框选，自动标注到填充中心，这些都简单，但是填充图案没面积不标注这个就不会了，你怎么做到它没面积的
存在2个问题
1，对于o型填充和 L 型填充 中心文字是不在填充上，既使判断了，文字也不在填充上
2，对于填充异常面积值，返回值并不是nil 或者 0 判断不出来，怎么if区别，怎么过滤呢，看着一大片的，咋就零面积了呢
本帖最后由 yjpyjp 于 2019-4-29 15:41 编辑
鼓捣了好久这玩意，，但是只会编写一个个点取标注，，求大神帮我修改一下改成框选，自动标注到填充中心，，填充图案没面积不标注 xyp1964 发表于 2019-4-29 23:40
em。。好像无效呀， 只能在命令栏输出 不能标注在中心
本帖最后由 yjpyjp 于 2019-4-30 09:12 编辑
1291500406 发表于 2019-4-30 00:45
框选，自动标注到填充中心，这些都简单，但是填充图案没面积不标注这个就不会了，你怎么做到它没面积的
存 ...
图纸发来的时候就是一部分是错误的填充图案 搞不清楚为什么会这样，，能否参考一下你现在这个代码QuQ，我拼凑一下好了 本帖最后由 1291500406 于 2019-4-30 09:20 编辑
yjpyjp 发表于 2019-4-30 09:05
图纸发来的时候就是一部分是错误的填充图案 搞不清楚为什么会这样，，能否参考一下你现在这个代码QuQ，我 ...
http://bbs.mjtd.com/forum.php?mo ... hlight=%C3%E6%BB%FD
这个里面有你想要的
1291500406 发表于 2019-4-30 09:18
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=171747&highlight=%C3%E6%BB%FD
=-= 。 我一直搞不懂框选多个对象将取得的数值标注到中心该怎么写，，能否参考一下 QuQ
页:
[1]
2