[求助]请问怎么获取块中圆的圆心?
 

[求助]请问怎么获取块中圆的圆心?
www.dimcax.com
[求助]请问怎么获取块中圆的圆心?
在用户坐标系下
使用(trans pt 0 1)也无法正确得到(见附件图)
我获得圆心pt的方法使用的是
(cdr (assoc 10 (entget (car (nentsel)))))
(cdr (assoc 10 (entget (cdr (assoc -2 (tblsearch "block" (cdr (assoc 2 (entget (car (entsel)))))))))))
(vlax-safearray->list (vlax-variant-value (vla-get-center (vlax-ename->vla-object (car (nentsel))))))
这个点用trans后getpoint可以查看到不是正确的圆心坐标
该文件为 autocad
d
将ucs的原点设置到块的插入点
d
谢谢caoyin大侠
但是怎么有的好使有的不好使呢

该文件为 autocad
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
注意角度的问题，
(nentsel)得到的图元，跟块的缺省状态——插入点为(0 0 0),旋转角度为0
使用对象ucs
(command ".ucs" "_ob" ...
d
那我怎么知道前一个ucs和当前ucs的夹角呢
是不是通过ucsxdir两次计算?
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
问题解决了
谢谢caoyin
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.:43797405email:nonsmall@163.com对lisp开发研究有兴趣可以找我