想在视图中间画一个园，但是坐标为什么偏离

cadmole

问题好像出在viewctr是以0为原点计算的坐标，但实际上视图中图形的原点不在左下角

（defun  winpt()
   (setq cpt (getvar "viewctr"))
   (setq csz (getvar "screensize"))
   (setq ch (/ (cadr csz) 2))
   (setq vh (getvar "viewsize"))

   (setq scale (/ (/ vh 2.0) ch)))

   (setq pt (list (* (car csz) scale )  (*  (cadr csz) scale )))

(command "_circle" pt 100)

）

Lisphk

viewctr 不就是 圆心吗

cadmole

我想我没有说清楚，取得的viewctr是一个中心坐标，这个中心坐标是以原点放在左下角时计算得到的，但实际绘图时，往往有偏移，原点坐标和屏幕左下角显示的坐标并非重合的，所以画出来的原位置不对

Lisphk

cadmole 发表于 2017-7-6 18:50

难道我们用的不是同一个公司出的AUTOCAD？

加载下下面代码试试，看是不是在屏幕中心画一个半径是屏幕高度1/10的圆出来。

1. (defun c:tt ()
   
2.   (setq p (getvar "viewctr"))
   
3.   (command "circle" p (/ (getvar "viewsize") 10.0))
   
4.   (princ)
   
5. )
   
6. 
   

(defun c:tt ()<br />   (setq p (getvar "viewctr"))<br />   (command "circle" p (/ (getvar "viewsize") 10.0))<br />   (princ)<br /> )<br /> <br />

kqqt6236

楼上的没问题。

yangjian001

实际上视图中图形的原点不在左下角

evayleung

路过来学习一下。。。。。

cadmole

Lisphk 发表于 2017-7-7 00:09

我想你没有明白我的意思，我的步骤是：1,打开cad
2，运行代码
3，使用平移工具平移整个图，注意是整个图
4，再运行代码

你会发现，2次画的圆都在同一个位置，并不是窗口的中心

marting

cadmole 发表于 2017-7-7 09:12

不是人家没理解你意思，你自己看看从头到尾，你说过要先移动图了吗？你说的就是在屏幕中心画个圆。所以发帖求助、研讨，最好就直接说想做什么，做到哪了，哪里出什么问题了，客观描述，不要加入自己的结论，你中间过程的自己的结论，可能会误导别人。

你这个问题就不是VIEWCTR的问题，VIEWCTR也跟屏幕左下角没有任何关系。它就是窗口中心点的当前坐标系的坐标值。

marting

cadmole 发表于 2017-7-7 09:12

你用下 LISPHK的代码，执行一次，平移下图，在执行一次，你看看圆是不是画在同一个位置？ 肯定不是同一个位置，是当前窗口的中心。
你是想在当前屏幕窗口的中心画一个圆？ 还是要在你选的所有实体的包围框的中心点画圆？

cadmole

marting 发表于 2017-7-7 09:24

是我弄错了。。。。。。。。