求助，ssget 填充图案，请问这个里面有图案名称和坐标吗

yjpyjp

(setq ssa (ssget ":S" '((0 . "HATCH"))))

另： 如果没有坐标，，请问该怎么获取一个图案的填充名称，起点坐标，以及填充面积。
本来entsel可以，但是我不知道entsel怎么获取面积

1291500406

(defun c:bb()
(setq ss (ssget ":S" '((0 . "HATCH"))))
(setq a(entget  (ssname ss 0)))
(setq b(cdr(assoc 2  a )));名称
(setq c (cdr(assoc 11 a )));坐标
(setq d (areaOfObject ss));面积
(princ))

areaOfObject 的定义在文件里自己找，这样才会有进步

yjpyjp

1291500406 发表于 2019-4-28 17:19
(defun c:bb()
(setq ss (ssget ":S" '((0 . "HATCH"))))
(setq a(entget  (ssname ss 0)))

谢谢

yjpyjp

1291500406 发表于 2019-4-28 17:19
(defun c:bb()
(setq ss (ssget ":S" '((0 . "HATCH"))))
(setq a(entget  (ssname ss 0)))

-0- ,还有个问题请教一下，，如果遇到图纸的填充面积异常的，有没有办法正确获取它的面积例如

1291500406

yjpyjp 发表于 2019-4-28 18:30
-0- ,还有个问题请教一下，，如果遇到图纸的填充面积异常的，有没有办法正确获取它的面积例如

在这个可以

yjpyjp

1291500406 发表于 2019-4-28 18:48
在这个可以

em。刚试了一下 (setq c (cdr(assoc 11 a )));坐标  这个好像是填充图案的一个点坐标，我想要的是点取填充图案时候，鼠标点的那个坐标，【想要写一个引线标注出来一个填充图案的名称及面积的功能】

1291500406

yjpyjp 发表于 2019-4-28 19:20
em。刚试了一下 (setq c (cdr(assoc 11 a )));坐标  这个好像是填充图案的一个点坐标，我想要的是点取填 ...

getpoint

yjpyjp

1291500406 发表于 2019-4-28 19:34
getpoint

em。。引线标注  要点两下，   我选择想弄的是第一个点就直接用选取填充图案的时候鼠标点的那个点。用（entsel）这个好像能有鼠标点击的那个点但是我不知道怎么写

1291500406

yjpyjp 发表于 2019-4-28 19:43
em。。引线标注  要点两下，   我选择想弄的是第一个点就直接用选取填充图案的时候鼠标点的那个点。用（e ...

先创建边界
http://bbs.mjtd.com/forum.php?mo ... 4%BD%A8%B1%DF%BD%E7
利用ssget  过滤
http://bbs.mjtd.com/thread-179183-1-1.html
获取面积值
http://bbs.mjtd.com/forum.php?mo ... E%B3%E4%C3%E6%BB%FD
引线命令拉取值
http://bbs.mjtd.com/forum.php?mo ... hlight=%D2%FD%CF%DF

我也是自学的，不难，试着自己写一下，搜索一下以前的代码，组装起来

yjpyjp

1291500406 发表于 2019-4-28 21:50
先创建边界
http://bbs.mjtd.com/forum.php?mo ... 4%BD%A8%B1%DF%BD%E7
利用ssget  过滤

万分感谢QAQ