先将矩形转换为面域(命令region),然后求面域的形心:
(vla-get-Centroid (vlax-ename->vla-object 对 ...
谢谢你 http://bbs.mjtd.com/thread-107647-1-1.html
(setq 4p (HH:Ent4pt (car (entsel)) T))
(setq CenterP (mapcar '+ (car 4p) (caddr 4p)))
(setq CenterP (mapcar '/ CenterP 2.0)) 本帖最后由 peraperson 于 2013-10-29 09:27 编辑
自贡黄明儒 发表于 2013-10-19 09:19 static/image/common/back.gif
http://bbs.mjtd.com/thread-107647-1-1.html
(setq 4p (HH:Ent4pt (car (entsel)) T))
(setq CenterP (m ...
(setq 4p (HH:Ent4pt (car (entsel)) T)) 这个是什么意思呢? HH? Ent4pt? T?
(thx,留着以后慢慢研究。。。) 谢谢楼主,辛苦了! 留着以后慢慢研究
页:
1
[2]