[求助]：为何不能画圆的中心线？

wzg

(defun c:test()
(command "rectang" "20,20" "6000,200" "");画一个矩形
(setq p1 "0,0")
(command "circle" p1 45 "");画圆
(setq p2 "45,0")
(command "dimcenter" p1 p2 );取圆心和圆上一点画圆的中心线
)

加载上述程序后执行后，不能画中心线，提示未选择到圆，但是
把已画出的图形用放大镜放大后，再执行test，却能够画出中心线（此时仍提示未选择到圆）,为什么?
请高手解答，谢谢！

leeo

(command "rectang" "20,20" "6000,200" "");画一个矩形
改为(command "rectang" "20,20" "6000,200");画一个矩形

并不是没画出来，你修改当前标注样式中圆中心标注大小即可看到

wzg

(defun c:test()
(command "rectang" "20,20" "6000,200" );画一个矩形
(command "zoom" "all");把矩形zoom all
(setq p1 "0,0")
(command "circle" p1 45 "");画圆
(setq p2 "45,0")
(command "dimcenter" p1 p2 "");取的圆心和圆上一点画圆的中心线
)

修改中心标记大小还是不行，无论把标记设为多大，我把矩形zoom all后，都不能画出中心标记（提示选择不到圆，是不是选择的方式不对），请leeo兄帮助试一下

leeo

你要画十字中心线，还是中心标注？我试过，可以看到中心标记
"dimcenter"的用法也不对，


看看这个可不可以用得上：
(DEFUN C:TEST()
  (SETQ CEN (GETPOINT "圆中心:");取得圆心
        RAD (GETREAL "圆半径:"));取得圆半径
  (COMMAND "CIRCLE" CEN RAD);画圆
  (COMMAND "LINE" (POLAR CEN PI (/ RAD 2)) (POLAR CEN 0 (/ RAD 2)) "")
  (COMMAND "LINE" (POLAR CEN (/ PI 2) (/ RAD 2)) (POLAR CEN (* PI 1.5) (/ RAD 2)) "")
  (PRINC))
另外我也不是高手，大家多交流：）

lsjjm

"DIMCENTER" 执行的是标注圆的"中心" 不是我们通常意义上所说的"中心线".
画圆或其他对称实体的中心线请参考:
http://www.xdcad.net/forum/showthread.php?threadid=56084

limingqian

5楼说的是。其实过圆心所做的任意线都是圆的中心线。

wzg

对不起，我的本意是画圆的中心标记，如何才能用程序自动选择到圆,dimcenter应如何用

colatree

不需要P1點，因為P1是圓心當然找不到圖元
且DIMCNTER只要一個變數P2就能運行了，即
(defun c:test()
(command "rectang" "20,20" "6000,200");画一个矩形
(setq p1 "0,0")
(command "circle" p1 "45");画圆
(setq p2 "45,0")
(command "dimcenter"  p2 );取圆心和圆上一点画圆的中心线
)
試試看吧

maplesu

dimcenter命令是需要一个圆或圆弧对象的，后面跟点当然不对了。用entlast来去你最后画的圆吧
然后在用dimcenter命令吧。而且dimcenter命令是画一个点呀。不是线呀！！
你要画中心线为什么不直接用line命令呢，这个才是画线呀

wzg

colatree：
按你的方法试了，发现以下问题：
若启动CAD后，直接加载程序，提示让你选择圆（程序未能自动选择圆）；但是若建立一个新文件后，在加载程序，则能完成画图，为何？

colatree

我測試的結果都很正常呀
因為沒有看到你的圖，所以有以下的猜想
1.在(45,0)的點上或附近有其他的圖元
2.物件鎖點模式打開的關係
是否可試一下放大圖面在下指令
且將(command "dimcenter" p2 )
改為(command "dimcenter" p2)
試試看
希望有解

wzg

不是1、2的问题。
在第一次未画出中心标记时，按ESC取消，在把已生成的圆放大，重新执行，则可以，为何？