iCAx开思网

标题: 【求助】在CAD中如何解决线及圆弧的UCS中Z值不为0的问题？ [打印本页]

作者: szhibing 时间: 2003-9-19 19:01
标题: 【求助】在CAD中如何解决线及圆弧的UCS中Z值不为0的问题？
附件中有几端圆弧UCS（X=0，Y=0，Z=-1），如何把Z值变为0

作者: Joseph Lin 时间: 2003-9-20 10:13
指令UCS→O→輸入0,0,0,

作者: szhibing 时间: 2003-9-20 11:33
老兄，不行啊？附件中的图是从UG中转出，用CAD14打开有部分Z=0，另部分Z=-1

作者: 一路风情 时间: 2003-9-20 12:04
兄弟不是我不助你，实在是找不到什么好法子，只好重新绘一张吧。

作者: szhibing 时间: 2003-9-20 12:28
我的办法是在其它软件中用投影再做一次，然后再转出，不知在CAD中能否解决

作者: wayne 时间: 2003-9-21 00:35

szhibing wrote:
我的办法是在其它软件中用投影再做一次，然后再转出，不知在CAD中能否解决

szhibing兄, 是指群碼210中Z值為-1嗎? 其意義說明圖元擠出方向, 與WCS的Z軸不平行, 硬改為正值, 螢幕上位置亦隨著變動, 您的方法是正確的.
指令: (entget(car(entsel)))

選取物件: ((-1 . <圖元名稱: 14b1a90>) (0 . "ARC") (330 . <圖元名稱: 14b1c80>) (5 . "CA") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbCircle") (10 -177.246 145.748 0.0) (40 . 8.9672) (210 0.0 0.0 -1.0) (100 . "AcDbArc") (50 . 2.67943) (51 . 6.26704))

作者: szhibing 时间: 2003-9-21 15:27
楼上兄弟你的判断是对的，但我不明白你的指令意义，烦老兄赐教

作者: wayne 时间: 2003-9-21 17:41
(entget(car(entsel))), 是lisp的語法, 和以下的指令相同, 因為要修改群碼210, 必須透過Lisp.
指令: list

選取物件: 1 找到

選取物件:
                  ARC    圖層: "0"
                            空間: 模型空間
                   處理碼 = CA
            中心點點, X= 0.0000  Y= 0.0000  Z= 0.0000
              半徑 8.9672
相對於 UCS 的擠出方向:
                   X= 0.0000  Y= 0.0000  Z=  -1.0000
            長度 32.1709
             總角度 206

作者: xing750112 时间: 2003-9-22 08:56
我还是不明白在CAD中如何修改,能否把你修改的步骤写出

作者: wayne 时间: 2003-9-22 13:50
(1), 指令: (setq e1(entget(car(entsel))))

選取物件: ((-1 . <圖元名稱: 40087290>) (0 . "ARC") (330 . <圖元名稱: 40087480>) (5 . "CA") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbCircle") (10 -177.246 145.748 0.0) (40 . 8.9672) (210 0.0 0.0 -1.0) (100 . "AcDbArc") (50 . 2.67943) (51 . 6.26704))

(2), 指令: (setq e2(subst '(210 0.0 0.0 1.0) '(210 0.0 0.0 -1.0) e1))
((-1 . <圖元名稱: 40087290>) (0 . "ARC") (330 . <圖元名稱: 40087480>) (5 . "CA") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbCircle") (10 -177.246 145.748 0.0) (40 . 8.9672) (210 0.0 0.0 1.0) (100 . "AcDbArc") (50 . 2.67943) (51 . 6.26704))

(3), 指令: (entmod e2)
((-1 . <圖元名稱: 40087290>) (0 . "ARC") (330 . <圖元名稱: 40087480>) (5 . "CA") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbCircle") (10 -177.246 145.748 0.0) (40 . 8.9672) (210 0.0 0.0 1.0) (100 . "AcDbArc") (50 . 2.67943) (51 . 6.26704))

指令: (entget (cdar e1))
((-1 . <圖元名稱: 40087290>) (0 . "ARC") (330 . <圖元名稱: 40087480>) (5 . "CA") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbCircle") (10 -177.246 145.748 0.0) (40 . 8.9672) (210 0.0 0.0 1.0) (100 . "AcDbArc") (50 . 2.67943) (51 . 6.26704))

指令: list
選取物件: (cdar e1)
<圖元名稱: 40087290>
1 找到

選取物件:

                  ARC    圖層: "0"
                            空間: 模型空間
                   處理碼 = CA
            中心點點, X=-354.4918  Y= 0.0000  Z= 0.0000
              半徑 8.9672
              起點角度 154
              終點角度 359
            長度 32.1709

作者: wayne 时间: 2003-9-22 14:09
上述(1)-(3)個步驟, 即完成一個弧物件的修改, 您會發現群碼210的Z值, 已改為1.0, 而中心點座標不一樣了, 接著要寫一個迴圈, 將其他群碼210的Z=-1.0的圖元逐一修改, 則大功告成.

作者: szhibing 时间: 2003-9-22 19:31
谢谢！虽然繁但也可解决问题。

欢迎光临 iCAx开思网 (https://www.icax.org/)