[讨论]：怎样才能把中心线最快画出来。

午夜凶围

请问各位高手，你们是画出实体才画中心，还是画出中心线才画实体呢？好像画圆的中心线，怎样才能在不用计算就能把中心线画出实体5 MM呢？请指教。

zxdcad

楼主，你的概念有点问题！别把“实体”到处乱用。

你要的就是画圆或弧的中心线吗？（这是我的理解，不知对不对！）
这是以前编的一个程序，你试试！

[PHP]
(defun C:ZX (/           pz         dycd  dycds dycd1 dycd2 ss    leng  index
             echo  QLTS         LTS   b1    tc           ty         xy    xy0   ra
             ks1   ks2         ks3   ks4
            )                                ;绘制中心线
                                        ;(command "undo" "end")
  (setq pz (getvar "osmode"))
  (setvar "osmode" 0)

  (if (= dycd nil)
    (setq dycd 3)
  )
  (SETQ dycds (RTOS dycd 2))
  (SETQ
    dycd1 (STRCAT
            "\n画圆或圆弧的中心线。\n请给出中心线超出圆或圆弧的长度<"
            dycds
            ">:"
          )
  )
  (setq dycd2 (getreal dycd1))
  (if (/= dycd2 nil)
    (setq dycd dycd2)
  )
  (setq ss (ssget))                        ;"选择要画中心十字线的圆或圆弧:"
  (setq leng (sslength ss))
  (setq index 0)
  (setvar "CMDECHO" 0)
  (command "undo" "begin")
  (SETQ QLTS (GETVAR "ltscale"))
  (SETQ LTS (/ 5 QLTS))
  (REPEAT leng
    (setq b1 (entget (ssname ss index)))
    (setq tc (assoc 0 b1))
    (setq ty (ssname ss index))
    (setq index (+ index 1))
    (cond
      ((or (= (cdr TC) "ARC") (= (cdr TC) "CIRCLE"))
       (setq xy (cdr (assoc 10 b1)))
       (setq xy0 (trans xy 0 1))
       (setq ra (+ (cdr (assoc 40 b1)) dycd))
       (setq ks1 (polar xy0 0 ra))
       (setq ks2 (polar xy0 (/ pi 2) ra))
       (setq ks3 (polar xy0 pi ra))
       (setq ks4 (polar xy0 (* pi 1.5) ra))
       (command "line" ks1 ks3 "")
       (command        "change" "l" ""        "P" "LT" "CENTER" "C" "6" "s" LTS "")
       (command "line" ks2 ks4 "")
       (command        "change" "l" ""        "P" "LT" "CENTER" "C" "6" "s" LTS "")
      )
    )
  )
  (command "undo" "end")
  (setvar "osmode" pz)
  (setvar "cmdecho" 1)  
  (prin1)
)
[/PHP]

老童生

比较简单的方法就是：“直线（Line）”命令——Shift+鼠标右键（弹出菜单）——选取“中心（Center）”，将鼠标移到圆（或圆弧）上，（会在圆心处出现一个“捕捉（Snap）”的圆圈），点鼠标左键，然后画水平线，垂直线。中心线就画好了。
另外，我的习惯是，先画中心线再画圆。

午夜凶围

最初由 zxdcad 发布
[B]楼主，你的概念有点问题！别把“实体”到处乱用。

你要的就是画圆或弧的中心线吗？（这是我的理解，不知对不对！）
这是以前编的一个程序，你试试！

[PHP]
(defun C:ZX (/           pz         dycd  dycds dycd1 dycd2 s... [/B]

小弟我读的书少啊，嘻，下次会注意啦。

sdwy19691229

做程序就可以把中心线最快画出来。

tqr

如果只是画圆的中心线，可以这样：把画好的圆向外偏移5mm，然后连接辅助圆的象限点。

yjtuia

问一个问题咯。我见过好多地方出现过象限点， 请问何为“象限点”？

红色法拉利

呵呵

三三宝贝

不太明白

suda20001

我也遇到这种问题，可是这里的解释还是让我不太明白。

anxinwang1

最初由 yjtuia 发布
[B]问一个问题咯。我见过好多地方出现过象限点， 请问何为“象限点”？ [/B]

象限点就是圆  4等份点


个人看法

Sonny

最初由 anxinwang1 发布
[B]


象限点就是圆  4等份点


个人看法 [/B]

是不是应该说是：圆和过圆心的分别平行于X、Y轴的两条直线的交点。
在AUTOCAD中象限点在圆上夹点的位置。